File: ROTPIC.FT of Tape: Various/ETH/f2

(Source file text) 

---

C	MAIN	FDPIC
	DIMENSION XAR(1100),YAR(1100)
	DIMENSION TITLE1(10)
	DIMENSION TITLE2(10)
	DIMENSION TITLE3(10)
	DIMENSION TITLE4(10)
C
	DATA TITLE2 /'T=      K'/
	DATA TITLE3 /'ANGLE [DEGREES]'/
	DATA TITLE4 /'DELTA(RHO)/RHO'/
C
100	FORMAT(10A6)
110	FORMAT(I6)
120	FORMAT(F10.5)
130	FORMAT(I4)
140	FORMAT(12(F10.5/))
C
200	FORMAT(1X,10A6)
210	FORMAT(1X,I6)
220	FORMAT(1X,F10.5)
230	FORMAT(1X,I4)
240	FORMAT(1X,12F10.5)
C
	READ(5,100) TITLE1
	WRITE(4,200) TITLE1
	READ(5,110) NP
	WRITE(4,210) NP
	DO 10 J=1,NP
	READ(5,120) YAR(J)
C	WRITE(4,220) YAR(J)
10	CONTINUE
	READ(5,130) NX
C	WRITE(4,230) NX
	READ(5,140) DK,HR,HI,HF,AIN,PS,AKM,RT,TM,TV,AMF,HM
	WRITE(4,240) DK,HR,HI,HF,AIN,PS,AKM,RT,TM,TV,AMF,HM
C	DK SHOULD BE SET TO ANGLE INC!!
	DK=6.
	XVAL=HR
	DO 20 J=1,NP
	XAR(J)=XVAL
C	WRITE(4,220) XAR(J)
	XVAL=XVAL+DK
20	CONTINUE
	CALL PLOTS(.02,0)
	CALL XYPLOT(0,0,-3)
	CALL SYMBOL(6,8,.42,TITLE1,0,6)
	CALL SYMBOL(6,7,.42,TITLE2,0,9)
	CALL NUMBER(7.6,7,.42,TM,0,2)
	CALL SYMBOL(6,6,.42,'H=      G',0,9)
	CALL NUMBER(6.84,6,.42,HI,0,-1)
	CALL PSCALE(XAR,6,NP,1)
	WRITE(4,240) XAR(NP+1),XAR(NP+2)
	CALL PSCALE(YAR,5,NP,1)
	WRITE(4,240) YAR(NP+1),YAR(NP+2)
	CALL XYPLOT(-8,-8,-3)
	CALL LINE(XAR,YAR,NP,1,0,200)
	SIZE=.35
	CALL AXIS(0,0,TITLE3,-15,6,0,-1,XAR(NP+1),XAR(NP+2),SIZE)
	SIZE=.35
	CALL AXIS(0,0,TITLE4,14,5,90,2,YAR(NP+1),YAR(NP+2),SIZE)
	CALL PLEXIT
	END

---