hdiff output

r30160/keywords.f 2016-03-16 18:32:56.850683334 +0000 r30159/keywords.f 2016-03-16 18:32:57.470689711 +0000
 32:       CHARACTER(LEN=100) WW 32:       CHARACTER(LEN=100) WW
 33:       CHARACTER(LEN=80) RWENERGYFILE 33:       CHARACTER(LEN=80) RWENERGYFILE
 34:       CHARACTER(LEN=20) WORD 34:       CHARACTER(LEN=20) WORD
 35:       CHARACTER(LEN=1) LOYNO 35:       CHARACTER(LEN=1) LOYNO
 36:       CHARACTER(LEN=9) UNSTRING 36:       CHARACTER(LEN=9) UNSTRING
 37:       CHARACTER(LEN=4) LABEL 37:       CHARACTER(LEN=4) LABEL
 38:       CHARACTER(LEN=8) DUMMYSTRING  38:       CHARACTER(LEN=8) DUMMYSTRING 
 39:         39:        
 40:       TYPE (CAPSOMER), ALLOCATABLE :: TEMPCAPSOMERDEFS(:) 40:       TYPE (CAPSOMER), ALLOCATABLE :: TEMPCAPSOMERDEFS(:)
 41:       INTEGER :: MAXRBTYPES 41:       INTEGER :: MAXRBTYPES
 42:       INTEGER :: MAXNSETS 
 43:  
 44:       DBPT     = .FALSE. 42:       DBPT     = .FALSE.
 45:       DBPTDT   = .FALSE. 43:       DBPTDT   = .FALSE.
 46:       DMBLPYT  = .FALSE. 44:       DMBLPYT  = .FALSE.
 47:       MSSTOCKT = .FALSE. 45:       MSSTOCKT = .FALSE.
 48:       NTIPT    = .FALSE. 46:       NTIPT    = .FALSE.
 49:       PAHAT    = .FALSE. 47:       PAHAT    = .FALSE.
 50:       PAPT     = .FALSE. 48:       PAPT     = .FALSE.
 51:       PATCHYDT = .FALSE. 49:       PATCHYDT = .FALSE.
 52:       SILANET  = .FALSE. 50:       SILANET  = .FALSE.
 53:       STOCKAAT = .FALSE. 51:       STOCKAAT = .FALSE.
