hdiff output

r31464/keywords.f 2016-11-07 16:30:18.215495703 +0000 r31463/keywords.f 2016-11-07 16:30:18.535499974 +0000
2887: 2887: 
2888:                ! 2888:                ! 
2889:                ! csw34> Otherwise, check to see if atoms specified in 'frozen' file2889:                ! csw34> Otherwise, check to see if atoms specified in 'frozen' file
2890:                ! 2890:                ! 
2891:                INQUIRE(FILE='frozen',EXIST=YESNO)2891:                INQUIRE(FILE='frozen',EXIST=YESNO)
2892:                IF (YESNO) THEN2892:                IF (YESNO) THEN
2893:                   FUNIT=GETUNIT()2893:                   FUNIT=GETUNIT()
2894:                   OPEN(FUNIT,FILE='frozen',STATUS='OLD')2894:                   OPEN(FUNIT,FILE='frozen',STATUS='OLD')
2895:                   READ(FUNIT,*) NFREEZE2895:                   READ(FUNIT,*) NFREEZE
2896:                   DO J1=1,NFREEZE2896:                   DO J1=1,NFREEZE
2897:                      READ(FUNIT,*) NDUM2897:                      READ(FUNIT,*) FROZEN(J1)
2898:                      FROZEN(NDUM)=.TRUE. 
2899:                   ENDDO2898:                   ENDDO
2900:                   ! 2899:                   ! 
2901:                   ! csw34> If neither, FREEZE used incorrectly - STOP2900:                   ! csw34> If neither, FREEZE used incorrectly - STOP
2902:                   ! 2901:                   ! 
2903:                ELSE2902:                ELSE
2904:                   WRITE (*,'(A)') ' ERROR: FREEZE specified incorrectly'2903:                   WRITE (*,'(A)') ' ERROR: FREEZE specified incorrectly'
2905:                   STOP2904:                   STOP
2906:                ENDIF2905:                ENDIF
2907:             ENDIF2906:             ENDIF
2908: 2907: 


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0