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

Added missing __XSD, protecting from GNU 4.4.x complains 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@13044 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
spigafi 2016-10-01 11:34:41 +00:00
parent 65f70ab90d
commit 743b03ee9d
3 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
PW/src/read_conf_from_file.f90
View File

@ -31,11 +31,12 @@ FUNCTION read_config_from_file(nat, at_old, omega_old, lmovecell, at, bg, &
REAL(DP),INTENT(inout) :: tau(3,nat)
INTEGER :: ierr
!
#if defined(__XSD)
TYPE ( output_type), ALLOCATABLE :: output_obj
TYPE ( input_type ), ALLOCATABLE :: input_obj
TYPE (parallel_info_type),ALLOCATABLE :: parinfo_obj
TYPE (general_info_type ),ALLOCATABLE :: geninfo_obj
!
#endif
!
!

2
PW/src/setup.f90
View File

@ -102,10 +102,12 @@ SUBROUTINE setup()
!
LOGICAL, EXTERNAL :: check_para_diag
!
#if defined(__XSD)
TYPE(output_type),ALLOCATABLE :: output_obj
TYPE(input_type),ALLOCATABLE :: input_obj
TYPE(parallel_info_type),ALLOCATABLE :: parinfo_obj
TYPE(general_info_type),ALLOCATABLE :: geninfo_obj
#endif
!
#if defined(__MPI)
LOGICAL :: lpara = .true.

2
PW/src/wfcinit.f90
View File

@ -45,7 +45,9 @@ SUBROUTINE wfcinit()
LOGICAL :: exst, exst_mem, exst_file, opnd_file, twfcollect_file = .FALSE.
CHARACTER (256 ) :: dirname
!
#if defined(__XSD)
TYPE ( input_type ), ALLOCATABLE :: input_obj
#endif
!
!
!