h17496
s 00015/00010/00132
d D 1.7 83/03/08 20:19:19 tes 7 6
c modified axis pipeline for integer calculations
e
s 00000/00000/00142
d D 1.6 83/03/07 02:35:07 mrk 6 5
c changed integer*1 to be integer*1
e
s 00009/00010/00133
d D 1.5 83/03/02 17:08:17 mrk 5 4
c screwed up last delta, this has changes
e
s 00000/00000/00143
d D 1.4 83/03/02 17:07:23 mrk 4 3
c changes to allow 16 pie slice attributes, remove 'ratio'
e
s 00000/00000/00143
d D 1.3 83/03/02 11:29:40 mrk 3 2
c no changes yet, need to remove the 'ratio' global
e
s 00044/00035/00099
d D 1.2 83/01/28 14:08:53 tes 2 1
c initial_internal_update
e
s 00134/00000/00000
d D 1.1 83/01/28 13:06:44 tes 1 0
c date and time created 83/01/28 13:06:44 by tes
e
u
tes
mjb
mrk
mmm
U
t
T
I 1
# GSS-PLOT common definitions
#
#   put on a file called PLTCOM

#   COMMON BLOCK PLTCOM
I 2
#      Current graph attributes
E 2
#
D 2
#      Tic and axis labeling information
#
E 2
#      natype(2) - x/y axis type (0=linear)
#      naxsts(2) - axis display status (0=not yet displayed)
D 2
#      nbarcp    - device bar capability flag
E 2
#      nbclst    - bar cluster count (1)
#      nbcolr    - bar fill color (1)
#      nbrdir    - bar and stack direction (0)
I 2
#      nbsclr    - base line color
#      nbastl    - base line line type
E 2
#      nbstat    - base line status
#      nbstyl    - bar fill style (0)
#      nclskt    - cluster kount (0)
#      ncount    - number of pending polyline vertices (0)
#      ndflgd    - legend area defined status (0)
D 2
#      nfill     - device area fill indication flag
E 2
#      nfont(5)  - character font index (1)
#      ngdclr(2) - x/y grid line color (1)
#      ngdstl(2) - x/y grid line style (1)
#      ngstat(2) - x/y grid status (0)
D 2
#      nhatch    - device hatch fill capability flag
E 2
#      njust(5)  - character justification (1)
#      nlbsts    - label point status (0)
#      nlcolr    - line color (1)
#      nlindx    - graph legend index (0)
#      nleged    - number of items in the legend
#      nlstyl    - line style (1)
#      nmajor    - number of major divisions (1)
#      nmcolr    - marker color (1)
#      nminor    - number of minor divisions (1)
#      nmstat    - marker status (0)
#      nmstyl    - marker style (1)
#      nperid    - period axis flag (0)
I 7
#      nplmin(2) - plotting area minimum in device coordinates
#      nplmax(2) - plotting area maximum in device coordinates
E 7
#      npltyp    - pie label type (0)
D 7
#      npnts(20) - vertice buffer (0-32k) space
E 7
I 7
#      npnts(22) - vertice buffer (0-32k) space
E 7
D 5
#      npslcc(15)- pie slice fill color (1)
#      npslcf(15)- pie slice fill pattern (0)
#      npslcj(15)- pie slice label justification (4)
#      npslcx(15)- pie slice explode flag (0)
E 5
I 5
#      npslcc(16)- pie slice fill color (1)
#      npslcf(16)- pie slice fill pattern (0)
#      npslcj(16)- pie slice label justification (4)
#      npslcx(16)- pie slice explode flag (0)
E 5
D 2
#      npxlx - x size of pixel in microns
#      npxly - y size of pixel in microns
E 2
#      nreal(2)  - x/y real/integer flag (0)
#      nrstat(2) - x/y range status (0)
#      nsstat(2) - x/y axis label start position status (0)
#      nstack    - stack status (0)
I 7
#      ntdist    - axis label distance along current axis (0)
#      ntstrt    - axis label end position in device space (0)
E 7
#      ntstat(2) - x/y tic status (1)
I 7
#      ntend     - axis label end position in device space (0)
E 7
#      ntxclr(5) - text color attribute (1)
D 2
#      ntxtrt    - device text rotation capability flag
#      nxrast    - number of rasters on x axis
#      nyrast    - number of rasters on y axis
E 2
#      txtjh     - current horizontal text justification
#      txtjv     - current vertical text justification
#      txtpre    - current text precision (1-string, 2-character)
#      nclip     - clipping indicator flag - 0-no, 1-yes
#      nbrcpf    - flag to indicate if device is capable of desired fill
#
D 5
#      ratio(2)
E 5
#      xvwmin    - Lower left of viewport in 32K space
#      yvwmin
#      xvwlng    - Length of viewport edge in 32K space
#      yvwlng
I 2
#      zbaswd    - base line width
E 2
#      zbrbas    - base line for bars (0.0)
#      zbrwid    - bar width (.04)
#      zchhgt    - current char height in NDC (0-1)
#      zchsiz    - current character size (0.0)
#      zchwdt    - current char width in NDC (0-1)
#      zdend(2)  - x/y axis data value passed by user for setting end
#                  position (0.0)
#      zdstrt(2) - x/y axis data value passed by user for setting start
#                  position (0.0)
#      zdx       - current character baseline components
#      zdy       - 
#      zlincr    - current tic label increment (1.0)
#      zlgxy(2)  - upper left corner of legend area (0.0)
#      zlwid     - line width (0.0)
#      zpend     - period ending value (0.0)
#      zplmin(2) - x/y plot minimum extents (defines edge of grid) (10.,5.)
#      zplmax(2) - x/y plot maximum extents (90.,90)
D 5
#      zpspos(30)- pie slice label positions (0.0)
E 5
I 5
#      zpspos(32)- pie slice label positions (0.0)
E 5
D 2
#      zpxlx     - width of an x pixel on the current device
#      zpxly     - heigth of a y pixel on the current device
E 2
#      zrend(2)  - x/y range end of data to be displayed (0.0)
#      zrstrt(2) - x/y range start of data to be diplayed (0.0)
D 7
#      ztdist(2) - x/y axis label distance between max and min (0.0)
#      ztend(2)  - x/y axis label end position in 0-100 space (0.0)
#      ztstrt(2) - x/y axis label start position in 0-100 space (0.0)
E 7
I 7
#      ztdist    - axis label distance between max and min (0.0)
#      ztstrt    - axis label start position in 0-100 space (0.0)
E 7
#      ztxsiz(5) - character size (1.0)
#      ztxrot(5) - character rotation (0.0)
#      zxabsl    - current x absolute cursor position (0-1) space
#      zyabsl    - current y absolute cursor position 
#      zxlspc    - legend x spacing (character width) (0.0)
#      zylspc    - legend y interline spacing (1.25*characterxheight) (0.0)
#      zytop     - top, bottem, left, and right globals for clipping
#      zybotm
#      zxrght
#      zxleft
D 2
#      zvxmin   -  Current viewport in 0-1 space
#      zvxmax
#      zvymin
#      zvymax
E 2
#
 
