Module axis_type_mod

• Developers: Morikawa Yasuhiro
• Version: $Id: axis_type.f90,v 1.7 2005/01/03 09:34:35 morikawa Exp $
• Tag Name: $Name: $
• Change History:

Overview

Provide Derived types for Axes data.

Error Handling

Known Bugs

Note

Future Plans

Dependency

use type_mod,    only: REKIND, DBKIND, INTKIND, TOKEN, STRING
use gt4_history, only: GT_HISTORY_AXIS, GT_HISTORY_ATTR

Public Interface

private
public :: AXISINFO                        ! derived types
public :: axis_type_copy, axis_attrs_copy ! subroutines
public :: axis_attrs_init                 ! subroutines

Generic Procedure

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

Derived Types

次元に関する情報、およびデータを格納

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

Procedure Interface

Copy AXISINFO data (for 0 dimensional data)

subroutine axis_type_copy0(from, to)

Dependency

use type_mod, only: STRING
use dc_trace, only: BeginSub, EndSub

Input

type(AXISINFO), intent(in)  :: from

Output

type(AXISINFO), intent(out) :: to

Copy AXISINFO data (for 1 dimensional data)

subroutine axis_type_copy1(from, to)

Dependency

use type_mod, only: STRING, INTKIND
use dc_trace, only: BeginSub, EndSub

Input

type(AXISINFO), intent(in)  :: from(:)

Output

type(AXISINFO), intent(out) :: to(:)

Copy AXISATTR (in gt4f90io) data (for 1 dimensional data)

subroutine axis_attrs_copy(from, to)

Dependency

use type_mod, only: STRING, INTKIND
use gt4_history, only: GT_HISTORY_ATTR
use dc_trace, only: BeginSub, EndSub, DbgMessage

Input

type(GT_HISTORY_ATTR), intent(in)  :: from(:)

Output

type(GT_HISTORY_ATTR), intent(out) :: to(:)

Initialize AXISATTR (in gt4f90io) data (for 0 dimensional data)

subroutine axis_attrs_init0(attrs)

Dependency

use type_mod, only: STRING, INTKIND
use gt4_history, only: GT_HISTORY_ATTR
use dc_trace, only: BeginSub, EndSub, DbgMessage

In/Out

type(GT_HISTORY_ATTR), intent(inout):: attrs

Initialize AXISATTR (in gt4f90io) data (for 1 dimensional data)

subroutine axis_attrs_init1(attrs)

Dependency

use type_mod, only: STRING, INTKIND
use gt4_history, only: GT_HISTORY_ATTR
use dc_trace, only: BeginSub, EndSub, DbgMessage

In/Out

type(GT_HISTORY_ATTR), intent(inout):: attrs(:)