hdiff output

r29963/setup.f 2016-07-06 15:38:34.833648360 +0100 r29962/setup.f 2016-07-06 15:38:35.169652897 +0100
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') THEN 
289:                WRITE(*,*) "setup> ERROR: Executable is undefined" 
290:                STOP 
291:             ENDIF 
292:             CALL MYSYSTEM(STATUS,DEBUG,TRIM(ADJUSTL(EXEC))//' 1 > output.start')288:             CALL MYSYSTEM(STATUS,DEBUG,TRIM(ADJUSTL(EXEC))//' 1 > output.start')
293:             INQUIRE(FILE='min.data.info.1',EXIST=YESNO)289:             INQUIRE(FILE='min.data.info.1',EXIST=YESNO)
294:             IF (YESNO) THEN290:             IF (YESNO) THEN
295:                OPEN(UNIT=1,FILE='min.data.info.1',STATUS='OLD')291:                OPEN(UNIT=1,FILE='min.data.info.1',STATUS='OLD')
296:                IF (DUMMYTST.AND.LOWESTFRQT) THEN292:                IF (DUMMYTST.AND.LOWESTFRQT) THEN
297:                   READ(1,*) EMIN(1),FVIBMIN(1),HORDERMIN(1),IXMIN(1),IYMIN(1),IZMIN(1),MINCURVE(1),MINFRQ2(1)293:                   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),294:                   WRITE(UMINDATA,'(2F25.15,I6,5F20.10)') EMIN(1), FVIBMIN(1), HORDERMIN(1),IXMIN(1),
299:      &                                                      IYMIN(1),IZMIN(1),MINCURVE(1),MINFRQ2(1)295:      &                                                      IYMIN(1),IZMIN(1),MINCURVE(1),MINFRQ2(1)
300:                ELSE296:                ELSE
301:                   READ(1,*) EMIN(1),FVIBMIN(1),HORDERMIN(1),IXMIN(1),IYMIN(1),IZMIN(1)297:                   READ(1,*) EMIN(1),FVIBMIN(1),HORDERMIN(1),IXMIN(1),IYMIN(1),IZMIN(1)


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0