gtdata_generic.f90

Go to the documentation of this file.

! -*- coding: utf-8; mode: f90 -*-
!-------------------------------------------------------------------------------------
! Copyright (c) 2000-2016 Gtool Development Group. All rights reserved.
!-------------------------------------------------------------------------------------
! ** Important**
!
! This file is generated from gtdata_generic.erb by ERB included Ruby 2.3.3.
! Please do not edit this file directly. @see "gtdata_generic.erb"
!-------------------------------------------------------------------------------------

!--
! *** Caution!! ***
!
! This file is generated from "gtdata_generic.rb2f90" by Ruby 2.3.1.
! Please do not edit this file directly.
!
! [JAPANESE]
!
! ※※※ 注意!!! ※※※
!
! このファイルは "gtdata_generic.rb2f90" から Ruby 2.3.1
! によって自動生成されたファイルです.
! このファイルを直接編集しませんようお願い致します.
!
!
!++
!
!= gtdata_variable.f90 - gtool 変数の手続総称宣言
!
! Authors::   Yasuhiro MORIKAWA, Eizi TOYODA
! Version::   $Id: gtdata_generic.rb2f90,v 1.5 2009-10-11 07:36:37 morikawa Exp $
! Tag Name::  $Name:  $
! Copyright:: Copyright (C) GFD Dennou Club, 2000-2005. All rights reserved.
! License::   See COPYRIGHT[link:../../COPYRIGHT]
!

