init_element Subroutine

  1. tem_element_module.f90
  2. tem_element_module
  3. init_element

private subroutine init_element(me, length)

initialize an element and optionally set contents

Arguments

Type IntentOptional AttributesName
type(tem_element_type), intent(out) :: me
integer, intent(in), optional :: length

Calls

proc~~init_element~~CallsGraph proc~init_element init_element interface~init~4 init proc~init_element->interface~init~4 proc~init_ga_dynlong init_ga_dynlong interface~init~4->proc~init_ga_dynlong

Called by

proc~~init_element~~CalledByGraph proc~init_element init_element interface~init~37 init interface~init~37->proc~init_element

Contents

Source Code

init_element

Source Code

  subroutine init_element( me, length )
    ! ---------------------------------------------------------------------------
    type( tem_element_type ), intent(out) :: me
    integer, intent(in), optional :: length
    ! ---------------------------------------------------------------------------
    call init( me = me%tID, length = length )
    call init( me = me%property, length = length )
    call init( me = me%eType, length = length )
    call init( me = me%pntTID, length = length )
    call init( me = me%stencil, length = length )
    call init( me = me%neighID, length = length )
    call init( me = me%sourceProc, length = length )
    call init( me = me%haloNesting, length = length )
    call init( me = me%needsUpdate, length = length )

    me%nElems = 0

  end subroutine init_element