hdiff output

r29557/nodes.f90 2015-12-03 11:30:08.943795759 +0000 r29556/nodes.f90 2015-12-03 11:30:09.135798292 +0000
256:           IF (LDEBUG) THEN ! copy everything back 256:           IF (LDEBUG) THEN ! copy everything back 
257:              TOTALJOBSTRING=TRIM(ADJUSTL(TOTALJOBSTRING)) // ' ; scp *.' // connstr1 &257:              TOTALJOBSTRING=TRIM(ADJUSTL(TOTALJOBSTRING)) // ' ; scp *.' // connstr1 &
258:    &                      // ' ' // TRIM(ADJUSTL(HOSTNAME)) // ':' // TRIM(ADJUSTL(WORKINGDIRECTORY))258:    &                      // ' ' // TRIM(ADJUSTL(HOSTNAME)) // ':' // TRIM(ADJUSTL(WORKINGDIRECTORY))
259:           ELSEIF (COPYOPTIMT.AND.(BHINTERPT.OR.BISECTT)) THEN ! copy path.info, OPTIM259:           ELSEIF (COPYOPTIMT.AND.(BHINTERPT.OR.BISECTT)) THEN ! copy path.info, OPTIM
260:              TOTALJOBSTRING=TRIM(ADJUSTL(TOTALJOBSTRING)) &260:              TOTALJOBSTRING=TRIM(ADJUSTL(TOTALJOBSTRING)) &
261:    &            // ' ; scp OPTIM* min.data.info* ' // TRIM(ADJUSTL(HOSTNAME)) // ':'// TRIM(ADJUSTL(WORKINGDIRECTORY))261:    &            // ' ; scp OPTIM* min.data.info* ' // TRIM(ADJUSTL(HOSTNAME)) // ':'// TRIM(ADJUSTL(WORKINGDIRECTORY))
262:           ELSEIF (COPYOPTIMT) THEN ! copy path.info, OPTIM, odata and finish262:           ELSEIF (COPYOPTIMT) THEN ! copy path.info, OPTIM, odata and finish
263: !            IF (CHECKSPT) THEN263: !            IF (CHECKSPT) THEN
264: !               TOTALJOBSTRING=TRIM(ADJUSTL(TOTALJOBSTRING)) &264: !               TOTALJOBSTRING=TRIM(ADJUSTL(TOTALJOBSTRING)) &
265: !  &            // ' ; scp OPTIM* ' // TRIM(ADJUSTL(HOSTNAME)) // ':' // TRIM(ADJUSTL(WORKINGDIRECTORY))265: !  &            // ' ; scp OPTIM* ' // TRIM(ADJUSTL(HOSTNAME)) // ':' // TRIM(ADJUSTL(WORKINGDIRECTORY))
266:                 IF (GETMINFRQST.OR.GETTSFRQST) THEN !need to copy frqs.dump 
267:                     TOTALJOBSTRING=TRIM(ADJUSTL(TOTALJOBSTRING)) & 
268:    &                // ' ; scp frqs.* ' // TRIM(ADJUSTL(HOSTNAME)) // ':'// TRIM(ADJUSTL(WORKINGDIRECTORY)) 
269:                 END IF 
270: !            ELSE266: !            ELSE
271:                 TOTALJOBSTRING=TRIM(ADJUSTL(TOTALJOBSTRING)) &267:                 TOTALJOBSTRING=TRIM(ADJUSTL(TOTALJOBSTRING)) &
272:    &            // ' ; scp OPTIM* *info* ' // TRIM(ADJUSTL(HOSTNAME)) // ':' // TRIM(ADJUSTL(WORKINGDIRECTORY))268:    &            // ' ; scp OPTIM* *info* ' // TRIM(ADJUSTL(HOSTNAME)) // ':' // TRIM(ADJUSTL(WORKINGDIRECTORY))
273: !            ENDIF269: !            ENDIF
274:           ELSE ! we only really need path.info or min.data.info270:           ELSE ! we only really need path.info or min.data.info
275: !            IF (BHINTERPT.OR.BISECTT) THEN271: !            IF (BHINTERPT.OR.BISECTT) THEN
276: !               TOTALJOBSTRING=TRIM(ADJUSTL(TOTALJOBSTRING)) &272: !               TOTALJOBSTRING=TRIM(ADJUSTL(TOTALJOBSTRING)) &
277: !  &            // ' ; scp min.data.info* ' // TRIM(ADJUSTL(HOSTNAME)) // ':' // TRIM(ADJUSTL(WORKINGDIRECTORY))273: !  &            // ' ; scp min.data.info* ' // TRIM(ADJUSTL(HOSTNAME)) // ':' // TRIM(ADJUSTL(WORKINGDIRECTORY))
278: !            ELSE274: !            ELSE
279:                 TOTALJOBSTRING=TRIM(ADJUSTL(TOTALJOBSTRING)) &275:                 TOTALJOBSTRING=TRIM(ADJUSTL(TOTALJOBSTRING)) &
280:    &            // ' ; scp *info* ' // TRIM(ADJUSTL(HOSTNAME)) // ':' // TRIM(ADJUSTL(WORKINGDIRECTORY))276:    &            // ' ; scp *info* ' // TRIM(ADJUSTL(HOSTNAME)) // ':' // TRIM(ADJUSTL(WORKINGDIRECTORY))
281: !            ENDIF277: !            ENDIF
282:           ENDIF278:           ENDIF
 279:           IF (GETMINFRQST.OR.GETTSFRQST) THEN !need to copy frqs.dump
 280:              TOTALJOBSTRING=TRIM(ADJUSTL(TOTALJOBSTRING)) &
 281:    &            // ' ; scp frqs.* ' // TRIM(ADJUSTL(HOSTNAME)) // ':'// TRIM(ADJUSTL(WORKINGDIRECTORY))
 282:           END IF
