hdiff output

r29358/persistence.f90 2015-11-17 23:34:17.645546058 +0000 r29357/persistence.f90 2015-11-17 23:34:17.841548669 +0000
103: LUNIT=GETUNIT()103: LUNIT=GETUNIT()
104: OPEN(LUNIT,FILE='min.include',STATUS='UNKNOWN')104: OPEN(LUNIT,FILE='min.include',STATUS='UNKNOWN')
105: WRITE(LUNIT,'(I6)') NGMIN105: WRITE(LUNIT,'(I6)') NGMIN
106: DO J1=1,NCONNECTED106: DO J1=1,NCONNECTED
107:    IF ((PEQ(MINID(J1)).GT.PEQTHRESH).AND.(EMIN(MINID(J1))+BARRIER(MINID(J1)).LT.TSTHRESH).AND.(XTEMP(J1).GT.PERTHRESH)) THEN107:    IF ((PEQ(MINID(J1)).GT.PEQTHRESH).AND.(EMIN(MINID(J1))+BARRIER(MINID(J1)).LT.TSTHRESH).AND.(XTEMP(J1).GT.PERTHRESH)) THEN
108:       WRITE(LUNIT,'(I6)') MINID(J1)108:       WRITE(LUNIT,'(I6)') MINID(J1)
109:    ENDIF109:    ENDIF
110: ENDDO110: ENDDO
111: CLOSE(LUNIT)111: CLOSE(LUNIT)
112: LUNIT=GETUNIT()112: LUNIT=GETUNIT()
113: OPEN(LUNIT,FILE='persist.trvalfile',STATUS='UNKNOWN')113: OPEN(LUNIT,FILE='trvalfile',STATUS='UNKNOWN')
114: DO J1=1,NMIN114: DO J1=1,NMIN
115:    IF ((PEQ(J1).GT.PEQTHRESH).AND.(BARRIER(J1).GT.(PERTHRESH*SQRT(2.0D0))).AND.(EMIN(J1)+BARRIER(J1).LT.TSTHRESH)) THEN 115:    IF ((PEQ(J1).GT.PEQTHRESH).AND.(BARRIER(J1).GT.(PERTHRESH*SQRT(2.0D0))).AND.(EMIN(J1)+BARRIER(J1).LT.TSTHRESH)) THEN 
116:      write(LUNIT,*) BARRIER(J1)116:      write(LUNIT,*) BARRIER(J1)
117:    else117:    else
118:      write(LUNIT,*) "-1.0"118:      write(LUNIT,*) "-1.0"
119:    endif119:    endif
120: ENDDO120: ENDDO
121: CLOSE(LUNIT)121: CLOSE(LUNIT)
122: 122: 
123: END SUBROUTINE PERSISTENCE123: END SUBROUTINE PERSISTENCE


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0