hdiff output

r29312/nodes.f90 2015-11-17 23:34:32.973751599 +0000 r29311/nodes.f90 2015-11-17 23:34:33.157754066 +0000
  1: MODULE NODES  1: MODULE NODES
  2:      USE COMMONS,ONLY : SLURMT, PBST, CHECKSPT, DEBUG, AMBERT  2:      USE COMMONS,ONLY : SLURMT, PBST, CHECKSPT, DEBUG
  3:      USE PORFUNCS  3:      USE PORFUNCS
  4:      IMPLICIT NONE  4:      IMPLICIT NONE
  5:      SAVE  5:      SAVE
  6:   6: 
  7:      INTEGER :: JPN,NNODES,NNLEN,MYSTAT,ACTUALLENPATH  7:      INTEGER :: JPN,NNODES,NNLEN,MYSTAT,ACTUALLENPATH
  8:      INTEGER, PARAMETER :: LENPATH=7000  8:      INTEGER, PARAMETER :: LENPATH=7000
  9:      CHARACTER(LEN=80),ALLOCATABLE,DIMENSION(:) :: NODENAME  9:      CHARACTER(LEN=80),ALLOCATABLE,DIMENSION(:) :: NODENAME
 10:      CHARACTER(LEN=80) :: USERNAME, RANSTRING 10:      CHARACTER(LEN=80) :: USERNAME, RANSTRING
 11:      CHARACTER(LEN=100) :: WORKINGDIRECTORY 11:      CHARACTER(LEN=100) :: WORKINGDIRECTORY
 12:      CHARACTER(LEN=7000) :: TOTALJOBSTRING 12:      CHARACTER(LEN=7000) :: TOTALJOBSTRING