module gtdata_generic
  !
  !== GT_VARIABLE 型変数の手続総称宣言
  !
  ! ファイルの形式に依存しない多次元データである GT_VARIABLE 型変数
  ! の操作に関する手続きの全てはここで総称宣言されて公開されます。
  !
  ! 以降に一覧される手続は、第 1 引数が主な操作対象になるようなスタイルで
  ! 設計されています。 第 1 引数から gtool4 の手続であることがわかるので、
  ! 名前にわざわざ GT とはつけていません。
  !
  !== 種類別手続き一覧
  !
  ! ASCII 順の手続き一覧は下記の "Methods" を参照してください。
  !
  !=== 変数の作成・初期化・終了
  !
  ! Create            ::    変数の作成
  ! Open              ::    変数の初期化
  ! Close             ::    変数の終了処理
  !
  !=== 問い合わせ
  !
  ! Inquire           ::    変数または属性に関する問い合わせ
  !
  !=== データの入出力
  !
  ! Get               ::    ファイル入力
  ! Put, PutLine     ::    ファイル出力
  !
  !=== 次元順序番号の問い合わせ・変更
  !
  ! Dimname_To_Dimord ::    次元相対名から次元順序番号の問い合わせ
  ! Exch_dim          ::    次元順序番号の交換
  !
  !=== 変数構成写像機能（リミット、次元の加除）
  !
  ! 変数 (GT_VARIABLE 型) は順序の決まった次元集合をもちます。それぞれ
  ! の次元には決まった長さがあり、1から長さまでの番号で識別される格子から
  ! なっています。しかしながら、必要に応じて変数がもつ次元の順序を入れ替え
  ! たり、次元が存在しないようにみせかけたり、各々の次元の長さを変えたり格
  ! 子番号を付け替えたりできます。
  !
  ! Limit             ::    入出力範囲を拘束
  ! Add_Dim           ::    変数に次元を追加
  ! Del_Dim           ::    変数から次元を隠蔽
  ! Transform         ::    2 つの変数の次元配置の共通化
  !
  !=== 入出力範囲限定機能（スライス）
  !
  ! Slice             ::    入出力範囲を限定
  ! Slice_Next        ::    入出力範囲を移動
  ! Get_Slice         ::    変数入出力範囲限定情報を問い合わせ
  !
  !=== 属性関係
  !
  ! 属性名は英字、数字、下線から構成されます。先頭の文字は英字または
  ! "<b><tt>+</tt></b>" でなければなりません。
  ! "<b><tt>+</tt></b>" から始まる属性名は内部的に使用されるもの
  ! で、netCDF 実装では大域変数に対応します。
  !
  ! Attr_Rewind       ::    変数属性列挙の初期化
  ! Attr_Next         ::    変数属性の列挙
  ! Attr_True         ::    変数属性を論理型として読み取り
  ! Get_Attr          ::    変数属性の読み取り
  ! Put_Attr          ::    変数属性の書き出し
  ! Copy_Attr         ::    属性のコピー
  ! Del_Attr          ::    変数属性の削除
  !
  !=== その他
  !
  ! GTVarSearch       :: ファイルの中の変数名の列挙
  ! GTVarSync         :: ファイル入出力の同期
  ! GTDataTmpNam      :: 変数名の自動作成
  ! GTVarDel          :: ファイルの中の変数の削除 (作成中)
  ! operator(.equivalent.) [link:#M000133] :: 同値判定

  implicit none
  !
  ! 基本開閉動作
  !

  interface open
    subroutine gtvaropenbydimord(var, source_var, dimord, &
      count_compact, err)
      use gtdata_types, only: gt_variable
      type(gt_variable), intent(out):: var
      type(gt_variable), intent(in):: source_var
      integer, intent(in):: dimord
      logical, intent(in), optional:: count_compact
      logical, intent(out), optional:: err
    end subroutine gtvaropenbydimord
    subroutine gtvaropen(var, url, writable, err)
      use gtdata_types, only: gt_variable
      type(gt_variable), intent(out):: var
      character(*), intent(in):: url
      logical, intent(in), optional:: writable
      logical, intent(out), optional:: err
    end subroutine gtvaropen
  end interface

  interface create
    subroutine gtvarcreate(var, url, dims, xtype, long_name, overwrite, err)
      use gtdata_types, only: gt_variable
      type(gt_variable), intent(out):: var
      character(len = *), intent(in):: url
      type(gt_variable), intent(in), optional:: dims(:)
      character(len = *), intent(in), optional:: xtype
      character(len = *), intent(in), optional:: long_name
      logical, intent(in), optional:: overwrite
      logical, intent(out), optional:: err
    end subroutine gtvarcreate
    subroutine gtvarcreated(var, url, length, xtype, long_name, overwrite, err)
      use gtdata_types, only: gt_variable
      type(gt_variable), intent(out):: var
      character(len = *), intent(in):: url
      integer, intent(in):: length
      character(len = *), intent(in), optional:: xtype
      character(len = *), intent(in), optional:: long_name
      logical, intent(in), optional:: overwrite
      logical, intent(out), optional:: err
    end subroutine gtvarcreated
  end interface create

  interface close
    subroutine gtvarclose(var, err)
      use gtdata_types, only: gt_variable
      type(gt_variable), intent(in):: var
      logical, intent(out), optional:: err
    end subroutine gtvarclose
  end interface close

  !
  ! --- 属性関係 ---
  !

  interface attr_rewind
    subroutine gtvarattrrewind(var)
      use gtdata_types, only: gt_variable
      type(gt_variable), intent(inout):: var
    end subroutine gtvarattrrewind
  end interface attr_rewind

  interface attr_next
    subroutine gtvarattrnext(var, name, end)
      use gtdata_types, only: gt_variable
      type(gt_variable), intent(inout):: var
      character(*), intent(out):: name
      logical, intent(out), optional:: end
    end subroutine gtvarattrnext
  end interface attr_next

  ! 論理型読み取りは関数インターフェイスも提供
  interface attr_true
    logical function gtvarattrtrue(var, name, default)
      use gtdata_types, only: gt_variable
      type(gt_variable), intent(in):: var
      character(len = *), intent(in):: name
      logical, intent(in), optional:: default
    end function gtvarattrtrue
  end interface attr_true

  interface get_attr
    ! スカラで受け取るのが一番簡単。解釈可能な値がとられ、残りは捨てられる。
    subroutine gtvargetattri(var, name, value, default)
      use gtdata_types, only: gt_variable
      type(gt_variable), intent(in):: var
      character(len = *), intent(in):: name
      integer, intent(out):: value
      integer, intent(in), optional:: default
    end subroutine gtvargetattri
    subroutine gtvargetattrr(var, name, value, default)
      use gtdata_types, only: gt_variable
      type(gt_variable), intent(in):: var
      character(len = *), intent(in):: name
      real, intent(out):: value
      real, intent(in), optional:: default
    end subroutine gtvargetattrr

    subroutine gtvargetattrd(var, name, value, default)
      use gtdata_types, only: gt_variable
      use dc_types, only: dp
      type(gt_variable), intent(in):: var
      character(len = *), intent(in):: name
      real(DP), intent(out):: value
      real(DP), intent(in), optional:: default
    end subroutine gtvargetattrd

    ! ポインタ配列を使って受け取る場合は解釈可能な数だけ実体が割り付けられる。
    subroutine gtvargetattrip(var, name, value)
      use gtdata_types, only: gt_variable
      type(gt_variable), intent(in):: var
      character(len = *), intent(in):: name
      integer, pointer:: value(:)
    end subroutine gtvargetattrip

    subroutine gtvargetattrrp(var, name, value)
      use gtdata_types, only: gt_variable
      type(gt_variable), intent(in):: var
      character(len = *), intent(in):: name
      real, pointer:: value(:)
    end subroutine gtvargetattrrp

    subroutine gtvargetattrdp(var, name, value)
      use gtdata_types, only: gt_variable
      use dc_types, only: dp
      type(gt_variable), intent(in):: var
      character(len = *), intent(in):: name
      real(DP), pointer:: value(:)
    end subroutine gtvargetattrdp

    ! integer 配列, real 配列として受け取る
    ! 場合は属性長があまっている場合には切り捨てられ、
    ! 属性長が足りない場合は default 値 (ポインタと違い必須) を埋める。

    subroutine gtvargetattria(var, name, value, default)
      use gtdata_types, only: gt_variable
      type(gt_variable), intent(in):: var
      character(len = *), intent(in):: name
      integer, intent(out):: value(:)
      integer, intent(in):: default
    end subroutine gtvargetattria

    subroutine gtvargetattrra(var, name, value, default)
      use gtdata_types, only: gt_variable
      type(gt_variable), intent(in):: var
      character(len = *), intent(in):: name
      real, intent(out):: value(:)
      real, intent(in):: default
    end subroutine gtvargetattrra

    subroutine gtvargetattrda(var, name, value, default)
      use gtdata_types, only: gt_variable
      use dc_types, only: dp
      type(gt_variable), intent(in):: var
      character(len = *), intent(in):: name
      real(DP), intent(out):: value(:)
      real(DP), intent(in):: default
    end subroutine gtvargetattrda

    ! character 型で受け取る場合は通常の文字型代入と同様、
    ! 受け側変数の長さに合わせて切り捨て・空白埋めを行う。
    ! 属性が存在しない場合 default 値を使う。

    subroutine gtvargetattrcc(var, name, value, default)
      use gtdata_types, only: gt_variable
      type(gt_variable), intent(in):: var
      character(len = *), intent(in):: name
      character(len = *), intent(out):: value
      character(len = *), intent(in), optional:: default
    end subroutine gtvargetattrcc

    ! 文字列として読み取る場合は元の長さは正確に受け取られる。
    ! 属性が存在しない場合 default 値を使う。

!    subroutine GTVarGetAttrSC(var, name, value, default)
!      use dc_string, only: VSTRING
!      use gtdata_types, only: GT_VARIABLE
!      type(GT_VARIABLE), intent(in):: var
!      character(len = *), intent(in):: name
!      type(VSTRING), intent(out):: value
!      character(len = *), intent(in), optional:: default
!    end subroutine GTVarGetAttrSC

  end interface get_attr

  interface put_attr
    subroutine gtvarputattrdouble(var, name, value, err)
      use gtdata_types, only: gt_variable
      use dc_types, only: dp
      real(DP),           intent(in)            :: value(:)
      real,               intent(out), optional :: err
      type(gt_variable), intent(inout):: var
      character(len = *), intent(in):: name
    end subroutine gtvarputattrdouble
    subroutine gtvarputattrreal(var, name, value, err)
      use gtdata_types, only: gt_variable
      use dc_types, only: sp
      real(SP),           intent(in)            :: value(:)
      real(SP),           intent(out), optional :: err
      type(gt_variable), intent(inout):: var
      character(len = *), intent(in):: name
    end subroutine gtvarputattrreal
    subroutine gtvarputattrint(var, name, value, err)
      use gtdata_types, only: gt_variable
      integer,            intent(in)            :: value(:)
      real,               intent(out), optional :: err
      type(gt_variable), intent(inout):: var
      character(len = *), intent(in):: name
    end subroutine gtvarputattrint
    subroutine gtvarputattrchar(var, name, value, xtype, err)
      use gtdata_types, only: gt_variable
      character(len = *), intent(in)            :: value
      logical,            intent(out), optional :: err
      character(len = *), intent(in),  optional :: xtype
      type(gt_variable), intent(inout):: var
      character(len = *), intent(in):: name
    end subroutine gtvarputattrchar
    subroutine gtvarputattrlogical(var, name, value, err)
      use gtdata_types, only: gt_variable
      logical,            intent(in)            :: value
      real,               intent(out), optional :: err
      type(gt_variable), intent(inout):: var
      character(len = *), intent(in):: name
    end subroutine gtvarputattrlogical
  end interface put_attr

  interface del_attr
    subroutine gtvardelattr(var, name, err)
      use gtdata_types, only: gt_variable
      type(gt_variable), intent(inout):: var
      character(len = *), intent(in):: name
      logical, intent(out), optional:: err
    end subroutine gtvardelattr
  end interface del_attr

  interface copy_attr
    subroutine gtvarcopyattr(to, attrname, from, err)
      use gtdata_types, only: gt_variable
      type(gt_variable), intent(inout):: to
      character(len = *), intent(in):: attrname
      type(gt_variable), intent(in):: from
      logical, intent(out), optional:: err
    end subroutine gtvarcopyattr
    subroutine gtvarcopyattrall(to, from, err, global)
      use gtdata_types, only: gt_variable
      type(gt_variable), intent(inout):: to
      type(gt_variable), intent(inout):: from
      logical, intent(out), optional:: err
      logical, intent(in), optional:: global
    end subroutine gtvarcopyattrall
  end interface copy_attr

  !
  ! --- 次元関係 ---
  !

  ! 現在の入出力範囲の大きさは inquire(var, size=) で取得できる

  interface slice
    ! おまかせ指示
    ! compatible を指定するとまったく同じに指定
    subroutine gtvarsliceauto(var, compatible)
      use gtdata_types, only: gt_variable
      type(gt_variable), intent(inout):: var
      type(gt_variable), intent(in), optional:: compatible
    end subroutine gtvarsliceauto
    ! 次元を指定した指示
    subroutine gtvarslice(var, dimord, start, count, stride)
      use gtdata_types, only: gt_variable
      type(gt_variable), intent(in):: var
      integer, intent(in):: dimord
      integer, intent(in), optional:: start
      integer, intent(in), optional:: count
      integer, intent(in), optional:: stride
    end subroutine gtvarslice
    ! 文字列による指示
    subroutine gtvarslicec(var, string, err)
      use gtdata_types, only: gt_variable
      type(gt_variable), intent(inout):: var
      character(len = *), intent(in):: string
      logical, intent(out):: err
    end subroutine gtvarslicec
  end interface slice

  interface get_slice
    ! 次元順番を指定して取得
    subroutine gtvargetslice(var, dimord, start, count, stride, count_compact)
      use gtdata_types, only: gt_variable
      type(gt_variable), intent(in):: var
      integer, intent(in):: dimord
      integer, intent(out), optional:: start
      integer, intent(out), optional:: count
      integer, intent(out), optional:: stride
      logical, intent(in), optional:: count_compact
    end subroutine gtvargetslice
    ! 全次元について一括取得
    ! あらかじめ inquire(var, alldims) して配列を確保する。
    subroutine gtvargetsliceall(var, start, count, stride)
      use gtdata_types, only: gt_variable
      type(gt_variable), intent(in):: var
      integer, intent(out), optional:: start(:), count(:), stride(:)
    end subroutine gtvargetsliceall
  end interface get_slice

  interface dimname_to_dimord
    integer function gtvardimname2ord(var, name)
      use gtdata_types, only: gt_variable
      type(gt_variable), intent(in):: var
      character(len = *), intent(in):: name
    end function gtvardimname2ord
  end interface dimname_to_dimord

  ! limit: 空間変換器機能のセットアップ
  !
  interface limit
    subroutine gtvarlimit(var, string, err)
      use gtdata_types, only: gt_variable
      type(gt_variable), intent(inout) :: var
      character(len = *), intent(in)   :: string
      logical, intent(out), optional   :: err
    end subroutine gtvarlimit
    subroutine gtvarlimit_iiii(var, dimord, start, count, stride, err)
      use gtdata_types, only: gt_variable
      type(gt_variable), intent(inout):: var
      integer, intent(in)             :: dimord
      integer, intent(in) , optional  :: start, count, stride
      logical, intent(out), optional  :: err
    end subroutine gtvarlimit_iiii
  end interface limit

  interface transform
    subroutine gtvarxformbinary(var1, var2, err)
      use gtdata_types, only: gt_variable
      type(gt_variable), intent(inout):: var1, var2
      logical, intent(out), optional:: err
    end subroutine gtvarxformbinary
  end interface transform

  ! 明示的空間変換機能

  ! 変数ハンドル var の dimord 番目の位置に次元
  ! dimvar を追加する。dimord 番目以降の次元は一つ後ろにずれる。
  ! もし dimord が var の有効次元数より大きければ (有効次元数 + 1)
  ! が与えられたものとみなされる。
  interface add_dim
    subroutine gtvaradddim(var, dimord, dimvar, err)
      use gtdata_types, only: gt_variable
      type(gt_variable), intent(in):: var
      type(gt_variable), intent(in):: dimvar
      integer, intent(in):: dimord
      logical, intent(out):: err
    end subroutine gtvaradddim
  end interface add_dim

  ! 変数ハンドルから次元を「除去」する。実際には、
  ! 次元対応表の順位を下げ有効次元数をデクリメントするだけなので、
  ! 入出力に支障はない。
  interface del_dim
    subroutine gtvardeldim(var, dimord, err)
      use gtdata_types, only: gt_variable
      type(gt_variable), intent(in):: var
      integer, intent(in):: dimord
      logical, intent(out):: err
    end subroutine gtvardeldim
  end interface del_dim

  ! 次元対応表の順位の交換
  interface exch_dim
    subroutine gtvarexchdim(var, dimord1, dimord2, count_compact, err)
      use gtdata_types, only: gt_variable
      type(gt_variable), intent(in):: var
      integer, intent(in):: dimord1, dimord2
      logical, intent(in), optional:: count_compact
      logical, intent(out):: err
    end subroutine gtvarexchdim
  end interface exch_dim

  !
  ! --- 問い合わせ ---
  !

  interface inquire
    subroutine gtvarinquire(var, growable, &
      & rank, alldims, allcount, size, &
      & xtype, name, url, err)
      use gtdata_types, only: gt_variable
      type(gt_variable), intent(in):: var
      character(len=*), intent(out), optional:: xtype
      character(len=*), intent(out), optional:: name
      character(len=*), intent(out), optional:: url
      integer, intent(out), optional:: rank
      integer, intent(out), optional:: alldims
      integer, intent(out), optional:: allcount
      integer, intent(out), optional:: size
      logical, intent(out), optional:: growable
      logical, intent(out), optional:: err
    end subroutine gtvarinquire
    subroutine gtvarinquire2(var, allcount)
      use gtdata_types, only: gt_variable
      type(gt_variable), intent(in):: var
      integer, intent(out):: allcount(:)
    end subroutine gtvarinquire2
    subroutine gtvarinquired(var, dimord, url, allcount, err)
      use gtdata_types, only: gt_variable
      type(gt_variable), intent(in):: var
      integer, intent(in):: dimord
      character(len=*), intent(out), optional:: url
      integer, intent(out), optional:: allcount
      logical, intent(out), optional:: err
    end subroutine gtvarinquired
    subroutine gtvarinquirea(var, attrname, xtype)
      use gtdata_types, only: gt_variable
      type(gt_variable), intent(in):: var
      character(len=*), intent(in):: attrname
      character(len=*), intent(out), optional:: xtype
    end subroutine gtvarinquirea
  end interface inquire

  ! 総なめ用イテレータ
  interface slice_next
    subroutine gtvarslicenext(var, dimord, err, stat)
      use gtdata_types, only: gt_variable
      type(gt_variable), intent(in out):: var
      integer, intent(in), optional:: dimord
      logical, intent(out), optional:: err
      integer, intent(out), optional:: stat
    end subroutine gtvarslicenext
  end interface slice_next

  ! 同値判定
  interface operator(.equivalent.)
    logical function gtvarequivalent(var1, var2)
      use gtdata_types, only: gt_variable
      type(gt_variable), intent(in):: var1, var2
    end function gtvarequivalent
  end interface operator(.equivalent.)

  !
  !== 入出力
  !
  !=== 入力
  !
  ! Get(var, value, nvalue, [err])
  ! 1次元配列に現在の入出力範囲を取得する。
  ! nvalue は利用者が配列長を格納しなければならない。
  ! 個別名 GTVarGetReal を用いると多次元配列に入力
  ! することもできるが、入出力範囲との関係に注意が必要。
  !
  ! Get(var, value, [err]) は 1〜 7 次元のポインタをとる。
  ! 入出力範囲をポインタ次元数に限定し、配列を確保し、
  ! 値を入れて返す。
  !

  interface get
    subroutine gtvargetdouble(var, value, nvalue, err)
      use gtdata_types, only: gt_variable
      use dc_types, only: dp
      real(DP), intent(out):: value(*)
      type(gt_variable), intent(in):: var
      integer, intent(in):: nvalue
      logical, intent(out), optional:: err
    end subroutine gtvargetdouble
    subroutine gtvargetpointerdouble1(var, value, err)
      use gtdata_types, only: gt_variable
      use dc_types,     only: dp
      real(DP),          pointer               :: value(:)
      type(gt_variable), intent(in)            :: var
      logical,           intent(out), optional :: err
    end subroutine gtvargetpointerdouble1
    subroutine gtvargetpointerdouble2(var, value, err)
      use gtdata_types, only: gt_variable
      use dc_types,     only: dp
      real(DP),          pointer               :: value(:,:)
      type(gt_variable), intent(in)            :: var
      logical,           intent(out), optional :: err
    end subroutine gtvargetpointerdouble2
    subroutine gtvargetpointerdouble3(var, value, err)
      use gtdata_types, only: gt_variable
      use dc_types,     only: dp
      real(DP),          pointer               :: value(:,:,:)
      type(gt_variable), intent(in)            :: var
      logical,           intent(out), optional :: err
    end subroutine gtvargetpointerdouble3
    subroutine gtvargetpointerdouble4(var, value, err)
      use gtdata_types, only: gt_variable
      use dc_types,     only: dp
      real(DP),          pointer               :: value(:,:,:,:)
      type(gt_variable), intent(in)            :: var
      logical,           intent(out), optional :: err
    end subroutine gtvargetpointerdouble4
    subroutine gtvargetpointerdouble5(var, value, err)
      use gtdata_types, only: gt_variable
      use dc_types,     only: dp
      real(DP),          pointer               :: value(:,:,:,:,:)
      type(gt_variable), intent(in)            :: var
      logical,           intent(out), optional :: err
    end subroutine gtvargetpointerdouble5
    subroutine gtvargetpointerdouble6(var, value, err)
      use gtdata_types, only: gt_variable
      use dc_types,     only: dp
      real(DP),          pointer               :: value(:,:,:,:,:,:)
      type(gt_variable), intent(in)            :: var
      logical,           intent(out), optional :: err
    end subroutine gtvargetpointerdouble6
    subroutine gtvargetpointerdouble7(var, value, err)
      use gtdata_types, only: gt_variable
      use dc_types,     only: dp
      real(DP),          pointer               :: value(:,:,:,:,:,:,:)
      type(gt_variable), intent(in)            :: var
      logical,           intent(out), optional :: err
    end subroutine gtvargetpointerdouble7
    subroutine gtvargetreal(var, value, nvalue, err)
      use gtdata_types, only: gt_variable
      use dc_types, only: sp
      real(SP), intent(out):: value(*)
      type(gt_variable), intent(in):: var
      integer, intent(in):: nvalue
      logical, intent(out), optional:: err
    end subroutine gtvargetreal
    subroutine gtvargetpointerreal1(var, value, err)
      use gtdata_types, only: gt_variable
      use dc_types,     only: sp
      real(SP),          pointer               :: value(:)
      type(gt_variable), intent(in)            :: var
      logical,           intent(out), optional :: err
    end subroutine gtvargetpointerreal1
    subroutine gtvargetpointerreal2(var, value, err)
      use gtdata_types, only: gt_variable
      use dc_types,     only: sp
      real(SP),          pointer               :: value(:,:)
      type(gt_variable), intent(in)            :: var
      logical,           intent(out), optional :: err
    end subroutine gtvargetpointerreal2
    subroutine gtvargetpointerreal3(var, value, err)
      use gtdata_types, only: gt_variable
      use dc_types,     only: sp
      real(SP),          pointer               :: value(:,:,:)
      type(gt_variable), intent(in)            :: var
      logical,           intent(out), optional :: err
    end subroutine gtvargetpointerreal3
    subroutine gtvargetpointerreal4(var, value, err)
      use gtdata_types, only: gt_variable
      use dc_types,     only: sp
      real(SP),          pointer               :: value(:,:,:,:)
      type(gt_variable), intent(in)            :: var
      logical,           intent(out), optional :: err
    end subroutine gtvargetpointerreal4
    subroutine gtvargetpointerreal5(var, value, err)
      use gtdata_types, only: gt_variable
      use dc_types,     only: sp
      real(SP),          pointer               :: value(:,:,:,:,:)
      type(gt_variable), intent(in)            :: var
      logical,           intent(out), optional :: err
    end subroutine gtvargetpointerreal5
    subroutine gtvargetpointerreal6(var, value, err)
      use gtdata_types, only: gt_variable
      use dc_types,     only: sp
      real(SP),          pointer               :: value(:,:,:,:,:,:)
      type(gt_variable), intent(in)            :: var
      logical,           intent(out), optional :: err
    end subroutine gtvargetpointerreal6
    subroutine gtvargetpointerreal7(var, value, err)
      use gtdata_types, only: gt_variable
      use dc_types,     only: sp
      real(SP),          pointer               :: value(:,:,:,:,:,:,:)
      type(gt_variable), intent(in)            :: var
      logical,           intent(out), optional :: err
    end subroutine gtvargetpointerreal7
    subroutine gtvargetint(var, value, nvalue, err)
      use gtdata_types, only: gt_variable
      integer,  intent(out):: value(*)
      type(gt_variable), intent(in):: var
      integer, intent(in):: nvalue
      logical, intent(out), optional:: err
    end subroutine gtvargetint
    subroutine gtvargetpointerint1(var, value, err)
      use gtdata_types, only: gt_variable
      integer,           pointer               :: value(:)
      type(gt_variable), intent(in)            :: var
      logical,           intent(out), optional :: err
    end subroutine gtvargetpointerint1
    subroutine gtvargetpointerint2(var, value, err)
      use gtdata_types, only: gt_variable
      integer,           pointer               :: value(:,:)
      type(gt_variable), intent(in)            :: var
      logical,           intent(out), optional :: err
    end subroutine gtvargetpointerint2
    subroutine gtvargetpointerint3(var, value, err)
      use gtdata_types, only: gt_variable
      integer,           pointer               :: value(:,:,:)
      type(gt_variable), intent(in)            :: var
      logical,           intent(out), optional :: err
    end subroutine gtvargetpointerint3
    subroutine gtvargetpointerint4(var, value, err)
      use gtdata_types, only: gt_variable
      integer,           pointer               :: value(:,:,:,:)
      type(gt_variable), intent(in)            :: var
      logical,           intent(out), optional :: err
    end subroutine gtvargetpointerint4
    subroutine gtvargetpointerint5(var, value, err)
      use gtdata_types, only: gt_variable
      integer,           pointer               :: value(:,:,:,:,:)
      type(gt_variable), intent(in)            :: var
      logical,           intent(out), optional :: err
    end subroutine gtvargetpointerint5
    subroutine gtvargetpointerint6(var, value, err)
      use gtdata_types, only: gt_variable
      integer,           pointer               :: value(:,:,:,:,:,:)
      type(gt_variable), intent(in)            :: var
      logical,           intent(out), optional :: err
    end subroutine gtvargetpointerint6
    subroutine gtvargetpointerint7(var, value, err)
      use gtdata_types, only: gt_variable
      integer,           pointer               :: value(:,:,:,:,:,:,:)
      type(gt_variable), intent(in)            :: var
      logical,           intent(out), optional :: err
    end subroutine gtvargetpointerint7
  end interface get

  !
  ! --- 印字 ---
  !
  ! 印字というのは変数にしてみれば入力だしファイルにしてみれば出力だ。
  ! だから put と get を兼営しているようなものでまことにあやしいのだが、
  ! いちおう dc_string の手続名を継承して put_line にしておく。

  interface putline
    subroutine gtvarputline( var, unit, indent, err )
      use gtdata_types, only: gt_variable
      type(gt_variable), intent(in):: var
      integer, intent(in), optional:: unit
      character(*), intent(in), optional:: indent
      logical, intent(out), optional:: err
    end subroutine gtvarputline
  end interface

  !
  ! --- 出力 ---
  !
  interface put
    subroutine gtvarputdouble(var, value, nvalue, err)
      use gtdata_types, only: gt_variable
      use dc_types, only: dp
      real(DP), intent(in):: value(nvalue)
      type(gt_variable), intent(in):: var
      integer, intent(in):: nvalue
      logical, intent(out), optional:: err
    end subroutine gtvarputdouble
    subroutine gtvarputdouble1(var, value, err)
      use gtdata_types,   only: gt_variable
      use dc_types,       only: dp
      real(DP), intent(in) :: value(:)
      type(gt_variable),intent(in):: var
      logical  ,intent(out), optional:: err
    end subroutine gtvarputdouble1
    subroutine gtvarputdouble2(var, value, err)
      use gtdata_types,   only: gt_variable
      use dc_types,       only: dp
      real(DP), intent(in) :: value(:,:)
      type(gt_variable),intent(in):: var
      logical  ,intent(out), optional:: err
    end subroutine gtvarputdouble2
    subroutine gtvarputdouble3(var, value, err)
      use gtdata_types,   only: gt_variable
      use dc_types,       only: dp
      real(DP), intent(in) :: value(:,:,:)
      type(gt_variable),intent(in):: var
      logical  ,intent(out), optional:: err
    end subroutine gtvarputdouble3
    subroutine gtvarputdouble4(var, value, err)
      use gtdata_types,   only: gt_variable
      use dc_types,       only: dp
      real(DP), intent(in) :: value(:,:,:,:)
      type(gt_variable),intent(in):: var
      logical  ,intent(out), optional:: err
    end subroutine gtvarputdouble4
    subroutine gtvarputdouble5(var, value, err)
      use gtdata_types,   only: gt_variable
      use dc_types,       only: dp
      real(DP), intent(in) :: value(:,:,:,:,:)
      type(gt_variable),intent(in):: var
      logical  ,intent(out), optional:: err
    end subroutine gtvarputdouble5
    subroutine gtvarputdouble6(var, value, err)
      use gtdata_types,   only: gt_variable
      use dc_types,       only: dp
      real(DP), intent(in) :: value(:,:,:,:,:,:)
      type(gt_variable),intent(in):: var
      logical  ,intent(out), optional:: err
    end subroutine gtvarputdouble6
    subroutine gtvarputdouble7(var, value, err)
      use gtdata_types,   only: gt_variable
      use dc_types,       only: dp
      real(DP), intent(in) :: value(:,:,:,:,:,:,:)
      type(gt_variable),intent(in):: var
      logical  ,intent(out), optional:: err
    end subroutine gtvarputdouble7
    subroutine gtvarputreal(var, value, nvalue, err)
      use gtdata_types, only: gt_variable
      use dc_types, only: sp
      real(SP), intent(in):: value(nvalue)
      type(gt_variable), intent(in):: var
      integer, intent(in):: nvalue
      logical, intent(out), optional:: err
    end subroutine gtvarputreal
    subroutine gtvarputreal1(var, value, err)
      use gtdata_types,   only: gt_variable
      use dc_types,       only: sp
      real(SP), intent(in) :: value(:)
      type(gt_variable),intent(in):: var
      logical  ,intent(out), optional:: err
    end subroutine gtvarputreal1
    subroutine gtvarputreal2(var, value, err)
      use gtdata_types,   only: gt_variable
      use dc_types,       only: sp
      real(SP), intent(in) :: value(:,:)
      type(gt_variable),intent(in):: var
      logical  ,intent(out), optional:: err
    end subroutine gtvarputreal2
    subroutine gtvarputreal3(var, value, err)
      use gtdata_types,   only: gt_variable
      use dc_types,       only: sp
      real(SP), intent(in) :: value(:,:,:)
      type(gt_variable),intent(in):: var
      logical  ,intent(out), optional:: err
    end subroutine gtvarputreal3
    subroutine gtvarputreal4(var, value, err)
      use gtdata_types,   only: gt_variable
      use dc_types,       only: sp
      real(SP), intent(in) :: value(:,:,:,:)
      type(gt_variable),intent(in):: var
      logical  ,intent(out), optional:: err
    end subroutine gtvarputreal4
    subroutine gtvarputreal5(var, value, err)
      use gtdata_types,   only: gt_variable
      use dc_types,       only: sp
      real(SP), intent(in) :: value(:,:,:,:,:)
      type(gt_variable),intent(in):: var
      logical  ,intent(out), optional:: err
    end subroutine gtvarputreal5
    subroutine gtvarputreal6(var, value, err)
      use gtdata_types,   only: gt_variable
      use dc_types,       only: sp
      real(SP), intent(in) :: value(:,:,:,:,:,:)
      type(gt_variable),intent(in):: var
      logical  ,intent(out), optional:: err
    end subroutine gtvarputreal6
    subroutine gtvarputreal7(var, value, err)
      use gtdata_types,   only: gt_variable
      use dc_types,       only: sp
      real(SP), intent(in) :: value(:,:,:,:,:,:,:)
      type(gt_variable),intent(in):: var
      logical  ,intent(out), optional:: err
    end subroutine gtvarputreal7
    subroutine gtvarputint(var, value, nvalue, err)
      use gtdata_types, only: gt_variable
      integer, intent(in):: value(nvalue)
      type(gt_variable), intent(in):: var
      integer, intent(in):: nvalue
      logical, intent(out), optional:: err
    end subroutine gtvarputint
    subroutine gtvarputint1(var, value, err)
      use gtdata_types,   only: gt_variable
      integer,  intent(in) :: value(:)
      type(gt_variable),intent(in):: var
      logical  ,intent(out), optional:: err
    end subroutine gtvarputint1
    subroutine gtvarputint2(var, value, err)
      use gtdata_types,   only: gt_variable
      integer,  intent(in) :: value(:,:)
      type(gt_variable),intent(in):: var
      logical  ,intent(out), optional:: err
    end subroutine gtvarputint2
    subroutine gtvarputint3(var, value, err)
      use gtdata_types,   only: gt_variable
      integer,  intent(in) :: value(:,:,:)
      type(gt_variable),intent(in):: var
      logical  ,intent(out), optional:: err
    end subroutine gtvarputint3
    subroutine gtvarputint4(var, value, err)
      use gtdata_types,   only: gt_variable
      integer,  intent(in) :: value(:,:,:,:)
      type(gt_variable),intent(in):: var
      logical  ,intent(out), optional:: err
    end subroutine gtvarputint4
    subroutine gtvarputint5(var, value, err)
      use gtdata_types,   only: gt_variable
      integer,  intent(in) :: value(:,:,:,:,:)
      type(gt_variable),intent(in):: var
      logical  ,intent(out), optional:: err
    end subroutine gtvarputint5
    subroutine gtvarputint6(var, value, err)
      use gtdata_types,   only: gt_variable
      integer,  intent(in) :: value(:,:,:,:,:,:)
      type(gt_variable),intent(in):: var
      logical  ,intent(out), optional:: err
    end subroutine gtvarputint6
    subroutine gtvarputint7(var, value, err)
      use gtdata_types,   only: gt_variable
      integer,  intent(in) :: value(:,:,:,:,:,:,:)
      type(gt_variable),intent(in):: var
      logical  ,intent(out), optional:: err
    end subroutine gtvarputint7
    subroutine gtvarputchar(var, value, nvalue, err)
      use gtdata_types, only: gt_variable
      type(gt_variable), intent(in):: var
      integer, intent(in):: nvalue
      character(*), intent(in):: value(nvalue)
      logical, intent(out), optional:: err
    end subroutine gtvarputchar
  end interface put

  !
  ! === 変数とファイルの関係 ===
  !

  interface gtvarsearch
    subroutine gtvarsearchnext(url, end)
      character(len = *), intent(out):: url
      logical, intent(out):: end
    end subroutine gtvarsearchnext
    subroutine gtvarsearchinit(urlBase)
      character(len = *), intent(in):: urlBase
    end subroutine gtvarsearchinit
  end interface gtvarsearch

  !
  ! === 安全のための脱出口 ===
  !
  ! SysDepAbort が呼び出すので、StoreError を呼んではならない
  !

  interface
    subroutine gtvarsync(var, stat)
      use gtdata_types, only: gt_variable
      type(gt_variable), intent(inout), optional:: var
      integer, intent(out), optional:: stat
    end subroutine gtvarsync
  end interface

  !
  ! === ユーティリティ ===
  !
  ! gtdata 層だけで書かれたライブラリ。

  interface create
    subroutine gtvarcreatecopyc(var, url, copyfrom, copyvalue, &
      & overwrite, err)
      use gtdata_types, only: gt_variable
      implicit none
      type(gt_variable), intent(out):: var
      character(len = *), intent(in):: url
      type(gt_variable), intent(inout):: copyfrom
      logical, intent(in), optional:: copyvalue
      logical, intent(in), optional:: overwrite
      logical, intent(out), optional:: err
    end subroutine gtvarcreatecopyc
  end interface

  !
  ! 変数の削除 (作成中)
  !
  interface gtvardel
    subroutine gtvardel1(varname, err)
      character(len = *), intent(in):: varname
      logical, intent(out):: err
    end subroutine gtvardel1
  end interface

  !
  ! --- 構造体関係 ---
  !

  interface add_member
    subroutine gtvaraddmember(var, url, link_name)
      use gtdata_types, only: gt_variable
      type(gt_variable), intent(inout):: var
      character(len = *), intent(in):: url
      character(len = *), intent(in), optional:: link_name
    end subroutine gtvaraddmember
  end interface

  ! 一意な変数名の自動作成
  interface gtdatatmpnam
    subroutine gtvartmpnam(file, base, result)
      character(len = *), intent(in):: file
      character(len = *), intent(in):: base
      character(len = *), intent(out):: result
    end subroutine gtvartmpnam
  end interface

end module gtdata_generic