h10079
s 00004/00004/00031
d D 1.6 83/03/01 11:26:55 mjb 6 5
c 
e
s 00013/00008/00022
d D 1.5 83/02/28 22:01:28 mjb 5 4
c lots and lots of changes for axis edit
e
s 00000/00001/00030
d D 1.4 83/02/03 20:14:10 mjb 4 3
c 
e
s 00012/00000/00019
d D 1.3 83/02/03 20:02:43 mjb 3 2
c moved grftmp from gphcom to gattcom
e
s 00001/00001/00018
d D 1.2 83/01/25 12:33:18 mjb 2 1
c modified for new interface to tic marks 
e
s 00019/00000/00000
d D 1.1 83/01/20 11:08:17 tes 1 0
c date and time created 83/01/20 11:08:17 by tes
e
u
tes
mjb
U
t
T
I 1
#
# Graph attribute common area
#

integer gfont(5)               # Current fonts  for titles etc
integer gcolor(5)              # Current colors for titles etc
integer glabel(2)              # Current number of labels
D 2
integer gtics                  # Current minor/major tics flag
E 2
I 2
D 5
integer gtics(2)               # Current minor/major tics flag
E 5
I 5
integer maxpts
E 5
E 2

D 5
real zchrsz(5)                 # Current character sizes for titles etc
real xtitle(4)                 # Current x position for each title
real ytitle(4)                 # Current y position for each title
real zstart(2), zend(2), zperid(2)  # Current periodic info
real zsticp(2), zeticp(2)      # Current start and end tic positions
E 5

I 5
real zchrsz(5)                    # Current character sizes for titles etc
real xtitle(4)                    # Current x position for each title
real ytitle(4)                    # Current y position for each title
real zstart, zperid, zpnum        # Current period infor for periodic axis
D 6
real zimin, zimax, zistic, zietic # Current min max for independent axis
E 6
I 6
real zistic, zietic               # Current min max for independent axis
E 6
real zdmin, zdmax, zdstic, zdetic # Current min max for dependent axis
real zxmin, zxmax, zymin, zymax   # Current graph extents
E 5
I 3
D 4
integer mid, lastid, krmain, action, device
E 4

I 5

E 5
#  ntpray (integer array 41)         temp integer array for titles etc.
#  zydata (real array 375)           temp real array for storage of graph data
#  zstack (real array 375)           temp real array for stacking

integer ntpray(41)
real zydata(375), zstack(375)

E 3
include(`gphcom')

D 5
common /attcom/ gfont, gcolor, glabel, gtics, zchrsz, xtitle,
		ytitle, zstart, zend, zperid, zsticp, zeticp
E 5
I 5
common /attcom/ gfont, gcolor, glabel, maxpts, zchrsz, xtitle,
D 6
		ytitle, zstart, zperid, zpnum, zimin, zimax, 
		zistic, zietic, zdmin, zdmax, zdstic, zdetic, 
		zxmin, zxmax, zymin, zymax
E 6
I 6
		ytitle, zstart, zperid, zpnum, zistic, zietic, 
		zdmin, zdmax, zdstic, zdetic, zxmin, zxmax, 
		zymin, zymax
E 6
E 5
I 3

common /grftmp/  ntpray, zydata, zstack

E 3
E 1
