Module axis_type_mod

• Developers: Morikawa Yasuhiro
• Version: $Id: axis_type.f90,v 1.9 2005/05/02 11:28:11 morikawa Exp $
• Tag Name: $Name: dcpam2-20050522-2 $
• Change History:

Overview

This module provide derived types including all information about Axes data, and utility to treat the derived type variables.

座標軸に関する全ての情報を包括する構造体、 およびその構造体変数を扱うためのユーティリティを提供する。

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), pointer:: attrs(:) =>null() ! 属性情報群
   real(DBKIND)         , pointer:: a_Dim(:) =>null() ! 次元データ
   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(:)