hdiff output

r31928/commons.f90 2017-02-16 16:30:12.804134383 +0000 r31927/commons.f90 2017-02-16 16:30:13.456143106 +0000
  4:      &        NATOMS, MAXLENGTH, CONNECTIONS, HORDER, ERROR, MINSEP, NRWREACTANT, &  4:      &        NATOMS, MAXLENGTH, CONNECTIONS, HORDER, ERROR, MINSEP, NRWREACTANT, &
  5:      &        NATTEMPT, NNEW, NTOTAL, NEXCLUDE, NPERMGROUP, BHSTEPS, NGTSIZE,  &  5:      &        NATTEMPT, NNEW, NTOTAL, NEXCLUDE, NPERMGROUP, BHSTEPS, NGTSIZE,  &
  6:      &        MAXCONN, KAPPA, ISEED, NTAG, NDIHE, NCPU, GTINT, NCONNMAX, BESTPATHLENGTH, NGLY, &  6:      &        MAXCONN, KAPPA, ISEED, NTAG, NDIHE, NCPU, GTINT, NCONNMAX, BESTPATHLENGTH, NGLY, &
  7:      &        STARTMINA, STARTMINB, WHICHMIN, SECONDMIN, WHICHTS, MAXATTEMPT, COSTFUNCTIONPOWER, &  7:      &        STARTMINA, STARTMINB, WHICHMIN, SECONDMIN, WHICHTS, MAXATTEMPT, COSTFUNCTIONPOWER, &
  8:      &        NPAIRDONE, NMINDONE, NPAIRFRQ, CHECKSPS, CHECKSPF, &  8:      &        NPAIRDONE, NMINDONE, NPAIRFRQ, CHECKSPS, CHECKSPF, &
  9:      &        BISECTSTEPS, BISECTMAXATTEMPTS, NDIAGEIG, QRELONE, QRELTWO, MAXTSATTEMPTS, &  9:      &        BISECTSTEPS, BISECTMAXATTEMPTS, NDIAGEIG, QRELONE, QRELTWO, MAXTSATTEMPTS, &
 10:      &        INTCONSEP, INTREPSEP, PAIRDISTMAX, PAIRDIST1, PAIRDIST2, PATOM1, PATOM2, NRANROT, & 10:      &        INTCONSEP, INTREPSEP, PAIRDISTMAX, PAIRDIST1, PAIRDIST2, PATOM1, PATOM2, NRANROT, &
 11:      &        NMINADDXYZ, LOCALPERMNEIGH, NRATESCYCLETEMPS, RATESUNIT, CONNMINSTART, DISTANCETO, & 11:      &        NMINADDXYZ, LOCALPERMNEIGH, NRATESCYCLETEMPS, RATESUNIT, CONNMINSTART, DISTANCETO, &
 12:      &        DISTANCETO1, DISTANCETO2, OSTART, OFINISH, PTSTART, PTFINISH, RFMULTIN, RFUNIT, & 12:      &        DISTANCETO1, DISTANCETO2, OSTART, OFINISH, PTSTART, PTFINISH, RFMULTIN, RFUNIT, &
 13:      &        RFKMCN, RFKMCSTEPS, NPEQ, MLPIN, MLPSTART, MLPOUT, MLPHIDDEN, NMLP, NOPT, CVSTARTMIN, CVENDMIN, CVINCMIN, & 13:      &        RFKMCN, RFKMCSTEPS, NPEQ, MLPIN, MLPSTART, MLPOUT, MLPHIDDEN, NMLP, NOPT, CVSTARTMIN, CVENDMIN, CVINCMIN, &
 14:      &        CONNECTMIN2F, CONNECTMIN2SAVE, NZEROS 14:      &        CONNECTMIN2F, CONNECTMIN2SAVE
 15:  15: 
 16:       INTEGER, ALLOCATABLE :: LOCATIONA(:), LOCATIONB(:) 16:       INTEGER, ALLOCATABLE :: LOCATIONA(:), LOCATIONB(:)
 17:       INTEGER, ALLOCATABLE :: NCONN(:)     ! reallocate MAXMIN when used 17:       INTEGER, ALLOCATABLE :: NCONN(:)     ! reallocate MAXMIN when used
 18:       INTEGER, ALLOCATABLE :: BESTPATH(:)   18:       INTEGER, ALLOCATABLE :: BESTPATH(:)  
 19:       INTEGER, ALLOCATABLE :: USEPAIRSMIN(:) 19:       INTEGER, ALLOCATABLE :: USEPAIRSMIN(:)
 20: ! 20: !
 21: ! I/O unit numbers 21: ! I/O unit numbers
 22: ! 22: !
 23:       INTEGER, PARAMETER :: UMINDATA=11, UTSDATA=12, UMIN=13, UTS=15 23:       INTEGER, PARAMETER :: UMINDATA=11, UTSDATA=12, UMIN=13, UTS=15
 24:  24: 


