historyget.f90

subroutine HistoryGetDouble0(file, varname, array, range, quiet)
  !
                      !
  !== データ入力 (固定長配列用)
  !
  ! 既存の gtool4 データ内の変数のデータを取得します.
  !
  ! ポインタの配列へデータを入力を行う場合は,
  ! HistoryGetPointer を利用してください.
  !
  ! デフォルトでは, gtool4 データ内の変数データのうち,
  ! 最も新しい時刻のデータを入力します. その他の時刻データを
  ! 入力したい場合には, 下記の *range* オプションを利用してください.
  !
  ! *range* には gtool4 のコンマ記法
  ! ({gtool4 netCDF 規約}[link:../xref.htm#label-6] 参照) 
  ! を与えることで,
  ! 入力先のデータの一部を切り出して入力を行うことが可能です.
  !
  ! *HistoryGet* は複数のサブルーチンの総称名です. *array* には
  ! 0 〜 7 次元のデータを与えることが可能です.
  ! 下記のサブルーチンを参照ください.
  !
  ! デフォルトでは, データの入力時にどのファイルのどの変数が
  ! どの次元で切り出されて入力されたのかを表示します. 
  ! メッセージ出力が不要な場合は *quiet* に .true. を与えてください.
  !
                    
  !
  use dc_string, only: toChar
  use dc_present, only: present_select, present_and_not_empty
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file
                                                          ! 取得するデータが格納された
                                      ! netCDF ファイル名
                                      ! 
                    
  character(*), intent(in):: varname
                                                          ! 取得しようとするデータの変数名
                                      !
                                      ! ここで指定する変数名は、 *file*
                                      ! で指定されるファイル内に含
                                      ! まれていなければなりません。
                                      ! 
                    
  character(*), intent(in), optional:: range
                                                          ! gtool4 のコンマ記法による
                                      ! データの切り出し指定
                                      !
                                      ! 詳しくは
                                      ! {gtool4 netCDF 規約}[link:../xref.htm#label-6]
                                      ! の「5.4 コンマ記法」を参照して
                                      ! ください。
                                      ! 
                                      ! 数値のみが与えられる場合
                                      ! (※ 引数の型は常に文字型です。
                                      ! すなわち
                                      ! "<b><tt>10.0</tt></b>"
                                      ! のような文字列が与えられた場合
                                      ! を指します)、それは時刻の値
                                      ! として受け取られます。
                                      ! この場合、"<b><tt>^</tt></b>" を
                                      ! 先頭に付加することで、
                                      ! 時間のステップ数で指定する
                                      ! ことも可能です。 (例えば
                                      ! "<b><tt>^10</tt></b>"ならば
                                      ! 10 ステップ目のデータを取得します)。
                                      ! 
                    
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array
                                                          ! 取得するデータを格納する配列
                                      !
                                      ! 型は単精度実数型か倍精度実数型
                                      ! かのどちらかです。
                                      ! 取得するデータの空間次元の
                                      ! サイズと配列のサイズとが一
                                      ! 致している必要があります。
                                      ! *varname* のデータ型と *array*
                                      ! の型が異なる場合は、自動的
                                      ! に *array* の型に変換されます。
                                      ! 
                    
  real(DP) :: array_tmp(1)
  character(*), parameter :: subname = "HistoryGetDouble0"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))
  if (present_and_not_empty(range)) then
    call HistoryGetDoubleEx(file=file, varname=varname, array=array_tmp, range=range, quiet=quiet)
  else
    call HistoryGetDoubleEx(file=file, varname=varname, array=array_tmp, quiet=quiet)
  end if
  array = array_tmp(1)
  call EndSub(subname)
end subroutine HistoryGetDouble0

subroutine HistoryGetDouble0Pointer(file, varname, array, range, quiet)
  !
                      !
  !== データ入力 (ポインタ配列用)
  !
  ! 既存の gtool4 データ内の変数のデータをポインタ配列へ取得します.
  !
  ! 固定長の配列へデータを入力を行う場合は,
  ! HistoryGet を利用してください.
  !
  ! *array* は必ず空状態で与えてください.
  ! すなわち初期値 =>null() を設定するか nullify を用いてください.
  ! 既に割り付けられている場合, もしくは不定状態の場合には
  ! エラーを返します.
  !
  ! デフォルトでは, gtool4 データ内の変数データのうち,
  ! 最も新しい時刻のデータを入力します. その他の時刻データを
  ! 入力したい場合には, 下記の *range* オプションを利用してください.
  !
  ! *range* には gtool4 のコンマ記法
  ! ({gtool4 netCDF 規約}[link:../xref.htm#label-6] 参照) 
  ! を与えることで,
  ! 入力先のデータの一部を切り出して入力を行うことが可能です.
  !
  ! *HistoryGetPointer* は複数のサブルーチンの総称名です. *array* には
  ! 0 〜 7 次元のデータを与えることが可能です.
  ! 下記のサブルーチンを参照ください.
  !
  ! デフォルトでは, データの入力時にどのファイルのどの変数が
  ! どの次元で切り出されて入力されたのかを表示します. 
  ! メッセージ出力が不要な場合は *quiet* に .true. を与えてください.
  !
                    
  !
  use gtdata_types, only: GT_VARIABLE
  use gtdata_generic, only: Open, Inquire, Close, Get
  use dc_string, only: toChar
  use dc_present, only: present_select, present_and_true
  use dc_types, only: DP, STRING
  use dc_message, only: MessageNotify
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file
                                                          ! 取得するデータが格納された
                                      ! netCDF ファイル名
                                      ! 
                    
  character(*), intent(in):: varname
                                                          ! 取得しようとするデータの変数名
                                      !
                                      ! ここで指定する変数名は、 *file*
                                      ! で指定されるファイル内に含
                                      ! まれていなければなりません。
                                      ! 
                    
  character(*), intent(in), optional:: range
                                                          ! gtool4 のコンマ記法による
                                      ! データの切り出し指定
                                      !
                                      ! 詳しくは
                                      ! {gtool4 netCDF 規約}[link:../xref.htm#label-6]
                                      ! の「5.4 コンマ記法」を参照して
                                      ! ください。
                                      ! 
                                      ! 数値のみが与えられる場合
                                      ! (※ 引数の型は常に文字型です。
                                      ! すなわち
                                      ! "<b><tt>10.0</tt></b>"
                                      ! のような文字列が与えられた場合
                                      ! を指します)、それは時刻の値
                                      ! として受け取られます。
                                      ! この場合、"<b><tt>^</tt></b>" を
                                      ! 先頭に付加することで、
                                      ! 時間のステップ数で指定する
                                      ! ことも可能です。 (例えば
                                      ! "<b><tt>^10</tt></b>"ならば
                                      !  10 ステップ目のデータを取得します)。
                                      ! 
                    
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array
                                                          ! (out)
                                      ! 取得するデータを格納する
                                      ! ポインタの配列
                                      !
                                      ! 必ず空状態で与えてください。
                                      ! すなわち初期値 =>null() を
                                      ! 設定するか nullify を用い
                                      ! ください。
                                      !
                                      ! 型は単精度実数型か倍精度実数型
                                      ! かのどちらかです。
                                      ! 取得するデータの空間次元の
                                      ! サイズに合わせ、配列のサイズは
                                      ! 自動的に設定されます。
                                      ! *varname* のデータ型と *array*
                                      ! の型が異なる場合は、自動的
                                      ! に *array* の型に変換されます。
                                      !
                    
  real(DP), target :: array_tmp(1)
  type(GT_VARIABLE)                    :: var
  character(STRING)                    :: url, actual_url
  integer:: domain   ! 変数の入出力領域の大きさ
                           ! (= 変数が依存する各次元サイズの積)
  character(*), parameter :: subname = "HistoryGetDouble0Pointer"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))
  ! 必要な情報を gtool 変数化
  call lookup_growable_url(file, varname, url, range)
  allocate(array)
  ! いよいよデータ取得
  call Open(var, url)
  call Inquire(var=var, size=domain)
  call Get(var, array_tmp, domain)
  call Close(var)
  array = array_tmp(1)
  call actual_iorange_dump(url, actual_url)
  if ( .not. present_and_true(quiet) ) then
    call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
  call EndSub(subname)
end subroutine

subroutine HistoryGetDouble0PointerTimeD(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use gt4_history, only: HistoryGetPointer
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in) :: file, varname
  real(DP), intent(in)               :: time
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array ! (out)
  character(*), parameter :: subname = "HistoryGetDouble0PointerTimeD"
continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetPointer(file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetDouble0PointerTimeR(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use gt4_history, only: HistoryGetPointer
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in) :: file, varname
  real, intent(in)               :: time
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array ! (out)
  character(*), parameter :: subname = "HistoryGetDouble0PointerTimeR"
continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetPointer(file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetDouble0TimeD(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use dc_string, only: toChar
  use dc_types, only: DP
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real(DP), intent(in)              :: time
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array
  real(DP) :: array_tmp(1)
  character(*), parameter :: subname = "HistoryGetDouble0TimeD"

continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetDoubleEx(file=file, varname=varname, array=array_tmp, range=toChar(time), quiet=quiet)
  call EndSub(subname)
  array = array_tmp(1)
end subroutine

subroutine HistoryGetDouble0TimeR(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real, intent(in)              :: time
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array
  real(DP) :: array_tmp(1)
  character(*), parameter :: subname = "HistoryGetDouble0TimeR"

continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetDoubleEx(file=file, varname=varname, array=array_tmp, range=toChar(time), quiet=quiet)
  call EndSub(subname)
  array = array_tmp(1)
end subroutine

subroutine HistoryGetDouble1(file, varname, array, range, quiet)
  !
  ! Double 型固定配列用 1 次元配列用データ入力サブルーチン
  !
  !
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_not_empty
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:)
  character(*), parameter :: subname = "HistoryGetDouble1"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))
  if (present_and_not_empty(range)) then
    call HistoryGetDoubleEx(file=file, varname=varname, array=array, range=range, quiet=quiet)
  else
    call HistoryGetDoubleEx(file=file, varname=varname, array=array, quiet=quiet)
  endif
  call EndSub(subname)
end subroutine HistoryGetDouble1

subroutine HistoryGetDouble1Pointer(file, varname, array, range, quiet)
  !
  ! Double 型ポインタ配列用 1 次元配列用データ入力サブルーチン
  !
  use gtdata_types, only: GT_VARIABLE
  use gtdata_generic, only: Open, Inquire, Close, Get
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_true
  use dc_types, only: DP, STRING
  use dc_message, only: MessageNotify
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:) ! (out)
  type(GT_VARIABLE)                  :: var
  character(STRING)                  :: url, actual_url
  character(*), parameter :: subname = "HistoryGetDouble1Pointer"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))
  ! 必要な情報を gtool 変数化
  call lookup_growable_url(file, varname, url, range)
  call DbgMessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  call Open(var, url)
  call Get(var, array)
  call Close(var)
  call actual_iorange_dump(url, actual_url)
  if ( .not. present_and_true(quiet) ) then
    call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
  call EndSub(subname)
