preparing 3codes tutorial

ncanestrari · May 30, 2013 · 004bac8 · 004bac8
1 parent 2311622
commit 004bac8
Show file tree

Hide file tree

Showing 5 changed files with 383 additions and 441 deletions.
diff --git a/Makefile b/Makefile
@@ -257,7 +257,7 @@ clean:
 	/bin/rm -f version.txt
 	/bin/rm -f gen_source trace trace3 trace3mpi trace3_c trace3_cpp
 	/bin/rm -f shadow3$(EXE) example_shadow_format
-	/bin/rm -f example01_f95 example01_c example01_cpp 
+	/bin/rm -f example01_f95 example01_c example01_cpp example02_f95
 	/bin/rm -f example_standalone_mirror
 	/bin/rm -f shadow_version.h
 	/bin/rm -rf build *.pyc

diff --git a/example02_f95 b/example02_f95
diff --git a/shadow_beamio.F90 b/shadow_beamio.F90
@@ -185,6 +185,7 @@ subroutine rbeam (fname, ray, phase, ap, iErr)
  	 		case (13)
  	  			do i=1,NPOINT
  	    			read (unit=lun, iostat=iErr) (ray(j,i), j=1,12), phase(1,i)
+
             		if (iErr /= 0) then
        	    			iErr = 2
                 		print *, "RBEAM Error reading file: "//trim(fname)