219:       PERSISTAPPROXT=.TRUE.217:       PERSISTAPPROXT=.TRUE.
220:       ALLCOMPONENTST=.FALSE.218:       ALLCOMPONENTST=.FALSE.
221:       ALLCOMPS=''219:       ALLCOMPS=''
222:       UNTRAPT=.FALSE.220:       UNTRAPT=.FALSE.
223:       UNTRAPMETRICT=.FALSE.221:       UNTRAPMETRICT=.FALSE.
224:       METRICUPAIR=0222:       METRICUPAIR=0
225:       METMATMAX=2000 223:       METMATMAX=2000 
226:       EUNTRAPTHRESH=1.0D100224:       EUNTRAPTHRESH=1.0D100
227:       FREEPAIRT=.FALSE.225:       FREEPAIRT=.FALSE.
228:       PERMDIST=.FALSE.226:       PERMDIST=.FALSE.
229:       MAXNSETS=3 
230:       ORBITTOL=1.0D-3227:       ORBITTOL=1.0D-3
231:       LPERMDIST=.FALSE.228:       LPERMDIST=.FALSE.
232:       LPDGEOMDIFFTOL=0.3D0229:       LPDGEOMDIFFTOL=0.3D0
233:       LOCALPERMNEIGH=4230:       LOCALPERMNEIGH=4
234:       LOCALPERMCUT=0.2D0231:       LOCALPERMCUT=0.2D0
235:       LOCALPERMCUT2=10.0D0232:       LOCALPERMCUT2=10.0D0
236:       PERMISOMER=.FALSE.233:       PERMISOMER=.FALSE.
237:       NTAG=0234:       NTAG=0
238:       TAGT=.FALSE.235:       TAGT=.FALSE.
239:       FREEZE=.FALSE.236:       FREEZE=.FALSE.
1704: !  distance won't be minimised with repect to permutations for inequivalent minima.1701: !  distance won't be minimised with repect to permutations for inequivalent minima.
1705: !1702: !
1706:       ELSE IF ((WORD.EQ.'PERMDIST').OR.(WORD.EQ.'PERMISOMER').OR.(WORD.EQ.'LPERMDIST')) THEN1703:       ELSE IF ((WORD.EQ.'PERMDIST').OR.(WORD.EQ.'PERMISOMER').OR.(WORD.EQ.'LPERMDIST')) THEN
1707:          IF (NATOMS.LE.0) THEN1704:          IF (NATOMS.LE.0) THEN
1708:             PRINT '(A,I6,A)','keywords> ERROR - NATOMS=',NATOMS,' NATOMS keyword must preceed PERMDIST'1705:             PRINT '(A,I6,A)','keywords> ERROR - NATOMS=',NATOMS,' NATOMS keyword must preceed PERMDIST'
1709:             STOP1706:             STOP
1710:          ENDIF1707:          ENDIF
1711:          IF (WORD.EQ.'PERMDIST') THEN1708:          IF (WORD.EQ.'PERMDIST') THEN
1712:             PERMDIST=.TRUE.1709:             PERMDIST=.TRUE.
1713:             IF (NITEMS.GT.1) CALL READF(ORBITTOL)1710:             IF (NITEMS.GT.1) CALL READF(ORBITTOL)
1714:             IF (NITEMS.GT.2) CALL READI(MAXNSETS) 
1715:             PRINT '(A,F15.5)','keywords> Distance tolerance for identifying atoms in the same orbit=',ORBITTOL1711:             PRINT '(A,F15.5)','keywords> Distance tolerance for identifying atoms in the same orbit=',ORBITTOL
1716:             PRINT '(A,I3)',' keywords> Maximum number of secondary sets in perm.allow file=', MAXNSETS 
1717:          ENDIF1712:          ENDIF
1718:          IF (WORD.EQ.'PERMISOMER') PERMISOMER=.TRUE.1713:          IF (WORD.EQ.'PERMISOMER') PERMISOMER=.TRUE.
1719:          IF (WORD.EQ.'LPERMDIST') THEN1714:          IF (WORD.EQ.'LPERMDIST') THEN
1720:             LPERMDIST=.TRUE.1715:             LPERMDIST=.TRUE.
1721:             IF (NITEMS.GT.1) CALL READI(LOCALPERMNEIGH)1716:             IF (NITEMS.GT.1) CALL READI(LOCALPERMNEIGH)
1722:             IF (NITEMS.GT.2) CALL READF(LOCALPERMCUT)1717:             IF (NITEMS.GT.2) CALL READF(LOCALPERMCUT)
1723:             IF (NITEMS.GT.3) CALL READF(LOCALPERMCUT2)1718:             IF (NITEMS.GT.3) CALL READF(LOCALPERMCUT2)
1724:             PRINT '(A,F15.5)','keywords> Local permutational alignment: alignment threshold=',LOCALPERMCUT1719:             PRINT '(A,F15.5)','keywords> Local permutational alignment: alignment threshold=',LOCALPERMCUT
1725:             PRINT '(A,F15.5)','keywords> Local permutational alignment: alignment cutoff=   ',LOCALPERMCUT21720:             PRINT '(A,F15.5)','keywords> Local permutational alignment: alignment cutoff=   ',LOCALPERMCUT2
1726:          ENDIF1721:          ENDIF
1727:          INQUIRE(FILE='perm.allow',EXIST=PERMFILE)1722:          INQUIRE(FILE='perm.allow',EXIST=PERMFILE)
1728:          ALLOCATE(NPERMSIZE(3*NATOMS),PERMGROUP(3*NATOMS),NSETS(3*NATOMS),SETS(NATOMS,MAXNSETS))1723:          ALLOCATE(NPERMSIZE(3*NATOMS),PERMGROUP(3*NATOMS),NSETS(3*NATOMS),SETS(NATOMS,3))
1729: !1724: !
1730: !  The above dimensions were fixed at NATOMS because:1725: !  The above dimensions were fixed at NATOMS because:
1731: !  (a) Atoms were not allowed to appear in more than one group.1726: !  (a) Atoms were not allowed to appear in more than one group.
1732: !  (b) The maximum number of pair exchanges associated with a group is three.1727: !  (b) The maximum number of pair exchanges associated with a group is three.
1733: !1728: !
1734: ! However, for flexible water models we need to exchange all waters,1729: ! However, for flexible water models we need to exchange all waters,
1735: ! and we can exchange H's attached to the same O. The dimension required1730: ! and we can exchange H's attached to the same O. The dimension required
1736: ! becomes 3*NATOMS1731: ! becomes 3*NATOMS
1737: !1732: !
1738:          IF (PERMFILE) THEN1733:          IF (PERMFILE) THEN
1739:             OPEN(UNIT=1,FILE='perm.allow',STATUS='OLD')1734:             OPEN(UNIT=1,FILE='perm.allow',STATUS='OLD')
1740:             READ(1,*) NPERMGROUP1735:             READ(1,*) NPERMGROUP
1741:             NDUMMY=11736:             NDUMMY=1
1742:             DO J1=1,NPERMGROUP1737:             DO J1=1,NPERMGROUP
1743: !1738: !
1744: !  Sanity checks!1739: !  Sanity checks!
1745: ! 1740: ! 
1746:                READ(1,*) NPERMSIZE(J1),NSETS(J1)1741:                READ(1,*) NPERMSIZE(J1),NSETS(J1)
1747:                IF (NSETS(J1).GT.MAXNSETS) THEN1742:                IF (NSETS(J1).GT.3) THEN
1748:                   PRINT '(2(A,I8))','keyword> ERROR - number of secondary sets ',NSETS(J1),' is > ', MAXNSETS1743:                   PRINT '(2(A,I8))','keyword> ERROR - number of secondary sets ',NSETS(J1),' is > 3'
1749:                   STOP1744:                   STOP
1750:                ENDIF1745:                ENDIF
1751:                IF (NDUMMY+NPERMSIZE(J1)-1.GT.3*NATOMS) THEN1746:                IF (NDUMMY+NPERMSIZE(J1)-1.GT.3*NATOMS) THEN
1752:                   PRINT '(2(A,I8))','keyword> ERROR - number of atoms to be permuted in all groups is > 3*number of atoms'1747:                   PRINT '(2(A,I8))','keyword> ERROR - number of atoms to be permuted in all groups is > 3*number of atoms'
1753:                   STOP1748:                   STOP
1754:                ENDIF1749:                ENDIF
1755: !              READ(1,*) PERMGROUP(NDUMMY:NDUMMY+NPERMSIZE(J1)-1),((SWAP1(PERMGROUP(J3),J2),J2=1,NSWAP(J1)),1750: !              READ(1,*) PERMGROUP(NDUMMY:NDUMMY+NPERMSIZE(J1)-1),((SWAP1(PERMGROUP(J3),J2),J2=1,NSWAP(J1)),
1756: !    &                                                            J3=NDUMMY,NDUMMY+NPERMSIZE(J1)-1)1751: !    &                                                            J3=NDUMMY,NDUMMY+NPERMSIZE(J1)-1)
1757:                READ(1,*) PERMGROUP(NDUMMY:NDUMMY+NPERMSIZE(J1)-1),((SETS(PERMGROUP(J3),J2),J3=NDUMMY,NDUMMY+NPERMSIZE(J1)-1),1752:                READ(1,*) PERMGROUP(NDUMMY:NDUMMY+NPERMSIZE(J1)-1),((SETS(PERMGROUP(J3),J2),J3=NDUMMY,NDUMMY+NPERMSIZE(J1)-1),
1758:      &                                                              J2=1,NSETS(J1))1753:      &                                                              J2=1,NSETS(J1))


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0