discreter Derived Type

  1. discrete.f90
  2. mod_discrete
  3. discreter

type, public :: discreter


Contents

Type-Bound Procedures


Type-Bound Procedures

generic, public :: set_interval => set_interval_int, set_interval_dbl

set the interval

  • private subroutine set_interval_int(D, interval)

    set the integer interval

    Arguments

    Type IntentOptional AttributesName
    class(discreter), intent(inout) :: D
    integer, intent(in) :: interval

  • private subroutine set_interval_dbl(D, interval)

    set the double interval

    Arguments

    Type IntentOptional AttributesName
    class(discreter), intent(inout) :: D
    real(kind=8), intent(in) :: interval

generic, public :: set_val => set_val_int, set_val_dbl

set last value

  • private subroutine set_val_int(D, val)

    set last integer value

    Arguments

    Type IntentOptional AttributesName
    class(discreter), intent(inout) :: D
    integer, intent(in) :: val

  • private subroutine set_val_dbl(D, val)

    set last double value

    Arguments

    Type IntentOptional AttributesName
    class(discreter), intent(inout) :: D
    real(kind=8), intent(in) :: val

generic, public :: test => test_int, test_dbl

test if value and last value differ by interval, set value -> last value

  • private function test_int(D, val) result(res)

    test if integer value and last value differ by interval, set integer value -> last value

    Arguments

    Type IntentOptional AttributesName
    class(discreter), intent(inout) :: D
    integer, intent(in) :: val

    Return Value logical

  • private function test_dbl(D, val) result(res)

    test if double value and last value differ by interval, set double value -> last value

    Arguments

    Type IntentOptional AttributesName
    class(discreter), intent(inout) :: D
    real(kind=8), intent(in) :: val

    Return Value logical