!---------------------------------------------------------------------------
!---------------------------------------------------------------------------
!---------------------------------------------------------------------------
!+
! Function FUNCS (X, MA)
!
! Function called by NR routine SVDFIT
!-

function funcs (x, ma)

  use cesrv_struct
  use cesrv_interface

  implicit none

  integer, intent(in) :: ma
  integer i, ix

  real(rp), intent(in) :: x
  real(rp) f_com(4, 200)
  real(rp) funcs(ma)

  common / wave_anal_com / f_com

!

  ix = nint(x)
  do i = 1, ma
    funcs(i) = f_com(i, ix)
  enddo

  return

end function