allocate_misc Subroutine

public subroutine allocate_misc(flag, nr, irm, irid, lmax, naez, natyp, nfund, nrefd, iemxd, ntotd, nsheld, lmmaxd, nembd1, nchebd, ncelld, lmxspd, nspindd, nsymaxd, nprincd, ifunm, ifunm1, icheck, vref, s, rr, dror, rnew, rs, rrot, thesme, dsymll, dsymll1, lefttinvll, righttinvll)

Subroutine handling the allocation/deallocation of misc arrays

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: flag
integer, intent(in) :: nr
integer, intent(in) :: irm
integer, intent(in) :: irid
integer, intent(in) :: lmax

Maximum l component in wave function expansion

integer, intent(in) :: naez

number of atoms in unit cell

integer, intent(in) :: natyp

number of kinds of atoms in unit cell

integer, intent(in) :: nfund
integer, intent(in) :: nrefd
integer, intent(in) :: iemxd
integer, intent(in) :: ntotd
integer, intent(in) :: nsheld
integer, intent(in) :: lmmaxd
integer, intent(in) :: nembd1
integer, intent(in) :: nchebd
integer, intent(in) :: ncelld
integer, intent(in) :: lmxspd
integer, intent(in) :: nspindd
integer, intent(in) :: nsymaxd
integer, intent(in) :: nprincd
integer, intent(inout), dimension (:, :), allocatable :: ifunm
integer, intent(inout), dimension (:, :), allocatable :: ifunm1
integer, intent(inout), dimension (:, :), allocatable :: icheck
real(kind=dp), intent(inout), dimension (:), allocatable :: vref
real(kind=dp), intent(inout), dimension (:, :), allocatable :: s
real(kind=dp), intent(inout), dimension (:, :), allocatable :: rr

Set of real space vectors (in a.u.)

real(kind=dp), intent(inout), dimension (:, :), allocatable :: dror
real(kind=dp), intent(inout), dimension (:, :), allocatable :: rnew
real(kind=dp), intent(inout), dimension (:, :, :), allocatable :: rs
real(kind=dp), intent(inout), dimension (:, :, :), allocatable :: rrot
real(kind=dp), intent(inout), dimension (:, :, :), allocatable :: thesme
complex(kind=dp), intent(inout), dimension (:, :, :), allocatable :: dsymll
complex(kind=dp), intent(inout), dimension (:, :, :), allocatable :: dsymll1
complex(kind=dp), intent(inout), dimension (:, :, :, :, :), allocatable :: lefttinvll
complex(kind=dp), intent(inout), dimension (:, :, :, :, :), allocatable :: righttinvll