hdiff output

r33260/optim_quipdummy.f90 2017-09-01 16:30:11.440939770 +0100 r33259/optim_quipdummy.f90 2017-09-01 16:30:11.892945763 +0100
  1: SUBROUTINE OPTIM_QUIP_WRAPPER(NAT,CRDS,GRAD,ENRG,BOXX,BOXY,BOXZ)  1: SUBROUTINE OPTIM_QUIP_WRAPPER(NAT,CRDS,GRAD,ENRG,BOXX,BOXY,BOXZ)
  2:   2: 
  3: IMPLICIT NONE  3: IMPLICIT NONE
  4:   4: 
  5: INTEGER :: NAT  5: INTEGER :: NAT
  6: DOUBLE PRECISION, DIMENSION(3*NAT) :: CRDS  6: DOUBLE PRECISION, DIMENSION(3*NAT) :: CRDS
  7: DOUBLE PRECISION, DIMENSION(3*NAT) :: GRAD  7: DOUBLE PRECISION, DIMENSION(3*NAT) :: GRAD
  8: DOUBLE PRECISION :: ENRG  8: DOUBLE PRECISION :: ENRG
  9: DOUBLE PRECISION :: BOXX, BOXY, BOXZ  9: DOUBLE PRECISION :: BOXX, BOXY, BOXZ
 10:  10: 
 11:  
 12: PRINT *,'this dummy quip wrapper should never be called' 
 13: STOP 
 14:  
 15: RETURN 11: RETURN
 16:  12: 
 17: END SUBROUTINE OPTIM_QUIP_WRAPPER 13: END SUBROUTINE OPTIM_QUIP_WRAPPER


r33260/potential.f 2017-09-01 16:30:11.668942791 +0100 r33259/potential.f 2017-09-01 16:30:12.124948838 +0100
1265:                WRITE(*,20) ' potential> Energy for last cycle=',ENERGY1265:                WRITE(*,20) ' potential> Energy for last cycle=',ENERGY
1266:                WRITE(ESTRING,20) ' potential> Energy for last cycle=',ENERGY1266:                WRITE(ESTRING,20) ' potential> Energy for last cycle=',ENERGY
1267:                WRITE(*,20) ' Two-body contribution=   ',P21267:                WRITE(*,20) ' Two-body contribution=   ',P2
1268:                WRITE(*,20) ' Three-body contribution= ',P31268:                WRITE(*,20) ' Three-body contribution= ',P3
1269:             ENDIF1269:             ENDIF
1270:          ELSE IF (ZSYM(NATOMS).EQ.'QI') THEN1270:          ELSE IF (ZSYM(NATOMS).EQ.'QI') THEN
1271:             ! 1271:             ! 
1272:             ! PARAM1, PARAM2 and PARAM3 are the boxlengths1272:             ! PARAM1, PARAM2 and PARAM3 are the boxlengths
1273:             ! 1273:             ! 
1274: !           CALL OPTIM_QUIP_WRAPPER(NATOMS,COORDS,VNEW,ENERGY,PARAM1,PARAM2,PARAM3,QARGSTR,QUIPATOMTYPE)1274: !           CALL OPTIM_QUIP_WRAPPER(NATOMS,COORDS,VNEW,ENERGY,PARAM1,PARAM2,PARAM3,QARGSTR,QUIPATOMTYPE)
 1275:             PRINT *,'in potential before OPTIM_QUIP_WRAPPER'
1275:             CALL OPTIM_QUIP_WRAPPER(NATOMS,COORDS,VNEW,ENERGY,PARAM1,PARAM2,PARAM3)1276:             CALL OPTIM_QUIP_WRAPPER(NATOMS,COORDS,VNEW,ENERGY,PARAM1,PARAM2,PARAM3)
 1277:             PRINT *,'in potential after OPTIM_QUIP_WRAPPER'
1276:             IF (PTEST) THEN1278:             IF (PTEST) THEN
1277:                WRITE(*,10) ' potential> Energy for last cycle=',ENERGY,' eV'1279:                WRITE(*,10) ' potential> Energy for last cycle=',ENERGY,' eV'
1278:                WRITE(ESTRING,10) 'Energy for last cycle=',ENERGY,' eV'1280:                WRITE(ESTRING,10) 'Energy for last cycle=',ENERGY,' eV'
1279:             ENDIF1281:             ENDIF
1280:          ELSE IF (ZSYM(NATOMS).EQ.'JC') THEN1282:          ELSE IF (ZSYM(NATOMS).EQ.'JC') THEN
1281:             CALL JMEC(NATOMS, COORDS, P2, P3, VNEW,ENERGY, PARAM4,GTEST,SSTEST)1283:             CALL JMEC(NATOMS, COORDS, P2, P3, VNEW,ENERGY, PARAM4,GTEST,SSTEST)
1282:             IF (PV) ENERGY=ENERGY+PRESS*PARAM1*PARAM2*PARAM31284:             IF (PV) ENERGY=ENERGY+PRESS*PARAM1*PARAM2*PARAM3
1283:             WRITE(*,10) ' potential> Energy for last cycle=',ENERGY,' eV'1285:             WRITE(*,10) ' potential> Energy for last cycle=',ENERGY,' eV'
1284:             WRITE(ESTRING,10) 'Energy for last cycle=',ENERGY,' eV'1286:             WRITE(ESTRING,10) 'Energy for last cycle=',ENERGY,' eV'
1285:             WRITE(*,10) 'Two-body contribution=',P2,' eV'1287:             WRITE(*,10) 'Two-body contribution=',P2,' eV'


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0