hdiff output

r29356/persistence.f90 2015-11-17 23:34:22.169606717 +0000 r29355/persistence.f90 2015-11-17 23:34:22.361609281 +0000
102: CLOSE(LUNIT)102: CLOSE(LUNIT)
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() 
113: OPEN(LUNIT,FILE='trvalfile',STATUS='UNKNOWN') 
114: 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  
116:      write(LUNIT,*) BARRIER(J1) 
117:    else 
118:      write(LUNIT,*) "-1.0" 
119:    endif 
120: ENDDO 
121: CLOSE(LUNIT) 
122: 112: 
123: END SUBROUTINE PERSISTENCE113: END SUBROUTINE PERSISTENCE


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0