Path: | gtool/gtool_historyauto/historyautoputaxis.f90 |
Last Update: | Sun May 10 21:19:17 +0900 2009 |
Authors: | Yasuhiro MORIKAWA |
Version: | $Id: historyautoputaxis.f90,v 1.1 2009-05-10 12:19:17 morikawa Exp $ |
Tag Name: | $Name: gtool5-20090729 $ |
Copyright: | Copyright (C) GFD Dennou Club, 2008-2009. All rights reserved. |
License: | See COPYRIGHT |
Subroutine : | |||
dim : | character(*), intent(in)
| ||
array(:) : | real(DP), intent(in)
|
座標データを設定します.
Set data of an axis.
subroutine HistoryAutoPutAxisDouble( dim, array ) ! ! 座標データを設定します. ! ! Set data of an axis. ! use gtool_historyauto_internal, only: initialized, numdims, data_axes, gthst_axes use gtool_history, only: HistoryAxisInquire, HistoryAxisAddAttr, HistoryVarinfoCreate use dc_trace, only: BeginSub, EndSub use dc_error, only: StoreError, DC_NOERR, GT_EARGSIZEMISMATCH, HST_ENOAXISNAME, DC_ENOTINIT use dc_types, only: DP, STRING, TOKEN implicit none character(*), intent(in):: dim ! 座標の名称. ! ! ただし, ここで指定するもの ! は, HistoryAutoCreate の *dims* ! 既に指定されていなければなりません. ! ! Name of axis. ! ! Note that this value must be set ! as "dims" of "HistoryAutoCreate". ! real(DP), intent(in):: array(:) ! 座標データ ! ! データ型は整数, 単精度実数型, ! 倍精度実数型のどれでもかまいません. ! ただし, ファイルへ出力される際には, ! HistoryAutoCreate の *xtypes* で指定した ! データ型へ変換されます. ! ! Data of axis ! ! Integer, single or double precision are ! acceptable as data type. ! Note that when this is output to a file, ! data type is converted into "xtypes" ! specified in "HistoryAutoCreate" ! character(STRING):: name integer:: stat, i character(STRING):: cause_c character(*), parameter:: subname = "HistoryAutoPutAxisDouble" continue call BeginSub(subname, 'dim=<%c>', c1=trim(dim) ) stat = DC_NOERR cause_c = "" ! 初期設定チェック ! Check initialization ! if ( .not. initialized ) then stat = DC_ENOTINIT cause_c = 'gtool_historyauto' goto 999 end if do i = 1, numdims call HistoryAxisInquire( axis = gthst_axes(i), name = name ) ! (out) if ( trim(dim) == trim(name) ) then data_axes(i) % a_axis = array goto 999 end if end do stat = HST_ENOAXISNAME cause_c = dim 999 continue call StoreError(stat, subname, cause_c = cause_c) call EndSub(subname) end subroutine HistoryAutoPutAxisDouble
Subroutine : | |||
dim : | character(*), intent(in)
| ||
array(:) : | integer, intent(in)
|
座標データを設定します.
Set data of an axis.
subroutine HistoryAutoPutAxisInt( dim, array ) ! ! 座標データを設定します. ! ! Set data of an axis. ! use gtool_historyauto_internal, only: initialized, numdims, data_axes, gthst_axes use gtool_history, only: HistoryAxisInquire, HistoryAxisAddAttr, HistoryVarinfoCreate use dc_trace, only: BeginSub, EndSub use dc_error, only: StoreError, DC_NOERR, GT_EARGSIZEMISMATCH, HST_ENOAXISNAME, DC_ENOTINIT use dc_types, only: DP, STRING, TOKEN implicit none character(*), intent(in):: dim ! 座標の名称. ! ! ただし, ここで指定するもの ! は, HistoryAutoCreate の *dims* ! 既に指定されていなければなりません. ! ! Name of axis. ! ! Note that this value must be set ! as "dims" of "HistoryAutoCreate". ! integer, intent(in):: array(:) ! 座標データ ! ! データ型は整数, 単精度実数型, ! 倍精度実数型のどれでもかまいません. ! ただし, ファイルへ出力される際には, ! HistoryAutoCreate の *xtypes* で指定した ! データ型へ変換されます. ! ! Data of axis ! ! Integer, single or double precision are ! acceptable as data type. ! Note that when this is output to a file, ! data type is converted into "xtypes" ! specified in "HistoryAutoCreate" ! character(STRING):: name integer:: stat, i character(STRING):: cause_c character(*), parameter:: subname = "HistoryAutoPutAxisInt" continue call BeginSub(subname, 'dim=<%c>', c1=trim(dim) ) stat = DC_NOERR cause_c = "" ! 初期設定チェック ! Check initialization ! if ( .not. initialized ) then stat = DC_ENOTINIT cause_c = 'gtool_historyauto' goto 999 end if do i = 1, numdims call HistoryAxisInquire( axis = gthst_axes(i), name = name ) ! (out) if ( trim(dim) == trim(name) ) then data_axes(i) % a_axis = array goto 999 end if end do stat = HST_ENOAXISNAME cause_c = dim 999 continue call StoreError(stat, subname, cause_c = cause_c) call EndSub(subname) end subroutine HistoryAutoPutAxisInt
Subroutine : | |||
dim : | character(*), intent(in)
| ||
array(:) : | real, intent(in)
|
座標データを設定します.
Set data of an axis.
subroutine HistoryAutoPutAxisReal( dim, array ) ! ! 座標データを設定します. ! ! Set data of an axis. ! use gtool_historyauto_internal, only: initialized, numdims, data_axes, gthst_axes use gtool_history, only: HistoryAxisInquire, HistoryAxisAddAttr, HistoryVarinfoCreate use dc_trace, only: BeginSub, EndSub use dc_error, only: StoreError, DC_NOERR, GT_EARGSIZEMISMATCH, HST_ENOAXISNAME, DC_ENOTINIT use dc_types, only: DP, STRING, TOKEN implicit none character(*), intent(in):: dim ! 座標の名称. ! ! ただし, ここで指定するもの ! は, HistoryAutoCreate の *dims* ! 既に指定されていなければなりません. ! ! Name of axis. ! ! Note that this value must be set ! as "dims" of "HistoryAutoCreate". ! real, intent(in):: array(:) ! 座標データ ! ! データ型は整数, 単精度実数型, ! 倍精度実数型のどれでもかまいません. ! ただし, ファイルへ出力される際には, ! HistoryAutoCreate の *xtypes* で指定した ! データ型へ変換されます. ! ! Data of axis ! ! Integer, single or double precision are ! acceptable as data type. ! Note that when this is output to a file, ! data type is converted into "xtypes" ! specified in "HistoryAutoCreate" ! character(STRING):: name integer:: stat, i character(STRING):: cause_c character(*), parameter:: subname = "HistoryAutoPutAxisReal" continue call BeginSub(subname, 'dim=<%c>', c1=trim(dim) ) stat = DC_NOERR cause_c = "" ! 初期設定チェック ! Check initialization ! if ( .not. initialized ) then stat = DC_ENOTINIT cause_c = 'gtool_historyauto' goto 999 end if do i = 1, numdims call HistoryAxisInquire( axis = gthst_axes(i), name = name ) ! (out) if ( trim(dim) == trim(name) ) then data_axes(i) % a_axis = array goto 999 end if end do stat = HST_ENOAXISNAME cause_c = dim 999 continue call StoreError(stat, subname, cause_c = cause_c) call EndSub(subname) end subroutine HistoryAutoPutAxisReal