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 @@
CHARACTER (len=256) :: name1
!
! This is only a quick fix since the subroutine was written for parallel execution - FG June 2014
#ifndef __MPI
#if ! defined(__MPI)
npool = 1
my_pool_id = 0
#endif
......@@ -610,7 +610,7 @@
REAL(DP) :: rmelt
!
! 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
#endif
!
......@@ -660,7 +660,7 @@
REAL(DP) :: rmelt
!
! 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
#endif
!
......
......@@ -76,7 +76,8 @@ write(stdout,'(a)') " -yh- ```````````````` ````````` `
write(stdout,'(a)') " -+h/------------------------::::::::://////++++++++++++++++++++++///////::::/yd: "
write(stdout,'(a)') " shdddddddddddddddddddddddddddddhhhhhhhhyyyyyssssssssssssssssyyyyyyyhhhhhhhddddh` "
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)') " "
ENDIF
!
......
......@@ -74,7 +74,7 @@
!
implicit none
!
#ifndef __NAG
#if ! defined(__NAG)
integer :: iargc
#endif
INTEGER :: ios
......
......@@ -80,7 +80,7 @@
REAL(DP) :: rmelt
!
! 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
#endif
!
......@@ -475,7 +475,7 @@
REAL(DP) :: rmelt
!
! 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
#endif
!
......
......@@ -38,7 +38,7 @@
#if defined(__NAG)
TYPE(stat_t) :: statb
#endif
#ifndef __NAG
#if ! defined(__NAG)
integer :: fstat,statb(13)
#endif
!
......@@ -86,7 +86,7 @@ integer :: fstat,statb(13)
IF (recn * unf_recl .gt. statb%st_size) call errore('readdvscf', &
trim(tempfile)//' too short, check ecut', iudvscf)
#endif
#ifndef __NAG
#if ! defined(__NAG)
ios = fstat ( iudvscf, statb)
IF (recn * unf_recl .gt. statb(8)) call errore('readdvscf', &
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