CONF_PAR_INT Derived Type

type, private, extends(CONF_PAR) :: CONF_PAR_INT


Components

Type Visibility Attributes Name Initial
character(len=1), public :: source = 'D'
character(len=max_paramter_name_len), public :: name = ""
integer, public :: val = -1
integer, public :: defval = -1
logical, public :: ensure_positive = .TRUE.

Type-Bound Procedures

procedure, public, non_overridable :: env_value => conf_par_env_value

  • private function conf_par_env_value(this, env_val) result(status)

    Arguments

    Type IntentOptional Attributes Name
    class(CONF_PAR), intent(inout) :: this
    class(*), intent(out) :: env_val

    Return Value logical

procedure, public, non_overridable :: print_source

  • private function print_source(this)

    Arguments

    Type IntentOptional Attributes Name
    class(CONF_PAR), intent(in) :: this

    Return Value character(len=3)

procedure, public :: set => set_conf_par_int

  • private subroutine set_conf_par_int(this, integer_val)

    Arguments

    Type IntentOptional Attributes Name
    class(CONF_PAR_INT), intent(inout) :: this
    integer, intent(in), optional :: integer_val

Source Code

   TYPE, EXTENDS(CONF_PAR) :: CONF_PAR_INT
      INTEGER :: val = -1, defval = -1
      LOGICAL :: ensure_positive = .TRUE.

   CONTAINS

      PROCEDURE :: set => set_conf_par_int

   END TYPE CONF_PAR_INT