This routine loads the translation table from transformation table
Type | Intent | Optional | 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 |
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