mathutilmodule::mod_offset Interface Reference

Collaboration diagram for mathutilmodule::mod_offset:

Private Member Functions
pure integer(i4b) function	mod_offset_int (a, n, d)
	Modulo with offset for integer values. More...
pure real(dp) function	mod_offset_dbl (a, n, d)
	Modulo with offset for double precision values. More...

Detailed Description

Definition at line 13 of file MathUtil.f90.

Member Function/Subroutine Documentation

mod_offset_dbl()

pure real(dp) function mathutilmodule::mod_offset::mod_offset_dbl ( real(dp), intent(in)  a, real(dp), intent(in)  n, real(dp), intent(in), optional  d  )

private

Parameters

[in]	a	dividend
[in]	n	divisor
[in]	d	offset

Definition at line 107 of file MathUtil.f90.

    ! -- dummy
    real(DP), intent(in) :: a !< dividend
    real(DP), intent(in) :: n !< divisor
    real(DP), intent(in), optional :: d !< offset
    real(DP) :: mo
    ! -- local
    real(DP) :: ld
 
    if (present(d)) then
      ld = d
    else
      ld = 0
    end if
    mo = a - n * floor((a - ld) / n)

mod_offset_int()

pure integer(i4b) function mathutilmodule::mod_offset::mod_offset_int ( integer(i4b), intent(in)  a, integer(i4b), intent(in)  n, integer(i4b), intent(in), optional  d  )

private

Parameters

[in]	a	dividend
[in]	n	divisor
[in]	d	offset

Definition at line 89 of file MathUtil.f90.

    ! -- dummy
    integer(I4B), intent(in) :: a !< dividend
    integer(I4B), intent(in) :: n !< divisor
    integer(I4B), intent(in), optional :: d !< offset
    integer(I4B) :: mo
    ! -- local
    integer(I4B) :: ld
 
    if (present(d)) then
      ld = d
    else
      ld = 0
    end if
    mo = a - n * floor(real(a - ld) / n)

---

The documentation for this interface was generated from the following file:

• /home/runner/work/modflow6/modflow6/src/Utilities/MathUtil.f90