IDENT 

 PROGR 

 AUTHO 

 INSTA 

 OATE- 

 DATE- 

 REMAR 

 I 

 A 



C 

 S 



N 

 P 



T 

 p 



I 



IFICATION 

 AK-IO. DY 

 R. BOB ST 

 LLATION. 

 WRITTEN, 

 COMPILED, 

 KS. THIS 

 T HAS ? S 

 ND A STOP 

 THE FI 

 ALLS ILBO 

 UBROUTINE 

 ECESSARY 

 ROGPAM MU 

 A MAIM 

 OUTINE, F 

 8M OS ANS 



DIVISION, 

 FIT, 



APK» CO-OP* WEST VIRGINIA INSTITUTE OF TECHNOLOGY. 

 US COAST GUARD OCE ANOGRAPHIC UNIT. ATD/DPB. 



JUN 26,1980. 



PROGRAM IS THE MAIN PROGRAM OF THE DYFIT SYSTEM. 

 TATEMENTS - A CALL TO DYFORT (THE OLD MAIN ROUTINE) 



STATEMENT, 

 RST COBOL PROGRAM IN A MIXED LANGUAGE ENVIRONMENT 

 STPO (A LIBRARY SUBROUTINE) WHICH INITIALIZES THE 



CO'«^MUNICATIONS AREA AND SAVES POINTER REGISTERS 

 FOR RETURN TO THE MAIN PROGRAM. THEREFORE THE FIRST 

 ST 8E A COBOL PROGRAM, AS CONTROL WOULD NOT RETURN 

 FORTRAN PROGRAM AFTER IT HAD CALLED A COBOL SU3- 

 OR MORE INFO. REFER TO CALLING AND CALLED PROGRAMS. 

 I COBOL PROGRAMMERS GUIDE. 



ENVIRONMENT DIVISION. 

 DATA DIVISION. 

 PROCEDURE DIVISION. 



CALL 'DYFORT*. 



STOP RUN. 



IDENTIFI 

 PROGRAM- 

 AUTHOR. 

 INSTALLA 

 DATE-WRI 

 DATE-COM 

 REMARKS. 

 CONT 

 DEPT 

 STAN 

 SEQU 

 STAR 

 TWO 



CATION 



ID. SE 



CO-OP 



TION. 



TTEN. 



PILED. 



AINING 

 H, AND 

 OARD D 

 ENTIAL 

 T POIN 

 ENTRY 

 1) SE 



DIVISION. 

 TKEY. 



BOB STARK U 

 US COAST GU 

 IS/11/19R0. 



SCG OCEANOGRAPHIC UNIT. 

 ARD OCEANOGRAPHIC UNIT, 



ATD/DPB. 



THIS P 

 LATIT 

 DYNAM 



E^TH, 

 LOGIC 



t; 



POINTS 

 TKEY - 



ROGRA 

 UDE, 

 IC HE 

 JULIA 

 IS U 



ARE 

 POSI 

 RECOR 

 2) READER - READ 

 FILE 



M READS AN INDEXED SEQUENTIAL FILE 

 LONGITUDE, YEAR, JULIAN-DAY, STANDARD 

 IGHT RECORDS; THE FILE IS SORTED BY 

 N DAY, LATITUDE, AND LONGITUDE; SKIP 

 SED TO POSITION THE FILE AT THE PROPER 



USED: 



TIONS THE FILE AT THE FIRST DESIRED 



D BASED ON THE STD. DEPTH AND JULIAN DAY 



S THE RECORDS AND RETURNS AN END OF 



flag; CLOSES THE FILE WHEN E0F=1. 



ENVIRON^ 

 CONFIGUR 

 SOUPCE-C 

 OBJECT-C 

 INPUT-OU 

 FILE-CON 

 SELE 



ENT 01 



aTION 



OMPUTE 



OMPUTE 



TPUT S 



TROL. 



CT DYN 



ACCESS 



RECORD 



VISION 

 SECTIO 

 R. IBM 

 R, IBM 

 ECTION 



N. 



-360. 



-360. 



AMIC-HEIGHT 

 MODE IS SE 

 KEY IS REC 



-FILE ASSIGN 



OUENTIAL 



ORD-KEY. 



TO DA-I-ISAMFILE 



DATA DIVISION. 



