IDENTIFICATION DIVISION. 



PROGRAM-ID. XTRACT. 



AUTHOR. BOP STARK. CO-OP. WEST VIRGINIA INSTITUTE OF TECHNOLOGY. 



INSTALLATION. US COAST GUARD OCEANOGRAPHIC UNIT. ATD/DPB. 



DATE-WRITTEN. JUL ?• 1980. 



DATE-COMPILED. 



REMARKS. 



THIS PROGRAM SCANS NODC STD TAPE RECORDS FOR STANDARD 

 DEPTH DYNAMIC DEPTH DATA. WHEN A STANDARD DEPTH IS FOUND. 

 THE JULIAN DAY FOR THAT RECORD IS CALCULATED. THEN THE 

 STANDARD DEPTH. JULIAN DAY. YEAR. LATITUDE. LONGITUDE. AND 

 DYNAMIC DEPTH ARE WRITTEN OUT ONTO A FILE IN PACKED DECIMAL 

 FORMAT. THIS DATA WILL. AFTER SUBSEQUENT PROCESSING BY CREATE 

 AND DUPFIX. BECO'-'E INPUT TO THE DYFIT PROGRAM. 



THIS PROr;RAM IS A REWRITE OF THE ORIGINAL FORTRAN XTRACT 

 PROGRAM, WRITTEN OCT 2.1979 BY DAVID PORTYRATA. IT WAS 

 REWRITTEN IN COBOL TO SIMPLIFY THE HANDLING OF THE OVERPUNCH 

 MINUS SIGN IN THE LATITUDE AND LONGITUDE FIELDS. 



» NOTE «...THE JULIAN DAY IS CALCULATED USING AN ALGORITHM 

 FROM 'tT.I. PROGRAMMABLE 58/59 MASTER LIBRARY". PAGE 76. 



ENVIRONMENT DIVISION. 

 CONFIGURATION SECTION. 

 SOURCE-COMPUTER. IBM-360. 

 OBJECT-COMPUTER. IBM-360. 

 INPUT-OUTPUT SECTION. 

 FILE-CONTROL. 



SELECT STD-DATA-FILE ASSIGN TO UT-S-XTRIN. 



SELECT STANDARO-DEPTH-FILE ASSIGN TO UT-S-XTROUT. 



DATA DIVISION. 

 FILE SECTION. 



FD STD-DATA-FILE LABEL RECORDS OMITTED 

 RECORD CONTAINS 80 CHARACTERS 

 BLOCK CONTAINS RECORDS. 

 01 STD-DATA-REC. 



03 FILLER PIC X(4) . 

 03 LATITUDE. 



05 LAT-DEGREES PIC 9(2). 



05 LAT-MINUTES PIC S9(2). 



05 LAT-IOTH-MIN PIC 9. 

 03 LONGITUDE. 



05 LON-DEGREES PIC 9(3). 



05 LON-MINUTES PIC S9(2). 



05 LON-IOTH-MIN PIC 9. 



03 FILLER PIC X(3) . 

 03 DATE-DATA. 



05 DATE-YEAR PIC 9(2) . 



05 DATE-MONTH PIC 9(2). 



05 DATE-DAY PIC 9(2) . 



03 FILLER PIC X(3) . 



03 STANDARD-DEPTH PIC 9(4). 



