c 

 c 



c 

 c 

 c 



c 

 c 



c 

 c 

 c 



c 

 c 

 c 

 c 



c 

 c 



c 

 c 



c 

 c 



c 

 c 



IF FOUND, BR4MCH TO THE SECOND KEY SETUP ROUTINE 

 IF (TMIN2.NE.O.,OR.TMAX2.NE.O.) GO TO 22 



SORRY - CAN'T SET A FILE KEY. 

 PRINT 15,DPnP 

 15 FORMAT (• NO DATA IN FILE FOR 

 READ AND DUMP POINTS UNTIL A 99 

 17 READ 930, X(?) 



IF (X (2) .NE.qg.) GO TO 17 

 GO TO 70 



STD DEPTH 

 IS FOUND, 



= •,F6.0) 



THIS IS THE MAIN READ LOOP. 

 20 CALL READER (ALATT, ALONG, 

 IF (EOF.NE,!) GO TO 25 

 FILE IS AT END 

 CHECK FOR 2 START POINTS. 



IF (TMlN2.EQ.n. .AND.TMAX2.EQ.0. ) 

 FILE DOES HAVE 2 START POINTS 



DYNHGT, EOF) 



WRAPAROUND. NOvV WE HAVE TO 

 START POINT OF THE FILE. 

 22 TMIN = TMIN? 



TMAX = TMAX2 



TMIN2=0. 



TMAX2 = 0. 



GO TO 10 



GO TO 40 



DUE TO DECEMRER-JANUARY 

 SET THE KEY FOR THE SECOND 



THIS SECTION CHECKS THE DATA FOR VALIDITY. 

 THE NEXT STATEMENT ADJUSTS THE LONGITUDE IF THE CENTER 

 IS EAST OF THE INTERNATIONAL DATE LINE AND THE POINT IS WEST. 

 !5 IF (MIKLON.LT.-180. .AND. ALONG. GT. 0. ) ALONG =-360. ♦ALONG 



IS THE NEXT STATEMENT ADJUSTS THE LONGITUDE IF THE CENTER IS 

 WEST OF THE INTERNATIONAL DATE LINE AND THE POINT IS EAST. 

 IF (MAXLON.GT. 180. .AND. ALONG. LT. 0. ) ALONG = B^^O.+ALONG 



NOW CHECK THAT LAT AND LONG ARE WITHIN RANGE. 

 IF (ALATT.GT.MAXLAT.OR.ALONG.GT.MAXLON.UR.ALATT.LT.MINLAT.OR. 

 1 ALONG. LT.MINLON) GO TO 20 



0. K, WE MADE IT. DATA IS GOOD. 

 ,\DATA = NDATA^l 

 WDATA(NDATA) = 1. 

 XDATA(2,NDATA) = ALATT 

 XDaTA(1,NDATA) = ALONG 

 YDATA(NDATA) = DYNHGT 

 IF (NDATA.GE.IOOO) GO TO 40 

 GO TO 20 



RESUME DR. KEN MOONEY'S ORIGINAL SPL3 ROUTINE. 

 40 IF(IPRT.NE.l) GO TO 50 

 PRINT 910 

 910 FORMAT{1H-,10X,3HLAT,8X,4HLONG, 6X,<sHnY HGT,//) 



PRINT 920, ( I,XDATA(2,I) ,XDATA(1,I) ,YDATA(I) ,I = 1»N0ATA) 

 920 FORMATdh , I 3 , 5X , F6 . 2,5X , F7 . 2 , 5X,F8,3) 



