hdiff output

r31221/commons.f90 2016-09-29 20:30:08.598057122 +0100 r31220/commons.f90 2016-09-29 20:30:09.102063899 +0100
 28:       DOUBLE PRECISION, ALLOCATABLE, DIMENSION(:) :: ATMASS !   MXATMS 28:       DOUBLE PRECISION, ALLOCATABLE, DIMENSION(:) :: ATMASS !   MXATMS
 29:       DOUBLE PRECISION, ALLOCATABLE, DIMENSION(:) :: STPMAX ! 3*MXATMS 29:       DOUBLE PRECISION, ALLOCATABLE, DIMENSION(:) :: STPMAX ! 3*MXATMS
 30:       CHARACTER(LEN=5), ALLOCATABLE, DIMENSION(:) :: ZSYM   !   MXATMS 30:       CHARACTER(LEN=5), ALLOCATABLE, DIMENSION(:) :: ZSYM   !   MXATMS
 31:       DOUBLE PRECISION, ALLOCATABLE :: TAGFAC(:) 31:       DOUBLE PRECISION, ALLOCATABLE :: TAGFAC(:)
 32:       DOUBLE PRECISION, ALLOCATABLE :: RBSITE(:,:), RBSTLA(:,:), STCHRG(:), DPMU(:) 32:       DOUBLE PRECISION, ALLOCATABLE :: RBSITE(:,:), RBSTLA(:,:), STCHRG(:), DPMU(:)
 33:       INTEGER, ALLOCATABLE :: TAGNUM(:) 33:       INTEGER, ALLOCATABLE :: TAGNUM(:)
 34:       INTEGER NTAG 34:       INTEGER NTAG
 35:       LOGICAL TAGT, CHANGE_TEMP, PERCT 35:       LOGICAL TAGT, CHANGE_TEMP, PERCT
 36:       DOUBLE PRECISION, PARAMETER :: numberPI=3.141592653589793115997963468544185162d0 !DACOS(-1.D0) 36:       DOUBLE PRECISION, PARAMETER :: numberPI=3.141592653589793115997963468544185162d0 !DACOS(-1.D0)
 37:       integer, parameter :: rk = kind(1.d0) ! read kind 37:       integer, parameter :: rk = kind(1.d0) ! read kind
  38:       DOUBLE PRECISION, ALLOCATABLE, DIMENSION(:) :: STEP ! dimension will be NPAR
 38:  39: 
 39: END MODULE COMMONS 40: END MODULE COMMONS


r31221/modamber9.f90 2016-09-29 20:30:08.850060510 +0100 r31220/modamber9.f90 2016-09-29 20:30:09.358067338 +0100
391: INTEGER, ALLOCATABLE          :: AMBER9_ANGLES_ALL(:, :)391: INTEGER, ALLOCATABLE          :: AMBER9_ANGLES_ALL(:, :)
392: INTEGER, ALLOCATABLE          :: AMBER9_DIHEDRALS_INC_HYDROGEN(:, :)392: INTEGER, ALLOCATABLE          :: AMBER9_DIHEDRALS_INC_HYDROGEN(:, :)
393: INTEGER, ALLOCATABLE          :: AMBER9_DIHEDRALS_WITHOUT_HYDROGEN(:, :)393: INTEGER, ALLOCATABLE          :: AMBER9_DIHEDRALS_WITHOUT_HYDROGEN(:, :)
394: INTEGER, ALLOCATABLE          :: AMBER9_DIHEDRALS_ALL(:, :)394: INTEGER, ALLOCATABLE          :: AMBER9_DIHEDRALS_ALL(:, :)
395: 395: 
396: ! variables for macroions396: ! variables for macroions
397: 397: 
398: LOGICAL                       :: MACROIONT398: LOGICAL                       :: MACROIONT
399: INTEGER                       :: nmacroions399: INTEGER                       :: nmacroions
400: DOUBLE PRECISION              :: macroiondist400: DOUBLE PRECISION              :: macroiondist
401: DOUBLE PRECISION, ALLOCATABLE, DIMENSION(:) :: STEP ! dimension will be NPAR401: 
402: 402: 
403: END MODULE MODAMBER9 403: END MODULE MODAMBER9 
404: 404: 
405: SUBROUTINE PERC ! we are calling PERC from within TAKESTEPAMBER in GMIN, so we need a placeholder for OPTIM405: SUBROUTINE PERC ! we are calling PERC from within TAKESTEPAMBER in GMIN, so we need a placeholder for OPTIM
406: use commons, only : PERCT, PERCCUT406: use commons, only : PERCT, PERCCUT
407: 407: 
408: WRITE(*,*) 'This subroutine should not be called from OPTIM!'408: WRITE(*,*) 'This subroutine should not be called from OPTIM!'
409: 409: 
410: END SUBROUTINE PERC410: END SUBROUTINE PERC


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0