MITTALS CONTROLLED BY NUC.) 



NAVAL UNDERSEA RESEARCH AND DEVELOPMENT CENTER 

 PASADENA LABORATORY 

 ATTN. PHILIP MARSH 

 3202 E. FOOTHILL BLVD. 

 PASADENA. CALIF. 91107 



RAY SORT LANGUAGE - FORTRAN IV 



COMPUTER - UNIVAC 1108 

 (COPY ON FILE AT NODC) 



SORTS CERTAIN SOUND RAY DATA (FROM TAPE WRITTEN BY THE 'SONAR IN RE- 

 FRACTIVE WATER' PROGRAM) BY DEPTH. INITIAL RAY ANGLE, AND DEpTH-INTEr- 

 SECTION NUMBER. SOURCE PROGRAM HAS 450 INSTRUCTIONS. CORE STORAGE— 

 ABOUT 31,000 WORDS. DOCUMENTED AS NUC TECHNICAL PUBLICATION No. 164 

 (VOL.1, 196 P AND VOL.2, 356 P) 'DIGITAL COMPUTER PROGRAMS FOR ANALY- 

 ZING ACOUSTIC SEARCH PERFORMANCE IN REFRACTIVE WATERS, NUC PROGRAMS 

 800000 AND 800001, BY PHlLiP MARSH AND A.B. POYNTER, ORDNANCE SYSTEMS 

 DEPARTMENT, DECEMBER 1969. (DOCUMENTS UNCLASSIFIED BUT TRANSMITTALS 

 CONTROLLED BY NUC. 1 



NAVAL UNDERSEA RESEARCH AND DEVELOPMENT CENTER 

 PASADENA LABORATORY 

 ATTN. PHILIP MARSH 

 3202 E. FOOTHILL BLVD. 

 PASADENA, CALIF. 91107 



RAYMOR LANGUAGE - FORTRAN V 



COMPUTER - UNIVAC 1108 

 (COPY ON FILE AT NODC) 



COMPUTES RAYLEIGH-MORSE BOTTOM REFLECTION COEFFICIENTS, ALSO PHASE 



CHANGES OF THE REFLECTED AND TRANSMITTED ACOUSTIC WAVE. AUTHOR — 

 J.C. REEVES. 



NAVAL UNDERSEA RESEARCH AND DEVELOPMENT CENTER 



PASADENA LABORATORY 



3202 E. FOOTHILL BOULEVARD 



PASADENA, CALIFORNIA 91107 



NEWFIT LANGUAGE - FORTRAN V 



COMPUTER - UNIVAC 1108 

 (COPY ON FILE AT NODC) 



FITS A VELOCITY PROFILE WITH A SERIES OF CURVE SEGMENTS HAVING CONTIN- 

 UOUS FIRST DERIVATIVES AT POINTS OF INTERSECTION. OUTPUT — PRINTED 

 LISTINGS OF ORIGINAL DATA, FITTED DATA, AND COEFFICIENTS OF CURVE SEG- 

 MENTS - ALSO CARDS FOR INPUT TO 'SONAR IN REFRACTIVE WATER' PROGRAM. 

 NEWFIT IS THE MAIN ROUTINE OF THE NEW CURVE FITTING PROGRAM. A REPORT 

 AP-PROG-C-8070 (FEB 1968, 98 P), BY MELVIN 0. BROWN, DOCUMENTS THE DE- 

 TAILS OF THE ENTIRE PROGRAM. CORE STORAGE NECESSARY — APPROX. 25,000 

 WORDS, INCLUDING LIBRARY AND SYSTEM ROUTINES. 



NAVAL UNDERSEA RESEARCH AND DEVELOPMENT CENTER 

 PASADENA LABORATORY 

 ATTN. PHILIP MARSH 

 3202 E. FOOTHILL BLVD. 

 PASADENA, CALIF. 91107 



PATTERN FUNCTION CALCULATIONS LANGUAGE - FORTRAN IV 



COMPUTER - UNIVAC 1108 

 (COPY ON FILE AT NODC) 



COMPUTES TRANSDUCER PATTERN FUNCTIONS NEEDED IN THE SONAR EQUATIONS 

 WHEN ESTIMATING SEARCH PERFORMANCE OF ACOUSTIC TORPEDOES. THE DESIRED 

 PARAMETERS INCLUDE THE TRANSMIT AND RECEIVE DIRECTIVITY INDEXES AND 

 THE VOLUME AND BOUNDARY REVERBERATION INDEXES. IN A VEHICLE EMPLOYED 

 IN CIRCULAR SEARCH, THE REVERBERATION INDEXES ARE FUNCTIONS OF TURN 

 RATE AND ELAPSED TIME IN THE PING CYClE. THE OUTPUT IS USED tiy THE 



PAGE 095 