283: ! (6) remove the scratch directory283: ! (6) remove the scratch directory
284:           TOTALJOBSTRING=TRIM(ADJUSTL(TOTALJOBSTRING)) // ' ; rm -r ' // TRIM(ADJUSTL(PATHSTRING)) // ' " '284:           TOTALJOBSTRING=TRIM(ADJUSTL(TOTALJOBSTRING)) // ' ; rm -r ' // TRIM(ADJUSTL(PATHSTRING)) // ' " '
285: !     or don;t rm it for debugging285: !     or don;t rm it for debugging
286: !         TOTALJOBSTRING=TRIM(ADJUSTL(TOTALJOBSTRING)) // ' ; ' // ' " '286: !         TOTALJOBSTRING=TRIM(ADJUSTL(TOTALJOBSTRING)) // ' ; ' // ' " '
287: !         TOTALJOBSTRING=TRIM(ADJUSTL(TOTALJOBSTRING)) // ' ; ls ' // TRIM(ADJUSTL(PATHSTRING)) // ' " '287: !         TOTALJOBSTRING=TRIM(ADJUSTL(TOTALJOBSTRING)) // ' ; ls ' // TRIM(ADJUSTL(PATHSTRING)) // ' " '
288:           IF (LDEBUG) PRINT '(2A)', 'nodes> complete job string: ',TRIM(ADJUSTL(TOTALJOBSTRING)) 288:           IF (LDEBUG) PRINT '(2A)', 'nodes> complete job string: ',TRIM(ADJUSTL(TOTALJOBSTRING)) 
289: ! (7) submit the job for real289: ! (7) submit the job for real
290: !         CALL SYSTEM_SUBR(TRIM(ADJUSTL(KILLSTRING)),MYSTATUS)  290: !         CALL SYSTEM_SUBR(TRIM(ADJUSTL(KILLSTRING)),MYSTATUS)  
291:           CALL SYSTEM_SUBR(TRIM(ADJUSTL(TOTALJOBSTRING)),MYSTATUS)  291:           CALL SYSTEM_SUBR(TRIM(ADJUSTL(TOTALJOBSTRING)),MYSTATUS)  
292:           STAT=MYSTATUS292:           STAT=MYSTATUS


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0