hdiff output

r30555/genrigid.f90 2016-06-03 19:30:15.634709505 +0100 r30554/genrigid.f90 2016-06-03 19:30:15.870712541 +0100
328:     ELSE IF (SIZE(ATMASS) .NE. NATOMS) THEN328:     ELSE IF (SIZE(ATMASS) .NE. NATOMS) THEN
329:         WRITE(*,*) "genrigid> problem: ATMASS has been allocated with the wrong number of atoms: ", &329:         WRITE(*,*) "genrigid> problem: ATMASS has been allocated with the wrong number of atoms: ", &
330:             & SIZE(ATMASS)330:             & SIZE(ATMASS)
331:         STOP331:         STOP
332:     ENDIF332:     ENDIF
333:     DO J1 = 1,NATOMS333:     DO J1 = 1,NATOMS
334:         READ(222,*) CHECK1, ATMASS(J1)334:         READ(222,*) CHECK1, ATMASS(J1)
335:     ENDDO335:     ENDDO
336:     CLOSE(222)336:     CLOSE(222)
337:   ELSE337:   ELSE
338:     IF(DEBUG .AND. .NOT.(ALLOCATED(ATMASS1).OR.AMBER12T)) WRITE(*,*) "genrigid> No file 'mass': assuming all atoms have mass = 1."338:     IF(DEBUG) WRITE(*,*) "genrigid> No file 'mass': assuming all atoms have mass = 1."
339:   ENDIF339:   ENDIF
340: 340: 
341: !  vr274> Calling function for allocation to make more general (setup rigid bodies from code)341: !  vr274> Calling function for allocation to make more general (setup rigid bodies from code)
342:   CALL GENRIGID_ALLOCATE(NRIGIDBODY,MAXSITE)342:   CALL GENRIGID_ALLOCATE(NRIGIDBODY,MAXSITE)
343: ! hk286 > initialise SITESRIGIDBODY, RIGIDGROUPS, RIGIDSINGLES 343: ! hk286 > initialise SITESRIGIDBODY, RIGIDGROUPS, RIGIDSINGLES 
344:   OPEN(UNIT=222,FILE='rbodyconfig',status='unknown')344:   OPEN(UNIT=222,FILE='rbodyconfig',status='unknown')
345:   DO J1 = 1, NRIGIDBODY345:   DO J1 = 1, NRIGIDBODY
346:      READ(222,*) CHECK1, NSITEPERBODY(J1)346:      READ(222,*) CHECK1, NSITEPERBODY(J1)
347:      DO J2 = 1, NSITEPERBODY(J1)347:      DO J2 = 1, NSITEPERBODY(J1)
348:         READ(222,*) RIGIDGROUPS(J2,J1)348:         READ(222,*) RIGIDGROUPS(J2,J1)


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0