150:              OPEN(UNIT=125,FILE='currentnode',STATUS='OLD')150:              OPEN(UNIT=125,FILE='currentnode',STATUS='OLD')
151:              READ(125,'(A)') HOSTNAME151:              READ(125,'(A)') HOSTNAME
152:              CLOSE(125)152:              CLOSE(125)
153:              CALL MYSYSTEM(MYSTAT,DEBUG,'rm currentnode')153:              CALL MYSYSTEM(MYSTAT,DEBUG,'rm currentnode')
154:           ELSE154:           ELSE
155:              WRITE(*,'(A)') 'getnodes> Current node unknown - stopping'155:              WRITE(*,'(A)') 'getnodes> Current node unknown - stopping'
156:              STOP156:              STOP
157:           END IF157:           END IF
158: 158: 
159:           ! Read in current PATH so that this can be passed when submitting jobs using ssh159:           ! Read in current PATH so that this can be passed when submitting jobs using ssh
160:           IF (AMBERT) THEN160:           IF (AMBER12T) THEN
161:           CALL MYSYSTEM(MYSTAT,DEBUG,'echo $PATH > sshpath')161:           CALL MYSYSTEM(MYSTAT,DEBUG,'echo $PATH > sshpath')
162:           INQUIRE(FILE='sshpath',EXIST=YESNO)162:           INQUIRE(FILE='sshpath',EXIST=YESNO)
163:           IF (YESNO) THEN163:           IF (YESNO) THEN
164:              CALL MYSYSTEM(MYSTAT,DEBUG,'wc -c < sshpath >lenpath')164:              CALL MYSYSTEM(MYSTAT,DEBUG,'wc -c < sshpath >lenpath')
165:              OPEN(UNIT=126,FILE='lenpath',STATUS='OLD')165:              OPEN(UNIT=126,FILE='lenpath',STATUS='OLD')
166:              READ(126,*) ACTUALLENPATH166:              READ(126,*) ACTUALLENPATH
167:              CLOSE(126)167:              CLOSE(126)
168:              IF (ACTUALLENPATH > LENPATH) THEN168:              IF (ACTUALLENPATH > LENPATH) THEN
169:                 WRITE(*,'(A)') 'getnodes> Length of $PATH exceeds static allocation size'169:                 WRITE(*,'(A)') 'getnodes> Length of $PATH exceeds static allocation size'
170:                 WRITE(*,'(A)') ' - increase size of LENPATH and possibly TOTALJOBSTRING'170:                 WRITE(*,'(A)') ' - increase size of LENPATH and possibly TOTALJOBSTRING'
246: !     Note that if any file is missing an error condition will result, and subsequent commands will fail.246: !     Note that if any file is missing an error condition will result, and subsequent commands will fail.
247:           TOTALJOBSTRING=TRIM(ADJUSTL(TOTALJOBSTRING)) &247:           TOTALJOBSTRING=TRIM(ADJUSTL(TOTALJOBSTRING)) &
248:   &          // ' ; scp -r ' // TRIM(ADJUSTL(HOSTNAME)) // ':' // TRIM(ADJUSTL(WORKINGDIRECTORY)) // '/' & 248:   &          // ' ; scp -r ' // TRIM(ADJUSTL(HOSTNAME)) // ':' // TRIM(ADJUSTL(WORKINGDIRECTORY)) // '/' & 
249:   &          // TRIM(ADJUSTL(TEMPCOPYFILESDIR)) // '/* ' // TRIM(ADJUSTL(PATHSTRING)) // ' ; rm -rf ' & 249:   &          // TRIM(ADJUSTL(TEMPCOPYFILESDIR)) // '/* ' // TRIM(ADJUSTL(PATHSTRING)) // ' ; rm -rf ' & 
250:   &          // TRIM(ADJUSTL(WORKINGDIRECTORY)) // '/' // TRIM(ADJUSTL(TEMPCOPYFILESDIR))250:   &          // TRIM(ADJUSTL(WORKINGDIRECTORY)) // '/' // TRIM(ADJUSTL(TEMPCOPYFILESDIR))
251: ! (3) move to the scratch directory on the node251: ! (3) move to the scratch directory on the node
252:           TOTALJOBSTRING=TRIM(ADJUSTL(TOTALJOBSTRING)) // ' ; cd ' // TRIM(ADJUSTL(PATHSTRING))252:           TOTALJOBSTRING=TRIM(ADJUSTL(TOTALJOBSTRING)) // ' ; cd ' // TRIM(ADJUSTL(PATHSTRING))
253: ! (3b) delete any existing path.info.* file (a very rare but not impossible condition!)253: ! (3b) delete any existing path.info.* file (a very rare but not impossible condition!)
254:           TOTALJOBSTRING=TRIM(ADJUSTL(TOTALJOBSTRING)) // ' && rm -f path.info.* '254:           TOTALJOBSTRING=TRIM(ADJUSTL(TOTALJOBSTRING)) // ' && rm -f path.info.* '
255: ! (4) run the OPTIM job255: ! (4) run the OPTIM job
256:           IF (AMBERT) THEN256:           IF (AMBER12T) THEN
257:              TOTALJOBSTRING=TRIM(ADJUSTL(TOTALJOBSTRING)) // ' ; PATH=' // TRIM(ADJUSTL(SSHPATH)) // ' ' // JOBSTRING257:              TOTALJOBSTRING=TRIM(ADJUSTL(TOTALJOBSTRING)) // ' ; PATH=' // TRIM(ADJUSTL(SSHPATH)) // ' ' // JOBSTRING
258:           ELSE258:           ELSE
259:              TOTALJOBSTRING=TRIM(ADJUSTL(TOTALJOBSTRING)) // ' ; ' // JOBSTRING259:              TOTALJOBSTRING=TRIM(ADJUSTL(TOTALJOBSTRING)) // ' ; ' // JOBSTRING
260:           END IF260:           END IF
261: ! (5) copy results back261: ! (5) copy results back
262:           IF (LDEBUG) THEN ! copy everything back 262:           IF (LDEBUG) THEN ! copy everything back 
263:              TOTALJOBSTRING=TRIM(ADJUSTL(TOTALJOBSTRING)) // ' ; scp *.' // connstr1 &263:              TOTALJOBSTRING=TRIM(ADJUSTL(TOTALJOBSTRING)) // ' ; scp *.' // connstr1 &
264:    &                      // ' ' // TRIM(ADJUSTL(HOSTNAME)) // ':' // TRIM(ADJUSTL(WORKINGDIRECTORY))264:    &                      // ' ' // TRIM(ADJUSTL(HOSTNAME)) // ':' // TRIM(ADJUSTL(WORKINGDIRECTORY))
265:           ELSEIF (COPYOPTIMT.AND.(BHINTERPT.OR.BISECTT)) THEN ! copy path.info, OPTIM265:           ELSEIF (COPYOPTIMT.AND.(BHINTERPT.OR.BISECTT)) THEN ! copy path.info, OPTIM
266:              TOTALJOBSTRING=TRIM(ADJUSTL(TOTALJOBSTRING)) &266:              TOTALJOBSTRING=TRIM(ADJUSTL(TOTALJOBSTRING)) &


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0