hdiff output

r30712/bfgsts.f 2016-07-07 17:30:08.298469926 +0100 r30711/bfgsts.f 2016-07-07 17:30:08.862477398 +0100
1878:       FIXIMAGE=.TRUE.1878:       FIXIMAGE=.TRUE.
1879:       LWORK=33*3*NATOMS1879:       LWORK=33*3*NATOMS
1880:       ILWORK=33*3*NATOMS1880:       ILWORK=33*3*NATOMS
1881:       IF(ALLOCATED(VECCHK)) DEALLOCATE(VECCHK) 1881:       IF(ALLOCATED(VECCHK)) DEALLOCATE(VECCHK) 
1882:       IF (.NOT.ALLOCATED(VECCHK)) ALLOCATE(VECCHK(3*NATOMS,30))1882:       IF (.NOT.ALLOCATED(VECCHK)) ALLOCATE(VECCHK(3*NATOMS,30))
1883:       IF(ALLOCATED(ZWORK)) DEALLOCATE(ZWORK) 1883:       IF(ALLOCATED(ZWORK)) DEALLOCATE(ZWORK) 
1884:       IF (.NOT.ALLOCATED(ZWORK)) ALLOCATE(ZWORK(3*NATOMS,30))1884:       IF (.NOT.ALLOCATED(ZWORK)) ALLOCATE(ZWORK(3*NATOMS,30))
1885: 1885: 
1886:       IF (NOIT) THEN1886:       IF (NOIT) THEN
1887:          CALL POTENTIAL(COORDS,ENERGY,VEC1,.TRUE.,.TRUE.,DUMMY1,PTEST,.FALSE.) 1887:          CALL POTENTIAL(COORDS,ENERGY,VEC1,.TRUE.,.TRUE.,DUMMY1,PTEST,.FALSE.) 
1888:          IF ((.NOT.VARIABLES).AND.(.NOT.MIEFT)) THEN1888:          IF (.NOT.VARIABLES) THEN
1889:             IF (ZSYM(NATOMS).EQ.'TH') THEN1889:             IF (ZSYM(NATOMS).EQ.'TH') THEN
1890:                CALL SHIFTHTH(COORDS,NATOMS)1890:                CALL SHIFTHTH(COORDS,NATOMS)
1891: ! hk2861891: ! hk286
1892:             ELSEIF (GTHOMSONT) THEN1892:             ELSEIF (GTHOMSONT) THEN
1893:                CALL SHIFTHGTH(COORDS,NATOMS)1893:                CALL SHIFTHGTH(COORDS,NATOMS)
1894:             ELSEIF (RBAAT) THEN1894:             ELSEIF (RBAAT) THEN
1895:                CALL SHIFTRIGID(COORDS,NATOMS)1895:                CALL SHIFTRIGID(COORDS,NATOMS)
1896:             ELSE1896:             ELSE
1897:                CALL SHIFTH(COORDS,.TRUE.,NOPT,NATOMS,ATMASS)1897:                CALL SHIFTH(COORDS,.TRUE.,NOPT,NATOMS,ATMASS)
1898:             ENDIF1898:             ENDIF


r30712/connect.f 2016-07-07 17:30:08.578473633 +0100 r30711/connect.f 2016-07-07 17:30:09.154481264 +0100
1535:       WRITE(*,'(A,F15.5,A,F15.5)') ' Calculated classical canonical rates in reduced units at T*=',TEMPERATURE,' h*=',HRED1535:       WRITE(*,'(A,F15.5,A,F15.5)') ' Calculated classical canonical rates in reduced units at T*=',TEMPERATURE,' h*=',HRED
1536:       WRITE(*,'(A,F15.5)') ' Rotational degrees of freedom ignored'1536:       WRITE(*,'(A,F15.5)') ' Rotational degrees of freedom ignored'
1537: C1537: C
1538: C  How many zero eigenvalues?1538: C  How many zero eigenvalues?
1539: C1539: C
1540:       IF (RTEST) THEN1540:       IF (RTEST) THEN
1541:          NZERO=21541:          NZERO=2
1542:          IF (JZ.NE.0.0D0) THEN1542:          IF (JZ.NE.0.0D0) THEN
1543:             NZERO=41543:             NZERO=4
1544:          ENDIF1544:          ENDIF
1545:       ELSE IF (MIEFT) THEN 
1546:          NZERO=0 
1547:       ELSE IF (BULKT) THEN1545:       ELSE IF (BULKT) THEN
1548:          NZERO=31546:          NZERO=3
1549:          IF (TWOD) THEN1547:          IF (TWOD) THEN
1550:             NZERO=21548:             NZERO=2
1551:          ENDIF1549:          ENDIF
1552: C     ELSE IF ((FPGRP.EQ.'DXh'.OR.FPGRP.EQ.'CXv').AND.(ZSYMSAVE(1:1).NE.'W')) THEN1550: C     ELSE IF ((FPGRP.EQ.'DXh'.OR.FPGRP.EQ.'CXv').AND.(ZSYMSAVE(1:1).NE.'W')) THEN
1553: C        NZERO=51551: C        NZERO=5
1554:       ELSE IF (VARIABLES) THEN1552:       ELSE IF (VARIABLES) THEN
1555:       ELSE IF (FIELDT) THEN1553:       ELSE IF (FIELDT) THEN
1556:          NZERO=31554:          NZERO=3


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0