hdiff output

r32278/rigidb.f90 2017-04-16 18:30:10.397813686 +0100 r32277/rigidb.f90 2017-04-16 18:30:10.613816474 +0100
171: 171: 
172:       SUBROUTINE FLDMINDIST(RA,RB,NATOMS,DIST,DEBUG,Q2)172:       SUBROUTINE FLDMINDIST(RA,RB,NATOMS,DIST,DEBUG,Q2)
173: 173: 
174: !     returns DIST as the actual distance, rather than the squared distance174: !     returns DIST as the actual distance, rather than the squared distance
175: 175: 
176:       USE COMMONS, ONLY: NTSITES, RBSITE, STOCKAAT, MULTISITEPYT176:       USE COMMONS, ONLY: NTSITES, RBSITE, STOCKAAT, MULTISITEPYT
177: 177: 
178:       IMPLICIT NONE178:       IMPLICIT NONE
179: 179: 
180:       INTEGER          :: J1, J2, J3, J4, NATOMS, NSIZE, JMIN, INFO180:       INTEGER          :: J1, J2, J3, J4, NATOMS, NSIZE, JMIN, INFO
181:       DOUBLE PRECISION :: RA(3*NTSITES), RB(3*NTSITES), DIST, QMAT(2,2), XM, YM, ZM, XP, YP, ZP181:       DOUBLE PRECISION :: RA(3*NATOMS), RB(3*NATOMS), DIST, QMAT(2,2), XM, YM, ZM, XP, YP, ZP
182:       DOUBLE PRECISION :: MINV, Q2(4), CMXA, CMYA, CMZA, CMXB, CMYB, CMZB182:       DOUBLE PRECISION :: MINV, Q2(4), CMXA, CMYA, CMZA, CMXB, CMYB, CMZB
183:       DOUBLE PRECISION :: R(3), P(3), RM(3,3) 183:       DOUBLE PRECISION :: R(3), P(3), RM(3,3) 
184:       DOUBLE PRECISION, ALLOCATABLE :: XA(:), XB(:)184:       DOUBLE PRECISION, ALLOCATABLE :: XA(:), XB(:)
185:       DOUBLE PRECISION :: ENERGY, VNEW(3*NATOMS), RMS, DUMMY185:       DOUBLE PRECISION :: ENERGY, VNEW(3*NATOMS), RMS, DUMMY
186:       LOGICAL          :: DEBUG186:       LOGICAL          :: DEBUG
187: 187: 
188:       NSIZE = NTSITES188:       NSIZE = NTSITES
189:       ALLOCATE(XA(3*NSIZE),XB(3*NSIZE))189:       ALLOCATE(XA(3*NSIZE),XB(3*NSIZE))
190: 190: 
191: !     MOVE CENTRE OF COORDINATES TO THE ORIGIN191: !     MOVE CENTRE OF COORDINATES TO THE ORIGIN


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0