hdiff output

r32255/rigidb.f90 2017-04-05 13:30:11.645388135 +0100 r32254/rigidb.f90 2017-04-05 13:30:11.873391128 +0100
1424:       SUBROUTINE FLDMINDIST(RA,RB,NATOMS,DIST,DEBUG,Q2)1424:       SUBROUTINE FLDMINDIST(RA,RB,NATOMS,DIST,DEBUG,Q2)
1425: 1425: 
1426: !     returns DIST as the actual distance, rather than the squared distance1426: !     returns DIST as the actual distance, rather than the squared distance
1427: 1427: 
1428:       USE COMMONS, ONLY: NRBSITES1428:       USE COMMONS, ONLY: NRBSITES
1429:       USE KEY, ONLY: NTSITES, STOCKAAT, MULTISITEPYT1429:       USE KEY, ONLY: NTSITES, STOCKAAT, MULTISITEPYT
1430: 1430: 
1431:       IMPLICIT NONE1431:       IMPLICIT NONE
1432: 1432: 
1433:       INTEGER          :: J1, J2, J3, J4, NATOMS, NSIZE, JMIN, INFO1433:       INTEGER          :: J1, J2, J3, J4, NATOMS, NSIZE, JMIN, INFO
1434:       DOUBLE PRECISION :: RA(3*NTSITES), RB(3*NTSITES), DIST, QMAT(2,2), XM, YM, ZM, XP, YP, ZP1434:       DOUBLE PRECISION :: RA(3*NATOMS), RB(3*NATOMS), DIST, QMAT(2,2), XM, YM, ZM, XP, YP, ZP
1435:       DOUBLE PRECISION :: MINV, Q2(4), CMXA, CMYA, CMZA, CMXB, CMYB, CMZB1435:       DOUBLE PRECISION :: MINV, Q2(4), CMXA, CMYA, CMZA, CMXB, CMYB, CMZB
1436:       DOUBLE PRECISION :: R(3), P(3), RM(3,3) 1436:       DOUBLE PRECISION :: R(3), P(3), RM(3,3) 
1437:       DOUBLE PRECISION, ALLOCATABLE :: XA(:), XB(:)1437:       DOUBLE PRECISION, ALLOCATABLE :: XA(:), XB(:)
1438:       DOUBLE PRECISION :: ENERGY, VNEW(3*NATOMS), RMS, DUMMY1438:       DOUBLE PRECISION :: ENERGY, VNEW(3*NATOMS), RMS, DUMMY
1439:       LOGICAL          :: DEBUG1439:       LOGICAL          :: DEBUG
1440: 1440: 
1441:       NSIZE = NTSITES1441:       NSIZE = NTSITES
1442:       ALLOCATE(XA(3*NSIZE),XB(3*NSIZE))1442:       ALLOCATE(XA(3*NSIZE),XB(3*NSIZE))
1443: 1443: 
1444: !     MOVE CENTRE OF COORDINATES TO THE ORIGIN1444: !     MOVE CENTRE OF COORDINATES TO THE ORIGIN


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0