mae: 
10090 
100 
PT2304 415920535 
CBBPeRAKILTIAS 
SIZGBIN (CALA) S24) 
SBPSIN((ALOA) S25) 
C1eCOs( Alea) 
CetCUsl Aiea) 
K32Supl(R) 
ULsC bak3es7 
U2zelyek3esy 
yePTS 18UlLs2, 
CALL CS(1X9S6eC6) 
YLECL*S6°CO)/2, 
b1z(SeeCo) 2, 
VEIT) 2%UCs2, 
CALL C30 X9S6eC6) 
v2z(t ,°Sb°Co)s2, 
#22(94°CO) s2, 
wusesplexecy 
rS=etpl]eReco 
CuzCus(xu) 
C5=C IS (x5) 
Su=SIN(x4) 
SS=STN(KS) 
CUTC4eV IP CumHt FS ys V28C5on2esgy 
NSFeSurvitSuew{@sueVve®SSow2ecs 
HE2DUSUUCUSEOS 
KY=SSaRTCKS) 
RETURR 
END 
SUBROUTINE GETC (DoT ow 55 
GIVEN OEPTH(O)e PERIODCT) CALCULATE WAVE LENGTH(W3) 
G3232,2 
P12 301415926535 
Pleas? 9P] 
W3EG3eT/F 12 
ZyzPLoayst 
U$sutoI2¢0/(G3FTeT) 
VY$3E 4003) 
TFCKS ok Te 16,0) GOTO 3 
Ceeb3eT/Ple 
Gulu 2a 
V3tEXP (KS) 
T3ECVyPL)/(V3e1) 
Ch2zGSeT@BUQT( TS) sPl2 
0) 1000 124050 
M$32%73/C5 
YS3ZEXP( KS) 
TSE(VEPLI/(Y3O1) 
OssndeT3 
M12489(C%9N3) 
M250 0en001%AK8(03) 
I-( xl okbe K2) GOTO 2 
C3e(CyOOS) 2, 
CONTINUE 
w$eC3eT 
MITE (S0100) wdeC30D0T 
FuRMAT(/)® EAROR IN COMPUTATION OF WAVE LENGTHS04F10930% CALL EXIT 
1%) 
CALl EXIT 
asectely 
RETURN 
(aD) 
SIHROYUTINE C8(KeG60C6) 
Z5R4AHS(K) 
Tt (24 oG1, 4,0) GUTO 4 
Corsuet(Z3) 
So32Z3eCo 
Z$=(4 eZ3)%(4,¢7%) 
CAFC ((Se1IOTASE M1 182305 e2UU297ER9) O¢ 345045114267) 82343027 3300E 05) 
CorCom((COCS#L3¢4 D204 KE aS) #Z564 1 CASU4Em2)9Z23)¢1 6U0905E@1) 
S5B(CeoOTTHBIESI NALS 9S HASISKEOH)eZSOS COLIUI ESO) #23 
S5ES6a0(0(5442,441616E 4) ¥7366,121 32EC3) 92548, 02049Fe2) 
GOTO a 
C5zCUS(23) 
$$291N0Z3) 
Thue/ly 
ASSCC (RB, THAC5HERUPZ50U,169289E 93) 82547, 97094 SE OS) *2106,792R01LeS) 
ASC CC A342 = 3, COC SUEM4) 92365, 972151 E93) *Z571 pb00U2BEe5) *l30 
12,4595422F aD 
A3=4b02394 uuu o9Ee9 
BS2(( (eo eb3S92bt me UL 5% 5 UOLYNGE DS) HL 307,271 69E3) ¥Z347,UCB2bbt as) 
BSFC(C (BRL yeu, O27LUSES4) PZ IA, BIUGIESS) ¥Z3m) o20799B8EoG) #23 
BSEHSe Le IIUTI ILE wy 
7 $=5GaT( 235) 
C520 65*Z3*(C3¥SAS4 53963) 
S$o=005%Z259(S3h3aC 38H) 
RETURN 
ED 
ee 
