hdiff output

r30560/genrigid.f90 2016-06-04 18:30:09.979379488 +0100 r30559/genrigid.f90 2016-06-04 18:30:10.199382420 +0100
266: 266: 
267: ! Compute the tensors of gyration and centres of mass for all bodies.267: ! Compute the tensors of gyration and centres of mass for all bodies.
268:   CALL SETUP_TENSORS()268:   CALL SETUP_TENSORS()
269: 269: 
270: END SUBROUTINE270: END SUBROUTINE
271: 271: 
272: !-----------------------------------------------------------272: !-----------------------------------------------------------
273: SUBROUTINE GENRIGID_READ_FROM_FILE ()273: SUBROUTINE GENRIGID_READ_FROM_FILE ()
274:       274:       
275:   USE COMMONS, ONLY: NATOMS, ATMASS, DEBUG275:   USE COMMONS, ONLY: NATOMS, ATMASS, DEBUG
276:   USE KEY, ONLY: AMBER12T 
277:   USE MODAMBER9, ONLY: ATMASS1 
278:   IMPLICIT NONE276:   IMPLICIT NONE
279: 277: 
280:   CHARACTER(LEN=10) CHECK1, CHECK2278:   CHARACTER(LEN=10) CHECK1, CHECK2
281:   INTEGER :: J1, J2, DUMMY, iostatus279:   INTEGER :: J1, J2, DUMMY, iostatus
282:   DOUBLE PRECISION :: INICOORDS(3*NATOMS)280:   DOUBLE PRECISION :: INICOORDS(3*NATOMS)
283: 281: 
284: ! hk286 > read atomistic coordinates282: ! hk286 > read atomistic coordinates
285: ! hk286 > in future, no need for separate coordsinirigid283: ! hk286 > in future, no need for separate coordsinirigid
286: ! hk286 > currently the input coords files vary for CHARMM, AMBER, and RIGID BODIES284: ! hk286 > currently the input coords files vary for CHARMM, AMBER, and RIGID BODIES
287:   IF (NATOMS == 0) THEN285:   IF (NATOMS == 0) THEN


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0