hdiff output

r30230/finalio.f90 2016-04-05 15:30:27.501173532 +0100 r30229/finalio.f90 2016-04-05 15:30:27.697176133 +0100
763:               WRITE(MYUNIT2,'(A,3(1X,F20.10))',ADVANCE='NO') &763:               WRITE(MYUNIT2,'(A,3(1X,F20.10))',ADVANCE='NO') &
764:                    ATOM_TYPE,(P(J5), J5=1,3)764:                    ATOM_TYPE,(P(J5), J5=1,3)
765:               IF(STRESST) THEN ! Tack on local stresses765:               IF(STRESST) THEN ! Tack on local stresses
766:                  IF(STRESS_MODE==2) THEN766:                  IF(STRESS_MODE==2) THEN
767:                     ! Just print the uniqe elements of the stress767:                     ! Just print the uniqe elements of the stress
768:                     ! tensor768:                     ! tensor
769:                     WRITE(MYUNIT2,'(6(1X,F10.5))',ADVANCE='YES') &769:                     WRITE(MYUNIT2,'(6(1X,F10.5))',ADVANCE='YES') &
770:                          STRESS(J4,1,1),STRESS(J4,2,2),STRESS(J4,3,3),&770:                          STRESS(J4,1,1),STRESS(J4,2,2),STRESS(J4,3,3),&
771:                          STRESS(J4,1,2),STRESS(J4,1,3),STRESS(J4,2,3)771:                          STRESS(J4,1,2),STRESS(J4,1,3),STRESS(J4,2,3)
772:                  ELSEIF(STRESS_MODE==1) THEN772:                  ELSEIF(STRESS_MODE==1) THEN
773:                     WRITE(MYUNIT2,'(3(1X,F10.5))',ADVANCE='YES') &773:                     WRITE(MYUNIT2,'(2(1X,F10.5))',ADVANCE='YES') &
774:                          -(STRESS(J4,1,1)+STRESS(J4,2,2)+STRESS(J4,3,3))/3.0D0, &774:                          -(STRESS(J4,1,1)+STRESS(J4,2,2)+STRESS(J4,3,3))/3.0D0, &
775:                          DSQRT( (STRESS(J4,1,1)-STRESS(J4,2,2))**2 + &775:                          DSQRT( (STRESS(J4,1,1)-STRESS(J4,2,2))**2 + &
776:                          (STRESS(J4,2,2)-STRESS(J4,3,3))**2 + &776:                          (STRESS(J4,2,2)-STRESS(J4,3,3))**2 + &
777:                          (STRESS(J4,3,3)-STRESS(J4,1,1))**2 )/3.0D0, &777:                          (STRESS(J4,3,3)-STRESS(J4,1,1))**2 )/3.0D0
778:                          VT(J4) 
779:                  ELSE778:                  ELSE
780:                     WRITE(MYUNIT2,'(1X,F10.5)',ADVANCE='YES') &779:                     WRITE(MYUNIT2,'(1X,F10.5)',ADVANCE='YES') &
781:                          -(STRESS(0,1,1)+STRESS(0,2,2)+STRESS(0,3,3))/&780:                          -(STRESS(0,1,1)+STRESS(0,2,2)+STRESS(0,3,3))/&
782:                          DBLE(3*NATOMS)781:                          DBLE(3*NATOMS)
783:                  ENDIF782:                  ENDIF
784:               ELSE ! Just advance to next line783:               ELSE ! Just advance to next line
785:                  WRITE(MYUNIT2,*)784:                  WRITE(MYUNIT2,*)
786:               ENDIF785:               ENDIF
787:            ENDDO786:            ENDDO
788:         ENDDO787:         ENDDO


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0