DO 318 II=1.3 

 YVW(II) = 0. 

 00 318 L«lt4 



318 YVWtll) = YVW(II)+C<L)»EM(L»II) 

 DO 319 11=1.3 



Edl) = 0. 

 DO 319 JJ=1.3 



319 E(II) = E( II)+S( II.JJ)*YVW( JJ) 

 3 CXY = Ed) + E(2)*XL + E(3)*YL 



FK = (E(2)*SIN(A)-E(3)*COS(A) )/CXY 



RETURN 



END 

 C 

 SIBFTC MOVE 



SUBROUTINE MOVE (X.Y.A»FK) 



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



COMMON S .EM , E » YVW . CMAT . C 



COMMON XLABL » D . TT . CXY .IT . NGO 



COMMON AMM . ANN • MAX » NOT . N .MIT 



IF (MAX - 2) 102.102.104 

 102 FKBAR=FK 

 104 MIT = 1 



DO 20 IT=1.20 

 39 DELA=FKBAR*D 



AA=A+DELA 



ABAR=A+.5*DELA 



DELX = D»COS<ABAR) 



DELY = D*SIN(ABAR) 



XX=X+OELX 



YY=Y+DELY 



GO TO (101.6). MIT 

 101 CALL SURFCE ( XX.YY. AA.FKK ) 



IF (CXY) 38.38.10 

 10 FKBAR = 0.5 ♦ (FK + FKK) 



IF (IT - 18) 5.37.9 



37 FKKPP = FKBAR 



5 IF (MAX - 2) 7,7.9 



7 IF (IT - 1) 20.20.9 



9 IF (ABS (FKKP-FKBAR) - (0.00009/D)) 6.6.20 

 20 FKKP = FKBAR 



IF (ABS (FKKPP - FKBAR) - (0.00009/D)) 18.18.17 



17 MIT = 3 

 GO TO 38 



18 FKBAR = 0.5 * (FKBAR + FKKP) 

 MIT = 2 



GO TO 39 



6 NGO * 1 ~i 

 IF ( (XX-1.0)*((AMM-1.0)-XX) )2.2.3 



3 IF ( (YY-1.0)»{ (ANN-l.O)-YY) )2.2.8 

 2 NGO = 2 



8 X = XX 

 Y = YY 

 A « AA 

 FK = FKK 



38 RETURN 

 END 



SURFCE22 



SURFCE23 



SURFCE24 



SURFCE25 



SURFCE26 



SURFCE27 



SURFCE28 



SURFCE29 



SURFCE30 



SURFCE31 



SURFCE32 



SURFCE33 



MOVE 



01 



MOVE 



02 



MOVE 



03 



MOVE 



04 



MOVE 



05 



MOVE 



06 



MOVE 



07 



MOVE 



08 



MOVE 



09 



MOVE 



10 



MOVE 



11 



MOVE 



12 



MOVE 



13 



MOVE 



14 



MOVE 



15 



MOVE 



16 



MOVE 



17 



MOVE 



18 



MOVE 



19 



MOVE 



20 



MOVE 



21 



MOVE 



22 



MOVE 



23 



MOVE 



24 



MOVE 



25 



MOVE 



26 



MOVE 



27 



MOVE 



28 



MOVE 



29 



MOVE 



30 



MOVE 



31 



MOVE 



32 



MOVE 



33 



MOVE 



34 



MOVE 



35 



MOVE 



36 



MOVE 



37 



MOVE 



38 



MOVE 



39 



MOVE 



40 



MOVE 



41 



MOVE 



42 



MOVE 



43 



58 



