1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
# NSPP.COM -- The nspp system plot package common block.
int mmajx ,mmajy ,mminx ,mminy ,mxlab ,mylab
int mflg ,mtype ,mxa ,mya ,mxb ,myb
int mx ,my ,mtypex ,mtypey
real xxa ,yya , xxb ,yyb ,xxc ,yyc
real xxd ,yyd , xfactr ,yfactr ,xadd ,yadd
real xx ,yy
# XX declared integer some places in nspp code !!!
# on a VAX this works, but what if float not same size as int ???
int mfmtx[3] ,mfmty[3] ,mumx ,mumy
int msizx ,msizy ,mxdec ,mydec ,mxor ,mop[19]
int mname[19] ,mxold ,myold ,mxmax ,mymax
int mxfac ,myfac ,modef ,mf2er ,mshftx ,mshfty
int mmgrx ,mmgry ,mmnrx ,mmnry ,mfrend ,mfrlst
int mcrout ,mpair1 ,mpair2 ,msblen ,mflcnt ,mjxmin
int mjymin ,mjxmax ,mjymax ,mnxsto ,mnysto ,mxxsto
int mxysto ,mprint ,msybuf[360] ,mncpw ,minst
int mbufa ,mbuflu ,mfwa[12] ,mlwa[12]
int mipair ,mbprs[16] ,mbufl ,munit ,mbswap
real small
common /sysplt/ mmajx ,mmajy ,mminx ,mminy ,mxlab ,mylab,
mflg ,mtype ,mxa ,mya ,mxb ,myb,
mx ,my ,mtypex ,mtypey ,xxa ,yya,
xxb ,yyb ,xxc ,yyc ,xxd ,yyd,
xfactr ,yfactr ,xadd ,yadd ,xx ,yy,
mfmtx ,mfmty ,mumx ,mumy,
msizx ,msizy ,mxdec ,mydec ,mxor ,mop,
mname ,mxold ,myold ,mxmax ,mymax,
mxfac ,myfac ,modef ,mf2er ,mshftx ,mshfty,
mmgrx ,mmgry ,mmnrx ,mmnry ,mfrend ,mfrlst,
mcrout ,mpair1 ,mpair2 ,msblen ,mflcnt ,mjxmin,
mjymin ,mjxmax ,mjymax ,mnxsto ,mnysto ,mxxsto,
mxysto ,mprint ,msybuf ,mncpw ,minst,
mbufa ,mbuflu ,mfwa ,mlwa,
mipair ,mbprs ,mbufl ,munit ,mbswap ,small
|
