hdiff output

r31443/genrigid.f90 2016-11-04 11:30:20.134175064 +0000 r31442/genrigid.f90 2016-11-04 11:30:20.442179210 +0000
349:   DO J1 = 1, NATOMS349:   DO J1 = 1, NATOMS
350:      READ(28, *) INICOORDS(3*J1-2), INICOORDS(3*J1-1), INICOORDS(3*J1)350:      READ(28, *) INICOORDS(3*J1-2), INICOORDS(3*J1-1), INICOORDS(3*J1)
351:   ENDDO351:   ENDDO
352:   CLOSE(UNIT = 28)352:   CLOSE(UNIT = 28)
353: 353: 
354: ! hk286 > determine no of rigid bodies354: ! hk286 > determine no of rigid bodies
355:   NRIGIDBODY=0355:   NRIGIDBODY=0
356:   OPEN(UNIT=222,FILE='rbodyconfig',status='old')356:   OPEN(UNIT=222,FILE='rbodyconfig',status='old')
357:   DO357:   DO
358:      READ(222,*,IOSTAT=iostatus) CHECK1358:      READ(222,*,IOSTAT=iostatus) CHECK1
359:      CALL MYUPCASE(CHECK1)359:      CALL UPPERCASE(CHECK1)
360:      IF (iostatus<0) THEN360:      IF (iostatus<0) THEN
361:         CLOSE(222)361:         CLOSE(222)
362:         EXIT362:         EXIT
363:      ELSE IF (TRIM(ADJUSTL(CHECK1)).EQ.'GROUP') then363:      ELSE IF (TRIM(ADJUSTL(CHECK1)).EQ.'GROUP') then
364:         NRIGIDBODY=NRIGIDBODY+1364:         NRIGIDBODY=NRIGIDBODY+1
365:      ENDIF365:      ENDIF
366:   END DO366:   END DO
367:   CLOSE(222)367:   CLOSE(222)
368:   368:   
369: ! hk286 > determine maximum no of rigid body sites369: ! hk286 > determine maximum no of rigid body sites


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0