gtdata_generic.f90

Go to the documentation of this file.

! -*- coding: utf-8; mode: f90 -*-
!-------------------------------------------------------------------------------------
! Copyright (c) 2000-2026 Gtool Development Group. All rights reserved.
!-------------------------------------------------------------------------------------
! ** Important**
!
! This file is generated from ../../../../src/gtdata/gtdata_generic.erb by ERB included Ruby 3.3.8.
! Please do not edit this file directly. @see "../../../../src/gtdata/gtdata_generic.erb"
!-------------------------------------------------------------------------------------
module gtdata_generic
  implicit none
  interface open
    subroutine gtvaropenbydimord(var, source_var, dimord, &
      count_compact, inherit_slice, 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(in), optional:: inherit_slice
      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
  interface slice
    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
  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
  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.)
 
  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
  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
  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
  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