D 2
integer natype(2),naxsts(2),nbarcp,nbclst,nbcolr,nbrdir,nbstat,
        nbstyl,nclskt,ncount,ndflgd,nfill,nfont(5),ngdclr(2),
	ngdstl(2),ngstat(2),nhatch,njust(5),nlbsts,nlcolr,nleged,
E 2
I 2
integer natype(2),naxsts(2),nbclst,nbcolr,nbrdir,nbsclr,nbastl,
        nbstat,nbstyl,nclskt,ncount,ndflgd,nfont(5),ngdclr(2),
	ngdstl(2),ngstat(2),njust(5),nlbsts,nlcolr,nleged,
E 2
	nlindx,nlstyl,nmajor,nmcolr,nminor,nmstat,nmstyl,nperid,
D 5
	npltyp,npnts(20),npslcc(15),npslcf(15),npslcj(15),npslcx(15),
E 5
I 5
D 7
	npltyp,npnts(20),npslcc(16),npslcf(16),npslcj(16),npslcx(16),
E 5
D 2
	npxlx,npxly,nreal(2),nrstat(2),nsstat(2),nstack,ntstat(2),
	ntxclr(5),ntxtrt,nxrast,nyrast,txtjh,txtjv,txtpre,nclip,nbrcpf
E 2
I 2
	nreal(2),nrstat(2),nsstat(2),nstack,ntstat(2),
E 7
I 7
	nplmin(2), nplmax(2),
	npltyp,npnts(22),npslcc(16),npslcf(16),npslcj(16),npslcx(16),
	nreal(2),nrstat(2),nsstat(2),nstack,ntstat(2),ntdist,ntend,ntstrt,
E 7
	ntxclr(5),txtjh,txtjv,txtpre,nclip,nbrcpf
E 2
 
D 2
real    ratio(2),xvwmin,yvwmin,xvwlng,yvwlng,zbrbas,zbrwid,zchhgt,
E 2
I 2
D 5
real    ratio(2),xvwmin,yvwmin,xvwlng,yvwlng,zbaswd,zbrbas,zbrwid,zchhgt,
E 5
I 5
real    xvwmin,yvwmin,xvwlng,yvwlng,zbaswd,zbrbas,zbrwid,zchhgt,
E 5
E 2
	zchsiz,zchwdt,zdend(2),zdstrt(2),zdx,zdy,zlincr,zlgxy(2),
