hdiff output

r29141/submitoptimjob.f90 2015-11-17 23:34:45.525919925 +0000 r29140/submitoptimjob.f90 2015-11-17 23:34:45.905925020 +0000
 29: CHARACTER(LEN=256) MYJOBSTRING 29: CHARACTER(LEN=256) MYJOBSTRING
 30: INTEGER :: CHILDPID, CONNID, STATUS 30: INTEGER :: CHILDPID, CONNID, STATUS
 31: LOGICAL LDEBUG, CHARMMT, UNRST 31: LOGICAL LDEBUG, CHARMMT, UNRST
 32:  32: 
 33: CALL GETPID_SUBR(CHILDPID) 33: CALL GETPID_SUBR(CHILDPID)
 34: ! PRINT '(A,2I8)','in SUBMITOPTIMJOB, CHILDPID,CONNID=',CHILDPID,CONNID 34: ! PRINT '(A,2I8)','in SUBMITOPTIMJOB, CHILDPID,CONNID=',CHILDPID,CONNID
 35: WRITE(CONNSTR1,'(I10)') CHILDPID 35: WRITE(CONNSTR1,'(I10)') CHILDPID
 36: WRITE(CONNSTR2,'(I10)') CONNID 36: WRITE(CONNSTR2,'(I10)') CONNID
 37: CALL MYSYSTEM(STATUS,LDEBUG,'mv odata.' // TRIM(ADJUSTL(CONNSTR2)) // ' odata.' // TRIM(ADJUSTL(CONNSTR1)) ) 37: CALL MYSYSTEM(STATUS,LDEBUG,'mv odata.' // TRIM(ADJUSTL(CONNSTR2)) // ' odata.' // TRIM(ADJUSTL(CONNSTR1)) )
 38:  38: 
 39: ! csw34> check that the move has been completed before continuing 
 40: CALL WAIT_FOR_FILE('odata.' // TRIM(ADJUSTL(CONNSTR1)), 2, 10) 
 41:  
 42: IF (MACHINE) THEN 39: IF (MACHINE) THEN
 43:      CALL MYSYSTEM(STATUS,LDEBUG,'mv points1.inp.' // TRIM(ADJUSTL(CONNSTR2)) // ' points1.inp.' // TRIM(ADJUSTL(CONNSTR1)) ) 40:      CALL MYSYSTEM(STATUS,LDEBUG,'mv points1.inp.' // TRIM(ADJUSTL(CONNSTR2)) // ' points1.inp.' // TRIM(ADJUSTL(CONNSTR1)) )
 44:      IF (VERIFY('connect',JOBSTRING).EQ.0) & 41:      IF (VERIFY('connect',JOBSTRING).EQ.0) &
 45:      & call mysystem(STATUS,LDEBUG,'mv points2.inp.' // TRIM(ADJUSTL(CONNSTR2)) // ' points2.inp.' // TRIM(ADJUSTL(CONNSTR1)) ) 42:      & call mysystem(STATUS,LDEBUG,'mv points2.inp.' // TRIM(ADJUSTL(CONNSTR2)) // ' points2.inp.' // TRIM(ADJUSTL(CONNSTR1)) )
 46: else ! preprocess odata.XXX to include correct name instead of input.crd 43: else ! preprocess odata.XXX to include correct name instead of input.crd
 47:      CALL SYSTEM('sed -e "s/input.crd/input.crd.' // TRIM(ADJUSTL(CONNSTR1)) // '/"  odata.' // TRIM(ADJUSTL(CONNSTR1)) & 44:      CALL SYSTEM('sed -e "s/input.crd/input.crd.' // TRIM(ADJUSTL(CONNSTR1)) // '/"  odata.' // TRIM(ADJUSTL(CONNSTR1)) &
 48:           &                 // ' > temp.'//TRIM(ADJUSTL(CONNSTR1))) 45:           &                 // ' > temp.'//TRIM(ADJUSTL(CONNSTR1)))
 49:      CALL SYSTEM('mv temp.'//TRIM(ADJUSTL(CONNSTR1)) // ' odata.' // TRIM(ADJUSTL(CONNSTR1)) ) 46:      CALL SYSTEM('mv temp.'//TRIM(ADJUSTL(CONNSTR1)) // ' odata.' // TRIM(ADJUSTL(CONNSTR1)) )
 50:  47: 
 51:      IF (VERIFY('connect',JOBSTRING).EQ.0) & 48:      IF (VERIFY('connect',JOBSTRING).EQ.0) &


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0