historyaxisinquire.f90

Go to the documentation of this file.

!= GT_HISTORY_AXIS 変数への問い合わせ
!= Inquire for a GT_HISTORY_AXIS variable
!
! Authors::   Yasuhiro MORIKAWA
! Version::   $Id: historyaxisinquire.f90,v 1.2 2009-05-25 09:45:20 morikawa Exp $
! Tag Name::  $Name:  $
! Copyright:: Copyright (C) GFD Dennou Club, 2000-2009. All rights reserved.
! License::   See COPYRIGHT[link:../../../COPYRIGHT]
!
  subroutine historyaxisinquire1( axis, &
    & name, size, longname, units, xtype )
    !
    !== GT_HISTORY_AXIS 型変数への問い合わせ
    !
    ! GT_HISTORY_AXIS 型の変数内の各情報を参照します。
    !
    use dc_types, only: string, token, dp
    use dc_trace, only: beginsub, endsub, dbgmessage
    use gtool_history_types, only: gt_history, gt_history_axis, gt_history_varinfo, gt_history_attr
    use gtool_history_internal, only: default
    implicit none
    type(gt_history_axis),intent(in) :: axis
    character(*) , intent(out), optional:: name     ! 次元変数名
    integer, intent(out), optional:: size     ! 次元長 (配列サイズ)
    character(*) , intent(out), optional:: longname ! 次元変数の記述的名称
    character(*) , intent(out), optional:: units    ! 次元変数の単位
    character(*) , intent(out), optional:: xtype    ! 次元変数の型
    character(len = *), parameter:: subname = "HistoryAxisInquire1"
  continue
    call beginsub(subname)
    if (present(name)) then
      name     = axis % name
    end if
    if (present(size)) then
      size     = axis % length
    end if
    if (present(longname)) then
      longname = axis % longname
    end if
    if (present(units)) then
      units    = axis % units
    end if
    if (present(xtype)) then
      xtype    = axis % xtype
    end if
    call endsub(subname)
  end subroutine historyaxisinquire1
 
  !-------------------------------------------------------------------
 
  subroutine historyaxisinquire2( axis, &
    & name, size, longname, units, xtype)
    !
    ! 使用方法は HistoryAxisInquire と同様です. 
    !
    ! Usage is same as "HistoryAxisInquire".
    !
    !--
    ! 総称名 Inquire として提供するためのサブルーチンです. 
    ! 機能は HistoryAxisInquire1 と同じです. 
    !++
    !
    use dc_trace, only: beginsub, endsub, dbgmessage
    use gtool_history_types, only: gt_history, gt_history_axis, gt_history_varinfo, gt_history_attr
    use gtool_history_generic, only: historyaxisinquire
    implicit none
    type(gt_history_axis),intent(in) :: axis
    character(*) , intent(out), optional:: name     ! 次元変数名
    integer, intent(out), optional:: size     ! 次元長 (配列サイズ)
    character(*) , intent(out), optional:: longname ! 次元変数の記述的名称
    character(*) , intent(out), optional:: units    ! 次元変数の単位
    character(*) , intent(out), optional:: xtype    ! 次元変数の型
    character(len = *), parameter:: subname = "HistoryAxisInquire2"
  continue
    call beginsub(subname)
    call historyaxisinquire( axis, &
      & name, size, longname, units, xtype)
    call endsub(subname)
  end subroutine historyaxisinquire2