signal_t Derived Type

type, public :: signal_t


Inherits

type~~signal_t~~InheritsGraph type~signal_t signal_t c_funptr c_funptr type~signal_t->c_funptr init_signal_ext_ptr, sign_ptr c_ptr c_ptr type~signal_t->c_ptr val_cfg type~simulation_t simulation_t type~signal_t->type~simulation_t sim type~simulation_t->type~signal_t impl_tol

Inherited by

type~~signal_t~~InheritedByGraph type~signal_t signal_t type~simulation_t simulation_t type~signal_t->type~simulation_t sim type~boundary_t boundary_t type~boundary_t->type~signal_t imposed_PorM, imposed_T type~he_prop_t He_prop_t type~he_prop_t->type~signal_t Temp_or_Q_Wall type~lab_prop_t lab_prop_t type~lab_prop_t->type~signal_t value type~scenario_t scenario_t type~scenario_t->type~signal_t Q_ext_load, Bfield_load, dBfield_load, ElCur_load type~simulation_t->type~signal_t impl_tol type~solid_t solid_t type~solid_t->type~signal_t Q_ext_load type~channel_t channel_t type~channel_t->type~he_prop_t HeProp type~label_t label_t type~label_t->type~lab_prop_t regionArr, edgeArr type~strand_t strand_t type~strand_t->type~scenario_t scen type~mesh2d_t mesh2D_t type~mesh2d_t->type~label_t label

Components

Type Visibility Attributes Name Initial
real(kind=dp), public, allocatable :: time(:)

time events (points of interpolation)
real(kind=dp), public, allocatable :: offset(:,:)

offset values (points of interpolation)
real(kind=dp), public, allocatable :: gain(:,:)

gain values for 0th order simply 1
real(kind=dp), public, allocatable :: x(:)

spatial coordinates
integer, public :: i = 1

last index (starting point for iteration)
type(simulation_t), public, pointer :: sim
type(c_funptr), public :: init_signal_ext_ptr = C_NULL_FUNPTR
character(len=:), public, allocatable :: cfg_str
type(c_funptr), public :: sign_ptr = C_NULL_FUNPTR
type(c_ptr), public :: val_cfg = C_NULL_PTR
procedure(itf_signal), public, pointer, nopass :: val_fpt => null()
procedure(init_signal_ext_if), public, pointer, nopass :: init_signal_ext => null()

Type-Bound Procedures

procedure, public :: init => signal_init

  • private subroutine signal_init(me, sim, input_cfg, key, x)

    Arguments

    Type IntentOptional Attributes Name
    class(signal_t), intent(inout) :: me
    type(simulation_t), intent(inout), target :: sim
    type(input_t), intent(in) :: input_cfg
    character(len=*), intent(in) :: key
    real(kind=dp), intent(in), optional :: x(:)

procedure, public :: v1d => signal_v1d

  • private function signal_v1d(me) result(val)

    Arguments

    Type IntentOptional Attributes Name
    class(signal_t), intent(inout) :: me

    Return Value real(kind=dp), (size(me%x))

    interpolated value

procedure, public :: v0d => signal_v0d

  • private function signal_v0d(me) result(val)

    Arguments

    Type IntentOptional Attributes Name
    class(signal_t), intent(inout) :: me

    Return Value real(kind=dp)

    interpolated value

Source Code

    type :: signal_t
        real(dp), allocatable :: time(:)      !! time events (points of interpolation)
        real(dp), allocatable :: offset(:,:)  !! offset values (points of interpolation)
        real(dp), allocatable :: gain(:,:)    !! gain values for 0th order simply 1
        real(dp), allocatable :: x(:)         !! spatial coordinates
        integer :: i = 1     !! last index (starting point for iteration)
        type(simulation_t), pointer :: sim
        type(c_funptr) :: init_signal_ext_ptr = C_NULL_FUNPTR   
        character(:), allocatable :: cfg_str
        type(c_funptr) :: sign_ptr = C_NULL_FUNPTR
        type(c_ptr) :: val_cfg = C_NULL_PTR                
        procedure(itf_signal), pointer, nopass :: val_fpt => null()    
        procedure(init_signal_ext_if), pointer, nopass :: init_signal_ext  => null()             
    contains
        procedure :: init => signal_init
        procedure :: v1d  => signal_v1d
        procedure :: v0d  => signal_v0d
    end type signal_t