hdiff output

r31893/takestep.f 2017-02-08 14:30:09.596172154 +0000 r31892/takestep.f 2017-02-08 14:30:09.828175263 +0000
 70:  70: 
 71: !     IF (CENT.AND.(.NOT.SEEDT)) CALL CENTRE2(COORDS(1:3*NATOMS,NP)) ! COORDS might have been shifted by symmetry 71: !     IF (CENT.AND.(.NOT.SEEDT)) CALL CENTRE2(COORDS(1:3*NATOMS,NP)) ! COORDS might have been shifted by symmetry
 72:       IF ((.NOT.NORESET).AND.(.NOT.PERMOPT).AND.(.NOT.DIFFRACTT).AND.(.NOT.BLNT).AND.(.NOT.PERIODIC)  72:       IF ((.NOT.NORESET).AND.(.NOT.PERMOPT).AND.(.NOT.DIFFRACTT).AND.(.NOT.BLNT).AND.(.NOT.PERIODIC) 
 73:      &   .AND.(.NOT.PERMINVOPT).AND.(.NOT.QCIPOTT).AND.(.NOT.MLP3T).AND.(.NOT.MLQT).AND.(.NOT.MKTRAPT).AND.(.NOT.MLPB3T) 73:      &   .AND.(.NOT.PERMINVOPT).AND.(.NOT.QCIPOTT).AND.(.NOT.MLP3T).AND.(.NOT.MLQT).AND.(.NOT.MKTRAPT).AND.(.NOT.MLPB3T)
 74:      &   .AND.(.NOT.GAUSST).AND.(.NOT.(CSMT.AND.(.NOT.SYMMETRIZECSM))).AND.(.NOT.PERCOLATET) 74:      &   .AND.(.NOT.GAUSST).AND.(.NOT.(CSMT.AND.(.NOT.SYMMETRIZECSM))).AND.(.NOT.PERCOLATET)
 75:      &   .AND.(.NOT.MLPVB3T)) THEN 75:      &   .AND.(.NOT.MLPVB3T)) THEN
 76: ! 76: !
 77: !        csw34> CHECK NOTHING HAS MOVED OUTSIDE THE CONTAINER RADIUS  77: !        csw34> CHECK NOTHING HAS MOVED OUTSIDE THE CONTAINER RADIUS 
 78: ! 78: !
 79:          DO J1=1,NATOMS 79:          DO J1=1,NATOMS
 80:             IF ((.NOT.(RIGID.OR.RIGIDINIT)).OR.(J1.LE.NATOMS/2)) THEN 80:             IF ((.NOT.RIGID).OR.(J1.LE.NATOMS/2)) THEN
 81:                J2=3*J1 81:                J2=3*J1
 82:                DUMMY2=COORDS(J2-2,NP)**2+COORDS(J2-1,NP)**2+COORDS(J2,NP)**2 82:                DUMMY2=COORDS(J2-2,NP)**2+COORDS(J2-1,NP)**2+COORDS(J2,NP)**2
 83:                IF (DUMMY2.GT.RADIUS) THEN 83:                IF (DUMMY2.GT.RADIUS) THEN
 84:                   IF (AMBERT) THEN ! jmc49 We don't really want a container at all in amber9, but this bit of code is being used  84:                   IF (AMBERT) THEN ! jmc49 We don't really want a container at all in amber9, but this bit of code is being used 
 85:                                    ! to warn about drift in, for instance, the amber-md. 85:                                    ! to warn about drift in, for instance, the amber-md.
 86:                      WRITE(MYUNIT,'(A,I5,5F20.10)')'J1,RAD,D2,x,y,z=',J1,RADIUS,DUMMY2,COORDS(J2-2,NP),COORDS(J2-1,NP),COORDS(J2,NP) 86:                      WRITE(MYUNIT,'(A,I5,5F20.10)')'J1,RAD,D2,x,y,z=',J1,RADIUS,DUMMY2,COORDS(J2-2,NP),COORDS(J2-1,NP),COORDS(J2,NP)
 87:                      WRITE(MYUNIT,'(A,I6)') 'WARNING initial coordinate outside container for particle ',J1 87:                      WRITE(MYUNIT,'(A,I6)') 'WARNING initial coordinate outside container for particle ',J1
 88:                      WRITE(MYUNIT,'(A)') 'NOT repositioning particle for AMBER9' 88:                      WRITE(MYUNIT,'(A)') 'NOT repositioning particle for AMBER9'
 89:                      CYCLE ! the 1, natoms do loop. 89:                      CYCLE ! the 1, natoms do loop.
 90:                   END IF 90:                   END IF


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0