! simple interface routines such that f2py does not have to also compile
! parts no needed for the interface.

subroutine set_stardata_(y, sig, n)

  use types, only: &
       real64, int32

  use mixmap, only: &
       set_stardata

  implicit none

  real(kind=real64), intent(in) :: &
       y(n), sig(n)
  integer(kind=int32), intent(in) :: &
       n

  !f2py integer(kind=int32),intent(hide),depend(y) :: n_=shape(y, 0)

  call set_stardata(y, sig, n)

end subroutine set_stardata_

! ----------------------------------------------------------------------

subroutine set_modeldata_(data, nel, nzone)

  use types, only: &
       real64, int32

  use mixmap, only: &
       set_modeldata

  implicit none

  real(kind=real64), intent(in) :: &
       data(nel, nzone)
  integer(kind=int32), intent(in) :: &
       nel, nzone

  !f2py integer(kind=int32),intent(hide),depend(y) :: nel_=shape(y, 0)
  !f2py integer(kind=int32),intent(hide),depend(y) :: nzone_=shape(y, 1)

  call set_modeldata(data, nel, nzone)

end subroutine set_modeldata_