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