hdiff output

r31433/genrigid.f90 2017-01-21 10:35:39.126250000 +0000 r31432/genrigid.f90 2017-01-21 10:35:39.578250000 +0000
294:   OPEN(UNIT = 28, FILE = 'coordsinirigid', STATUS = 'OLD')294:   OPEN(UNIT = 28, FILE = 'coordsinirigid', STATUS = 'OLD')
295:   DO J1 = 1, NATOMS295:   DO J1 = 1, NATOMS
296:      READ(28, *) INICOORDS(3*J1-2), INICOORDS(3*J1-1), INICOORDS(3*J1)296:      READ(28, *) INICOORDS(3*J1-2), INICOORDS(3*J1-1), INICOORDS(3*J1)
297:   ENDDO297:   ENDDO
298:   CLOSE(UNIT = 28)298:   CLOSE(UNIT = 28)
299: ! hk286 > determine no of rigid bodies299: ! hk286 > determine no of rigid bodies
300:   NRIGIDBODY=0300:   NRIGIDBODY=0
301:   OPEN(UNIT=222,FILE='rbodyconfig',status='old')301:   OPEN(UNIT=222,FILE='rbodyconfig',status='old')
302:   DO302:   DO
303:      READ(222,*,IOSTAT=iostatus) CHECK1303:      READ(222,*,IOSTAT=iostatus) CHECK1
304:      CALL UPPERCASE(CHECK1) 
305:      IF (iostatus<0) THEN304:      IF (iostatus<0) THEN
306:         CLOSE(222)305:         CLOSE(222)
307:         EXIT306:         EXIT
308:      ELSE IF (TRIM(ADJUSTL(CHECK1)).EQ.'GROUP') then307:      ELSE IF (TRIM(ADJUSTL(CHECK1)).EQ.'GROUP') then
309:         NRIGIDBODY=NRIGIDBODY+1308:         NRIGIDBODY=NRIGIDBODY+1
310:      ENDIF309:      ENDIF
311:   END DO310:   END DO
312:   CLOSE(222)311:   CLOSE(222)
313: ! hk286 > determine maximum no of rigid body sites312: ! hk286 > determine maximum no of rigid body sites
314:   MAXSITE = 0313:   MAXSITE = 0


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0