TM No . 377 



APPEETOIX D 

 DIGITAL COMPUTER PROGRAMS 



The various computer programs discussed in chapter III are presented 

 here in abbreviated form for the convenience of those wishing to consider 

 similar analysis of oceanographic data. These programs were used on one or 

 all of the following digital computers . 



(1) An International Business Ifechine (l,BoM») 709O digital computer at 

 the Massachusetts Institute of Technology Computation Center. 



(2) An I»BoM« 1620 and a Control Lata Corporation (CoDoCo) 3200 digital 

 computer at the Naval Underwater Weapons Research and Engineering Station 

 computer laboratory. 



The programs are in standard fortran language. A brief statement of 

 definitions of non-standard or unique symbols and other helpful information 

 are included . 



The programs listed here were designed specifically for the wave studies. 

 However^ they can be made generally applicable to stationary time series data. 



Velocity Conversion Program (''/ELTIME) 



This program (discussed in chapter III) converts the punch card data^ 

 which contains the sign and relative time of voltage pulse occurrence (along 

 with zero crossover information)^ into uninterpolated vdlocity data (cm sec" ). 

 The raw data punch cards contain five sequential pieces of data. A negative 

 velocity is indicated by the number 2 (two) in the output listing. 



Abbreviations used are : 



EMSEC = The chart speed of the Sanburn recorder read in mm sec~l. 



IJTO(k) =: Indicator of the direction of the positive pul.ses on the strip 

 chart (to provide the proper sign for the velocity values); 



i«e., IND = Co denotes upward pulses 

 1 1 denotes zero crossing 

 I 2 denotes downward pulses . 



Combination Spectrum Program (Program BBELS ) 



This flexible program contains three subprograms which include linear in- 

 terpolation, orthogonal velocity corrections (of OMDUM III data), and spectrum 

 analysis. The input is the velocity time data .generated in the velocity 



D-1 



