hdiff output

r31730/OPTIM.F 2017-01-21 10:38:17.355840105 +0000 r31729/OPTIM.F 2017-01-21 10:38:17.727871218 +0000
 96:       ALLOCATE (FROZEN(NATOMS),ZSYM(NATOMS),NR(NATOMS)) 96:       ALLOCATE (FROZEN(NATOMS),ZSYM(NATOMS),NR(NATOMS))
 97:       IF (DEBUG) PRINT *,' OPTIM> allocated ZSYM with dimension NATOMS=',NATOMS 97:       IF (DEBUG) PRINT *,' OPTIM> allocated ZSYM with dimension NATOMS=',NATOMS
 98:       ALLOCATE (FROZENRES(NATOMS)) 98:       ALLOCATE (FROZENRES(NATOMS))
 99: C      STPMAX(:)=0.0D0 99: C      STPMAX(:)=0.0D0
100: 100: 
101:       FILTH=F1 ; FILTH2=F2 ; FILTHSTR=TRIM(ADJUSTL(FLSTRING))101:       FILTH=F1 ; FILTH2=F2 ; FILTHSTR=TRIM(ADJUSTL(FLSTRING))
102:       KNOWE=.FALSE. ; KNOWG=.FALSE. ; KNOWH=.FALSE.102:       KNOWE=.FALSE. ; KNOWG=.FALSE. ; KNOWH=.FALSE.
103:       RBATOMSMAX=10103:       RBATOMSMAX=10
104: 104: 
105:       CALL KEYWORDS(Q)105:       CALL KEYWORDS(Q)
106:       IF (VARIABLES) FRQCONV2=1.0D0 
107:       ALLOCATE (STPMAX(NOPT))106:       ALLOCATE (STPMAX(NOPT))
108: 107: 
109:       IF (UNRST.AND.(RKMIN.OR.BSMIN.OR.(INR.GT.-1))) THEN108:       IF (UNRST.AND.(RKMIN.OR.BSMIN.OR.(INR.GT.-1))) THEN
110:          PRINT '(A)','UNRES not coded for requested optimisation option'109:          PRINT '(A)','UNRES not coded for requested optimisation option'
111:          CALL FLUSH(6)110:          CALL FLUSH(6)
112:          STOP111:          STOP
113:       ENDIF112:       ENDIF
114: 113: 
115:       IF (PYGPERIODICT.OR.PYBINARYT) CALL INITIALISEPYGPERIODIC114:       IF (PYGPERIODICT.OR.PYBINARYT) CALL INITIALISEPYGPERIODIC
116:       IF (MULTISITEPYT) CALL DEFINEPYMULTISITES115:       IF (MULTISITEPYT) CALL DEFINEPYMULTISITES


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0