nap-time commit

genplotting.f90

@@ -11,16 +11,25 @@ module genplotting
   real      ::    xoffset, yoffset, xscale, yscale
   private   ::    xoffset, yoffset, xscale, yscale
 
-  integer   ::    outunit
+  real      ::    rotation
+  private   ::    rotation
+
+  integer   ::    outunit = 6
   private   ::    outunit
 
 contains
 ! ---------------------------------------------------------
+! the first parameter _must_ be 0.
+! the second can be
+!    - the name of a file for recoding plot instructions
+!  or
+!    - an empty string for send plot command to stdout
+!
 subroutine genp_init (foo, fname)
   integer, intent(in)             :: foo
   character (len=*), intent(in)   :: fname
 
-  if (FOO .NE. 0)   THEN
+  IF (FOO .NE. 0)   THEN
     WRITE(0, '("FOO .NE. 0")')
     CALL EXIT(1) 
   END IF
@@ -35,6 +44,8 @@ subroutine genp_init (foo, fname)
   ymin = 9e9       ;       ymax = -9e9
   xoffset = 0.0    ;       yoffset = 0.0
   xscale  = 0.0    ;       yscale  = 0.0
+  rotation = 0.0
+
 end subroutine
 ! ---------------------------------------------------------
 subroutine genp_set_offset(ox, oy)
@@ -76,6 +87,14 @@ subroutine genp_line(xa, ya, xb, yb, color)
   call genp_draw(xb, yb, color)
 end subroutine
 ! ---------------------------------------------------------
+subroutine plot_axes(amp)
+  real, intent(in)     :: amp
+  call genp_move(0.0, -amp)
+  call genp_draw(0.0,  amp, 7)
+  call genp_move(-amp, 0.0)
+  call genp_draw( amp, 0.0, 7)
+end subroutine
+! ---------------------------------------------------------
 subroutine genp_end (foo)
   integer, intent(in)    :: foo