Directory of image this file is from
This file as a plain text file

5N	F;	h'&	c	F 	c	F"b"bbbf~&
f.bfy(J 		P;rAn<<4 n<<4ir"&!.}"f|A&X`H/\)f.bf{AV"bbi I
9Ih	lzpz*cpefn
l >A~0~&J0n4"cF%&&&c' @H1~fn~b
l}|y 6:&7c7BF 7c7Fc
n66
,{7rzy{Hf.bf
l}N{V
1	xC wr	xG 
hC^hdh_6I
\IhdjwFE
bn4c)F)c )bDn
bD
f)r$+	)P@/$!
f)b3n**4:*c*Fc(&{@Bz!NDd@BzHf!.b f&
b$czPHo@
f.
bDoR"S..f/! h
nnD
BHrH~wJ ftO&
c
F

4nH?! hD I
'Jh h
	G~}w (


00bH ~1d~3&2>&c|(H#[c* n/c_c)c+c,2bcc-b
3f/_J n* ?s){2.n+-'-0BH.rD.b,-'V2bqn3:of|[.:*e?@OR.n
bDB(|hT&;*
;-1;L
;=V;VV;VV;VV;J, hZ.C$=B"&L5
 DB |
	LC&+J^}g|@ ZJ(/VJ$]F"+,X,:Z9eZJ!.KJbKH.G	,EH+-S-HIb
EIKJb!HnG&	KBzzno7 JbJej
(?V,
IV  
C(VzB
V
R Q)&6ML
H
w 
1~[<$6}"A
n8zDb6|R( ~<
j	rFB{ /Mz /Kf.M
 !,O&,MkM

I

KUfBtLvx]zLojl:np;rD@	|&!#%')N.~rsvvN]
0
OxRC
 `0&
cd0cdaf>atH
f666b&
bC

n
PhbP8b(J
.
Jhb&.fJ(b8J~&}f}a(]z 	
PJ|(2z{H/zy"P0
0!c (bbcoz

n
r`
gK?
OM
3S  @`?M|
	SUBROUTINE TDAXIS(ITHTA,ILBL)

	COMMON IXS,IYS,IXE,IYE,ILU,INTL,INTU,ITS
	COMMON ILSL,ILSU,IVIL,IVIU,ITIL,ITIU

C	ITHTA = ORIENTATION OF AXIS (1 OR 0)
C	ILBL  = LABEL AXIS OR NOT (1 OR 0)
C	IXS   = X COORD OF START OF LOWER AXIS
C	IYS   = Y   "   "    "    "   "     "
C	IXE   = X COORD OF END OF LOWER AXIS
C	IYE   = Y   "   "   "  "    "    "
C	ILU   = LENGTH OF UPPER AXIS IN PLOTTER INCS
C	INTL  = NO. TICS ON THE LOWER AXIS
C	INTU  = "    "   "   "  UPPER  "
C	ITS   = TIC SIZE
C	ILSL  = LETTER SIZE (LOWER AXIS)
C	ILSU  =   "     "   (UPPER AXIS)
C	IVIL  = VALUE AT INTERSECTION (LOWER)
C	IVIU  =   "   "       "       (UPPER)
C	ITIL  = TIC INCREMENT (LOWER)
C	ITIU  =  "      "     (UPPER)

	CALL PLOT(IXS,IYS,-1)
	YL=IYE-IYS
	XL=IXE-IXS
	DIST=SQRT(XL**2+YL**2)
	SINTH=YL/DIST
	COSTH=XL/DIST

	IF (INTL-1) 10,10,20
 10	CALL PLOT(IXE,IYE,1)
	GO TO 50

 20	NLPL=INTL-1
	TDSTL=DIST/FLOAT(NLPL)
	IF (ITHTA) 27,25,27
 25	CALL PLOT(IXS,IYS-ITS,1)
	GO TO 29
 27	CALL PLOT(IXS+ITS,IYS,1)
 29	CALL PLOT(IXS,IYS,1)
	DIST=0.0

	DO 40 I=1,NLPL
	DIST=DIST+TDSTL
	IXP=IXS+IFIX(DIST*COSTH)
	IYP=IYS+IFIX(DIST*SINTH)
	CALL PLOT(IXP,IYP,1)
	IF (ITHTA) 35,30,35
 30	CALL PLOT(IXP,IYP-ITS,1)
	GO TO 40
 35	CALL PLOT(IXP+ITS,IYP,1)
 40	CALL PLOT(IXP,IYP,1)

 50	IF (INTU-1) 55,55,60
 55	IF (ITHTA) 57,56,57
 56	CALL PLOT(IXE,IYE+ILU,1)
	GO TO 100
 57	CALL PLOT(IXE-ILU,IYE,1)
	GO TO 100

 60	NLPU=INTU-1
	DIST=0.0
	TDSTU=FLOAT(ILU)/FLOAT(NLPU)
	IXPT=FLOAT(ITS)*COSTH
	IYPT=FLOAT(ITS

Note: Lines longer than 256 characters were wrapped