tem_load_translation Subroutine

private subroutine tem_load_translation(translate, conf, thandle)

This routine loads the translation table from transformation table

Arguments

Type IntentOptional Attributes Name
type(tem_translation_type), intent(out) :: translate

translate for spatial object
type(flu_State) :: conf

lua state
integer, intent(in) :: thandle

spatial object parent handle

Calls

proc~~tem_load_translation~~CallsGraph proc~tem_load_translation tem_load_translation aot_get_val aot_get_val proc~tem_load_translation->aot_get_val aot_table_close aot_table_close proc~tem_load_translation->aot_table_close aot_table_open aot_table_open proc~tem_load_translation->aot_table_open proc~tem_abort tem_abort proc~tem_load_translation->proc~tem_abort mpi_abort mpi_abort proc~tem_abort->mpi_abort

Called by

proc~~tem_load_translation~~CalledByGraph proc~tem_load_translation tem_load_translation proc~tem_load_transformation tem_load_transformation proc~tem_load_transformation->proc~tem_load_translation proc~tem_load_shape_single tem_load_shape_single proc~tem_load_shape_single->proc~tem_load_transformation interface~tem_load_shape tem_load_shape interface~tem_load_shape->proc~tem_load_shape_single proc~tem_load_shapes tem_load_shapes interface~tem_load_shape->proc~tem_load_shapes proc~tem_load_shapes->proc~tem_load_shape_single proc~load_spatial_parabol load_spatial_parabol proc~load_spatial_parabol->interface~tem_load_shape proc~tem_load_convergenceheader tem_load_convergenceHeader proc~tem_load_convergenceheader->interface~tem_load_shape proc~tem_load_spacetime_single tem_load_spacetime_single proc~tem_load_spacetime_single->interface~tem_load_shape proc~tem_load_trackingconfig tem_load_trackingConfig proc~tem_load_trackingconfig->interface~tem_load_shape

Source Code

  subroutine tem_load_translation( translate, conf, thandle )
    !--------------------------------------------------------------------------!
    !inferface variables
    !> translate for spatial object
    type(tem_translation_type), intent(out) :: translate
    !> lua state
    type(flu_state) :: conf
    !> spatial object parent handle
    integer, intent(in) :: thandle
    !--------------------------------------------------------------------------!
    integer :: translate_handle
    integer :: vError(3), errFatal(3)
    !--------------------------------------------------------------------------!
    errFatal = aoterr_fatal

    translate%active = .false.
    translate%vec = 0.0_rk
    call aot_table_open(L = conf, parent = thandle, &
      &                 thandle = translate_handle, &
      &                 key = 'translation')

    if(translate_handle > 0) then
      translate%active = .true.

      call aot_get_val(L=conf, thandle = thandle, key = 'translation', &
        &              val=translate%vec, ErrCode = vError )

      if (any(btest(vError, errFatal))) then
        write(logunit(0),*) 'Error in configuration: translate table in'
        write(logunit(0),*) '    transformation table'
        call tem_abort()
      end if
    endif

    call aot_table_close(L=conf, thandle=translate_Handle)

    if (translate%active) then
      write(logunit(1),*) ' Translation = ', translate%vec
    endif


  end subroutine tem_load_translation