FUNCTION DECDEG(I,X) 

 CONVERT DEGREES-tMINUTES TO DECIMAL DEGREES 



DECDE6=ABS(I)+X/60. 



DECDEG=SIGN(DECDEG,I) 



RETURN 



END 



SUBROUTINE 0EGMIN(A, J,B) 

 CONVERT DECIMAL DEGREES(A) TO DEGREES ( J )+MINUTES(B) 



J=INT(A) 



B=ABS((A-FL0AT(J))*60.) 



RETURN 



END 



177 



