hdiff output

r31740/keywords.f 2017-01-21 10:35:21.022250000 +0000 r31739/keywords.f 2017-01-21 10:35:21.906250000 +0000
993:          ENDIF993:          ENDIF
994:          ! 994:          ! 
995:          ! POINTS - keyword at the end of the list of options after which995:          ! POINTS - keyword at the end of the list of options after which
996:          ! the Cartesian coordinates follow. Must be present unless VARIABLES or RINGPOLYMER996:          ! the Cartesian coordinates follow. Must be present unless VARIABLES or RINGPOLYMER
997:          ! is present instead. MACHINE keyword overrides POINTS. If MACHINE is997:          ! is present instead. MACHINE keyword overrides POINTS. If MACHINE is
998:          ! true coordinates that were read from odata file will be overwritten998:          ! true coordinates that were read from odata file will be overwritten
999:          ! with coordinates from a direct access file, in which case section of999:          ! with coordinates from a direct access file, in which case section of
1000:          ! odata file after POINTS keyword is used only to read in the labels. (SAT)1000:          ! odata file after POINTS keyword is used only to read in the labels. (SAT)
1001:          ! 1001:          ! 
1002:          IF (END.OR.WORD.EQ.'STOP'.OR.WORD.EQ.'POINTS') THEN1002:          IF (END.OR.WORD.EQ.'STOP'.OR.WORD.EQ.'POINTS') THEN
1003:             1003: 
1004:             ! sn402: Once we have finished reading keywords, check to see whether we need to overwrite1004:             ! sn402: Once we have finished reading keywords, check to see whether we need to overwrite
1005:             ! a default value of FRQCONV1005:             ! a default value of FRQCONV
1006:             IF(DUMMY_FRQCONV.NE.0.0D0) THEN1006:             IF(DUMMY_FRQCONV.NE.0.0D0) THEN
1007:                FRQCONV = DUMMY_FRQCONV1007:                FRQCONV = DUMMY_FRQCONV
1008:                WRITE(*,*) "keywords> Overwriting default unit conversion factor for frequencies"1008:                WRITE(*,*) "keywords> Overwriting default unit conversion factor for frequencies"
1009:                WRITE(*,*) "Conversion factor: ", FRQCONV1009:                WRITE(*,*) "Conversion factor: ", FRQCONV
1010:             ENDIF1010:             ENDIF
1011:             FRQCONV2 = FRQCONV*FRQCONV1011:             FRQCONV2 = FRQCONV*FRQCONV
 1012: 
1012:             RETURN1013:             RETURN
1013:          ENDIF1014:          ENDIF
1014: 1015: 
1015:          IF (WORD.EQ.'    ' .OR.WORD.EQ.'NOTE'.OR.WORD.EQ.'COMMENT'1016:          IF (WORD.EQ.'    ' .OR.WORD.EQ.'NOTE'.OR.WORD.EQ.'COMMENT'
1016:      &   .OR.WORD.EQ.'\\'.OR.WORD.EQ."!".OR.WORD.EQ."#") THEN1017:      &   .OR.WORD.EQ.'\\'.OR.WORD.EQ."!".OR.WORD.EQ."#") THEN
1017:             GOTO 1901018:             GOTO 190
1018: ! 1019: ! 
1019: ! Enforce flatland.1020: ! Enforce flatland.
1020: ! 1021: ! 
1021:          ELSE IF (WORD .EQ. '2D') THEN1022:          ELSE IF (WORD .EQ. '2D') THEN
5321:                            WRITE(*,'(I6)',ADVANCE='NO') SETS(PERMGROUP(J3),J2)5322:                            WRITE(*,'(I6)',ADVANCE='NO') SETS(PERMGROUP(J3),J2)
5322:                            IF (J3.LT.NDUMMY+NPERMSIZE(J1)-1) WRITE(*,'(A3)',ADVANCE='NO') ' / '5323:                            IF (J3.LT.NDUMMY+NPERMSIZE(J1)-1) WRITE(*,'(A3)',ADVANCE='NO') ' / '
5323:                         ENDDO5324:                         ENDDO
5324:                         IF (J2.LT.NSETS(J1)) WRITE(*,'(A3)',ADVANCE='NO') ' ; '5325:                         IF (J2.LT.NSETS(J1)) WRITE(*,'(A3)',ADVANCE='NO') ' ; '
5325:                      ENDDO5326:                      ENDDO
5326:                   ENDIF5327:                   ENDIF
5327:                   PRINT *,' '5328:                   PRINT *,' '
5328:                   NDUMMY=NDUMMY+NPERMSIZE(J1)5329:                   NDUMMY=NDUMMY+NPERMSIZE(J1)
5329:                ENDDO5330:                ENDDO
5330:             ENDIF5331:             ENDIF
5331: ! hk286 
5332:             IF (RIGIDINIT .AND. .NOT. RIGIDMOLECULEST) THEN 
5333:                CALL GENRIGID_PERMDIST() 
5334:             ENDIF 
5335: 5332: 
5336: ! 5333: ! 
5337: ! CHARMM and UNRES dihedral angle perturbation specification.5334: ! CHARMM and UNRES dihedral angle perturbation specification.
5338: ! Performs random, {\tt GMIN}-style twists before starting optimisation.5335: ! Performs random, {\tt GMIN}-style twists before starting optimisation.
5339: ! 5336: ! 
5340: 5337: 
 5338: ! hk286
 5339:             IF (RIGIDINIT .AND. .NOT. RIGIDMOLECULEST) THEN
 5340:                CALL GENRIGID_PERMDIST()
 5341:             ENDIF
 5342: 
5341:          ELSE IF (WORD.EQ.'PERTDIHE') THEN5343:          ELSE IF (WORD.EQ.'PERTDIHE') THEN
5342:             PERTDIHET=.TRUE.5344:             PERTDIHET=.TRUE.
5343:             CALL READF(CHPMAX)5345:             CALL READF(CHPMAX)
5344:             CHPMIN=CHPMAX5346:             CHPMIN=CHPMAX
5345:             CALL READF(CHNMIN)5347:             CALL READF(CHNMIN)
5346:             CALL READF(CHNMAX)5348:             CALL READF(CHNMAX)
5347:             CALL READI(ISEED)5349:             CALL READI(ISEED)
5348: ! PRINT *,'CHPMIN,CHPMAX,CHNMIN,CHNMAX',CHPMIN,CHPMAX,CHNMIN,CHNMAX5350: ! PRINT *,'CHPMIN,CHPMAX,CHNMIN,CHNMAX',CHPMIN,CHPMAX,CHNMIN,CHNMAX
5349: ! 5351: ! 
5350: ! Page-McIver minimisation for paths. This applies when the odata file specifies a5352: ! Page-McIver minimisation for paths. This applies when the odata file specifies a


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0