319 



3 



» 8 6 



C 



102 



104 



39 



101 

 10 



898 



900 



899 



37 



5 



7 



9 



20 



17 



18 



38 



DO 319 JJ=1.3 



E(II) = E«in+S<II.JJ)»YVW(JJ) 



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



FK =(E(2)»SINF(A)-E(3)*COSf=-(A» )/CXY 



RETURN 



END 



SUBROUTINE MOVE tX»Y.A»FK> 



DIMENSION S(3»3).EM(4.3) .E{3).YVW(3) »CMAT( 50#51 ) »C{ 4) sXLABLt 12) 



COMMON S»EM,E.YVW«CMAT»C.XLABL»D8TT»CXY»lT»N60»AMM»AWN»MAX»MrT 



IF (MAX - 2) 102. 102*104 



FKBAR=FK 



MIT = 1 



DO 20 IT=1.20 



OELA=FKBAR*D 



AA=A+OELA 



ABAR=A+.5*DELA 



DELX=«D»COSF(ABAR) 



DELY=0»SINF(ABAR) 



XX=X+DELX 



YY=Y+DELY 



GO TO (101.6). MIT 



CALL SURFCE ( XX . YY .AA.FKK ) 



IF (CXY) 38.38.10 



FKBAR = 0.5 » (FK + FKK) 



IF (SENSE SWITCH 2) 898.899 



TYPE 900. IT. FKBAR 



FORMAT (I4.E14.8) 



IF (IT - 18) 5.37.9 



FKKPP = FKBAR 



IF (MAX - 2) 7.7.9 



IF (IT - 1) 20.20.9 



IF (ABSF(FKKP-FKBAR) - (0.00009/0)) 6.6.20 



FKKP « FKBAR 



IF (ABSF(FKKPP - FKBAR) - (0.00009/D)) 18,18.17 



MIT = 3 



GO TO 38 



FKBAR = 0.5 * (FKBAR + FKKP) 



MIT =« 2 



GO TO 39 



NGO » 1 



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



IF ((YY-1.0)*((ANN-1.0)-YY)) 2.2.8 



NGO = 2 



X « XX 



Y = YY 



A « AA 



FK ' FKK 



RETURN 



END 



SURFCE26 



SURFCE27 



SURFCE28 



SURFCE29 



SURFCE30 



SURFCE31 



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 



MOVE 



44 



49 



