hdiff output

r31728/ido.f90 2017-01-21 10:38:15.631695373 +0000 r31727/ido.f90 2017-01-21 10:38:16.319753245 +0000
 17: !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA 17: !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 18: ! 18: !
 19: MODULE IDOMODULE 19: MODULE IDOMODULE
 20:      USE CONNECTDATA 20:      USE CONNECTDATA
 21:      USE CONNECTUTILS 21:      USE CONNECTUTILS
 22:      USE KEYCONNECT 22:      USE KEYCONNECT
 23:      IMPLICIT NONE 23:      IMPLICIT NONE
 24:      CONTAINS 24:      CONTAINS
 25:  25: 
 26: SUBROUTINE INITIALISE(NA,EI,Q,EF,FIN,ENDPOINTSEP) 26: SUBROUTINE INITIALISE(NA,EI,Q,EF,FIN,ENDPOINTSEP)
 27:      USE KEY, ONLY: READSP, INTIMAGE, INTLJT, INTCONSTRAINTT, FREEZENODEST, ATOMACTIVE, MLP3T, MLPVB3T 27:      USE KEY, ONLY: READSP, INTIMAGE, INTLJT, INTCONSTRAINTT, FREEZENODEST, ATOMACTIVE, MLP3T
 28:      IMPLICIT NONE 28:      IMPLICIT NONE
 29:       29:      
 30:      INTEGER,INTENT(IN)           :: NA 30:      INTEGER,INTENT(IN)           :: NA
 31:      DOUBLE PRECISION,INTENT(IN)           :: ENDPOINTSEP 31:      DOUBLE PRECISION,INTENT(IN)           :: ENDPOINTSEP
 32:      DOUBLE PRECISION,POINTER              :: EI,EF 32:      DOUBLE PRECISION,POINTER              :: EI,EF
 33:      DOUBLE PRECISION,POINTER,DIMENSION(:) :: Q,FIN 33:      DOUBLE PRECISION,POINTER,DIMENSION(:) :: Q,FIN
 34:  34: 
 35:      INTEGER J2, NPLUS, NMINUS, MINPOS, NMINA, NMINB, NTSDUMP, NDUMMY, NMINDUMP, IOERROR, NMAXINT, NMININT 35:      INTEGER J2, NPLUS, NMINUS, MINPOS, NMINA, NMINB, NTSDUMP, NDUMMY, NMINDUMP, IOERROR, NMAXINT, NMININT
 36:      LOGICAL MINNEW 36:      LOGICAL MINNEW
 37:      DOUBLE PRECISION, POINTER :: ETEMP, LOCALPOINTS(:) 37:      DOUBLE PRECISION, POINTER :: ETEMP, LOCALPOINTS(:)
 39:      DOUBLE PRECISION  DJWDUMMY, CONSTRAINTE, XYZLOCAL(6*NA), GGGLOCAL(6*NA), RMSLOCAL, MINCOORDS(2,3*NA), EEELOCAL(INTIMAGE+2) 39:      DOUBLE PRECISION  DJWDUMMY, CONSTRAINTE, XYZLOCAL(6*NA), GGGLOCAL(6*NA), RMSLOCAL, MINCOORDS(2,3*NA), EEELOCAL(INTIMAGE+2)
 40:      INTEGER, ALLOCATABLE :: ACTUALMIN(:) 40:      INTEGER, ALLOCATABLE :: ACTUALMIN(:)
 41:      LOGICAL PERMUTE, IMGFREEZELOCAL(0), FREEZENODESTLOCAL 41:      LOGICAL PERMUTE, IMGFREEZELOCAL(0), FREEZENODESTLOCAL
 42: !    LOGICAL EDGEINT(INTIMAGE+1,NA,NA) 42: !    LOGICAL EDGEINT(INTIMAGE+1,NA,NA)
 43:  43: 
 44:      INTEGER INVERT,INDEX(NA),IMATCH, INTIMAGESAVE 44:      INTEGER INVERT,INDEX(NA),IMATCH, INTIMAGESAVE
 45:  45: 
 46:      NULLIFY(ETEMP, LOCALPOINTS) 46:      NULLIFY(ETEMP, LOCALPOINTS)
 47:      NATOMS=NA 47:      NATOMS=NA
 48:      NOPT=3*NATOMS 48:      NOPT=3*NATOMS
 49:      IF (MLP3T.OR.MLPVB3T) NOPT=NATOMS 49:      IF (MLP3T) NOPT=NATOMS
 50:      ALLOCATE(G(NOPT),MI(MINRACKSIZE),TS(TSRACKSIZE)) 50:      ALLOCATE(G(NOPT),MI(MINRACKSIZE),TS(TSRACKSIZE))
 51:  51: 
 52:      ! endpoints initialisation 52:      ! endpoints initialisation
 53:      NMIN=2 53:      NMIN=2
 54:      MI(1)%DATA%E => EI 54:      MI(1)%DATA%E => EI
 55:      MI(2)%DATA%E => EF 55:      MI(2)%DATA%E => EF
 56:      MI(1)%DATA%X => Q 56:      MI(1)%DATA%X => Q
 57:      MI(2)%DATA%X => FIN 57:      MI(2)%DATA%X => FIN
 58:      ALLOCATE(MI(2)%DATA%D(1),MI(2)%DATA%NTRIES(1),MI(2)%DATA%INTNTRIES(1)) 58:      ALLOCATE(MI(2)%DATA%D(1),MI(2)%DATA%NTRIES(1),MI(2)%DATA%INTNTRIES(1))
 59:      MI(2)%DATA%D(1) = ENDPOINTSEP 59:      MI(2)%DATA%D(1) = ENDPOINTSEP


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0