Commit a2f8ed97 authored by sponce's avatar sponce

Pre-process macro #if ! defined(__XXX)



git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@12982 c92efa57-630b-4861-b058-cf58834340f0
parent aadef3cc
...@@ -209,7 +209,7 @@ ...@@ -209,7 +209,7 @@
CHARACTER (len=256) :: name1 CHARACTER (len=256) :: name1
! !
! This is only a quick fix since the subroutine was written for parallel execution - FG June 2014 ! This is only a quick fix since the subroutine was written for parallel execution - FG June 2014
#ifndef __MPI #if ! defined(__MPI)
npool = 1 npool = 1
my_pool_id = 0 my_pool_id = 0
#endif #endif
...@@ -610,7 +610,7 @@ ...@@ -610,7 +610,7 @@
REAL(DP) :: rmelt REAL(DP) :: rmelt
! !
! This is only a quick fix since the subroutine was written for parallel execution - FG June 2014 ! This is only a quick fix since the subroutine was written for parallel execution - FG June 2014
#ifndef __MPI #if ! defined(__MPI)
my_pool_id = 0 my_pool_id = 0
#endif #endif
! !
...@@ -660,7 +660,7 @@ ...@@ -660,7 +660,7 @@
REAL(DP) :: rmelt REAL(DP) :: rmelt
! !
! This is only a quick fix since the subroutine was written for parallel execution - FG June 2014 ! This is only a quick fix since the subroutine was written for parallel execution - FG June 2014
#ifndef __MPI #if ! defined(__MPI)
my_pool_id = 0 my_pool_id = 0
#endif #endif
! !
......
...@@ -76,7 +76,8 @@ write(stdout,'(a)') " -yh- ```````````````` ````````` ` ...@@ -76,7 +76,8 @@ write(stdout,'(a)') " -yh- ```````````````` ````````` `
write(stdout,'(a)') " -+h/------------------------::::::::://////++++++++++++++++++++++///////::::/yd: " write(stdout,'(a)') " -+h/------------------------::::::::://////++++++++++++++++++++++///////::::/yd: "
write(stdout,'(a)') " shdddddddddddddddddddddddddddddhhhhhhhhyyyyyssssssssssssssssyyyyyyyhhhhhhhddddh` " write(stdout,'(a)') " shdddddddddddddddddddddddddddddhhhhhhhhyyyyyssssssssssssssssyyyyyyyhhhhhhhddddh` "
write(stdout,'(a)') " " write(stdout,'(a)') " "
write(stdout,'(a)') " S. Ponce, E. R. Margine, C. Verdi, and F. Giustino, http://arxiv.org/abs/1604.03525 " write(stdout,'(a)') " S. Ponce, E. R. Margine, C. Verdi, and F. Giustino, "
write(stdout,'(a)') " http://dx.doi.org/10.1016/j.cpc.2016.07.028 "
write(stdout,'(a)') " " write(stdout,'(a)') " "
ENDIF ENDIF
! !
......
...@@ -74,7 +74,7 @@ ...@@ -74,7 +74,7 @@
! !
implicit none implicit none
! !
#ifndef __NAG #if ! defined(__NAG)
integer :: iargc integer :: iargc
#endif #endif
INTEGER :: ios INTEGER :: ios
......
...@@ -80,7 +80,7 @@ ...@@ -80,7 +80,7 @@
REAL(DP) :: rmelt REAL(DP) :: rmelt
! !
! This is only a quick fix since the subroutine was written for parallel execution - FG June 2014 ! This is only a quick fix since the subroutine was written for parallel execution - FG June 2014
#ifndef __MPI #if ! defined(__MPI)
my_pool_id = 0 my_pool_id = 0
#endif #endif
! !
...@@ -475,7 +475,7 @@ ...@@ -475,7 +475,7 @@
REAL(DP) :: rmelt REAL(DP) :: rmelt
! !
! This is only a quick fix since the subroutine was written for parallel execution - FG June 2014 ! This is only a quick fix since the subroutine was written for parallel execution - FG June 2014
#ifndef __MPI #if ! defined(__MPI)
my_pool_id = 0 my_pool_id = 0
#endif #endif
! !
......
...@@ -38,7 +38,7 @@ ...@@ -38,7 +38,7 @@
#if defined(__NAG) #if defined(__NAG)
TYPE(stat_t) :: statb TYPE(stat_t) :: statb
#endif #endif
#ifndef __NAG #if ! defined(__NAG)
integer :: fstat,statb(13) integer :: fstat,statb(13)
#endif #endif
! !
...@@ -86,7 +86,7 @@ integer :: fstat,statb(13) ...@@ -86,7 +86,7 @@ integer :: fstat,statb(13)
IF (recn * unf_recl .gt. statb%st_size) call errore('readdvscf', & IF (recn * unf_recl .gt. statb%st_size) call errore('readdvscf', &
trim(tempfile)//' too short, check ecut', iudvscf) trim(tempfile)//' too short, check ecut', iudvscf)
#endif #endif
#ifndef __NAG #if ! defined(__NAG)
ios = fstat ( iudvscf, statb) ios = fstat ( iudvscf, statb)
IF (recn * unf_recl .gt. statb(8)) call errore('readdvscf', & IF (recn * unf_recl .gt. statb(8)) call errore('readdvscf', &
trim(tempfile)//' too short, check ecut', iudvscf) trim(tempfile)//' too short, check ecut', iudvscf)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment