CMAT 



. C 



IT 



♦ NGO 



N 



. MIT 



SIBFTC RAYN 



SUBROUTINE RAYN (X.Y»A) 



DIMENSION S(3»3)»EM(A.3)»E(3) .YVW(3) .CMAT( 100»82) »C(4) .XLABL(12 

 COMMON S ♦EM . E . YVW 

 COMMON XLABL » D ♦ TT . CXY 

 COMMON AMM . ANN . MAX » NOT 

 CALL SURFCE (X.Y.A.FK) 

 3 MAX=1+MAX 



IF (MAX - 800) 399.15.15 

 399 CALL MOVE (X.Y.A.FK) 

 IF (CXY) 15.15.396 



396 GO TO (397.395.15). MIT 

 395 PUNCH 200. MAX 



200 FORMAT{33H CURVATURE APPROXIMATED FOR MAX =.I4) 



397 ANGLE=A*57. 29577951 

 IF(MOD(MAX»40) ) 20.5.20 



5 WRITE (6.7) XLABL. TT. NOT. N 



7 FORMAT (1H1,12A6/9H PERIOD =.F5.1.6H SEC...10H BATCH NO..I3.9H. 

 lY N0.,I3.1H.//4X.3HMAX.6X.1HX.8X.1HY.8X.5HANGLE.4X.6HPCTDIF//) 



PCTDIF = ABSF( (C(3)-E( 1)-E(2)-E(3) )/C(3) )*100. 



WRITE (6.12) MAX. X.Y. ANGLE. PCTDIF 



12 FORMAT ( I7.2F9.2.FH.2.F10.1) 

 GO TO (3.15) .NGO 



15 WRITE (6.13) 



13 FORMAT (13H RAY STOPPED.) 

 RETURN 



END 



RAYN 

 RAYN 

 RAYN 

 RAYN 

 RAYN 

 RAYN 

 RAYN 

 RAYN 

 RAYN 

 RAYN 

 RAYN 

 RAYN 

 RAYN 

 RAYN 

 RAYN 

 RAYN 

 RAYN 

 RARAYN 

 RAYN 

 RAYN 

 RAYN 

 RAYN 

 RAYN 

 RAYN 

 RAYN 

 RAYN 

 RAYN 



01 

 02 

 03 

 Ok 

 05 

 06 

 07 

 08 

 09 

 10 

 11 

 12 

 13 



15 

 16 

 17 

 18 

 19 

 20 

 21 

 22 

 23 

 24 

 25 

 26 

 27 



SIBFTC SURFCE 



SUBROUTINE SURFCE (X.Y.A.FK) 



DIMENSION S(3.3).EM(4.3)»E(3) .YVW(3) .CMAT ( 100 .82 ) .C(4) .XLABL (12 



S 



XLABL 



AMM 



COMMON 



COMMON 



COMMON 



I=X+1. 



J=Y+1. 



FI = I 



FJ = J 



XL=X+1.-FI 



YL=Y+1.-FJ 



IF (MAX-1) 1.1.4 



IF (ZI-FI) T.2.1 



IF (2J-FJ) 



I .3.1 



1 ZI = FI 

 ZJ = FJ 



EM 



D 



ANN 



E 



TT 



MAX 



YVW 

 CXY 

 NOT 



CMAT 



. C 



IT 



. NGO 



N 



» MIT 



C(1)=CMAT( I.J) 

 C(2)=CMAT( I+l.J) 

 C(3)=CMAT( I + l.J+1) 

 C(4)=CMAT( I.J+1) 



SUR 

 SUR 

 ) SUR 

 SUR 

 SUR 

 SUR 

 SUR 

 SUR 

 SUR 

 SUR 

 SUR 

 SUR 

 SUR 

 SUR 

 SUR 

 SUR 

 SUR 

 SUR 

 SUR 

 SUR 

 SUR 



FCEOl 

 FCE02 

 FCE03 

 FCE04 

 FCE05 

 FCE06 

 FCE07 

 FCE08 

 FCE09 

 FCEIO 

 FCEll 

 FCE12 

 FCE13 

 FCE14 

 FCE15 

 FCE16 

 FCE17 

 FCE18 

 FCE19 

 FCE20 

 FCE21 



57 



