hdiff output

r29866/finalio.f90 2016-03-16 18:33:42.955157432 +0000 r29865/finalio.f90 2016-03-16 18:33:43.163159567 +0000
385:                WRITE(ZSTR,'(I6)') J4385:                WRITE(ZSTR,'(I6)') J4
386:                ZSTR='L' // TRIM(ADJUSTL(ZSTR))386:                ZSTR='L' // TRIM(ADJUSTL(ZSTR))
387:                WRITE(MYUNIT2,'(A2,1X,3F20.10)') ZSTR,(P(J5),J5=1,3)387:                WRITE(MYUNIT2,'(A2,1X,3F20.10)') ZSTR,(P(J5),J5=1,3)
388:                J3=J3+1388:                J3=J3+1
389:                IF (J3.GT.NSPECIES(J4)) THEN389:                IF (J3.GT.NSPECIES(J4)) THEN
390:                   J3=1390:                   J3=1
391:                   J4=J4+1391:                   J4=J4+1
392:                ENDIF392:                ENDIF
393:             ENDDO393:             ENDDO
394:             !394:             !
395:          ELSE IF (BGUPTAT .AND. .NOT. QALCST .AND. .NOT. MULTIPERMT) THEN395:          ELSE IF (BGUPTAT .AND. .NOT. QALCST) THEN
396:             DO J2=1,NATOMS396:             DO J2=1,NATOMS
397:                 IF (J2.LE.NTYPEA) THEN397:                 IF (J2.LE.NTYPEA) THEN
398:                     WRITE(MYUNIT2,'(A,3F20.10)') BGUPTANAME1, (QMINP(J1,3*(J2-1)+J3),J3=1,3)398:                     WRITE(MYUNIT2,'(A,3F20.10)') BGUPTANAME1, (QMINP(J1,3*(J2-1)+J3),J3=1,3)
399:                 ELSE399:                 ELSE
400:                     WRITE(MYUNIT2,'(A,3F20.10)') BGUPTANAME2, (QMINP(J1,3*(J2-1)+J3),J3=1,3)400:                     WRITE(MYUNIT2,'(A,3F20.10)') BGUPTANAME2, (QMINP(J1,3*(J2-1)+J3),J3=1,3)
401:                 ENDIF401:                 ENDIF
402:             END DO402:             END DO
403: 403: 
404: 404: 
405:         ELSE IF (AMBER.OR.MOLECULART) THEN405:         ELSE IF (AMBER.OR.MOLECULART) THEN


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0