readt.m

计算水声传播的时域波数积分程序

function [ t ] = readt( fid )

% reads in output times

Nt = fscanf( fid, '%i', 1 );
fprintf( '\nNumber of output times = %i \n', Nt )
fgetl( fid );

t = fscanf( fid, '%f', 2 );
fprintf( '%f   ', t )
fprintf( '\n' )

if Nt > 2
  t = linspace( t( 1 ), t( 2 ), Nt )'; % generate vector of receiver ranges
end

fgetl( fid );