module dopplerState
integer i_samples,i_strtline,i_nlines
real*8, allocatable, dimension(:) :: r_fd
integer dim1_r_fd
end module