hdiff output

r29974/setup.f 2016-03-16 18:34:07.075405460 +0000 r29973/setup.f 2016-03-16 18:34:07.279407548 +0000
278:             INQUIRE(FILE='commit.data',EXIST=YESNO)278:             INQUIRE(FILE='commit.data',EXIST=YESNO)
279:             IF (YESNO) THEN279:             IF (YESNO) THEN
280:                PRINT '(A)','setup> Moving old commit.data file'280:                PRINT '(A)','setup> Moving old commit.data file'
281:                CALL MYSYSTEM(STATUS,DEBUG,'mv commit.data commit.data.old')281:                CALL MYSYSTEM(STATUS,DEBUG,'mv commit.data commit.data.old')
282:             ENDIF282:             ENDIF
283:             INQUIRE(FILE='min.data.info.1',EXIST=YESNO)283:             INQUIRE(FILE='min.data.info.1',EXIST=YESNO)
284:             IF (YESNO) CALL MYSYSTEM(STATUS,DEBUG,'rm min.data.info.1')284:             IF (YESNO) CALL MYSYSTEM(STATUS,DEBUG,'rm min.data.info.1')
285:             CALL MYSYSTEM(STATUS,DEBUG,'cp odata.start odata.1')285:             CALL MYSYSTEM(STATUS,DEBUG,'cp odata.start odata.1')
286:             IF (CHARMMT) CALL MYSYSTEM(STATUS,DEBUG,'cp start.crd input.crd.1')286:             IF (CHARMMT) CALL MYSYSTEM(STATUS,DEBUG,'cp start.crd input.crd.1')
287:             IF (AMHT) CALL MYSYSTEM(STATUS,DEBUG,'cp AMHstart start.1')287:             IF (AMHT) CALL MYSYSTEM(STATUS,DEBUG,'cp AMHstart start.1')
288:             IF (DEBUG .AND. (EXEC.EQ.'UNDEFINED')) THEN288:             IF (DEBUG .AND. (EXEC.EQ.'UNDEFINED') THEN
289:                WRITE(*,*) "setup> ERROR: Executable is undefined"289:                WRITE(*,*) "setup> ERROR: Executable is undefined"
290:                STOP290:                STOP
291:             ENDIF291:             ENDIF
292:             CALL MYSYSTEM(STATUS,DEBUG,TRIM(ADJUSTL(EXEC))//' 1 > output.start')292:             CALL MYSYSTEM(STATUS,DEBUG,TRIM(ADJUSTL(EXEC))//' 1 > output.start')
293:             INQUIRE(FILE='min.data.info.1',EXIST=YESNO)293:             INQUIRE(FILE='min.data.info.1',EXIST=YESNO)
294:             IF (YESNO) THEN294:             IF (YESNO) THEN
295:                OPEN(UNIT=1,FILE='min.data.info.1',STATUS='OLD')295:                OPEN(UNIT=1,FILE='min.data.info.1',STATUS='OLD')
296:                IF (DUMMYTST.AND.LOWESTFRQT) THEN296:                IF (DUMMYTST.AND.LOWESTFRQT) THEN
297:                   READ(1,*) EMIN(1),FVIBMIN(1),HORDERMIN(1),IXMIN(1),IYMIN(1),IZMIN(1),MINCURVE(1),MINFRQ2(1)297:                   READ(1,*) EMIN(1),FVIBMIN(1),HORDERMIN(1),IXMIN(1),IYMIN(1),IZMIN(1),MINCURVE(1),MINFRQ2(1)
298:                   WRITE(UMINDATA,'(2F25.15,I6,5F20.10)') EMIN(1), FVIBMIN(1), HORDERMIN(1),IXMIN(1),298:                   WRITE(UMINDATA,'(2F25.15,I6,5F20.10)') EMIN(1), FVIBMIN(1), HORDERMIN(1),IXMIN(1),


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0