fortran: set writeunit before opening file

LLNL · Apr 15, 2019 · 691610e · 691610e
1 parent 2858231
commit 691610e
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/examples/src/writeread.f90 b/examples/src/writeread.f90
@@ -41,6 +41,7 @@ program write_read_F
 	forall(i=1:ni,j=1:nj,k=1:nk) &
 	 W1(i,j,k) = nodeoff*mynod+i+ni*(j-1+nj*(k-1))
 
+	writeunit = mynod
 	open(unit=writeunit,file=fname,form='unformatted',action='write')
 
 	write(writeunit,iostat=ios) W1