QAAAMAAANAANAIANANANN 
agNag0 
70 
a0 
90 
10 
20 
16 
NDIV = NDIV#10 
GO TO 60 
NDIGIT = [+2 
ND = I 
DD = FLUAT(ND) 
X = ANUM*(10*#DD) 
IX = X 
IF (X-FLOAT (1X) eLT220001) GO TU 90 
DD = 00+1 
ND = ND¢l 
NDIGIT = NNIGIT#l 
GO TO 80 
CONTINUE 
RETURN 
END 
SUBROUTINE ESCALE (ARRAY »AXLENsNPTS» INC) 
FINDS THE SCALE TO BE USED ON THE AXIS = 
ARRAY MUST HAS THREE UNUSED POSITIONS 
AROAY (NPTS#1) FIRSTV 
ARE AY (NPTS+2) 
VALUES = NUMBERS) 
DELTAU (THE INCREMENT IN INCHES 
BETWEEN TICK MARKS ) 
AROAY (NPTS+3) 
DIMENSION ARRAY (1) 
AMIN = ARRAY (1) 
AMAX = ARRAY (1) 
ISGN = ISIGN(1>INC) 
INC = ITABS(INC) 
DO 10 Y=] eNPTSoINC 
IF (ACRAY (1) eLTe AMIN) AMIN=ARRAY (1) 
IF (ACRAY (1) eGTeAMAX) AMAX=ARRAY (I) 
CONTINUE 
AUNIT = UNIT (AMIN » AMAX o AXLENoNo ANUM) 
CALL AUJUST (AMIN» AMAX pAUNI T > AXLEN No ANUM) 
ARRAY(NPTS+1) = AMIN 
ARRAY (NPTS+2) = ANUM#ISGN 
IF (ISGN.FQe-1) ARRAY (NPTS#1) = AMAX 
ARRAY (NPTS+3) = AUNIT 
IF (ABS (ANUY) 0EQeAUNIT) ARRAY(NPTS*2) = 1.®ISGN 
IF (ABS(ANUM) .EQeAUNIT) ARRAY(NPTS+3) = 1. 
RETURN 
END 
SUBROUTINE ADJUST (AMIN» AMAX gAUNIT » AXLEN 9 Ng ANUM) 
GIVEN AMIN AND AMAX WHICH ARE VISTINCT VALUES» ADJUST 
THEM SO THAT THEY ARE EVEN MULTIPLES OF AUNIT 
K=1 
MIN = AMIN/ANUM 
IF (AMIN eLT.MIN#ANUM) MIN 
AMIN = MIN#ANUM 
MAX = AMAX/ANUM 
IF (AMAXeGT.MAX#ANUM) MAX 
AMAX = MAX#ANUM 
TERM = AMINe (N=K) #ANUM 
IF (TERMeLT,AMAX) GO TO 20 
MIN-1 
MAX+] 
72 
NDIG 
NDIG 
NDIG 
NDIG 
NDIG 
NDIG 
NDIG 
NDIG 
NDIG 
NDIG 
NDIG 
NDIG 
NDIG 
NDIG 
NDIG 
ESCAL 
ESCAL 
ESCAL 
ESCAL 
ESCAL 
DELTAV (THE INCREMENT BETWEEN TICK MARKS ESCAL 
ESCAL 
ESCAL 
ESCAL 
ESCAL 
ESCAL 
ESCAL 
ESCAL 
ESCAL 
ESCAL 
ESCAL 
ESCAL 
ESCAL 
ESCAL 
ESCAL 
ESCAL 
ESCAL 
ESCAL 
ESCAL 
ESCAL 
ESCAL 
ESCAL 
ESCAL 
ESCAL 
ESCAL 
JUST 
JUST 
JUST 
JUST 
JUST 
JUST 
JUST 
JUST 
JUST 
JUST 
JUST 
JUST 
JUST 
JUST 