end subroutine

subroutine HistoryGetDouble1PointerTimeD(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use gt4_history, only: HistoryGetPointer
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real(DP), intent(in)              :: time
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:) ! (out)
  character(*), parameter :: subname = "HistoryGetDouble1PointerTimeD"
continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetPointer( file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetDouble1PointerTimeR(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use gt4_history, only: HistoryGetPointer
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real, intent(in)    :: time
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:) ! (out)
  character(*), parameter :: subname = "HistoryGetDouble1PointerTimeR"
continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetPointer( file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetDouble1TimeD(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real(DP), intent(in)              :: time
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:)
  character(*), parameter :: subname = "HistoryGetDouble1TimeD"

continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetDoubleEx(file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetDouble1TimeR(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real, intent(in)              :: time
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:)
  character(*), parameter :: subname = "HistoryGetDouble1TimeR"

continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetDoubleEx(file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetDouble2(file, varname, array, range, quiet)
  !
  ! Double 型固定配列用 2 次元配列用データ入力サブルーチン
  !
  !
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_not_empty
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:)
  character(*), parameter :: subname = "HistoryGetDouble2"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))
  if (present_and_not_empty(range)) then
    call HistoryGetDoubleEx(file=file, varname=varname, array=array, range=range, quiet=quiet)
  else
    call HistoryGetDoubleEx(file=file, varname=varname, array=array, quiet=quiet)
  endif
  call EndSub(subname)
end subroutine HistoryGetDouble2

subroutine HistoryGetDouble2Pointer(file, varname, array, range, quiet)
  !
  ! Double 型ポインタ配列用 2 次元配列用データ入力サブルーチン
  !
  use gtdata_types, only: GT_VARIABLE
  use gtdata_generic, only: Open, Inquire, Close, Get
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_true
  use dc_types, only: DP, STRING
  use dc_message, only: MessageNotify
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:,:) ! (out)
  type(GT_VARIABLE)                  :: var
  character(STRING)                  :: url, actual_url
  character(*), parameter :: subname = "HistoryGetDouble2Pointer"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))
  ! 必要な情報を gtool 変数化
  call lookup_growable_url(file, varname, url, range)
  call DbgMessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  call Open(var, url)
  call Get(var, array)
  call Close(var)
  call actual_iorange_dump(url, actual_url)
  if ( .not. present_and_true(quiet) ) then
    call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
  call EndSub(subname)
end subroutine

subroutine HistoryGetDouble2PointerTimeD(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use gt4_history, only: HistoryGetPointer
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real(DP), intent(in)              :: time
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:,:) ! (out)
  character(*), parameter :: subname = "HistoryGetDouble2PointerTimeD"
continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetPointer( file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetDouble2PointerTimeR(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use gt4_history, only: HistoryGetPointer
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real, intent(in)    :: time
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:,:) ! (out)
  character(*), parameter :: subname = "HistoryGetDouble2PointerTimeR"
continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetPointer( file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetDouble2TimeD(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real(DP), intent(in)              :: time
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:)
  character(*), parameter :: subname = "HistoryGetDouble2TimeD"

continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetDoubleEx(file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetDouble2TimeR(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real, intent(in)              :: time
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:)
  character(*), parameter :: subname = "HistoryGetDouble2TimeR"

continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetDoubleEx(file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetDouble3(file, varname, array, range, quiet)
  !
  ! Double 型固定配列用 3 次元配列用データ入力サブルーチン
  !
  !
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_not_empty
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:,:)
  character(*), parameter :: subname = "HistoryGetDouble3"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))
  if (present_and_not_empty(range)) then
    call HistoryGetDoubleEx(file=file, varname=varname, array=array, range=range, quiet=quiet)
  else
    call HistoryGetDoubleEx(file=file, varname=varname, array=array, quiet=quiet)
  endif
  call EndSub(subname)
end subroutine HistoryGetDouble3

subroutine HistoryGetDouble3Pointer(file, varname, array, range, quiet)
  !
  ! Double 型ポインタ配列用 3 次元配列用データ入力サブルーチン
  !
  use gtdata_types, only: GT_VARIABLE
  use gtdata_generic, only: Open, Inquire, Close, Get
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_true
  use dc_types, only: DP, STRING
  use dc_message, only: MessageNotify
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:,:,:) ! (out)
  type(GT_VARIABLE)                  :: var
  character(STRING)                  :: url, actual_url
  character(*), parameter :: subname = "HistoryGetDouble3Pointer"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))
  ! 必要な情報を gtool 変数化
  call lookup_growable_url(file, varname, url, range)
  call DbgMessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  call Open(var, url)
  call Get(var, array)
  call Close(var)
  call actual_iorange_dump(url, actual_url)
  if ( .not. present_and_true(quiet) ) then
    call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
  call EndSub(subname)
end subroutine

subroutine HistoryGetDouble3PointerTimeD(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use gt4_history, only: HistoryGetPointer
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real(DP), intent(in)              :: time
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:,:,:) ! (out)
  character(*), parameter :: subname = "HistoryGetDouble3PointerTimeD"
continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetPointer( file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetDouble3PointerTimeR(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use gt4_history, only: HistoryGetPointer
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real, intent(in)    :: time
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:,:,:) ! (out)
  character(*), parameter :: subname = "HistoryGetDouble3PointerTimeR"
continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetPointer( file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetDouble3TimeD(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real(DP), intent(in)              :: time
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:,:)
  character(*), parameter :: subname = "HistoryGetDouble3TimeD"

continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetDoubleEx(file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetDouble3TimeR(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real, intent(in)              :: time
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:,:)
  character(*), parameter :: subname = "HistoryGetDouble3TimeR"

continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetDoubleEx(file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetDouble4(file, varname, array, range, quiet)
  !
  ! Double 型固定配列用 4 次元配列用データ入力サブルーチン
  !
  !
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_not_empty
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:,:,:)
  character(*), parameter :: subname = "HistoryGetDouble4"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))
  if (present_and_not_empty(range)) then
    call HistoryGetDoubleEx(file=file, varname=varname, array=array, range=range, quiet=quiet)
  else
    call HistoryGetDoubleEx(file=file, varname=varname, array=array, quiet=quiet)
  endif
  call EndSub(subname)
end subroutine HistoryGetDouble4

subroutine HistoryGetDouble4Pointer(file, varname, array, range, quiet)
  !
  ! Double 型ポインタ配列用 4 次元配列用データ入力サブルーチン
  !
  use gtdata_types, only: GT_VARIABLE
  use gtdata_generic, only: Open, Inquire, Close, Get
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_true
  use dc_types, only: DP, STRING
  use dc_message, only: MessageNotify
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:,:,:,:) ! (out)
  type(GT_VARIABLE)                  :: var
  character(STRING)                  :: url, actual_url
  character(*), parameter :: subname = "HistoryGetDouble4Pointer"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))
  ! 必要な情報を gtool 変数化
  call lookup_growable_url(file, varname, url, range)
  call DbgMessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  call Open(var, url)
  call Get(var, array)
  call Close(var)
  call actual_iorange_dump(url, actual_url)
  if ( .not. present_and_true(quiet) ) then
    call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
  call EndSub(subname)
end subroutine

subroutine HistoryGetDouble4PointerTimeD(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use gt4_history, only: HistoryGetPointer
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real(DP), intent(in)              :: time
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:,:,:,:) ! (out)
  character(*), parameter :: subname = "HistoryGetDouble4PointerTimeD"
continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetPointer( file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetDouble4PointerTimeR(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use gt4_history, only: HistoryGetPointer
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real, intent(in)    :: time
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:,:,:,:) ! (out)
  character(*), parameter :: subname = "HistoryGetDouble4PointerTimeR"
continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetPointer( file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetDouble4TimeD(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real(DP), intent(in)              :: time
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:,:,:)
  character(*), parameter :: subname = "HistoryGetDouble4TimeD"

continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetDoubleEx(file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetDouble4TimeR(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real, intent(in)              :: time
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:,:,:)
  character(*), parameter :: subname = "HistoryGetDouble4TimeR"

continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetDoubleEx(file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetDouble5(file, varname, array, range, quiet)
  !
  ! Double 型固定配列用 5 次元配列用データ入力サブルーチン
  !
  !
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_not_empty
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:,:,:,:)
  character(*), parameter :: subname = "HistoryGetDouble5"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))
  if (present_and_not_empty(range)) then
    call HistoryGetDoubleEx(file=file, varname=varname, array=array, range=range, quiet=quiet)
  else
    call HistoryGetDoubleEx(file=file, varname=varname, array=array, quiet=quiet)
  endif
  call EndSub(subname)
end subroutine HistoryGetDouble5

subroutine HistoryGetDouble5Pointer(file, varname, array, range, quiet)
  !
  ! Double 型ポインタ配列用 5 次元配列用データ入力サブルーチン
  !
  use gtdata_types, only: GT_VARIABLE
  use gtdata_generic, only: Open, Inquire, Close, Get
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_true
  use dc_types, only: DP, STRING
  use dc_message, only: MessageNotify
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:,:,:,:,:) ! (out)
  type(GT_VARIABLE)                  :: var
  character(STRING)                  :: url, actual_url
  character(*), parameter :: subname = "HistoryGetDouble5Pointer"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))
  ! 必要な情報を gtool 変数化
  call lookup_growable_url(file, varname, url, range)
  call DbgMessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  call Open(var, url)
  call Get(var, array)
  call Close(var)
  call actual_iorange_dump(url, actual_url)
  if ( .not. present_and_true(quiet) ) then
    call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
  call EndSub(subname)
