Minor updates

chtheodoro · Jan 19, 2020 · 4c919b6 · 4c919b6
1 parent 473c3da
commit 4c919b6
Show file tree

Hide file tree

Showing 5 changed files with 397 additions and 383 deletions.
diff --git a/habfuzz/habfuzz.exe b/habfuzz/habfuzz.exe
diff --git a/habfuzz/habfuzz.f95 b/habfuzz/habfuzz.f95
@@ -449,10 +449,14 @@ program habfuzz
 habc=anint((sum(habcon)/sum(gwet))*100)
 haba=anint((sum(habcon)/ee)*100)
 
+if (cross .ne. 3) then
 open (unit=39, file='bmatrix.txt', status='old', action='read')
 close (39, status='delete')
+else
+goto 599
+end if
 
-open (unit=59, file='amatrix.txt', status='old', action='read')
+599 open (unit=59, file='amatrix.txt', status='old', action='read')
 close (59, status='delete')
 
 write(*,*) ' '