Provide Derived types for Axes data.
use type_mod, only: REKIND, DBKIND, INTKIND, TOKEN, STRING use gt4_history, only: GT_HISTORY_AXIS, GT_HISTORY_ATTR
private public :: AXISINFO ! derived types public :: axis_type_copy, axis_attrs_copy ! subroutines public :: axis_attrs_init ! subroutines
interface axis_type_copy module procedure axis_type_copy0, axis_type_copy1 end interface interface axis_attrs_init module procedure axis_attrs_init0, axis_attrs_init1 end interface
type AXISINFO type(GT_HISTORY_AXIS) :: axisinfo ! gt4 変数情報 type(GT_HISTORY_ATTR), allocatable:: attrs(:) ! 属性情報群 real(DBKIND) , allocatable:: a_Dim(:) ! 次元データ logical :: stored = .false. ! 格納完了フラグ end type AXISINFO
subroutine axis_type_copy0(from, to)
use type_mod, only: STRING use dc_trace, only: BeginSub, EndSub
type(AXISINFO), intent(in) :: from
type(AXISINFO), intent(out) :: to
subroutine axis_type_copy1(from, to)
use type_mod, only: STRING, INTKIND use dc_trace, only: BeginSub, EndSub
type(AXISINFO), intent(in) :: from(:)
type(AXISINFO), intent(out) :: to(:)
subroutine axis_attrs_copy(from, to)
use type_mod, only: STRING, INTKIND use gt4_history, only: GT_HISTORY_ATTR use dc_trace, only: BeginSub, EndSub, DbgMessage
type(GT_HISTORY_ATTR), intent(in) :: from(:)
type(GT_HISTORY_ATTR), intent(out) :: to(:)
subroutine axis_attrs_init0(attrs)
use type_mod, only: STRING, INTKIND use gt4_history, only: GT_HISTORY_ATTR use dc_trace, only: BeginSub, EndSub, DbgMessage
type(GT_HISTORY_ATTR), intent(inout):: attrs
subroutine axis_attrs_init1(attrs)
use type_mod, only: STRING, INTKIND use gt4_history, only: GT_HISTORY_ATTR use dc_trace, only: BeginSub, EndSub, DbgMessage
type(GT_HISTORY_ATTR), intent(inout):: attrs(:)