eik_get_sizes Subroutine

public subroutine eik_get_sizes(nthetaout, nperiodout, nbsetout)

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
integer, intent(out) :: nthetaout
integer, intent(out) :: nperiodout
integer, intent(out) :: nbsetout

Contents

Source Code


Source Code

  subroutine eik_get_sizes (nthetaout, nperiodout, nbsetout)
    use theta_grid_params, only: ntheta, nperiod
    implicit none
    integer, intent (out) :: nthetaout, nperiodout, nbsetout

    nthetaout = ntheta
    nperiodout = nperiod
    nbsetout = ntheta/2+1 ! upper bound
  end subroutine eik_get_sizes