end subroutine

subroutine HistoryGetDouble5PointerTimeD(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use gt4_history, only: HistoryGetPointer
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real(DP), intent(in)              :: time
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:,:,:,:,:) ! (out)
  character(*), parameter :: subname = "HistoryGetDouble5PointerTimeD"
continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetPointer( file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetDouble5PointerTimeR(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use gt4_history, only: HistoryGetPointer
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real, intent(in)    :: time
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:,:,:,:,:) ! (out)
  character(*), parameter :: subname = "HistoryGetDouble5PointerTimeR"
continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetPointer( file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetDouble5TimeD(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real(DP), intent(in)              :: time
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:,:,:,:)
  character(*), parameter :: subname = "HistoryGetDouble5TimeD"

continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetDoubleEx(file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetDouble5TimeR(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real, intent(in)              :: time
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:,:,:,:)
  character(*), parameter :: subname = "HistoryGetDouble5TimeR"

continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetDoubleEx(file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetDouble6(file, varname, array, range, quiet)
  !
  ! Double 型固定配列用 6 次元配列用データ入力サブルーチン
  !
  !
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_not_empty
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:,:,:,:,:)
  character(*), parameter :: subname = "HistoryGetDouble6"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))
  if (present_and_not_empty(range)) then
    call HistoryGetDoubleEx(file=file, varname=varname, array=array, range=range, quiet=quiet)
  else
    call HistoryGetDoubleEx(file=file, varname=varname, array=array, quiet=quiet)
  endif
  call EndSub(subname)
end subroutine HistoryGetDouble6

subroutine HistoryGetDouble6Pointer(file, varname, array, range, quiet)
  !
  ! Double 型ポインタ配列用 6 次元配列用データ入力サブルーチン
  !
  use gtdata_types, only: GT_VARIABLE
  use gtdata_generic, only: Open, Inquire, Close, Get
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_true
  use dc_types, only: DP, STRING
  use dc_message, only: MessageNotify
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:,:,:,:,:,:) ! (out)
  type(GT_VARIABLE)                  :: var
  character(STRING)                  :: url, actual_url
  character(*), parameter :: subname = "HistoryGetDouble6Pointer"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))
  ! 必要な情報を gtool 変数化
  call lookup_growable_url(file, varname, url, range)
  call DbgMessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  call Open(var, url)
  call Get(var, array)
  call Close(var)
  call actual_iorange_dump(url, actual_url)
  if ( .not. present_and_true(quiet) ) then
    call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
  call EndSub(subname)
end subroutine

subroutine HistoryGetDouble6PointerTimeD(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use gt4_history, only: HistoryGetPointer
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real(DP), intent(in)              :: time
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:,:,:,:,:,:) ! (out)
  character(*), parameter :: subname = "HistoryGetDouble6PointerTimeD"
continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetPointer( file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetDouble6PointerTimeR(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use gt4_history, only: HistoryGetPointer
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real, intent(in)    :: time
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:,:,:,:,:,:) ! (out)
  character(*), parameter :: subname = "HistoryGetDouble6PointerTimeR"
continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetPointer( file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetDouble6TimeD(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real(DP), intent(in)              :: time
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:,:,:,:,:)
  character(*), parameter :: subname = "HistoryGetDouble6TimeD"

continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetDoubleEx(file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetDouble6TimeR(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real, intent(in)              :: time
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:,:,:,:,:)
  character(*), parameter :: subname = "HistoryGetDouble6TimeR"

continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetDoubleEx(file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetDouble7(file, varname, array, range, quiet)
  !
  ! Double 型固定配列用 7 次元配列用データ入力サブルーチン
  !
  !
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_not_empty
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:,:,:,:,:,:)
  character(*), parameter :: subname = "HistoryGetDouble7"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))
  if (present_and_not_empty(range)) then
    call HistoryGetDoubleEx(file=file, varname=varname, array=array, range=range, quiet=quiet)
  else
    call HistoryGetDoubleEx(file=file, varname=varname, array=array, quiet=quiet)
  endif
  call EndSub(subname)
end subroutine HistoryGetDouble7

subroutine HistoryGetDouble7Pointer(file, varname, array, range, quiet)
  !
  ! Double 型ポインタ配列用 7 次元配列用データ入力サブルーチン
  !
  use gtdata_types, only: GT_VARIABLE
  use gtdata_generic, only: Open, Inquire, Close, Get
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_true
  use dc_types, only: DP, STRING
  use dc_message, only: MessageNotify
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:,:,:,:,:,:,:) ! (out)
  type(GT_VARIABLE)                  :: var
  character(STRING)                  :: url, actual_url
  character(*), parameter :: subname = "HistoryGetDouble7Pointer"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))
  ! 必要な情報を gtool 変数化
  call lookup_growable_url(file, varname, url, range)
  call DbgMessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  call Open(var, url)
  call Get(var, array)
  call Close(var)
  call actual_iorange_dump(url, actual_url)
  if ( .not. present_and_true(quiet) ) then
    call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
  call EndSub(subname)
end subroutine

subroutine HistoryGetDouble7PointerTimeD(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use gt4_history, only: HistoryGetPointer
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real(DP), intent(in)              :: time
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:,:,:,:,:,:,:) ! (out)
  character(*), parameter :: subname = "HistoryGetDouble7PointerTimeD"
continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetPointer( file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetDouble7PointerTimeR(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use gt4_history, only: HistoryGetPointer
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real, intent(in)    :: time
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:,:,:,:,:,:,:) ! (out)
  character(*), parameter :: subname = "HistoryGetDouble7PointerTimeR"
continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetPointer( file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetDouble7TimeD(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real(DP), intent(in)              :: time
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:,:,:,:,:,:)
  character(*), parameter :: subname = "HistoryGetDouble7TimeD"

continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetDoubleEx(file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetDouble7TimeR(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real, intent(in)              :: time
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:,:,:,:,:,:)
  character(*), parameter :: subname = "HistoryGetDouble7TimeR"

continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetDoubleEx(file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetDoubleEx(file, varname, array, range, quiet)
  !
  ! 入力用内部サブルーチン (Double の固定長配列用).
  ! *file* にファイル名を, *varname* に変数名を与えます.
  ! 外部には提供されず, その他の外部に提供される入力用
  ! サブルーチンが内部的に呼び出すことを想定しています.
  ! *array* にはファイルから入力されたデータが返ります.
  !
  ! *range* には gtool4 のコンマ記法を与えることで,
  ! 入力先のデータの一部を切り出して入力を行うことが
  ! 可能です. なお, range に数値のみが代入される場合,
  ! それは時刻の次元 (正確には netCDF の無制限次元) の値として
  ! 受け取られます.
  !
  ! デフォルトでは, データの入力時にどのファイルのどの変数が
  ! どの次元で切り出されて入力されたのかを表示します. 
  ! メッセージ出力が不要な場合は *quiet* に .true. を与えてください.
  !
  use gtdata_types, only: GT_VARIABLE
  use gtdata_generic, only: Open, Inquire, Close, Get
  use dc_string, only: toChar, Split, JoinChar, StoA
  use dc_url, only: GT_ATMARK, GT_COMMA, GT_EQUAL, UrlSplit, UrlMerge
  use dc_present, only: present_select, present_and_not_empty, present_and_true
  use regex,      only: match
  use dc_types, only: DP, STRING
  use dc_message, only: MessageNotify
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file    ! ファイル名
  character(*), intent(in):: varname ! 変数名
  character(*), intent(in), optional:: range
                                     ! スライス用オプション.
                                     ! gtool4 変数のコンマ記法で記述
                                     ! {(例: time=100.0,x=10:20,y=30.5)}
  logical, intent(in), optional:: quiet
  real(DP), intent(out):: array(*) ! データ

  type(GT_VARIABLE)             :: var
  character(STRING)             :: url, actual_url
  integer:: domain   ! 変数の入出力領域の大きさ
                           ! (= 変数が依存する各次元サイズの積)
  character(*), parameter :: subname = "HistoryGetDoubleEx"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))

  call lookup_growable_url(file, varname, url, range)
  ! いよいよデータ取得
  call Open(var, url)
  call Inquire(var=var, size=domain)
  call Get(var, array, domain)
  call Close(var)
  call actual_iorange_dump(url, actual_url)
  if ( .not. present_and_true(quiet) ) then
    call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
  call EndSub(subname)
end subroutine HistoryGetDoubleEx

subroutine HistoryGetReal0(file, varname, array, range, quiet)
  !
                    
  !
  use dc_string, only: toChar
  use dc_present, only: present_select, present_and_not_empty
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file
                    
  character(*), intent(in):: varname
                    
  character(*), intent(in), optional:: range
                    
  logical, intent(in), optional:: quiet
  real, intent(out) :: array
                    
  real :: array_tmp(1)
  character(*), parameter :: subname = "HistoryGetReal0"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))
  if (present_and_not_empty(range)) then
    call HistoryGetRealEx(file=file, varname=varname, array=array_tmp, range=range, quiet=quiet)
  else
    call HistoryGetRealEx(file=file, varname=varname, array=array_tmp, quiet=quiet)
  end if
  array = array_tmp(1)
  call EndSub(subname)
end subroutine HistoryGetReal0

subroutine HistoryGetReal0Pointer(file, varname, array, range, quiet)
  !
                    
  !
  use gtdata_types, only: GT_VARIABLE
  use gtdata_generic, only: Open, Inquire, Close, Get
  use dc_string, only: toChar
  use dc_present, only: present_select, present_and_true
  use dc_types, only: DP, STRING
  use dc_message, only: MessageNotify
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file
                    
  character(*), intent(in):: varname
                    
  character(*), intent(in), optional:: range
                    
  logical, intent(in), optional:: quiet
  real, pointer :: array
                    
  real, target :: array_tmp(1)
  type(GT_VARIABLE)                    :: var
  character(STRING)                    :: url, actual_url
  integer:: domain   ! 変数の入出力領域の大きさ
                           ! (= 変数が依存する各次元サイズの積)
  character(*), parameter :: subname = "HistoryGetReal0Pointer"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))
  ! 必要な情報を gtool 変数化
  call lookup_growable_url(file, varname, url, range)
  allocate(array)
  ! いよいよデータ取得
  call Open(var, url)
  call Inquire(var=var, size=domain)
  call Get(var, array_tmp, domain)
  call Close(var)
  array = array_tmp(1)
  call actual_iorange_dump(url, actual_url)
  if ( .not. present_and_true(quiet) ) then
    call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
  call EndSub(subname)
end subroutine

subroutine HistoryGetReal0PointerTimeD(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use gt4_history, only: HistoryGetPointer
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in) :: file, varname
  real(DP), intent(in)               :: time
  logical, intent(in), optional:: quiet
  real, pointer :: array ! (out)
  character(*), parameter :: subname = "HistoryGetReal0PointerTimeD"
continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetPointer(file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetReal0PointerTimeR(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use gt4_history, only: HistoryGetPointer
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in) :: file, varname
  real, intent(in)               :: time
  logical, intent(in), optional:: quiet
  real, pointer :: array ! (out)
  character(*), parameter :: subname = "HistoryGetReal0PointerTimeR"
continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetPointer(file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetReal0TimeD(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use dc_string, only: toChar
  use dc_types, only: DP
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real(DP), intent(in)              :: time
  logical, intent(in), optional:: quiet
  real, intent(out) :: array
  real :: array_tmp(1)
  character(*), parameter :: subname = "HistoryGetReal0TimeD"

continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetRealEx(file=file, varname=varname, array=array_tmp, range=toChar(time), quiet=quiet)
  call EndSub(subname)
  array = array_tmp(1)
end subroutine

subroutine HistoryGetReal0TimeR(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real, intent(in)              :: time
  logical, intent(in), optional:: quiet
  real, intent(out) :: array
  real :: array_tmp(1)
  character(*), parameter :: subname = "HistoryGetReal0TimeR"

continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetRealEx(file=file, varname=varname, array=array_tmp, range=toChar(time), quiet=quiet)
  call EndSub(subname)
  array = array_tmp(1)
end subroutine

subroutine HistoryGetReal1(file, varname, array, range, quiet)
  !
  ! Real 型固定配列用 1 次元配列用データ入力サブルーチン
  !
  !
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_not_empty
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  real, intent(out) :: array(:)
  character(*), parameter :: subname = "HistoryGetReal1"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))
  if (present_and_not_empty(range)) then
    call HistoryGetRealEx(file=file, varname=varname, array=array, range=range, quiet=quiet)
  else
    call HistoryGetRealEx(file=file, varname=varname, array=array, quiet=quiet)
  endif
  call EndSub(subname)
end subroutine HistoryGetReal1

subroutine HistoryGetReal1Pointer(file, varname, array, range, quiet)
  !
  ! Real 型ポインタ配列用 1 次元配列用データ入力サブルーチン
  !
  use gtdata_types, only: GT_VARIABLE
  use gtdata_generic, only: Open, Inquire, Close, Get
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_true
  use dc_types, only: DP, STRING
  use dc_message, only: MessageNotify
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  real, pointer :: array(:) ! (out)
  type(GT_VARIABLE)                  :: var
  character(STRING)                  :: url, actual_url
  character(*), parameter :: subname = "HistoryGetReal1Pointer"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))
  ! 必要な情報を gtool 変数化
  call lookup_growable_url(file, varname, url, range)
  call DbgMessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  call Open(var, url)
  call Get(var, array)
  call Close(var)
  call actual_iorange_dump(url, actual_url)
  if ( .not. present_and_true(quiet) ) then
    call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
  call EndSub(subname)
