add and use the workspace

Makefile

@@ -11,17 +11,29 @@ genplotting.o:	genplotting.f90 Makefile
 starfield:	starfield.f90 Makefile genplotting.o
 	gfortran -Wall $< genplotting.o -o $@
 
+starfield.png:	starfield Makefile
+	./starfield
+	genplot2 -s 512x512 WS/starfield.scratch a.tga
+	convert a.tga $@
+
+# -----------------------------------------------
+
 randomwalk:	randomwalk.f90 Makefile genplotting.o
 	gfortran -Wall $< genplotting.o -o $@
 
+randomwalk.png:	randomwalk Makefile
+	./randomwalk
+	genplot2 -s 512x512 WS/randomwalk.scratch a.tga
+	convert a.tga $@
+
 # -----------------------------------------------
 
 spirale:	spirale.f90 Makefile genplotting.o
 	gfortran -Wall $< genplotting.o -o $@
 
 spirale.png:	spirale Makefile
-	./spirale > s.scratch
-	genplot2 -s 512x512 s.scratch a.tga
+	./spirale
+	genplot2 -s 512x512 WS/spirale.scratch a.tga
 	convert a.tga $@
 
 # -----------------------------------------------

WS/README.md

@@ -0,0 +1,3 @@
+# This is the work space.
+
+Used to store work files, like `a.scratch` plotting directives.

genplotting.f90

@@ -20,6 +20,11 @@ subroutine genp_init (foo, fname)
   integer, intent(in)             :: foo
   character (len=*), intent(in)   :: fname
 
+  if (FOO .NE. 0)   THEN
+    WRITE(0, '("FOO .NE. 0")')
+    CALL EXIT(1) 
+  END IF
+
   outunit = 6          ! stdout
   if (len(fname) .gt. 0) then
     write (0, '("genplot init opening : ", A)') fname

randomwalk.f90

@@ -10,7 +10,7 @@ program randomwalk
 
   write (0, '(A)') "----[ genplotting randomwalk ]----"
   call srand(time())
-  call genp_init (0, 'randomwalk.scratch')
+  call genp_init (0, 'WS/randomwalk.scratch')
   do foo=1, 51
     col = 2 + mod(foo, 4)
     call do_randomwalk(42, col)

spirale.f90

@@ -8,7 +8,7 @@ program spirale
 
   write (0, '(A)') "----[ genplotting spirale ]----"
 
-  call genp_init (0, 's.scratch')
+  call genp_init (0, 'WS/spirale.scratch')
   call do_spirale (1337, 0.51, 0.0666, 0.7)
   call genp_end (0)
 

starfield.f90

@@ -5,7 +5,7 @@ program starfield
   use genplotting
   implicit none
   write (0, '(A)') "----[ genplotting starfield ]----"
-  call genp_init (0, 'starfield.scratch')
+  call genp_init (0, 'WS/starfield.scratch')
   call do_starfield (451)
   call genp_end (0)
 contains