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

More PGI weirdness from Andrea Ferretti - initialization of derived-type 

variables should be avoided: it is not supported by all compilers.
Please test for unexpected side effects of removal of initial values!


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@4695 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2008-02-13 15:52:51 +00:00
parent 8d855461b7
commit 0ced6054f9
3 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Modules/paw_variables.f90
View File

@ -30,9 +30,9 @@ MODULE paw_variables
TYPE paw_radial_integrator
! the following variables are used to integrate radial sampling
INTEGER :: lmax = 0 ! max l component that can be integrated correctly
INTEGER :: lm_max = 0 ! as above, but +1 and squared
INTEGER :: nx = 0 ! number of itegration directions
INTEGER :: lmax ! max l component that can be integrated correctly
INTEGER :: lm_max ! as above, but +1 and squared
INTEGER :: nx ! number of integration directions
REAL(DP),POINTER :: ww(:) ! integration weights (one per direction)
REAL(DP),POINTER :: ylm(:,:) ! Y_lm(nx,lm_max)
REAL(DP),POINTER :: wwylm(:,:) ! ww(nx) * Y_lm(nx,lm_max)

2
Modules/radial_grids.f90
View File

@ -55,7 +55,7 @@ TYPE radial_grid_type
REAL(DP) :: &
xmin, & ! the minimum x
rmax, & ! the maximum radial point
zmesh=-1.d0,& ! the ionic charge used for the mesh
zmesh, & ! the ionic charge used for the mesh
dx ! the deltax of the linear mesh
END TYPE radial_grid_type

6
PW/io_rho_xml.f90
View File

@ -1,5 +1,5 @@
!
! Copyright (C) 2001-2006 Quantum-ESPRESSO group
! Copyright (C) 2001-2008 Quantum-ESPRESSO group
! This file is distributed under the terms of the
! GNU General Public License. See the file `License'
! in the root directory of the present distribution,
@ -24,11 +24,11 @@ MODULE io_rho_xml
INTERFACE write_rho
MODULE PROCEDURE write_rho_only, write_rho_general
END INTERFACE write_rho
END INTERFACE
INTERFACE read_rho
MODULE PROCEDURE read_rho_only, read_rho_general
END INTERFACE read_rho
END INTERFACE
CONTAINS