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