end subroutine

subroutine HistoryGetReal1PointerTimeD(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use gt4_history, only: HistoryGetPointer
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real(DP), intent(in)              :: time
  logical, intent(in), optional:: quiet
  real, pointer :: array(:) ! (out)
  character(*), parameter :: subname = "HistoryGetReal1PointerTimeD"
continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetPointer( file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetReal1PointerTimeR(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use gt4_history, only: HistoryGetPointer
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real, intent(in)    :: time
  logical, intent(in), optional:: quiet
  real, pointer :: array(:) ! (out)
  character(*), parameter :: subname = "HistoryGetReal1PointerTimeR"
continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetPointer( file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetReal1TimeD(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real(DP), intent(in)              :: time
  logical, intent(in), optional:: quiet
  real, intent(out) :: array(:)
  character(*), parameter :: subname = "HistoryGetReal1TimeD"

continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetRealEx(file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetReal1TimeR(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real, intent(in)              :: time
  logical, intent(in), optional:: quiet
  real, intent(out) :: array(:)
  character(*), parameter :: subname = "HistoryGetReal1TimeR"

continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetRealEx(file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetReal2(file, varname, array, range, quiet)
  !
  ! Real 型固定配列用 2 次元配列用データ入力サブルーチン
  !
  !
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_not_empty
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  real, intent(out) :: array(:,:)
  character(*), parameter :: subname = "HistoryGetReal2"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))
  if (present_and_not_empty(range)) then
    call HistoryGetRealEx(file=file, varname=varname, array=array, range=range, quiet=quiet)
  else
    call HistoryGetRealEx(file=file, varname=varname, array=array, quiet=quiet)
  endif
  call EndSub(subname)
end subroutine HistoryGetReal2

subroutine HistoryGetReal2Pointer(file, varname, array, range, quiet)
  !
  ! Real 型ポインタ配列用 2 次元配列用データ入力サブルーチン
  !
  use gtdata_types, only: GT_VARIABLE
  use gtdata_generic, only: Open, Inquire, Close, Get
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_true
  use dc_types, only: DP, STRING
  use dc_message, only: MessageNotify
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  real, pointer :: array(:,:) ! (out)
  type(GT_VARIABLE)                  :: var
  character(STRING)                  :: url, actual_url
  character(*), parameter :: subname = "HistoryGetReal2Pointer"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))
  ! 必要な情報を gtool 変数化
  call lookup_growable_url(file, varname, url, range)
  call DbgMessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  call Open(var, url)
  call Get(var, array)
  call Close(var)
  call actual_iorange_dump(url, actual_url)
  if ( .not. present_and_true(quiet) ) then
    call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
  call EndSub(subname)
end subroutine

subroutine HistoryGetReal2PointerTimeD(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use gt4_history, only: HistoryGetPointer
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real(DP), intent(in)              :: time
  logical, intent(in), optional:: quiet
  real, pointer :: array(:,:) ! (out)
  character(*), parameter :: subname = "HistoryGetReal2PointerTimeD"
continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetPointer( file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetReal2PointerTimeR(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use gt4_history, only: HistoryGetPointer
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real, intent(in)    :: time
  logical, intent(in), optional:: quiet
  real, pointer :: array(:,:) ! (out)
  character(*), parameter :: subname = "HistoryGetReal2PointerTimeR"
continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetPointer( file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetReal2TimeD(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real(DP), intent(in)              :: time
  logical, intent(in), optional:: quiet
  real, intent(out) :: array(:,:)
  character(*), parameter :: subname = "HistoryGetReal2TimeD"

continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetRealEx(file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetReal2TimeR(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real, intent(in)              :: time
  logical, intent(in), optional:: quiet
  real, intent(out) :: array(:,:)
  character(*), parameter :: subname = "HistoryGetReal2TimeR"

continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetRealEx(file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetReal3(file, varname, array, range, quiet)
  !
  ! Real 型固定配列用 3 次元配列用データ入力サブルーチン
  !
  !
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_not_empty
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  real, intent(out) :: array(:,:,:)
  character(*), parameter :: subname = "HistoryGetReal3"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))
  if (present_and_not_empty(range)) then
    call HistoryGetRealEx(file=file, varname=varname, array=array, range=range, quiet=quiet)
  else
    call HistoryGetRealEx(file=file, varname=varname, array=array, quiet=quiet)
  endif
  call EndSub(subname)
end subroutine HistoryGetReal3

subroutine HistoryGetReal3Pointer(file, varname, array, range, quiet)
  !
  ! Real 型ポインタ配列用 3 次元配列用データ入力サブルーチン
  !
  use gtdata_types, only: GT_VARIABLE
  use gtdata_generic, only: Open, Inquire, Close, Get
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_true
  use dc_types, only: DP, STRING
  use dc_message, only: MessageNotify
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  real, pointer :: array(:,:,:) ! (out)
  type(GT_VARIABLE)                  :: var
  character(STRING)                  :: url, actual_url
  character(*), parameter :: subname = "HistoryGetReal3Pointer"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))
  ! 必要な情報を gtool 変数化
  call lookup_growable_url(file, varname, url, range)
  call DbgMessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  call Open(var, url)
  call Get(var, array)
  call Close(var)
  call actual_iorange_dump(url, actual_url)
  if ( .not. present_and_true(quiet) ) then
    call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
  call EndSub(subname)
end subroutine

subroutine HistoryGetReal3PointerTimeD(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use gt4_history, only: HistoryGetPointer
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real(DP), intent(in)              :: time
  logical, intent(in), optional:: quiet
  real, pointer :: array(:,:,:) ! (out)
  character(*), parameter :: subname = "HistoryGetReal3PointerTimeD"
continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetPointer( file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetReal3PointerTimeR(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use gt4_history, only: HistoryGetPointer
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real, intent(in)    :: time
  logical, intent(in), optional:: quiet
  real, pointer :: array(:,:,:) ! (out)
  character(*), parameter :: subname = "HistoryGetReal3PointerTimeR"
continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetPointer( file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetReal3TimeD(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real(DP), intent(in)              :: time
  logical, intent(in), optional:: quiet
  real, intent(out) :: array(:,:,:)
  character(*), parameter :: subname = "HistoryGetReal3TimeD"

continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetRealEx(file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetReal3TimeR(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real, intent(in)              :: time
  logical, intent(in), optional:: quiet
  real, intent(out) :: array(:,:,:)
  character(*), parameter :: subname = "HistoryGetReal3TimeR"

continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetRealEx(file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetReal4(file, varname, array, range, quiet)
  !
  ! Real 型固定配列用 4 次元配列用データ入力サブルーチン
  !
  !
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_not_empty
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  real, intent(out) :: array(:,:,:,:)
  character(*), parameter :: subname = "HistoryGetReal4"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))
  if (present_and_not_empty(range)) then
    call HistoryGetRealEx(file=file, varname=varname, array=array, range=range, quiet=quiet)
  else
    call HistoryGetRealEx(file=file, varname=varname, array=array, quiet=quiet)
  endif
  call EndSub(subname)
end subroutine HistoryGetReal4

subroutine HistoryGetReal4Pointer(file, varname, array, range, quiet)
  !
  ! Real 型ポインタ配列用 4 次元配列用データ入力サブルーチン
  !
  use gtdata_types, only: GT_VARIABLE
  use gtdata_generic, only: Open, Inquire, Close, Get
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_true
  use dc_types, only: DP, STRING
  use dc_message, only: MessageNotify
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  real, pointer :: array(:,:,:,:) ! (out)
  type(GT_VARIABLE)                  :: var
  character(STRING)                  :: url, actual_url
  character(*), parameter :: subname = "HistoryGetReal4Pointer"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))
  ! 必要な情報を gtool 変数化
  call lookup_growable_url(file, varname, url, range)
  call DbgMessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  call Open(var, url)
  call Get(var, array)
  call Close(var)
  call actual_iorange_dump(url, actual_url)
  if ( .not. present_and_true(quiet) ) then
    call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
  call EndSub(subname)
end subroutine

subroutine HistoryGetReal4PointerTimeD(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use gt4_history, only: HistoryGetPointer
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real(DP), intent(in)              :: time
  logical, intent(in), optional:: quiet
  real, pointer :: array(:,:,:,:) ! (out)
  character(*), parameter :: subname = "HistoryGetReal4PointerTimeD"
continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetPointer( file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetReal4PointerTimeR(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use gt4_history, only: HistoryGetPointer
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real, intent(in)    :: time
  logical, intent(in), optional:: quiet
  real, pointer :: array(:,:,:,:) ! (out)
  character(*), parameter :: subname = "HistoryGetReal4PointerTimeR"
continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetPointer( file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetReal4TimeD(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real(DP), intent(in)              :: time
  logical, intent(in), optional:: quiet
  real, intent(out) :: array(:,:,:,:)
  character(*), parameter :: subname = "HistoryGetReal4TimeD"

continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetRealEx(file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetReal4TimeR(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real, intent(in)              :: time
  logical, intent(in), optional:: quiet
  real, intent(out) :: array(:,:,:,:)
  character(*), parameter :: subname = "HistoryGetReal4TimeR"

continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetRealEx(file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetReal5(file, varname, array, range, quiet)
  !
  ! Real 型固定配列用 5 次元配列用データ入力サブルーチン
  !
  !
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_not_empty
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  real, intent(out) :: array(:,:,:,:,:)
  character(*), parameter :: subname = "HistoryGetReal5"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))
  if (present_and_not_empty(range)) then
    call HistoryGetRealEx(file=file, varname=varname, array=array, range=range, quiet=quiet)
  else
    call HistoryGetRealEx(file=file, varname=varname, array=array, quiet=quiet)
  endif
  call EndSub(subname)
end subroutine HistoryGetReal5

subroutine HistoryGetReal5Pointer(file, varname, array, range, quiet)
  !
  ! Real 型ポインタ配列用 5 次元配列用データ入力サブルーチン
  !
  use gtdata_types, only: GT_VARIABLE
  use gtdata_generic, only: Open, Inquire, Close, Get
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_true
  use dc_types, only: DP, STRING
  use dc_message, only: MessageNotify
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  real, pointer :: array(:,:,:,:,:) ! (out)
  type(GT_VARIABLE)                  :: var
  character(STRING)                  :: url, actual_url
  character(*), parameter :: subname = "HistoryGetReal5Pointer"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))
  ! 必要な情報を gtool 変数化
  call lookup_growable_url(file, varname, url, range)
  call DbgMessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  call Open(var, url)
  call Get(var, array)
  call Close(var)
  call actual_iorange_dump(url, actual_url)
  if ( .not. present_and_true(quiet) ) then
    call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
  call EndSub(subname)
end subroutine

subroutine HistoryGetReal5PointerTimeD(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use gt4_history, only: HistoryGetPointer
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real(DP), intent(in)              :: time
  logical, intent(in), optional:: quiet
  real, pointer :: array(:,:,:,:,:) ! (out)
  character(*), parameter :: subname = "HistoryGetReal5PointerTimeD"
continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetPointer( file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetReal5PointerTimeR(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use gt4_history, only: HistoryGetPointer
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real, intent(in)    :: time
  logical, intent(in), optional:: quiet
  real, pointer :: array(:,:,:,:,:) ! (out)
  character(*), parameter :: subname = "HistoryGetReal5PointerTimeR"
continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetPointer( file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetReal5TimeD(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real(DP), intent(in)              :: time
  logical, intent(in), optional:: quiet
  real, intent(out) :: array(:,:,:,:,:)
  character(*), parameter :: subname = "HistoryGetReal5TimeD"

continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetRealEx(file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetReal5TimeR(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real, intent(in)              :: time
  logical, intent(in), optional:: quiet
  real, intent(out) :: array(:,:,:,:,:)
  character(*), parameter :: subname = "HistoryGetReal5TimeR"

continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetRealEx(file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetReal6(file, varname, array, range, quiet)
  !
  ! Real 型固定配列用 6 次元配列用データ入力サブルーチン
  !
  !
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_not_empty
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  real, intent(out) :: array(:,:,:,:,:,:)
  character(*), parameter :: subname = "HistoryGetReal6"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))
  if (present_and_not_empty(range)) then
    call HistoryGetRealEx(file=file, varname=varname, array=array, range=range, quiet=quiet)
  else
    call HistoryGetRealEx(file=file, varname=varname, array=array, quiet=quiet)
  endif
  call EndSub(subname)
end subroutine HistoryGetReal6

subroutine HistoryGetReal6Pointer(file, varname, array, range, quiet)
  !
  ! Real 型ポインタ配列用 6 次元配列用データ入力サブルーチン
  !
  use gtdata_types, only: GT_VARIABLE
  use gtdata_generic, only: Open, Inquire, Close, Get
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_true
  use dc_types, only: DP, STRING
  use dc_message, only: MessageNotify
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  real, pointer :: array(:,:,:,:,:,:) ! (out)
  type(GT_VARIABLE)                  :: var
  character(STRING)                  :: url, actual_url
  character(*), parameter :: subname = "HistoryGetReal6Pointer"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))
  ! 必要な情報を gtool 変数化
  call lookup_growable_url(file, varname, url, range)
  call DbgMessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  call Open(var, url)
  call Get(var, array)
  call Close(var)
  call actual_iorange_dump(url, actual_url)
  if ( .not. present_and_true(quiet) ) then
    call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
  call EndSub(subname)
end subroutine

subroutine HistoryGetReal6PointerTimeD(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use gt4_history, only: HistoryGetPointer
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real(DP), intent(in)              :: time
  logical, intent(in), optional:: quiet
  real, pointer :: array(:,:,:,:,:,:) ! (out)
  character(*), parameter :: subname = "HistoryGetReal6PointerTimeD"
continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetPointer( file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetReal6PointerTimeR(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use gt4_history, only: HistoryGetPointer
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real, intent(in)    :: time
  logical, intent(in), optional:: quiet
  real, pointer :: array(:,:,:,:,:,:) ! (out)
  character(*), parameter :: subname = "HistoryGetReal6PointerTimeR"
continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetPointer( file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetReal6TimeD(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real(DP), intent(in)              :: time
  logical, intent(in), optional:: quiet
  real, intent(out) :: array(:,:,:,:,:,:)
  character(*), parameter :: subname = "HistoryGetReal6TimeD"

continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetRealEx(file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetReal6TimeR(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real, intent(in)              :: time
  logical, intent(in), optional:: quiet
  real, intent(out) :: array(:,:,:,:,:,:)
  character(*), parameter :: subname = "HistoryGetReal6TimeR"

continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetRealEx(file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetReal7(file, varname, array, range, quiet)
  !
  ! Real 型固定配列用 7 次元配列用データ入力サブルーチン
  !
  !
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_not_empty
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  real, intent(out) :: array(:,:,:,:,:,:,:)
  character(*), parameter :: subname = "HistoryGetReal7"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))
  if (present_and_not_empty(range)) then
    call HistoryGetRealEx(file=file, varname=varname, array=array, range=range, quiet=quiet)
  else
    call HistoryGetRealEx(file=file, varname=varname, array=array, quiet=quiet)
  endif
  call EndSub(subname)
end subroutine HistoryGetReal7

subroutine HistoryGetReal7Pointer(file, varname, array, range, quiet)
  !
  ! Real 型ポインタ配列用 7 次元配列用データ入力サブルーチン
  !
  use gtdata_types, only: GT_VARIABLE
  use gtdata_generic, only: Open, Inquire, Close, Get
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_true
  use dc_types, only: DP, STRING
  use dc_message, only: MessageNotify
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  real, pointer :: array(:,:,:,:,:,:,:) ! (out)
  type(GT_VARIABLE)                  :: var
  character(STRING)                  :: url, actual_url
  character(*), parameter :: subname = "HistoryGetReal7Pointer"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))
  ! 必要な情報を gtool 変数化
  call lookup_growable_url(file, varname, url, range)
  call DbgMessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  call Open(var, url)
  call Get(var, array)
  call Close(var)
  call actual_iorange_dump(url, actual_url)
  if ( .not. present_and_true(quiet) ) then
    call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
  call EndSub(subname)
end subroutine

subroutine HistoryGetReal7PointerTimeD(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use gt4_history, only: HistoryGetPointer
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real(DP), intent(in)              :: time
  logical, intent(in), optional:: quiet
  real, pointer :: array(:,:,:,:,:,:,:) ! (out)
  character(*), parameter :: subname = "HistoryGetReal7PointerTimeD"
continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetPointer( file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetReal7PointerTimeR(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use gt4_history, only: HistoryGetPointer
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real, intent(in)    :: time
  logical, intent(in), optional:: quiet
  real, pointer :: array(:,:,:,:,:,:,:) ! (out)
  character(*), parameter :: subname = "HistoryGetReal7PointerTimeR"
continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetPointer( file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetReal7TimeD(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real(DP), intent(in)              :: time
  logical, intent(in), optional:: quiet
  real, intent(out) :: array(:,:,:,:,:,:,:)
  character(*), parameter :: subname = "HistoryGetReal7TimeD"

continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetRealEx(file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetReal7TimeR(file, varname, array, time, quiet)
  !
  ! 将来廃止予定です。*time* は *range* に置き換え、文字型で与えて下さい。
  !
  use dc_string, only: toChar
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  real, intent(in)              :: time
  logical, intent(in), optional:: quiet
  real, intent(out) :: array(:,:,:,:,:,:,:)
  character(*), parameter :: subname = "HistoryGetReal7TimeR"

continue
  call BeginSub(subname, 'file=%c varname=%c time=%c', c1=trim(file), c2=trim(varname), c3=toChar(time))
  call HistoryGetRealEx(file=file, varname=varname, array=array, range=toChar(time), quiet=quiet)
  call EndSub(subname)
end subroutine

subroutine HistoryGetRealEx(file, varname, array, range, quiet)
  !
  ! 入力用内部サブルーチン (Real の固定長配列用).
  ! *file* にファイル名を, *varname* に変数名を与えます.
  ! 外部には提供されず, その他の外部に提供される入力用
  ! サブルーチンが内部的に呼び出すことを想定しています.
  ! *array* にはファイルから入力されたデータが返ります.
  !
  ! *range* には gtool4 のコンマ記法を与えることで,
  ! 入力先のデータの一部を切り出して入力を行うことが
  ! 可能です. なお, range に数値のみが代入される場合,
  ! それは時刻の次元 (正確には netCDF の無制限次元) の値として
  ! 受け取られます.
  !
  ! デフォルトでは, データの入力時にどのファイルのどの変数が
  ! どの次元で切り出されて入力されたのかを表示します. 
  ! メッセージ出力が不要な場合は *quiet* に .true. を与えてください.
  !
  use gtdata_types, only: GT_VARIABLE
  use gtdata_generic, only: Open, Inquire, Close, Get
  use dc_string, only: toChar, Split, JoinChar, StoA
  use dc_url, only: GT_ATMARK, GT_COMMA, GT_EQUAL, UrlSplit, UrlMerge
  use dc_present, only: present_select, present_and_not_empty, present_and_true
  use regex,      only: match
  use dc_types, only: DP, STRING
  use dc_message, only: MessageNotify
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file    ! ファイル名
  character(*), intent(in):: varname ! 変数名
  character(*), intent(in), optional:: range
                                     ! スライス用オプション.
                                     ! gtool4 変数のコンマ記法で記述
                                     ! {(例: time=100.0,x=10:20,y=30.5)}
  logical, intent(in), optional:: quiet
  real, intent(out):: array(*) ! データ

  type(GT_VARIABLE)             :: var
  character(STRING)             :: url, actual_url
  integer:: domain   ! 変数の入出力領域の大きさ
                           ! (= 変数が依存する各次元サイズの積)
  character(*), parameter :: subname = "HistoryGetRealEx"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))

  call lookup_growable_url(file, varname, url, range)
  ! いよいよデータ取得
  call Open(var, url)
  call Inquire(var=var, size=domain)
  call Get(var, array, domain)
  call Close(var)
  call actual_iorange_dump(url, actual_url)
  if ( .not. present_and_true(quiet) ) then
    call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
  call EndSub(subname)
end subroutine HistoryGetRealEx