hdiff output

r33472/GMINdump.f90 2017-11-13 20:30:18.420980655 +0000 r33471/GMINdump.f90 2017-11-13 20:30:18.680984107 +0000
  6:   &                NSAVE, MAXSAVE, MYUNIT, A9INTET, NSAVEINTE, &  6:   &                NSAVE, MAXSAVE, MYUNIT, A9INTET, NSAVEINTE, &
  7:   &                DUMPSTRUCTURES, DUMPMINT, NPCALL, NATOMSALLOC, & !jdf43>  7:   &                DUMPSTRUCTURES, DUMPMINT, NPCALL, NATOMSALLOC, & !jdf43>
  8:   &                GCBHT, GCNATOMS, QENERGIES, QPE, QCOORDINATES, AVOIDNATOMS  8:   &                GCBHT, GCNATOMS, QENERGIES, QPE, QCOORDINATES, AVOIDNATOMS
  9:   9: 
 10: USE QMODULE 10: USE QMODULE
 11: USE PORFUNCS 11: USE PORFUNCS
 12: USE OUTPUT, ONLY : WRITE_MARKOV_COORDS 12: USE OUTPUT, ONLY : WRITE_MARKOV_COORDS
 13: IMPLICIT NONE 13: IMPLICIT NONE
 14: INTEGER NDONE, JBEST(NPAR), JP, J1, MYUNIT2, GETUNIT, LUNIT 14: INTEGER NDONE, JBEST(NPAR), JP, J1, MYUNIT2, GETUNIT, LUNIT
 15: DOUBLE PRECISION EBEST(NPAR), BESTCOORDS(3*NATOMSALLOC,NPAR) 15: DOUBLE PRECISION EBEST(NPAR), BESTCOORDS(3*NATOMSALLOC,NPAR)
  16: DOUBLE PRECISION  DUMGRAD(3*NATOMSALLOC), OPOTEL, SAVEP
 16: CHARACTER(LEN=20) :: ISTR 17: CHARACTER(LEN=20) :: ISTR
 17: ! ss2029> added variable ISTR1  18: ! ss2029> added variable ISTR1 
 18: CHARACTER(LEN=20) :: ISTR1 19: CHARACTER(LEN=20) :: ISTR1
 19: LOGICAL EXISTS 20: LOGICAL LOPEN
 20: DOUBLE PRECISION POTEL 21: DOUBLE PRECISION POTEL
 21: COMMON /MYPOT/ POTEL 22: COMMON /MYPOT/ POTEL
 22:  23: 
 23: IF (NPAR.GT.1) THEN 24: IF (NPAR.GT.1) THEN
 24:    WRITE (ISTR, '(i10)') JP 25:    WRITE (ISTR, '(i10)') JP
 25:    MYUNIT2=GETUNIT() 26:    MYUNIT2=GETUNIT()
 26:    CALL FLUSH(MYUNIT) 27:    CALL FLUSH(MYUNIT)
 27: !   CALL SYSTEM('cp "GMIN.dump."//trim(adjustl(istr)) "GMIN.dump."//trim(adjustl(istr))//".save"') 28: !   CALL SYSTEM('cp "GMIN.dump."//trim(adjustl(istr)) "GMIN.dump."//trim(adjustl(istr))//".save"')
 28:    OPEN(MYUNIT2,FILE="GMIN.dump."//trim(adjustl(istr)),STATUS='UNKNOWN') 29:    OPEN(MYUNIT2,FILE="GMIN.dump."//trim(adjustl(istr)),STATUS='UNKNOWN')
 29: ELSE 30: ELSE
 30:    MYUNIT2=GETUNIT() 31:    MYUNIT2=GETUNIT()
 31:    WRITE (ISTR, '(A)') '' 32:    WRITE (ISTR, '(A)') ''
 32:    INQUIRE (FILE='GMIN.dump', EXIST=EXISTS) 33:    CALL SYSTEM('cp GMIN.dump GMIN.dump.save')
 33:    IF (EXISTS) CALL SYSTEM('cp GMIN.dump GMIN.dump.save') 
 34:    OPEN(MYUNIT2,FILE='GMIN.dump',STATUS='UNKNOWN') 34:    OPEN(MYUNIT2,FILE='GMIN.dump',STATUS='UNKNOWN')
 35: ENDIF 35: ENDIF
 36:  36: 
 37:   WRITE(MYUNIT2, '(A)') 'steps completed NQ(JP) in mc' 37:   WRITE(MYUNIT2, '(A)') 'steps completed NQ(JP) in mc'
 38:   WRITE(MYUNIT2, '(I8)') NDONE 38:   WRITE(MYUNIT2, '(I8)') NDONE
 39:   WRITE(MYUNIT2, '(I8)') NSAVE 39:   WRITE(MYUNIT2, '(I8)') NSAVE
 40: ! Number of potential energy calls done so far 40: ! Number of potential energy calls done so far
 41:   WRITE(MYUNIT2, '(I20)') NPCALL  41:   WRITE(MYUNIT2, '(I20)') NPCALL 
 42:   WRITE(MYUNIT2, '(A)') 'COORDS' 42:   WRITE(MYUNIT2, '(A)') 'COORDS'
 43:   WRITE(MYUNIT2, '(A,I8)') 'run number ',JP 43:   WRITE(MYUNIT2, '(A,I8)') 'run number ',JP


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0