File: MAGPIC.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 /'FIELD [GAUSS]'/ 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 XVAL=HI 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 NUMBER(6,6,.42,HR,0,-1) CALL SYMBOL(7.5,6,.42,'DEG.',0,4) 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,-13,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