next up previous contents index
Next: SUBROUTINE SPLOTS Up: MASTER Subroutines Previous: SUBROUTINE SCATPL

SUBROUTINE SEISPL

   SEISPL allows for plotting data in the special formats often used in seismic data processing using  log and/or  linear axis scaling. Appropriate axes and plot titles may be included. The plotting format may be selected by the value of ntype. Possible plotting formats include: multiple "shaded" waveforms, connected lines, vertical line plots, etc. Each line may be offset from the previous line by a specified value for presentation on the plot (z array). A line may be added to indicate the zero value, etc. If nl=1 then the x and y arrays may be 1d arrays.

CALL SEISPL(x,y,z,nld,npd,nl,np,iflag,ntype,size,zref,xl,yl,
                xt,nxt,yt,nyt,t,nt,<xm,xx,ym,yx<,ic>>)

x     (R): array of x values dimensioned x(npd)
y     (R): array of y values dimensioned y(npd,nld)
z     (R): array of y-offset values dimensioned z(nl).  Y value is
           offset by the z value before plotting.  When using log
           plotting note that offset occurs after taking logs.
nld   (I): dimension of y array
npd   (I): dimension of x,y arrays
nl    (I): number of lines plotted (if nl=1, x,y may be 1d arrays)
np    (I): number of data points to plot per line
iflag (I): option flag
           < 0 : do not close LONGLIB after plotting
           = 0 : close LONGLIB--no plot produced
           > 0 : close LONGLIB after plotting
 (magnitude) > 10000 : do not initialize LONGLIB before plotting
   (1's digit)  = 1 : plot x linear, y logarithmic (base 10)
                = 2 : plot x logarithmic, y linear
                = 3 : plot x logarithmic, y logarithmic
                = 4 : plot x linear, y linear
   (10's digit) = 0 : no axes or title plotted
                = 1 : axes with axis line/ticks on top and sides
                = 2 : plot solid cartesian grid
                = 3 : plot ticked cartesian grid without box
                = 4 : plot ticked cartesian grid with box
                = 5 : plot ticked cartesian grid, box w/axis ticks
                = 6 : plot without box or cartesian grid
                = 7 : plot solid logarithmic grid
                = 8 : plot dotted logarithmic grid
                = 9 : plot ticked logarithmic grid
   (100's)      = 0 : Ask which screen device to use
               <> 0 : Screen Device Number (see FRAME)
ntype (I): plot format control
          < 0 : line with zref plotted
          = 0 : symbols only 
          > 0 : line without zref plotted
 (magnitude) =  1 : symbols only plotted
             =  2 : points only plotted 
             =  3 : connected points plotted
             =  4 : vertical lines from points to zref line plotted
             =  5 : vertical lines plus symbol at point plotted
             =  6 : vertical lines and connected points plotted
             =  7 : connected points and lines on + side of zref
             =  8 : connected points and lines on - side of zref
             =  9 : area between connected points and zref filled
             = 10 : positive area filled
             = 11 : negative area filled
size  (R): size of symbols (ntype : 0,1,4)
           spacing between area fill lines (ntype : 9,10,11)
           < 0 : indicates center line to be dotted
           > 0 : indicates center line solid (if plotted)
zref  (R): offset added to all z values
xl    (R): x axis length in inches
           < 0 : use input scaling in xm,xx
           > 0 : use auto scaling computed from input array
yl    (R): y axis length in inches
           < 0 : use input scaling in ym,yx
           > 0 : use auto scaling computed from input array
xt    (C): x axis title string
nxt   (I): number of characters in xt
           < 0 : axis ticks on top of x axis
           = 0 : no axis
           > 0 : axis ticks on bottom of x axis (normal)
yt    (C): y axis title string
nyt   (I): number of characters in yt
           < 0 : axis ticks on right of y axis
           = 0 : no axis
           > 0 : axis ticks on left of y axis (normal)
t     (C): plot title string
nt    (I): number of characters in t
           < 0 : use color array
           = 0 : no title
           > 0 : do not use color array
xm    (R): minimum value of x array (accessed if xl or nt < 0)
xx    (R): maximum value of x array (accessed if xl or nt < 0)
ym    (R): minimum value of y array (accessed if xl,yl or nt<0)
yx    (R): maximum value of y array (accessed if xl,yl or nt<0)
(NOTE: color array accessed if nt < 0)
ic    (I): color array
           ic(1) : color for grid
           ic(2) : color for axis lines
           ic(3) : color for axis numbers
           ic(4) : color for axis titles
           ic(5) : color for axis exponents
           ic(6) : color for title (return)
           ic(7) : color for plotted line 1
           ic(8) : color for plotted line 2
           ic(9) :    etc.

common /cseispl/xmr,dxr,ymr,dyr

xmr   (R): returned value of xmin
dxr   (R): returned value of scale factor (xmax-xmin)/xlen
ymr   (R): returned value of ymin
dyr   (R): returned value of scale factor (ymax-ymin)/ylen



David Long
Wed Jun 12 10:34:11 MDT 1996