hdiff output

r31205/commons.f90 2016-09-26 17:30:08.837830182 +0100 r31204/commons.f90 2016-09-26 17:30:09.325836695 +0100
 13: !   GNU General Public License for more details. 13: !   GNU General Public License for more details.
 14: !    14: !   
 15: !   You should have received a copy of the GNU General Public License 15: !   You should have received a copy of the GNU General Public License
 16: !   along with this program; if not, write to the Free Software 16: !   along with this program; if not, write to the Free Software
 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 COMMONS 19: MODULE COMMONS
 20:       IMPLICIT NONE 20:       IMPLICIT NONE
 21:  21: 
 22:       INTEGER :: NATOMS, ISTATUS, NUNIQUE, NOPT, IPRNT, INR, IVEC, IVEC2, ISTCRT, NMOL, NINTS, NRBSITES 22:       INTEGER :: NATOMS, ISTATUS, NUNIQUE, NOPT, IPRNT, INR, IVEC, IVEC2, ISTCRT, NMOL, NINTS, NRBSITES
 23:       DOUBLE PRECISION :: ZSTAR, RHO, EVDISTTHRESH, NEWRES_TEMP, PERCCUT 23:       DOUBLE PRECISION :: ZSTAR, RHO, EVDISTTHRESH, NEWRES_TEMP
 24:       DOUBLE PRECISION :: PARAM1=0.0D0, PARAM2=0.0D0, PARAM3=0.0D0, PARAM4=0.0D0, PARAM5=0.0D0, PARAM6=0.0D0, PARAM7=0.0D0 24:       DOUBLE PRECISION :: PARAM1=0.0D0, PARAM2=0.0D0, PARAM3=0.0D0, PARAM4=0.0D0, PARAM5=0.0D0, PARAM6=0.0D0, PARAM7=0.0D0
 25:       LOGICAL REDOPATH, REDOPATHXYZ, RATIOS, REDOPATHNEB, MPIT, DEBUG 25:       LOGICAL REDOPATH, REDOPATHXYZ, RATIOS, REDOPATHNEB, MPIT, DEBUG
 26:  26: 
 27:       INTEGER, ALLOCATABLE, DIMENSION(:) :: NR, IATNUM      !   MXATMS 27:       INTEGER, ALLOCATABLE, DIMENSION(:) :: NR, IATNUM      !   MXATMS
 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
 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: END MODULE COMMONS 38: END MODULE COMMONS


r31205/modamber9.f90 2016-09-26 17:30:09.081833451 +0100 r31204/modamber9.f90 2016-09-26 17:30:09.601840384 +0100
386: INTEGER, ALLOCATABLE          :: AMBER9_BONDS_INC_HYDROGEN(:, :)386: INTEGER, ALLOCATABLE          :: AMBER9_BONDS_INC_HYDROGEN(:, :)
387: INTEGER, ALLOCATABLE          :: AMBER9_BONDS_WITHOUT_HYDROGEN(:, :)387: INTEGER, ALLOCATABLE          :: AMBER9_BONDS_WITHOUT_HYDROGEN(:, :)
388: INTEGER, ALLOCATABLE          :: AMBER9_BONDS_ALL(:, :)388: INTEGER, ALLOCATABLE          :: AMBER9_BONDS_ALL(:, :)
389: INTEGER, ALLOCATABLE          :: AMBER9_ANGLES_INC_HYDROGEN(:, :)389: INTEGER, ALLOCATABLE          :: AMBER9_ANGLES_INC_HYDROGEN(:, :)
390: INTEGER, ALLOCATABLE          :: AMBER9_ANGLES_WITHOUT_HYDROGEN(:, :)390: INTEGER, ALLOCATABLE          :: AMBER9_ANGLES_WITHOUT_HYDROGEN(:, :)
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 macroions 
397:  
398: LOGICAL                       :: MACROIONT 
399: INTEGER                       :: nmacroions 
400: DOUBLE PRECISION              :: macroiondist 
401:  
402:  
403: END MODULE MODAMBER9 396: END MODULE MODAMBER9 
404: 397: 
405: SUBROUTINE PERC ! we are calling PERC from within TAKESTEPAMBER in GMIN, so we need a placeholder for OPTIM 
406: use commons, only : PERCT, PERCCUT 
407:  
408: WRITE(*,*) 'This subroutine should not be called from OPTIM!' 
409:  
410: END SUBROUTINE PERC 


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0