r31928/keywords.f 2017-02-16 16:30:13.020137273 +0000 r31927/keywords.f 2017-02-16 16:30:13.680146103 +0000
369:       RATETARGETAB=HUGE(1.0)369:       RATETARGETAB=HUGE(1.0)
370:       RATETARGETBA=HUGE(1.0)370:       RATETARGETBA=HUGE(1.0)
371:       TARGETHIT=.FALSE.371:       TARGETHIT=.FALSE.
372:       NRANROT=0372:       NRANROT=0
373:       CHECKSPT=.FALSE.373:       CHECKSPT=.FALSE.
374:       CHECKMINT=.FALSE.374:       CHECKMINT=.FALSE.
375:       CHECKTST=.FALSE.375:       CHECKTST=.FALSE.
376:       CHECKSPS=-1376:       CHECKSPS=-1
377:       CHECKSPF=-1377:       CHECKSPF=-1
378: 378: 
379:       NZEROS=0 
380:  
381: 379: 
382:       DISTANCET=.FALSE.380:       DISTANCET=.FALSE.
383:       DISTANCETO=1381:       DISTANCETO=1
384:       DISTANCETO1=1382:       DISTANCETO1=1
385:       DISTANCETO2=1383:       DISTANCETO2=1
386: 384: 
387: ! hk286385: ! hk286
388:       GTHOMSONT = .FALSE.386:       GTHOMSONT = .FALSE.
389:       RIGIDINIT = .FALSE.387:       RIGIDINIT = .FALSE.
390:       DEGFREEDOMS = 3*NATOMS388:       DEGFREEDOMS = 3*NATOMS
2523: C Choose connection pairs based on the sequence read from file USEPAIRSFILE2521: C Choose connection pairs based on the sequence read from file USEPAIRSFILE
2524: C2522: C
2525:       ELSE IF (WORD.EQ.'USEPAIRS') THEN2523:       ELSE IF (WORD.EQ.'USEPAIRS') THEN
2526:          USEPAIRST=.TRUE.2524:          USEPAIRST=.TRUE.
2527:          CALL READA(USEPAIRSFILE)2525:          CALL READA(USEPAIRSFILE)
2528: 2526: 
2529: C dg413: Introduced USERPOT here! 2527: C dg413: Introduced USERPOT here! 
2530:       ELSE IF (WORD.EQ.'USERPOT') THEN2528:       ELSE IF (WORD.EQ.'USERPOT') THEN
2531:          USERPOTT=.TRUE.2529:          USERPOTT=.TRUE.
2532: 2530: 
2533: C need a general way to communicate the number of zero frequencies - used for PY 
2534: C 
2535:       ELSE IF (WORD.EQ.'ZEROS') THEN 
2536:          CALL READI(NZEROS) 
2537:          PRINT '(A,I6)','keywords> number of zero frequencies will be set to ',NZEROS 
2538:  
2539:       ELSE2531:       ELSE
2540: 2532: 
2541:          CALL REPORT('Unrecognized command '//WORD,.TRUE.)2533:          CALL REPORT('Unrecognized command '//WORD,.TRUE.)
2542:       ENDIF2534:       ENDIF
2543: 2535: 
2544:       CALL FLUSH(6)2536:       CALL FLUSH(6)
2545:       GOTO 1902537:       GOTO 190
2546: 2538: 
2547:       RETURN2539:       RETURN
2548:       END2540:       END


r31928/main.F 2017-02-16 16:30:13.236140163 +0000 r31927/main.F 2017-02-16 16:30:13.976150063 +0000
161: C161: C
162: C  NFSTART is the first true frequency to use from a path.info file, and162: C  NFSTART is the first true frequency to use from a path.info file, and
163: C  NFFINISH is the last non-zero frequency to read for a minimum.163: C  NFFINISH is the last non-zero frequency to read for a minimum.
164: C  Used in getnewpath and tssearch. KAPPA is the number of non-zero 164: C  Used in getnewpath and tssearch. KAPPA is the number of non-zero 
165: C  vibrational frequencies.165: C  vibrational frequencies.
166: C166: C
167:       NFSTART=1167:       NFSTART=1
168:       NFFINISH=3*NATOMS-6168:       NFFINISH=3*NATOMS-6
169:       KAPPA=3*NATOMS-6169:       KAPPA=3*NATOMS-6
170:       NGLY=0170:       NGLY=0
171:       IF (NZEROS.GT.0) THEN171:       IF (TWOD) THEN
172:          NFSTART=1 
173:          NFFINISH=3*NATOMS-NZEROS 
174:          KAPPA=3*NATOMS-NZEROS 
175:          PRINT '(A,2I6)','main> start and finish for non-zero frequencies for minima set to ',NFSTART,NFFINISH 
176:       ELSEIF (TWOD) THEN 
177:          NFSTART=1172:          NFSTART=1
178:          NFFINISH=2*NATOMS-3173:          NFFINISH=2*NATOMS-3
179:          KAPPA=2*NATOMS-3174:          KAPPA=2*NATOMS-3
180:          IF (BULKT) THEN175:          IF (BULKT) THEN
181:             NFSTART=1176:             NFSTART=1
182:             NFFINISH=2*NATOMS-2177:             NFFINISH=2*NATOMS-2
183:             KAPPA=2*NATOMS-2178:             KAPPA=2*NATOMS-2
184:          ENDIF179:          ENDIF
185:       ELSE IF (GTHOMSONT) THEN180:       ELSE IF (GTHOMSONT) THEN
186:         NFSTART = 1181:         NFSTART = 1


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0