FUNCTION TO CONVERT LATITUDE INTO MERIDIONAL PARTS 

 FUNCTION YMP(Z) 

 DATA AP/0. 7853981534/ 

 Y=ABS ( Z )*0. 290888209E-03 

 T=TAN(AP+Y*0.5) 



YM=7915.7045*AL0G10(T)-23.268932*SIN(Y) 

 YMP=YM*SIGN(1.0,Z) 

 RETURN 

 END 



162 



