scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Replaced ALLOCATABLE's within derived types (not allowed by the standard 

FORTRAN90) via POINTER's.

       Ari P Seitsonen


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@5268 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
seitsonen 2008-11-04 18:59:11 +00:00
parent e6aedd4a76
commit 25f9915a6d
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
GIPAW/paw_gipaw.f90
View File

@ -96,30 +96,30 @@ MODULE paw_gipaw
paw_nbeta, & ! number of beta functions
paw_kkbeta, & ! point where the beta are zero
paw_lll(nbrx) ! angular momentum of the beta function
INTEGER, ALLOCATABLE ::&
INTEGER, POINTER ::&
paw_indv(:), & ! correspondence of betas atomic <-> soli
paw_nhtol(:), & ! correspondence n <-> angular momentum
paw_nhtom(:), & ! correspondence n <-> magnetic angular m
paw_nl(:), & ! number of projectors for each l
paw_iltonh(:,:) ! corresp l, num <--> n for each type
REAL(DP), ALLOCATABLE :: &
REAL(DP), POINTER :: &
paw_tab(:,:) ! interpolation table for PPs
REAL(DP), ALLOCATABLE :: &
REAL(DP), POINTER :: &
paw_tab_d2y(:,:) ! for cubic splines
TYPE ( at_wfc ), POINTER :: aephi(:)
TYPE ( at_wfc ), POINTER :: psphi(:)
LOGICAL :: vloc_present
REAL(dp), ALLOCATABLE :: gipaw_ae_vloc(:)
REAL(dp), ALLOCATABLE :: gipaw_ps_vloc(:)
REAL(dp), POINTER :: gipaw_ae_vloc(:)
REAL(dp), POINTER :: gipaw_ps_vloc(:)
LOGICAL :: gipaw_data_in_upf_file
INTEGER :: gipaw_ncore_orbital
REAL(dp), ALLOCATABLE :: gipaw_core_orbital(:,:)
INTEGER, ALLOCATABLE :: gipaw_core_orbital_l(:)
REAL(dp), POINTER :: gipaw_core_orbital(:,:)
INTEGER, POINTER :: gipaw_core_orbital_l(:)
END TYPE paw_recon_type