hdiff output

r32048/setup.f 2017-03-08 12:30:11.249023681 +0000 r32047/setup.f 2017-03-08 12:30:11.993033605 +0000
1590: !        ELSE1590: !        ELSE
1591: !           CALL GETNEWPATH(0,0)1591: !           CALL GETNEWPATH(0,0)
1592: !        ENDIF1592: !        ENDIF
1593:       ENDIF1593:       ENDIF
1594: C1594: C
1595: C IF NOPOINTGROUPT is true then set all point group orders to unity. This is designed for1595: C IF NOPOINTGROUPT is true then set all point group orders to unity. This is designed for
1596: C addressable potentials, where permutational isomers are enumerated explicitly. We can 1596: C addressable potentials, where permutational isomers are enumerated explicitly. We can 
1597: C still lump enantiomers, since there will always be two of these for each stationary point,1597: C still lump enantiomers, since there will always be two of these for each stationary point,
1598: C except for planar gemetries.1598: C except for planar gemetries.
1599: C1599: C
1600:       IF (NOPOINTGROUPT) THEN1600:       DO J3=1,NMIN
1601:          DO J3=1,NMIN1601:          HORDERMIN(J3)=1
1602:             HORDERMIN(J3)=11602:       ENDDO
1603:          ENDDO1603:       DO J3=1,NTS
1604:          DO J3=1,NTS1604:          HORDERTS(J3)=1
1605:             HORDERTS(J3)=11605:       ENDDO
1606:          ENDDO1606: 
1607:       ENDIF 
1608: C1607: C
1609: C If USEPAIRST is true then read the sequence of minima from file USEPAIRSFILE1608: C If USEPAIRST is true then read the sequence of minima from file USEPAIRSFILE
1610: C USEPAIRSFILE must be formatted as a single Epath file1609: C USEPAIRSFILE must be formatted as a single Epath file
1611: C1610: C
1612:       IF (USEPAIRST) THEN1611:       IF (USEPAIRST) THEN
1613:          OPEN(UNIT=1,FILE=TRIM(ADJUSTL(USEPAIRSFILE)),STATUS='OLD')1612:          OPEN(UNIT=1,FILE=TRIM(ADJUSTL(USEPAIRSFILE)),STATUS='OLD')
1614:          NUSEPAIRS=01613:          NUSEPAIRS=0
1615:          DO1614:          DO
1616:             READ(1,*,END=111) NDUMMY, DUMMY, NDUMMY1615:             READ(1,*,END=111) NDUMMY, DUMMY, NDUMMY
1617:             NUSEPAIRS=NUSEPAIRS+11616:             NUSEPAIRS=NUSEPAIRS+1


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0