upcross.txt

来自「一个组合程序」· 文本 代码 · 共 19 行

Program UP_CROSS.FOR

This FORTRAN program determines the zero upcrossing 
waves from a timeseries of the free surface.  It writes
H1/3 and Tz to the screen and writes all of the wave 
heights and periods to a file.

INPUT:
   input data file name 
   output file name


input file format

   (1x,i5)		number of data pairs
   (4x,f9.4,f9.4)	time, eta
	.		   .
	.		   .
	.		   .