next up previous contents index
Next: SUBROUTINE HIST3D Up: MASTER Subroutines Previous: SUBROUTINE CVAX3DX

SUBROUTINE GLPLOT

 GLPLOT plots the curve defined in x,y with  log and/or  linear scaling including appropriate axes and plot title. Various options select the format of the axes plotting. This subroutine is designed to plot one or more y value curves simultaneously. This subroutine permits axis parameter flexibility (AXIS3) and dimensioning for y array. GLPLOT is a good general purpose plotting routine.

CALL GLPLOT(x,y,nld,npd,nl,np,iflag,isym,xl,yl,xt,xc,xf,xtitle,nxt,
                yt,yc,yf,ytitle,nyt,t,nt,<xm,xx,ym,yx<<,ic>,l>>)

x     (R): array of x values dimensioned at least x(np)
y     (R): array of y values dimensioned y(npd,nld)
nld   (I): dimension of y (number of lines dimensioned)
npd   (I): dimension of y (number of points dimensioned)
nl    (I): number of data lines to plot from y array
np    (I): number of points 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 digit) = 0 : Ask which screen device to use
                <> 0 : Screen Device Number (see FRAME)
isym  (I): plot a symbol every isym'th point
           < 0 : symbols only plotted, no line
           = 0 : no symbols, line only
           > 0 : symbol plotted every isym'th point
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    (R): x axis tick mark pattern (see AXIS3)
xc    (R): x axis character size
           < 0 auto exponent scaling (x10 to power) disabled
           > 0 auto exponent scaling (x10 to power) enabled
xf    (R): x axis number label format (see AXIS3)
xtitle(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    (R): y axis tick mark pattern (see AXIS3)
yc    (R): x axis character size
           < 0 auto exponent scaling (x10 to power) disabled
           > 0 auto exponent scaling (x10 to power) enabled
yf    (R): y axis number label format (see AXIS3)
ytitle(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 (limited to 99 characters)
nt    (I): number of characters in t
           < 0 : use color array
           = 0 : no title
           > 0 : do not use color array
           if |nt|/100 > 0 : use line type list
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 or |nt|/100 >0)
ic    (I): color list
           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 exponent
           ic(6) : color for title (return)
           ic(7) : color for plotted line 1
           ic(8) : color for plotted line 2
           ic(9) :    etc.
l     (I): line type of data lines list (accessed only if |nt|/100>0)

common /cglplot/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