hdiff output

r32036/frausi.f 2017-03-07 17:30:12.813343039 +0000 r32035/frausi.f 2017-03-07 17:30:13.077346532 +0000
 49:       LOGICAL GTEST,ANGSTROM 49:       LOGICAL GTEST,ANGSTROM
 50:       INTEGER I, J, K, AI, AJ, NDIM, NMAX, I2, J2, K2,  INFO 50:       INTEGER I, J, K, AI, AJ, NDIM, NMAX, I2, J2, K2,  INFO
 51:       DOUBLE PRECISION DIST(NATOMS,NATOMS), 51:       DOUBLE PRECISION DIST(NATOMS,NATOMS),
 52:      1                 WORK(24*NATOMS), 52:      1                 WORK(24*NATOMS),
 53:      2                 S(4*NATOMS,4*NATOMS), 53:      2                 S(4*NATOMS,4*NATOMS),
 54:      3                 ENERGY,XS(3*NATOMS), 54:      3                 ENERGY,XS(3*NATOMS),
 55:      4                 H(4*NATOMS,4*NATOMS) 55:      4                 H(4*NATOMS,4*NATOMS)
 56:       DOUBLE PRECISION UREP,REP 56:       DOUBLE PRECISION UREP,REP
 57:       LOGICAL FTEST 57:       LOGICAL FTEST
 58:       COMMON /FAIL/ FTEST 58:       COMMON /FAIL/ FTEST
 59:       if(.not. allocated(R)) allocate(R(NATOMS,NATOMS)) 59:       allocate(R(NATOMS,NATOMS),DIRCOS(NATOMS,NATOMS,3),Horig(4*NATOMS,4*NATOMS),DIAG(4*NATOMS))
 60:       if(.not. allocated(DIRCOS)) allocate(DIRCOS(NATOMS,NATOMS,3)) 
 61:       if(.not. allocated(Horig)) allocate(Horig(4*NATOMS,4*NATOMS)) 
 62:       if(.not. allocated(DIAG)) allocate(DIAG(4*NATOMS)) 
 63:  60: 
 64:  61: 
 65:        62:       
 66:  63: 
 67: C   Calculate distance matrix 64: C   Calculate distance matrix
 68:  65: 
 69:       DO I=1,N 66:       DO I=1,N
 70:        I2=3*(I-1) 67:        I2=3*(I-1)
 71:        R(I,I)=0.0D0 68:        R(I,I)=0.0D0
 72:        DO J=I+1,N 69:        DO J=I+1,N


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0