File: AXTEST.FT of Tape: Various/Decus/decus-4

(Source file text) 

---

C	X AND Y DIMENSIONED 2 LARGER THAN ARRAY SIZE
C	FOR CALL LINE.
	DIMENSION X(5),Y(5)
	X(1)=1
	X(2)=10
	X(3)=200
	Y(1)=2
	Y(2)=15
	Y(3)=200
C	FIRST CALCULATE THE LOG OF THESE VALUES.
	DO 10 I=1,3
	X(I)=ALOG10(X(I))
 10	Y(I)=ALOG10(Y(I))
	CALL PLOTS(.01,1)
	CALL AXIS(1.4,1.4,'ABSCISSA',-8,4,0,.1,0,4)
	CALL AXIS(0,0,'ORDINATE',8,4,90,.1,0,4)
C	THE 4TH AND 5TH ELEMENTS OF THE ARRAYS ARE
C	CALCULATED. THEY REPRESENT THE STARTING
C	POINT AND THE SCALING INCREMENT NORMALLY
C	PROVIDED BY PSCALE.
C	X(4) & Y(4)= LOG(.1)= -1
	X(4)=-1
C	X(5) & Y(5)= NUMBER LOG CYCLES/AXIS LENGTH=
C	4/4= 1
	X(5)=1
	Y(4)=-1
	Y(5)=1
	CALL LINE(X(1),Y(1),3,1,1,100)
	CALL PLEXIT
	STOP
	END

---