ezhybrid_initx.f90

!  EZhybrid routines callable without a module interface...
 
subroutine ezhybrid_init2_r8x(spline_o, n1, n2, hspline, ier)
 
  !  init call (set array size from object)
 
  use ezspline_obj
  use ezspline
  implicit NONE
 
  type(EZspline2_r8) spline_o
  integer, intent(in) :: n1, n2
  integer, intent(in) :: hspline(2)
  integer, intent(out) :: ier
 
  call ezhybrid_init(spline_o, n1, n2, hspline, ier)
 
end subroutine ezhybrid_init2_r8x
 
subroutine ezhybrid_init3_r8x(spline_o, n1, n2, n3, hspline, ier)
 
  !  init call (set array size from object)
 
  use ezspline_obj
  use ezspline
  implicit NONE
 
  type(EZspline3_r8) spline_o
  integer, intent(in) :: n1, n2, n3
  integer, intent(in) :: hspline(3)
  integer, intent(out) :: ier
 
  call ezhybrid_init(spline_o, n1, n2, n3, hspline, ier)
 
end subroutine ezhybrid_init3_r8x
 
subroutine ezhybrid_init2_r4x(spline_o, n1, n2, hspline, ier)
 
  !  init call (set array size from object)
 
  use ezspline_obj
  use ezspline
  implicit NONE
 
  type(EZspline2_r4) spline_o
  integer, intent(in) :: n1, n2
  integer, intent(in) :: hspline(2)
  integer, intent(out) :: ier
 
  call ezhybrid_init(spline_o, n1, n2, hspline, ier)
 
end subroutine ezhybrid_init2_r4x
 
subroutine ezhybrid_init3_r4x(spline_o, n1, n2, n3, hspline, ier)
 
  !  init call (set array size from object)
 
  use ezspline_obj
  use ezspline
  implicit NONE
 
  type(EZspline3_r4) spline_o
  integer, intent(in) :: n1, n2, n3
  integer, intent(in) :: hspline(3)
  integer, intent(out) :: ier
 
  call ezhybrid_init(spline_o, n1, n2, n3, hspline, ier)
 
end subroutine ezhybrid_init3_r4x