OR LON-DEGREES IS NOT NUMERIC 

 OR DATE-DATA IS NOT NUMERIC 

 OR STANDARD-DEPTH IS NOT NUMERIC 

 OR STANDARD-DEPTH-FLAG IS NOT NUMERIC 

 THEN PERFORM READ-REC 



GO TO MAIN-PROCESS-EXIT. 

 •» CHECK FOR A STANDARD DEPTH. IF NOT» READ NEXT REC» AND EXIT. 

 IF STANDARD-DEPTH-FLAG NOT = 6 



OR DYNAMIC-DEPTH IS NOT NUMERIC 

 THEN PERFORM READ-REC 



GO TO MAIN-PROCESS-EXIT. 



» CONVERT DEGREES-MINUTES-TENTH-MINUTES OF LATITUDE TO DECIMAL 



* DEGREES. (NOTE. ..MINUTES IS AN UNSIGNED FIELD.) 

 IF LAT-MINUTE5 IS NOT NUMERIC . 



THEN PERFORM READ-REC 



GO TO MAIN-PROCESS-EXIT 

 ELSE MOVE LAT-MINUTES TO MINUTES. 



* CONVERT BLANKS TO ZERO. 



IF LAT-IOTH-MIN IS NOT NUMERIC 



THEN MOVE TO LAT-IOTH-MIN. 



COMPUTE WS-LATITUDE = LAT-DEGREES + (MINUTES / 60) 



+ (LAT-IOTH-MIN / 600) . 

 IF LAT-MINUTFS IS NEGATIVE 



THEN MULTIPLY WS-LATITUDE BY -1 GIVING WS-LATITUDE. 

 « 90 IS ADDED TO ALL LATITUDES SO THEY WILL BE POSITIVE 



* AND RANGE FROM TO 160. 



ADD 90. WS-LATITUDE GIVING ST-LATITUOE. 



» CONVERT DEGREES-MINUTES-TENTHS OF LONGITUDE TO DECIMAL DEGREE 

 IF LON-MINUTES IS NOT NUMERIC 

 THEN PERFORM READ-REC 



GO TO MAIN-PROCESS-EXIT 

 ELSE MOVE LON-MINUTES TO MINUTES. 



* CONVERT BLANKS TO ZERO. 



IF LON-IOTH-MIN IS NOT NUMERIC 



THEN MOVE TO LON-IOTH-MIN. 



COMPUTE WS-LONGITUDF = LON-DEGREES ♦ (MINUTES / 60) 



♦ (LON-IOTH-MIN / 600) . 

 IF LON-MINUTFS IS NOT NEGATIVE 



THEN MULTIPLY WS-LONGITUDE BY -1 GIVING WS-LONGITUDE . 

 » ISO IS ADDED TO ALL LONGITUDES SO THAT THEY WILL 



* BE POSITIVE AND RANGE FROM TO 360. 



ADD 180, WS-LONGITUDE GIVING ST-LONGITUDE . 



COMPUTE-JUL IAN-DAY. 



* FIRST WE FIND THE JULIAN DATE FACTOR FOR JANUARY 1ST OF 



* THE YEAR THE CAST WAS TAKEN. 



ADD 1900» DATE-YEAR GIVING WS-YEAR. 



COMPUTE INTEGER-1 = (WS-YEAR - 1) / 4. 



COMPUTE INTEGER-2 = ((WS-YEAR - 1) / 100) + 1 



COMPUTE REAL-2 = INTEGER-2 * 0.75. 



MOVE REAL-2 TO INTEGER-2. 



COMPUTE JAN-1-FACTOR = (365 » WS-YEAR) ♦ INTEGER-1 + 1 - 



