Skip to content

Commit

Permalink
removed debug print
Browse files Browse the repository at this point in the history
  • Loading branch information
laynep committed Sep 8, 2012
1 parent 267355d commit c362977
Showing 1 changed file with 0 additions and 8 deletions.
8 changes: 0 additions & 8 deletions boxcountdriver.f90
Original file line number Diff line number Diff line change
Expand Up @@ -25,10 +25,6 @@ PROGRAM boxcountdriver
doi1: DO i=1,length_s+1
check = check + 1
READ(20,END=10) (success(i,j), j=1,width_s)
IF (mod(check,1000000)==0) THEN
PRINT*, "SUCCESS",check
PRINT*, (success(i,j),j=1,width_s)
END IF
IF(check==SIZE(success,1)) EXIT doi1
END DO doi1

Expand All @@ -38,10 +34,6 @@ PROGRAM boxcountdriver
doi2: DO i=1,length_f+1
check = check + 1
READ(21,END=20) (fail(i,j),j=1,width_f)
IF (mod(check,1000000)==0) THEN
PRINT*, "FAIL",check
PRINT*, (fail(i,j),j=1,width_f)
END IF
IF(check==SIZE(fail,1)) EXIT doi2
END DO doi2

Expand Down

0 comments on commit c362977

Please sign in to comment.