LCOV - code coverage report
Current view: top level - types - types_usdus.F90 (source / functions) Hit Total Coverage
Test: combined.info Lines: 16 17 94.1 %
Date: 2019-09-08 04:53:50 Functions: 1 3 33.3 %

          Line data    Source code
       1             : !--------------------------------------------------------------------------------
       2             : ! Copyright (c) 2016 Peter Grünberg Institut, Forschungszentrum Jülich, Germany
       3             : ! This file is part of FLEUR and available as free software under the conditions
       4             : ! of the MIT license as expressed in the LICENSE file in more detail.
       5             : !--------------------------------------------------------------------------------
       6             : 
       7             : MODULE m_types_usdus
       8             :   TYPE t_usdus
       9             :      REAL,ALLOCATABLE,DIMENSION(:,:,:) CPP_MANAGED   :: us
      10             :      REAL,ALLOCATABLE,DIMENSION(:,:,:) CPP_MANAGED   :: dus
      11             :      REAL,ALLOCATABLE,DIMENSION(:,:,:) CPP_MANAGED   :: uds
      12             :      REAL,ALLOCATABLE,DIMENSION(:,:,:) CPP_MANAGED   :: duds !(0:lmaxd,ntype,jspd)
      13             :      REAL,ALLOCATABLE,DIMENSION(:,:,:) CPP_MANAGED   :: ddn  !(0:lmaxd,ntype,jspd)
      14             :      REAL,ALLOCATABLE,DIMENSION(:,:,:)   :: ulos
      15             :      REAL,ALLOCATABLE,DIMENSION(:,:,:)   :: dulos
      16             :      REAL,ALLOCATABLE,DIMENSION(:,:,:)   :: uulon
      17             :      REAL,ALLOCATABLE,DIMENSION(:,:,:)   :: dulon     ! (nlod,ntype,jspd)
      18             :      REAL,ALLOCATABLE,DIMENSION(:,:,:,:) :: uloulopn  ! (nlod,nlod,ntypd,jspd)
      19             :      REAL,ALLOCATABLE,DIMENSION(:,:,:)   :: uuilon
      20             :      REAL,ALLOCATABLE,DIMENSION(:,:,:)   :: duilon    ! (nlod,ntype,jspd)
      21             :      REAL,ALLOCATABLE,DIMENSION(:,:,:,:) :: ulouilopn ! (nlod,nlod,ntypd,jspd)
      22             :    CONTAINS
      23             :      PROCEDURE :: init => usdus_init
      24             :   END TYPE t_usdus
      25             : 
      26             : 
      27             :  
      28             : CONTAINS
      29         948 :   SUBROUTINE usdus_init(ud,atoms,jsp)
      30             :     USE m_judft
      31             :     USE m_types_setup
      32             :     IMPLICIT NONE
      33             :     CLASS(t_usdus)           :: ud
      34             :     TYPE(t_atoms),INTENT(IN) :: atoms
      35             :     INTEGER,INTENT(IN)       :: jsp
      36             : 
      37             :     INTEGER :: err(13)
      38         948 :     ALLOCATE ( ud%uloulopn(atoms%nlod,atoms%nlod,atoms%ntype,jsp),stat=err(1) )
      39         948 :     ALLOCATE ( ud%ddn(0:atoms%lmaxd,atoms%ntype,jsp),stat=err(2) )
      40         948 :     ALLOCATE ( ud%us(0:atoms%lmaxd,atoms%ntype,jsp),stat=err(3))
      41         948 :     ALLOCATE ( ud%uds(0:atoms%lmaxd,atoms%ntype,jsp),stat=err(4) )
      42         948 :     ALLOCATE ( ud%dus(0:atoms%lmaxd,atoms%ntype,jsp),stat=err(5))
      43         948 :     ALLOCATE ( ud%duds(0:atoms%lmaxd,atoms%ntype,jsp),stat=err(6))
      44         948 :     ALLOCATE ( ud%ulos(atoms%nlod,atoms%ntype,jsp ),stat=err(7))
      45         948 :     ALLOCATE (ud%dulos(atoms%nlod,atoms%ntype,jsp ),stat=err(8) )
      46         948 :     ALLOCATE (ud%uulon(atoms%nlod,atoms%ntype,jsp ),stat=err(9))
      47         948 :     ALLOCATE (ud%dulon(atoms%nlod,atoms%ntype,jsp) ,stat=err(10))
      48         948 :     ALLOCATE (ud%uuilon(atoms%nlod,atoms%ntype,jsp),stat=err(11))
      49         948 :     ALLOCATE (ud%duilon(atoms%nlod,atoms%ntype,jsp),stat=err(12))
      50         948 :     ALLOCATE (ud%ulouilopn(atoms%nlod,atoms%nlod,atoms%ntype,jsp),stat=err(13))
      51             : 
      52       13272 :     IF (ANY(err>0)) CALL judft_error("Not enough memory allocating usdus datatype")
      53             : 
      54         948 :   END SUBROUTINE usdus_init
      55             :   
      56             :  
      57           0 : END MODULE m_types_usdus

Generated by: LCOV version 1.13