Determine appropriate values of E, for 

 evenly spaced values of S* . 



For i = 1,2 • • NUJIXI 



S. = SSSTRT + (i-l)*DELSS 



CALL CURV9 

 Computes Sp for a given S"* 



FUNCTION CURV2 

 Returns a value for E, given Sp. 

 Arrays X2 and Y2 cannot be al- 

 tered from the cast call of CURVl. 



Store 5 in XI. 



Determine and write coordinates and arclength 



Sn (nroi) along a particular isoline of E, 

 (=XIDUM) for NS evenly spaced values of n , 



-3 1 n 1 3 . 



Store S in X2. 

 n 



Store n in Y2. 



CALL CURV 1 



26 



