hdiff output

r31732/keywords.f 2017-01-21 10:35:20.318250000 +0000 r31731/keywords.f 2017-01-21 10:35:20.770250000 +0000
6487: ! 6487: ! 
6488:          ELSE IF (WORD .EQ. 'VALUES') THEN6488:          ELSE IF (WORD .EQ. 'VALUES') THEN
6489:             CALL READI(NVALUES)6489:             CALL READI(NVALUES)
6490: ! 6490: ! 
6491: ! VARIABLES - keyword at the end of the list of options after which6491: ! VARIABLES - keyword at the end of the list of options after which
6492: ! the general variables follow. NZERO is the number of zero6492: ! the general variables follow. NZERO is the number of zero
6493: ! eigenvalues, default 0.6493: ! eigenvalues, default 0.
6494: ! 6494: ! 
6495:          ELSE IF (WORD.EQ.'VARIABLES') THEN6495:          ELSE IF (WORD.EQ.'VARIABLES') THEN
6496:             VARIABLES=.TRUE.6496:             VARIABLES=.TRUE.
6497:  
6498:             IF (DUMMY_FRQCONV.EQ.0) THEN  
6499:                FRQCONV = 1.0D0 
6500:             ELSE 
6501:                FRQCONV = DUMMY_FRQCONV 
6502:             ENDIF 
6503:             FRQCONV2 = FRQCONV*FRQCONV 
6504:  
6505:             RETURN6497:             RETURN
6506: ! 6498: ! 
6507: ! 6499: ! 
6508: ! VASP tells the program to read derivative information in6500: ! VASP tells the program to read derivative information in
6509: ! VASP format.                                        - default FALSE6501: ! VASP format.                                        - default FALSE
6510: ! 6502: ! 
6511:          ELSE IF (WORD.EQ.'VASP') THEN6503:          ELSE IF (WORD.EQ.'VASP') THEN
6512:             VASP=.TRUE.6504:             VASP=.TRUE.
6513:             BULKT=.TRUE.6505:             BULKT=.TRUE.
6514:             CALL READA(VASPJOB)6506:             CALL READA(VASPJOB)


r31732/OPTIM.F 2017-01-21 10:35:20.090250000 +0000 r31731/OPTIM.F 2017-01-21 10:35:20.542250000 +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
106:       ALLOCATE (STPMAX(NOPT))107:       ALLOCATE (STPMAX(NOPT))
107: 108: 
108:       IF (UNRST.AND.(RKMIN.OR.BSMIN.OR.(INR.GT.-1))) THEN109:       IF (UNRST.AND.(RKMIN.OR.BSMIN.OR.(INR.GT.-1))) THEN
109:          PRINT '(A)','UNRES not coded for requested optimisation option'110:          PRINT '(A)','UNRES not coded for requested optimisation option'
110:          CALL FLUSH(6)111:          CALL FLUSH(6)
111:          STOP112:          STOP
112:       ENDIF113:       ENDIF
113: 114: 
114:       IF (PYGPERIODICT.OR.PYBINARYT) CALL INITIALISEPYGPERIODIC115:       IF (PYGPERIODICT.OR.PYBINARYT) CALL INITIALISEPYGPERIODIC
115:       IF (MULTISITEPYT) CALL DEFINEPYMULTISITES116:       IF (MULTISITEPYT) CALL DEFINEPYMULTISITES


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0