subroutine get_r_fd(array1d,dim1)
       use dopplerState
       implicit none
       integer dim1,i
       real*8, dimension(dim1) :: array1d

       do i=1,dim1
        array1d(i) = r_fd(i)
       enddo

      end