hdiff output

r30532/stealthy.f90 2016-05-30 15:30:19.535280027 +0100 r30531/stealthy.f90 2016-05-30 15:30:19.755282987 +0100
  1: SUBROUTINE STEALTHY(XS,TIDU,ENERGY,GTEST,STEST)  1: SUBROUTINE STEALTHY(XS,TIDU,ENERGY,GTEST,STEST)
  2:     USE COMMONS  2:     USE COMMONS
  3:     USE KEY  3:     USE KEY
  4:     USE MODHESS  4:     USE MODHESS
  5:     IMPLICIT NONE  5:     IMPLICIT NONE
  6:     LOGICAL GTEST,STEST  6:     LOGICAL GTEST,STEST
  7:     INTEGER M, M1, M2, M3, J1, J2, I1, I2, L1, L2, KI  7:     INTEGER M, M1, M2, M3, J1, J2, I1, I2, L1, L2, KI
  8:     DOUBLE PRECISION XS(3*NATOMS), KX(3), KY(3), KZ(3), KN(3), TIDU(3*NATOMS), &  8:     DOUBLE PRECISION XS(3*NATOMS), KX(3), KY(3), KZ(3), KN(3), TIDU(3*NATOMS), &
  9:                      CKR(NATOMS), SKR(NATOMS)  9:                      CKR(NATOMS), SKR(NATOMS)
 10:     DOUBLE PRECISION PI, KR ,C, S, ENERGY, VF, IM, KM, FORPI 10:     DOUBLE PRECISION PI, KR ,C, S, ENERGY, VF, IM, KM
 11:  11: 
 12:     IF (.NOT.ALLOCATED(HESS)) ALLOCATE(HESS(3*NATOMS, 3*NATOMS)) 12:     IF (.NOT.ALLOCATED(HESS)) ALLOCATE(HESS(3*NATOMS, 3*NATOMS))
 13:  13: 
 14: !   initialize 14: !   initialize
 15:     FORPI=1.0 15:     PI=3.1415926535897932384626
 16:     PI=4*DATAN(FORPI) 
 17:     KM=KLIM*KLIM 16:     KM=KLIM*KLIM
 18:     KI=INT(KLIM) 17:     KI=INT(KLIM)
 19:     ENERGY=0 18:     ENERGY=0
 20:     STM=0 19:     STM=0
 21:  20: 
 22:     IF (GTEST) THEN 21:     IF (GTEST) THEN
 23:        TIDU=0 22:        TIDU=0
 24:     END IF 23:     END IF
 25:  24: 
 26:     IF (STEST) THEN 25:     IF (STEST) THEN


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0