D 2
	zlwid,zpend,zplmin(2),zplmax(2),zpspos(30),zpxlx,zpxly,zrend(2),
E 2
I 2
D 5
	zlwid,zpend,zplmin(2),zplmax(2),zpspos(30),zrend(2),
E 5
I 5
	zlwid,zpend,zplmin(2),zplmax(2),zpspos(32),zrend(2),
E 5
E 2
D 7
	zrstrt(2),ztdist(2),ztend(2),ztstrt(2),ztxsiz(5),ztxrot(5),
E 7
I 7
	zrstrt(2),ztdist,ztstrt,ztxsiz(5),ztxrot(5),
E 7
D 2
	zxabsl,zyabsl,zxlspc,zylspc,zytop,zybotm,zxrght,zxleft,zvxmin,
	zvxmax,zvymin,zvymax
E 2
I 2
	zxabsl,zyabsl,zxlspc,zylspc,zytop,zybotm,zxrght,zxleft
E 2

D 2
common /pltcom/ natype,naxsts,nbarcp,nbclst,nbcolr,nbrdir,
        nbstyl,nbstat,nclskt,ncount,ndflgd,nfill,nfont,
	ngdclr,ngdstl,ngstat,nhatch,njust,nlbsts,nlcolr,
E 2
I 2
#
#  COMMON BLOCK PLTDEV
#        current device attributes
#

#      nbarcp    - device bar capability flag
#      nfill     - device area fill indication flag
#      npxlx - x size of pixel in microns
#      npxly - y size of pixel in microns
#      ntxtrt    - device text rotation capability flag
#      nxrast    - number of rasters on x axis
#      nyrast    - number of rasters on y axis
#
#      zpxlx     - width of an x pixel on the current device
#      zpxly     - heigth of a y pixel on the current device

integer nbarcp, nfill, npxlx, npxly, ntxtrt, nxrast, nyrast

real zpxlx, zpxly

common /pltcom/ natype,naxsts,nbclst,nbcolr,nbrdir,nbstyl,
	nbsclr,nbastl,nbstat,nclskt,ncount,ndflgd,nfont,
	ngdclr,ngdstl,ngstat,njust,nlbsts,nlcolr,
E 2
	nleged,nlindx,nlstyl,nmajor,nmcolr,nminor,nmstat,
D 7
	nmstyl,npslcj,nperid,npltyp,npnts,npslcc,npslcf,npslcx,
D 2
	npxlx,npxly,nreal,nrstat,nsstat,nstack,ntstat,ntxclr,
	ntxtrt,nxrast,nyrast,txtjh,txtjv,txtpre,nclip,nbrcpf,
	ratio,xvwmin,yvwmin,xvwlng,yvwlng,
E 2
I 2
	nreal,nrstat,nsstat,nstack,ntstat,ntxclr,
E 7
I 7
	nmstyl,npslcj,nperid,nplmin,nplmax,npltyp,npnts,npslcc,npslcf,npslcx,
	nreal,nrstat,nsstat,nstack,ntstat,ntdist,ntend,ntstrt,ntxclr,
E 7
	txtjh,txtjv,txtpre,nclip,nbrcpf,
D 5
	ratio,xvwmin,yvwmin,xvwlng,yvwlng,zbaswd,
E 5
I 5
	xvwmin,yvwmin,xvwlng,yvwlng,zbaswd,
E 5
E 2
	zbrbas,zbrwid,zchhgt,zchsiz,zchwdt,zdend,
D 2
        zdstrt,zdx,zdy,zlincr,zlgxy,zlwid,zpend,zplmin,zplmax,zpspos,zpxlx,
	zpxly,zrend,zrstrt,ztdist,ztend,ztstrt,ztxsiz, ztxrot,zxabsl,
	zyabsl,zxlspc,zylspc,zytop,zybotm,zxrght,zxleft,zvxmin,zvxmax,zvymin,
	zvymax
E 2
I 2
        zdstrt,zdx,zdy,zlincr,zlgxy,zlwid,zpend,zplmin,zplmax,zpspos,
D 7
	zrend,zrstrt,ztdist,ztend,ztstrt,ztxsiz, ztxrot,zxabsl,
E 7
I 7
	zrend,zrstrt,ztdist,ztstrt,ztxsiz, ztxrot,zxabsl,
E 7
	zyabsl,zxlspc,zylspc,zytop,zybotm,zxrght,zxleft

common /pltdev/ nbarcp, nfill, npxlx, npxly, ntxtrt, nxrast, nyrast,
		zpxlx, zpxly
E 2
E 1
