historyget.f90

Go to the documentation of this file.

! -*- coding: utf-8; mode: f90 -*-
!-------------------------------------------------------------------------------------
! Copyright (c) 2000-2026 Gtool Development Group. All rights reserved.
!-------------------------------------------------------------------------------------
! ** Important**
!
! This file is generated from ../../../../../src/gtool/gtool_history/historyget.erb by ERB included Ruby 3.3.8.
! Please do not edit this file directly. @see "../../../../../src/gtool/gtool_history/historyget.erb"
!-------------------------------------------------------------------------------------
  !
subroutine historygetdouble0(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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_not_empty, present_and_true
  use dc_regex, only: match
  use dc_types, only: string, dp
  use dc_message, only: messagenotify
  use dc_error, only: storeerror, dc_noerr, gt_enoturl, gt_erankmismatch
  ! MPI ライブラリ
  ! MPI library
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical,  intent(in),  optional:: quiet
  logical,  intent(in),  optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical,  intent(out), optional:: flag_time_exist
  logical,  intent(out), optional:: err
  real(DP), intent(out) :: array
  real(DP) :: array_tmp(1)
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  integer:: rank, alldims, array_rank
  integer:: domain
  character(STRING):: tname
  integer:: stat
  character(STRING):: cause_c
  character(*), parameter :: subname = "HistoryGetDouble0"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  cause_c = ''
  stat = dc_noerr
  file_work = file
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 最新時刻の URL 取得
  ! Get URL of latest time
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  ! ファイルオープン
  ! File open
  call open( var, url, err = err )
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  !-------------------------------------------------------------------
  !  配列形状のチェック
  !  Check array shape
  !-------------------------------------------------------------------
  ! 入力ファイル中のデータの次元数
  ! Get size of dimesions in data of an input file
  !
  call inquire( var = var, &           ! (in)
    & rank = rank, alldims = alldims ) ! (out)
  ! 引数の次元数のチェック (縮退されている場合には減らす)
  ! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)
  array_rank = 0
  ! 次元数の比較
  ! Compare sizes of dimensions
  !
  if ( .not. 0 == rank .and. .not. array_rank == rank ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Rank of data (%c) is "%d", rank of argument is "%d"', &
        & i = (/rank, 0/), c1 = trim(url) )
    end if
    stat = gt_erankmismatch
    cause_c = 'array'
    goto 999
  end if
  ! 入力ファイル中のデータの配列形状取得
  ! Get shape of data in an input file
  !-------------------------------------
  !  データ取得
  !  Get data
  call inquire( var = var, & ! (in)
    & size = domain )        ! (out)
  call get( var = var, & ! (inout)
    & nvalue = domain, & ! (in)
    & value = array_tmp) ! (out)
  array = array_tmp(1)
  call close( var )
  !-------------------------------------
  !  データファイル名と切り出し範囲の印字
  !  Print data filename and clipping range
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url), rank_mpi = -1)
  end if
999 continue
  call storeerror(stat, subname, err, cause_c)
end subroutine historygetdouble0
subroutine historygetdouble1(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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_not_empty, present_and_true
  use dc_regex, only: match
  use dc_types, only: string, dp
  use dc_message, only: messagenotify
  use dc_error, only: storeerror, dc_noerr, gt_enoturl, gt_erankmismatch, &
    & gt_eargsizemismatch
  ! MPI ライブラリ
  ! MPI library
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical,  intent(in),  optional:: quiet
  logical,  intent(in),  optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical,  intent(out), optional:: flag_time_exist
  logical,  intent(out), optional:: err
  real(DP), intent(out) :: array(:)
  real(DP), allocatable  :: array_tmp(:)
  integer:: array_allsize
  integer:: array_shape(1), data_shape(1), array_shape_check(1)
  integer:: allcount
  logical:: inq_err
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  integer:: rank, alldims, array_rank
  integer:: domain
  character(STRING):: tname
  integer:: stat
  character(STRING):: cause_c
  character(*), parameter :: subname = "HistoryGetDouble1"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  cause_c = ''
  stat = dc_noerr
  file_work = file
  array_shape = shape( array )
  array_allsize = size( array )
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 最新時刻の URL 取得
  ! Get URL of latest time
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  ! ファイルオープン
  ! File open
  call open( var, url, err = err )
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  !-------------------------------------------------------------------
  !  配列形状のチェック
  !  Check array shape
  !-------------------------------------------------------------------
  ! 入力ファイル中のデータの次元数
  ! Get size of dimesions in data of an input file
  !
  call inquire( var = var, &           ! (in)
    & rank = rank, alldims = alldims ) ! (out)
  ! 引数の次元数のチェック (縮退されている場合には減らす)
  ! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)
  array_rank = 1
  if ( size( array, 1 ) == 1 ) array_rank = array_rank - 1
  ! 次元数の比較
  ! Compare sizes of dimensions
  !
  if ( .not. 1 == rank .and. .not. array_rank == rank ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Rank of data (%c) is "%d", rank of argument is "%d"', &
        & i = (/rank, 1/), c1 = trim(url) )
    end if
    stat = gt_erankmismatch
    cause_c = 'array'
    goto 999
  end if
  ! 入力ファイル中のデータの配列形状取得
  ! Get shape of data in an input file
  call inquire( var = var , dimord = 1, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(1) = allcount
  else
    data_shape(1) = 1
  end if
  ! 引数の配列形状整形
  ! Arrange shape of an argument
  !
  array_shape_check = array_shape
  ! 配列形状の比較
  ! Compare shapes
  !
  if ( .not. all( array_shape_check == data_shape ) ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Shape of data (%c) is (%c), shape of argument is (%c)', &
        & c1 = trim( url ), &
        & c2 = trim( tochar( data_shape(1:rank) ) ), &
        & c3 = trim( tochar( array_shape_check(1:rank) ) ) )
    end if
    stat = gt_eargsizemismatch
    cause_c = 'array'
    goto 999
  end if
  !-------------------------------------
  !  データ取得
  !  Get data
  call inquire( var = var, & ! (in)
    & size = domain )        ! (out)
  if ( allocated( array_tmp ) ) deallocate( array_tmp )
  allocate( array_tmp(array_allsize) )
  call get( var, array_tmp, domain )
  array = reshape( array_tmp, array_shape )
  deallocate( array_tmp )
  call close( var )
  !-------------------------------------
  !  データファイル名と切り出し範囲の印字
  !  Print data filename and clipping range
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url), rank_mpi = -1)
  end if
999 continue
  call storeerror(stat, subname, err, cause_c)
end subroutine historygetdouble1
subroutine historygetdouble2(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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_not_empty, present_and_true
  use dc_regex, only: match
  use dc_types, only: string, dp
  use dc_message, only: messagenotify
  use dc_error, only: storeerror, dc_noerr, gt_enoturl, gt_erankmismatch, &
    & gt_eargsizemismatch
  ! MPI ライブラリ
  ! MPI library
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical,  intent(in),  optional:: quiet
  logical,  intent(in),  optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical,  intent(out), optional:: flag_time_exist
  logical,  intent(out), optional:: err
  real(DP), intent(out) :: array(:,:)
  real(DP), allocatable  :: array_tmp(:)
  integer:: array_allsize
  integer:: array_shape(2), data_shape(2), array_shape_check(2)
  integer:: allcount
  integer:: i, sd
  logical:: inq_err
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  integer:: rank, alldims, array_rank
  integer:: domain
  character(STRING):: tname
  integer:: stat
  character(STRING):: cause_c
  character(*), parameter :: subname = "HistoryGetDouble2"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  cause_c = ''
  stat = dc_noerr
  file_work = file
  array_shape = shape( array )
  array_allsize = size( array )
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 最新時刻の URL 取得
  ! Get URL of latest time
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  ! ファイルオープン
  ! File open
  call open( var, url, err = err )
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  !-------------------------------------------------------------------
  !  配列形状のチェック
  !  Check array shape
  !-------------------------------------------------------------------
  ! 入力ファイル中のデータの次元数
  ! Get size of dimesions in data of an input file
  !
  call inquire( var = var, &           ! (in)
    & rank = rank, alldims = alldims ) ! (out)
  ! 引数の次元数のチェック (縮退されている場合には減らす)
  ! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)
  array_rank = 2
  if ( size( array, 1 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 2 ) == 1 ) array_rank = array_rank - 1
  ! 次元数の比較
  ! Compare sizes of dimensions
  !
  if ( .not. 2 == rank .and. .not. array_rank == rank ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Rank of data (%c) is "%d", rank of argument is "%d"', &
        & i = (/rank, 2/), c1 = trim(url) )
    end if
    stat = gt_erankmismatch
    cause_c = 'array'
    goto 999
  end if
  ! 入力ファイル中のデータの配列形状取得
  ! Get shape of data in an input file
  call inquire( var = var , dimord = 1, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(1) = allcount
  else
    data_shape(1) = 1
  end if
  call inquire( var = var , dimord = 2, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(2) = allcount
  else
    data_shape(2) = 1
  end if
  ! 引数の配列形状整形
  ! Arrange shape of an argument
  !
  array_shape_check = array_shape
  sd = 1
  do i = 1, 2 - 1
    if ( array_shape_check(sd) == 1 ) then
      array_shape_check(sd:2) = cshift( array_shape_check(sd:2), 1, 1 )
    else
      sd = sd + 1
    end if
  end do
  ! 配列形状の比較
  ! Compare shapes
  !
  if ( .not. all( array_shape_check == data_shape ) ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Shape of data (%c) is (%c), shape of argument is (%c)', &
        & c1 = trim( url ), &
        & c2 = trim( tochar( data_shape(1:rank) ) ), &
        & c3 = trim( tochar( array_shape_check(1:rank) ) ) )
    end if
    stat = gt_eargsizemismatch
    cause_c = 'array'
    goto 999
  end if
  !-------------------------------------
  !  データ取得
  !  Get data
  call inquire( var = var, & ! (in)
    & size = domain )        ! (out)
  if ( allocated( array_tmp ) ) deallocate( array_tmp )
  allocate( array_tmp(array_allsize) )
  call get( var, array_tmp, domain )
  array = reshape( array_tmp, array_shape )
  deallocate( array_tmp )
  call close( var )
  !-------------------------------------
  !  データファイル名と切り出し範囲の印字
  !  Print data filename and clipping range
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url), rank_mpi = -1)
  end if
999 continue
  call storeerror(stat, subname, err, cause_c)
end subroutine historygetdouble2
subroutine historygetdouble3(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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_not_empty, present_and_true
  use dc_regex, only: match
  use dc_types, only: string, dp
  use dc_message, only: messagenotify
  use dc_error, only: storeerror, dc_noerr, gt_enoturl, gt_erankmismatch, &
    & gt_eargsizemismatch
  ! MPI ライブラリ
  ! MPI library
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical,  intent(in),  optional:: quiet
  logical,  intent(in),  optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical,  intent(out), optional:: flag_time_exist
  logical,  intent(out), optional:: err
  real(DP), intent(out) :: array(:,:,:)
  real(DP), allocatable  :: array_tmp(:)
  integer:: array_allsize
  integer:: array_shape(3), data_shape(3), array_shape_check(3)
  integer:: allcount
  integer:: i, sd
  logical:: inq_err
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  integer:: rank, alldims, array_rank
  integer:: domain
  character(STRING):: tname
  integer:: stat
  character(STRING):: cause_c
  character(*), parameter :: subname = "HistoryGetDouble3"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  cause_c = ''
  stat = dc_noerr
  file_work = file
  array_shape = shape( array )
  array_allsize = size( array )
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 最新時刻の URL 取得
  ! Get URL of latest time
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  ! ファイルオープン
  ! File open
  call open( var, url, err = err )
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  !-------------------------------------------------------------------
  !  配列形状のチェック
  !  Check array shape
  !-------------------------------------------------------------------
  ! 入力ファイル中のデータの次元数
  ! Get size of dimesions in data of an input file
  !
  call inquire( var = var, &           ! (in)
    & rank = rank, alldims = alldims ) ! (out)
  ! 引数の次元数のチェック (縮退されている場合には減らす)
  ! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)
  array_rank = 3
  if ( size( array, 1 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 2 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 3 ) == 1 ) array_rank = array_rank - 1
  ! 次元数の比較
  ! Compare sizes of dimensions
  !
  if ( .not. 3 == rank .and. .not. array_rank == rank ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Rank of data (%c) is "%d", rank of argument is "%d"', &
        & i = (/rank, 3/), c1 = trim(url) )
    end if
    stat = gt_erankmismatch
    cause_c = 'array'
    goto 999
  end if
  ! 入力ファイル中のデータの配列形状取得
  ! Get shape of data in an input file
  call inquire( var = var , dimord = 1, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(1) = allcount
  else
    data_shape(1) = 1
  end if
  call inquire( var = var , dimord = 2, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(2) = allcount
  else
    data_shape(2) = 1
  end if
  call inquire( var = var , dimord = 3, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(3) = allcount
  else
    data_shape(3) = 1
  end if
  ! 引数の配列形状整形
  ! Arrange shape of an argument
  !
  array_shape_check = array_shape
  sd = 1
  do i = 1, 3 - 1
    if ( array_shape_check(sd) == 1 ) then
      array_shape_check(sd:3) = cshift( array_shape_check(sd:3), 1, 1 )
    else
      sd = sd + 1
    end if
  end do
  ! 配列形状の比較
  ! Compare shapes
  !
  if ( .not. all( array_shape_check == data_shape ) ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Shape of data (%c) is (%c), shape of argument is (%c)', &
        & c1 = trim( url ), &
        & c2 = trim( tochar( data_shape(1:rank) ) ), &
        & c3 = trim( tochar( array_shape_check(1:rank) ) ) )
    end if
    stat = gt_eargsizemismatch
    cause_c = 'array'
    goto 999
  end if
  !-------------------------------------
  !  データ取得
  !  Get data
  call inquire( var = var, & ! (in)
    & size = domain )        ! (out)
  if ( allocated( array_tmp ) ) deallocate( array_tmp )
  allocate( array_tmp(array_allsize) )
  call get( var, array_tmp, domain )
  array = reshape( array_tmp, array_shape )
  deallocate( array_tmp )
  call close( var )
  !-------------------------------------
  !  データファイル名と切り出し範囲の印字
  !  Print data filename and clipping range
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url), rank_mpi = -1)
  end if
999 continue
  call storeerror(stat, subname, err, cause_c)
end subroutine historygetdouble3
subroutine historygetdouble4(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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_not_empty, present_and_true
  use dc_regex, only: match
  use dc_types, only: string, dp
  use dc_message, only: messagenotify
  use dc_error, only: storeerror, dc_noerr, gt_enoturl, gt_erankmismatch, &
    & gt_eargsizemismatch
  ! MPI ライブラリ
  ! MPI library
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical,  intent(in),  optional:: quiet
  logical,  intent(in),  optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical,  intent(out), optional:: flag_time_exist
  logical,  intent(out), optional:: err
  real(DP), intent(out) :: array(:,:,:,:)
  real(DP), allocatable  :: array_tmp(:)
  integer:: array_allsize
  integer:: array_shape(4), data_shape(4), array_shape_check(4)
  integer:: allcount
  integer:: i, sd
  logical:: inq_err
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  integer:: rank, alldims, array_rank
  integer:: domain
  character(STRING):: tname
  integer:: stat
  character(STRING):: cause_c
  character(*), parameter :: subname = "HistoryGetDouble4"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  cause_c = ''
  stat = dc_noerr
  file_work = file
  array_shape = shape( array )
  array_allsize = size( array )
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 最新時刻の URL 取得
  ! Get URL of latest time
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  ! ファイルオープン
  ! File open
  call open( var, url, err = err )
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  !-------------------------------------------------------------------
  !  配列形状のチェック
  !  Check array shape
  !-------------------------------------------------------------------
  ! 入力ファイル中のデータの次元数
  ! Get size of dimesions in data of an input file
  !
  call inquire( var = var, &           ! (in)
    & rank = rank, alldims = alldims ) ! (out)
  ! 引数の次元数のチェック (縮退されている場合には減らす)
  ! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)
  array_rank = 4
  if ( size( array, 1 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 2 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 3 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 4 ) == 1 ) array_rank = array_rank - 1
  ! 次元数の比較
  ! Compare sizes of dimensions
  !
  if ( .not. 4 == rank .and. .not. array_rank == rank ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Rank of data (%c) is "%d", rank of argument is "%d"', &
        & i = (/rank, 4/), c1 = trim(url) )
    end if
    stat = gt_erankmismatch
    cause_c = 'array'
    goto 999
  end if
  ! 入力ファイル中のデータの配列形状取得
  ! Get shape of data in an input file
  call inquire( var = var , dimord = 1, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(1) = allcount
  else
    data_shape(1) = 1
  end if
  call inquire( var = var , dimord = 2, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(2) = allcount
  else
    data_shape(2) = 1
  end if
  call inquire( var = var , dimord = 3, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(3) = allcount
  else
    data_shape(3) = 1
  end if
  call inquire( var = var , dimord = 4, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(4) = allcount
  else
    data_shape(4) = 1
  end if
  ! 引数の配列形状整形
  ! Arrange shape of an argument
  !
  array_shape_check = array_shape
  sd = 1
  do i = 1, 4 - 1
    if ( array_shape_check(sd) == 1 ) then
      array_shape_check(sd:4) = cshift( array_shape_check(sd:4), 1, 1 )
    else
      sd = sd + 1
    end if
  end do
  ! 配列形状の比較
  ! Compare shapes
  !
  if ( .not. all( array_shape_check == data_shape ) ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Shape of data (%c) is (%c), shape of argument is (%c)', &
        & c1 = trim( url ), &
        & c2 = trim( tochar( data_shape(1:rank) ) ), &
        & c3 = trim( tochar( array_shape_check(1:rank) ) ) )
    end if
    stat = gt_eargsizemismatch
    cause_c = 'array'
    goto 999
  end if
  !-------------------------------------
  !  データ取得
  !  Get data
  call inquire( var = var, & ! (in)
    & size = domain )        ! (out)
  if ( allocated( array_tmp ) ) deallocate( array_tmp )
  allocate( array_tmp(array_allsize) )
  call get( var, array_tmp, domain )
  array = reshape( array_tmp, array_shape )
  deallocate( array_tmp )
  call close( var )
  !-------------------------------------
  !  データファイル名と切り出し範囲の印字
  !  Print data filename and clipping range
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url), rank_mpi = -1)
  end if
999 continue
  call storeerror(stat, subname, err, cause_c)
end subroutine historygetdouble4
subroutine historygetdouble5(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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_not_empty, present_and_true
  use dc_regex, only: match
  use dc_types, only: string, dp
  use dc_message, only: messagenotify
  use dc_error, only: storeerror, dc_noerr, gt_enoturl, gt_erankmismatch, &
    & gt_eargsizemismatch
  ! MPI ライブラリ
  ! MPI library
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical,  intent(in),  optional:: quiet
  logical,  intent(in),  optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical,  intent(out), optional:: flag_time_exist
  logical,  intent(out), optional:: err
  real(DP), intent(out) :: array(:,:,:,:,:)
  real(DP), allocatable  :: array_tmp(:)
  integer:: array_allsize
  integer:: array_shape(5), data_shape(5), array_shape_check(5)
  integer:: allcount
  integer:: i, sd
  logical:: inq_err
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  integer:: rank, alldims, array_rank
  integer:: domain
  character(STRING):: tname
  integer:: stat
  character(STRING):: cause_c
  character(*), parameter :: subname = "HistoryGetDouble5"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  cause_c = ''
  stat = dc_noerr
  file_work = file
  array_shape = shape( array )
  array_allsize = size( array )
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 最新時刻の URL 取得
  ! Get URL of latest time
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  ! ファイルオープン
  ! File open
  call open( var, url, err = err )
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  !-------------------------------------------------------------------
  !  配列形状のチェック
  !  Check array shape
  !-------------------------------------------------------------------
  ! 入力ファイル中のデータの次元数
  ! Get size of dimesions in data of an input file
  !
  call inquire( var = var, &           ! (in)
    & rank = rank, alldims = alldims ) ! (out)
  ! 引数の次元数のチェック (縮退されている場合には減らす)
  ! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)
  array_rank = 5
  if ( size( array, 1 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 2 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 3 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 4 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 5 ) == 1 ) array_rank = array_rank - 1
  ! 次元数の比較
  ! Compare sizes of dimensions
  !
  if ( .not. 5 == rank .and. .not. array_rank == rank ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Rank of data (%c) is "%d", rank of argument is "%d"', &
        & i = (/rank, 5/), c1 = trim(url) )
    end if
    stat = gt_erankmismatch
    cause_c = 'array'
    goto 999
  end if
  ! 入力ファイル中のデータの配列形状取得
  ! Get shape of data in an input file
  call inquire( var = var , dimord = 1, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(1) = allcount
  else
    data_shape(1) = 1
  end if
  call inquire( var = var , dimord = 2, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(2) = allcount
  else
    data_shape(2) = 1
  end if
  call inquire( var = var , dimord = 3, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(3) = allcount
  else
    data_shape(3) = 1
  end if
  call inquire( var = var , dimord = 4, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(4) = allcount
  else
    data_shape(4) = 1
  end if
  call inquire( var = var , dimord = 5, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(5) = allcount
  else
    data_shape(5) = 1
  end if
  ! 引数の配列形状整形
  ! Arrange shape of an argument
  !
  array_shape_check = array_shape
  sd = 1
  do i = 1, 5 - 1
    if ( array_shape_check(sd) == 1 ) then
      array_shape_check(sd:5) = cshift( array_shape_check(sd:5), 1, 1 )
    else
      sd = sd + 1
    end if
  end do
  ! 配列形状の比較
  ! Compare shapes
  !
  if ( .not. all( array_shape_check == data_shape ) ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Shape of data (%c) is (%c), shape of argument is (%c)', &
        & c1 = trim( url ), &
        & c2 = trim( tochar( data_shape(1:rank) ) ), &
        & c3 = trim( tochar( array_shape_check(1:rank) ) ) )
    end if
    stat = gt_eargsizemismatch
    cause_c = 'array'
    goto 999
  end if
  !-------------------------------------
  !  データ取得
  !  Get data
  call inquire( var = var, & ! (in)
    & size = domain )        ! (out)
  if ( allocated( array_tmp ) ) deallocate( array_tmp )
  allocate( array_tmp(array_allsize) )
  call get( var, array_tmp, domain )
  array = reshape( array_tmp, array_shape )
  deallocate( array_tmp )
  call close( var )
  !-------------------------------------
  !  データファイル名と切り出し範囲の印字
  !  Print data filename and clipping range
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url), rank_mpi = -1)
  end if
999 continue
  call storeerror(stat, subname, err, cause_c)
end subroutine historygetdouble5
subroutine historygetdouble6(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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_not_empty, present_and_true
  use dc_regex, only: match
  use dc_types, only: string, dp
  use dc_message, only: messagenotify
  use dc_error, only: storeerror, dc_noerr, gt_enoturl, gt_erankmismatch, &
    & gt_eargsizemismatch
  ! MPI ライブラリ
  ! MPI library
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical,  intent(in),  optional:: quiet
  logical,  intent(in),  optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical,  intent(out), optional:: flag_time_exist
  logical,  intent(out), optional:: err
  real(DP), intent(out) :: array(:,:,:,:,:,:)
  real(DP), allocatable  :: array_tmp(:)
  integer:: array_allsize
  integer:: array_shape(6), data_shape(6), array_shape_check(6)
  integer:: allcount
  integer:: i, sd
  logical:: inq_err
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  integer:: rank, alldims, array_rank
  integer:: domain
  character(STRING):: tname
  integer:: stat
  character(STRING):: cause_c
  character(*), parameter :: subname = "HistoryGetDouble6"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  cause_c = ''
  stat = dc_noerr
  file_work = file
  array_shape = shape( array )
  array_allsize = size( array )
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 最新時刻の URL 取得
  ! Get URL of latest time
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  ! ファイルオープン
  ! File open
  call open( var, url, err = err )
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  !-------------------------------------------------------------------
  !  配列形状のチェック
  !  Check array shape
  !-------------------------------------------------------------------
  ! 入力ファイル中のデータの次元数
  ! Get size of dimesions in data of an input file
  !
  call inquire( var = var, &           ! (in)
    & rank = rank, alldims = alldims ) ! (out)
  ! 引数の次元数のチェック (縮退されている場合には減らす)
  ! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)
  array_rank = 6
  if ( size( array, 1 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 2 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 3 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 4 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 5 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 6 ) == 1 ) array_rank = array_rank - 1
  ! 次元数の比較
  ! Compare sizes of dimensions
  !
  if ( .not. 6 == rank .and. .not. array_rank == rank ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Rank of data (%c) is "%d", rank of argument is "%d"', &
        & i = (/rank, 6/), c1 = trim(url) )
    end if
    stat = gt_erankmismatch
    cause_c = 'array'
    goto 999
  end if
  ! 入力ファイル中のデータの配列形状取得
  ! Get shape of data in an input file
  call inquire( var = var , dimord = 1, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(1) = allcount
  else
    data_shape(1) = 1
  end if
  call inquire( var = var , dimord = 2, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(2) = allcount
  else
    data_shape(2) = 1
  end if
  call inquire( var = var , dimord = 3, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(3) = allcount
  else
    data_shape(3) = 1
  end if
  call inquire( var = var , dimord = 4, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(4) = allcount
  else
    data_shape(4) = 1
  end if
  call inquire( var = var , dimord = 5, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(5) = allcount
  else
    data_shape(5) = 1
  end if
  call inquire( var = var , dimord = 6, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(6) = allcount
  else
    data_shape(6) = 1
  end if
  ! 引数の配列形状整形
  ! Arrange shape of an argument
  !
  array_shape_check = array_shape
  sd = 1
  do i = 1, 6 - 1
    if ( array_shape_check(sd) == 1 ) then
      array_shape_check(sd:6) = cshift( array_shape_check(sd:6), 1, 1 )
    else
      sd = sd + 1
    end if
  end do
  ! 配列形状の比較
  ! Compare shapes
  !
  if ( .not. all( array_shape_check == data_shape ) ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Shape of data (%c) is (%c), shape of argument is (%c)', &
        & c1 = trim( url ), &
        & c2 = trim( tochar( data_shape(1:rank) ) ), &
        & c3 = trim( tochar( array_shape_check(1:rank) ) ) )
    end if
    stat = gt_eargsizemismatch
    cause_c = 'array'
    goto 999
  end if
  !-------------------------------------
  !  データ取得
  !  Get data
  call inquire( var = var, & ! (in)
    & size = domain )        ! (out)
  if ( allocated( array_tmp ) ) deallocate( array_tmp )
  allocate( array_tmp(array_allsize) )
  call get( var, array_tmp, domain )
  array = reshape( array_tmp, array_shape )
  deallocate( array_tmp )
  call close( var )
  !-------------------------------------
  !  データファイル名と切り出し範囲の印字
  !  Print data filename and clipping range
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url), rank_mpi = -1)
  end if
999 continue
  call storeerror(stat, subname, err, cause_c)
end subroutine historygetdouble6
subroutine historygetdouble7(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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_not_empty, present_and_true
  use dc_regex, only: match
  use dc_types, only: string, dp
  use dc_message, only: messagenotify
  use dc_error, only: storeerror, dc_noerr, gt_enoturl, gt_erankmismatch, &
    & gt_eargsizemismatch
  ! MPI ライブラリ
  ! MPI library
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical,  intent(in),  optional:: quiet
  logical,  intent(in),  optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical,  intent(out), optional:: flag_time_exist
  logical,  intent(out), optional:: err
  real(DP), intent(out) :: array(:,:,:,:,:,:,:)
  real(DP), allocatable  :: array_tmp(:)
  integer:: array_allsize
  integer:: array_shape(7), data_shape(7), array_shape_check(7)
  integer:: allcount
  integer:: i, sd
  logical:: inq_err
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  integer:: rank, alldims, array_rank
  integer:: domain
  character(STRING):: tname
  integer:: stat
  character(STRING):: cause_c
  character(*), parameter :: subname = "HistoryGetDouble7"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  cause_c = ''
  stat = dc_noerr
  file_work = file
  array_shape = shape( array )
  array_allsize = size( array )
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 最新時刻の URL 取得
  ! Get URL of latest time
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  ! ファイルオープン
  ! File open
  call open( var, url, err = err )
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  !-------------------------------------------------------------------
  !  配列形状のチェック
  !  Check array shape
  !-------------------------------------------------------------------
  ! 入力ファイル中のデータの次元数
  ! Get size of dimesions in data of an input file
  !
  call inquire( var = var, &           ! (in)
    & rank = rank, alldims = alldims ) ! (out)
  ! 引数の次元数のチェック (縮退されている場合には減らす)
  ! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)
  array_rank = 7
  if ( size( array, 1 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 2 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 3 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 4 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 5 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 6 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 7 ) == 1 ) array_rank = array_rank - 1
  ! 次元数の比較
  ! Compare sizes of dimensions
  !
  if ( .not. 7 == rank .and. .not. array_rank == rank ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Rank of data (%c) is "%d", rank of argument is "%d"', &
        & i = (/rank, 7/), c1 = trim(url) )
    end if
    stat = gt_erankmismatch
    cause_c = 'array'
    goto 999
  end if
  ! 入力ファイル中のデータの配列形状取得
  ! Get shape of data in an input file
  call inquire( var = var , dimord = 1, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(1) = allcount
  else
    data_shape(1) = 1
  end if
  call inquire( var = var , dimord = 2, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(2) = allcount
  else
    data_shape(2) = 1
  end if
  call inquire( var = var , dimord = 3, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(3) = allcount
  else
    data_shape(3) = 1
  end if
  call inquire( var = var , dimord = 4, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(4) = allcount
  else
    data_shape(4) = 1
  end if
  call inquire( var = var , dimord = 5, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(5) = allcount
  else
    data_shape(5) = 1
  end if
  call inquire( var = var , dimord = 6, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(6) = allcount
  else
    data_shape(6) = 1
  end if
  call inquire( var = var , dimord = 7, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(7) = allcount
  else
    data_shape(7) = 1
  end if
  ! 引数の配列形状整形
  ! Arrange shape of an argument
  !
  array_shape_check = array_shape
  sd = 1
  do i = 1, 7 - 1
    if ( array_shape_check(sd) == 1 ) then
      array_shape_check(sd:7) = cshift( array_shape_check(sd:7), 1, 1 )
    else
      sd = sd + 1
    end if
  end do
  ! 配列形状の比較
  ! Compare shapes
  !
  if ( .not. all( array_shape_check == data_shape ) ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Shape of data (%c) is (%c), shape of argument is (%c)', &
        & c1 = trim( url ), &
        & c2 = trim( tochar( data_shape(1:rank) ) ), &
        & c3 = trim( tochar( array_shape_check(1:rank) ) ) )
    end if
    stat = gt_eargsizemismatch
    cause_c = 'array'
    goto 999
  end if
  !-------------------------------------
  !  データ取得
  !  Get data
  call inquire( var = var, & ! (in)
    & size = domain )        ! (out)
  if ( allocated( array_tmp ) ) deallocate( array_tmp )
  allocate( array_tmp(array_allsize) )
  call get( var, array_tmp, domain )
  array = reshape( array_tmp, array_shape )
  deallocate( array_tmp )
  call close( var )
  !-------------------------------------
  !  データファイル名と切り出し範囲の印字
  !  Print data filename and clipping range
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url), rank_mpi = -1)
  end if
999 continue
  call storeerror(stat, subname, err, cause_c)
end subroutine historygetdouble7
subroutine historygetreal0(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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_not_empty, present_and_true
  use dc_regex, only: match
  use dc_types, only: string, dp, sp
  use dc_message, only: messagenotify
  use dc_error, only: storeerror, dc_noerr, gt_enoturl, gt_erankmismatch
  ! MPI ライブラリ
  ! MPI library
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical,  intent(in),  optional:: quiet
  logical,  intent(in),  optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical,  intent(out), optional:: flag_time_exist
  logical,  intent(out), optional:: err
  real(SP), intent(out) :: array
  real(SP) :: array_tmp(1)
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  integer:: rank, alldims, array_rank
  integer:: domain
  character(STRING):: tname
  integer:: stat
  character(STRING):: cause_c
  character(*), parameter :: subname = "HistoryGetReal0"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  cause_c = ''
  stat = dc_noerr
  file_work = file
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 最新時刻の URL 取得
  ! Get URL of latest time
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  ! ファイルオープン
  ! File open
  call open( var, url, err = err )
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  !-------------------------------------------------------------------
  !  配列形状のチェック
  !  Check array shape
  !-------------------------------------------------------------------
  ! 入力ファイル中のデータの次元数
  ! Get size of dimesions in data of an input file
  !
  call inquire( var = var, &           ! (in)
    & rank = rank, alldims = alldims ) ! (out)
  ! 引数の次元数のチェック (縮退されている場合には減らす)
  ! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)
  array_rank = 0
  ! 次元数の比較
  ! Compare sizes of dimensions
  !
  if ( .not. 0 == rank .and. .not. array_rank == rank ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Rank of data (%c) is "%d", rank of argument is "%d"', &
        & i = (/rank, 0/), c1 = trim(url) )
    end if
    stat = gt_erankmismatch
    cause_c = 'array'
    goto 999
  end if
  ! 入力ファイル中のデータの配列形状取得
  ! Get shape of data in an input file
  !-------------------------------------
  !  データ取得
  !  Get data
  call inquire( var = var, & ! (in)
    & size = domain )        ! (out)
  call get( var = var, & ! (inout)
    & nvalue = domain, & ! (in)
    & value = array_tmp) ! (out)
  array = array_tmp(1)
  call close( var )
  !-------------------------------------
  !  データファイル名と切り出し範囲の印字
  !  Print data filename and clipping range
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url), rank_mpi = -1)
  end if
999 continue
  call storeerror(stat, subname, err, cause_c)
end subroutine historygetreal0
subroutine historygetreal1(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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_not_empty, present_and_true
  use dc_regex, only: match
  use dc_types, only: string, dp, sp
  use dc_message, only: messagenotify
  use dc_error, only: storeerror, dc_noerr, gt_enoturl, gt_erankmismatch, &
    & gt_eargsizemismatch
  ! MPI ライブラリ
  ! MPI library
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical,  intent(in),  optional:: quiet
  logical,  intent(in),  optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical,  intent(out), optional:: flag_time_exist
  logical,  intent(out), optional:: err
  real(SP), intent(out) :: array(:)
  real(SP), allocatable  :: array_tmp(:)
  integer:: array_allsize
  integer:: array_shape(1), data_shape(1), array_shape_check(1)
  integer:: allcount
  logical:: inq_err
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  integer:: rank, alldims, array_rank
  integer:: domain
  character(STRING):: tname
  integer:: stat
  character(STRING):: cause_c
  character(*), parameter :: subname = "HistoryGetReal1"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  cause_c = ''
  stat = dc_noerr
  file_work = file
  array_shape = shape( array )
  array_allsize = size( array )
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 最新時刻の URL 取得
  ! Get URL of latest time
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  ! ファイルオープン
  ! File open
  call open( var, url, err = err )
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  !-------------------------------------------------------------------
  !  配列形状のチェック
  !  Check array shape
  !-------------------------------------------------------------------
  ! 入力ファイル中のデータの次元数
  ! Get size of dimesions in data of an input file
  !
  call inquire( var = var, &           ! (in)
    & rank = rank, alldims = alldims ) ! (out)
  ! 引数の次元数のチェック (縮退されている場合には減らす)
  ! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)
  array_rank = 1
  if ( size( array, 1 ) == 1 ) array_rank = array_rank - 1
  ! 次元数の比較
  ! Compare sizes of dimensions
  !
  if ( .not. 1 == rank .and. .not. array_rank == rank ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Rank of data (%c) is "%d", rank of argument is "%d"', &
        & i = (/rank, 1/), c1 = trim(url) )
    end if
    stat = gt_erankmismatch
    cause_c = 'array'
    goto 999
  end if
  ! 入力ファイル中のデータの配列形状取得
  ! Get shape of data in an input file
  call inquire( var = var , dimord = 1, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(1) = allcount
  else
    data_shape(1) = 1
  end if
  ! 引数の配列形状整形
  ! Arrange shape of an argument
  !
  array_shape_check = array_shape
  ! 配列形状の比較
  ! Compare shapes
  !
  if ( .not. all( array_shape_check == data_shape ) ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Shape of data (%c) is (%c), shape of argument is (%c)', &
        & c1 = trim( url ), &
        & c2 = trim( tochar( data_shape(1:rank) ) ), &
        & c3 = trim( tochar( array_shape_check(1:rank) ) ) )
    end if
    stat = gt_eargsizemismatch
    cause_c = 'array'
    goto 999
  end if
  !-------------------------------------
  !  データ取得
  !  Get data
  call inquire( var = var, & ! (in)
    & size = domain )        ! (out)
  if ( allocated( array_tmp ) ) deallocate( array_tmp )
  allocate( array_tmp(array_allsize) )
  call get( var, array_tmp, domain )
  array = reshape( array_tmp, array_shape )
  deallocate( array_tmp )
  call close( var )
  !-------------------------------------
  !  データファイル名と切り出し範囲の印字
  !  Print data filename and clipping range
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url), rank_mpi = -1)
  end if
999 continue
  call storeerror(stat, subname, err, cause_c)
end subroutine historygetreal1
subroutine historygetreal2(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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_not_empty, present_and_true
  use dc_regex, only: match
  use dc_types, only: string, dp, sp
  use dc_message, only: messagenotify
  use dc_error, only: storeerror, dc_noerr, gt_enoturl, gt_erankmismatch, &
    & gt_eargsizemismatch
  ! MPI ライブラリ
  ! MPI library
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical,  intent(in),  optional:: quiet
  logical,  intent(in),  optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical,  intent(out), optional:: flag_time_exist
  logical,  intent(out), optional:: err
  real(SP), intent(out) :: array(:,:)
  real(SP), allocatable  :: array_tmp(:)
  integer:: array_allsize
  integer:: array_shape(2), data_shape(2), array_shape_check(2)
  integer:: allcount
  integer:: i, sd
  logical:: inq_err
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  integer:: rank, alldims, array_rank
  integer:: domain
  character(STRING):: tname
  integer:: stat
  character(STRING):: cause_c
  character(*), parameter :: subname = "HistoryGetReal2"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  cause_c = ''
  stat = dc_noerr
  file_work = file
  array_shape = shape( array )
  array_allsize = size( array )
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 最新時刻の URL 取得
  ! Get URL of latest time
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  ! ファイルオープン
  ! File open
  call open( var, url, err = err )
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  !-------------------------------------------------------------------
  !  配列形状のチェック
  !  Check array shape
  !-------------------------------------------------------------------
  ! 入力ファイル中のデータの次元数
  ! Get size of dimesions in data of an input file
  !
  call inquire( var = var, &           ! (in)
    & rank = rank, alldims = alldims ) ! (out)
  ! 引数の次元数のチェック (縮退されている場合には減らす)
  ! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)
  array_rank = 2
  if ( size( array, 1 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 2 ) == 1 ) array_rank = array_rank - 1
  ! 次元数の比較
  ! Compare sizes of dimensions
  !
  if ( .not. 2 == rank .and. .not. array_rank == rank ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Rank of data (%c) is "%d", rank of argument is "%d"', &
        & i = (/rank, 2/), c1 = trim(url) )
    end if
    stat = gt_erankmismatch
    cause_c = 'array'
    goto 999
  end if
  ! 入力ファイル中のデータの配列形状取得
  ! Get shape of data in an input file
  call inquire( var = var , dimord = 1, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(1) = allcount
  else
    data_shape(1) = 1
  end if
  call inquire( var = var , dimord = 2, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(2) = allcount
  else
    data_shape(2) = 1
  end if
  ! 引数の配列形状整形
  ! Arrange shape of an argument
  !
  array_shape_check = array_shape
  sd = 1
  do i = 1, 2 - 1
    if ( array_shape_check(sd) == 1 ) then
      array_shape_check(sd:2) = cshift( array_shape_check(sd:2), 1, 1 )
    else
      sd = sd + 1
    end if
  end do
  ! 配列形状の比較
  ! Compare shapes
  !
  if ( .not. all( array_shape_check == data_shape ) ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Shape of data (%c) is (%c), shape of argument is (%c)', &
        & c1 = trim( url ), &
        & c2 = trim( tochar( data_shape(1:rank) ) ), &
        & c3 = trim( tochar( array_shape_check(1:rank) ) ) )
    end if
    stat = gt_eargsizemismatch
    cause_c = 'array'
    goto 999
  end if
  !-------------------------------------
  !  データ取得
  !  Get data
  call inquire( var = var, & ! (in)
    & size = domain )        ! (out)
  if ( allocated( array_tmp ) ) deallocate( array_tmp )
  allocate( array_tmp(array_allsize) )
  call get( var, array_tmp, domain )
  array = reshape( array_tmp, array_shape )
  deallocate( array_tmp )
  call close( var )
  !-------------------------------------
  !  データファイル名と切り出し範囲の印字
  !  Print data filename and clipping range
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url), rank_mpi = -1)
  end if
999 continue
  call storeerror(stat, subname, err, cause_c)
end subroutine historygetreal2
subroutine historygetreal3(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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_not_empty, present_and_true
  use dc_regex, only: match
  use dc_types, only: string, dp, sp
  use dc_message, only: messagenotify
  use dc_error, only: storeerror, dc_noerr, gt_enoturl, gt_erankmismatch, &
    & gt_eargsizemismatch
  ! MPI ライブラリ
  ! MPI library
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical,  intent(in),  optional:: quiet
  logical,  intent(in),  optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical,  intent(out), optional:: flag_time_exist
  logical,  intent(out), optional:: err
  real(SP), intent(out) :: array(:,:,:)
  real(SP), allocatable  :: array_tmp(:)
  integer:: array_allsize
  integer:: array_shape(3), data_shape(3), array_shape_check(3)
  integer:: allcount
  integer:: i, sd
  logical:: inq_err
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  integer:: rank, alldims, array_rank
  integer:: domain
  character(STRING):: tname
  integer:: stat
  character(STRING):: cause_c
  character(*), parameter :: subname = "HistoryGetReal3"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  cause_c = ''
  stat = dc_noerr
  file_work = file
  array_shape = shape( array )
  array_allsize = size( array )
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 最新時刻の URL 取得
  ! Get URL of latest time
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  ! ファイルオープン
  ! File open
  call open( var, url, err = err )
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  !-------------------------------------------------------------------
  !  配列形状のチェック
  !  Check array shape
  !-------------------------------------------------------------------
  ! 入力ファイル中のデータの次元数
  ! Get size of dimesions in data of an input file
  !
  call inquire( var = var, &           ! (in)
    & rank = rank, alldims = alldims ) ! (out)
  ! 引数の次元数のチェック (縮退されている場合には減らす)
  ! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)
  array_rank = 3
  if ( size( array, 1 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 2 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 3 ) == 1 ) array_rank = array_rank - 1
  ! 次元数の比較
  ! Compare sizes of dimensions
  !
  if ( .not. 3 == rank .and. .not. array_rank == rank ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Rank of data (%c) is "%d", rank of argument is "%d"', &
        & i = (/rank, 3/), c1 = trim(url) )
    end if
    stat = gt_erankmismatch
    cause_c = 'array'
    goto 999
  end if
  ! 入力ファイル中のデータの配列形状取得
  ! Get shape of data in an input file
  call inquire( var = var , dimord = 1, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(1) = allcount
  else
    data_shape(1) = 1
  end if
  call inquire( var = var , dimord = 2, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(2) = allcount
  else
    data_shape(2) = 1
  end if
  call inquire( var = var , dimord = 3, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(3) = allcount
  else
    data_shape(3) = 1
  end if
  ! 引数の配列形状整形
  ! Arrange shape of an argument
  !
  array_shape_check = array_shape
  sd = 1
  do i = 1, 3 - 1
    if ( array_shape_check(sd) == 1 ) then
      array_shape_check(sd:3) = cshift( array_shape_check(sd:3), 1, 1 )
    else
      sd = sd + 1
    end if
  end do
  ! 配列形状の比較
  ! Compare shapes
  !
  if ( .not. all( array_shape_check == data_shape ) ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Shape of data (%c) is (%c), shape of argument is (%c)', &
        & c1 = trim( url ), &
        & c2 = trim( tochar( data_shape(1:rank) ) ), &
        & c3 = trim( tochar( array_shape_check(1:rank) ) ) )
    end if
    stat = gt_eargsizemismatch
    cause_c = 'array'
    goto 999
  end if
  !-------------------------------------
  !  データ取得
  !  Get data
  call inquire( var = var, & ! (in)
    & size = domain )        ! (out)
  if ( allocated( array_tmp ) ) deallocate( array_tmp )
  allocate( array_tmp(array_allsize) )
  call get( var, array_tmp, domain )
  array = reshape( array_tmp, array_shape )
  deallocate( array_tmp )
  call close( var )
  !-------------------------------------
  !  データファイル名と切り出し範囲の印字
  !  Print data filename and clipping range
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url), rank_mpi = -1)
  end if
999 continue
  call storeerror(stat, subname, err, cause_c)
end subroutine historygetreal3
subroutine historygetreal4(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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_not_empty, present_and_true
  use dc_regex, only: match
  use dc_types, only: string, dp, sp
  use dc_message, only: messagenotify
  use dc_error, only: storeerror, dc_noerr, gt_enoturl, gt_erankmismatch, &
    & gt_eargsizemismatch
  ! MPI ライブラリ
  ! MPI library
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical,  intent(in),  optional:: quiet
  logical,  intent(in),  optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical,  intent(out), optional:: flag_time_exist
  logical,  intent(out), optional:: err
  real(SP), intent(out) :: array(:,:,:,:)
  real(SP), allocatable  :: array_tmp(:)
  integer:: array_allsize
  integer:: array_shape(4), data_shape(4), array_shape_check(4)
  integer:: allcount
  integer:: i, sd
  logical:: inq_err
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  integer:: rank, alldims, array_rank
  integer:: domain
  character(STRING):: tname
  integer:: stat
  character(STRING):: cause_c
  character(*), parameter :: subname = "HistoryGetReal4"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  cause_c = ''
  stat = dc_noerr
  file_work = file
  array_shape = shape( array )
  array_allsize = size( array )
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 最新時刻の URL 取得
  ! Get URL of latest time
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  ! ファイルオープン
  ! File open
  call open( var, url, err = err )
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  !-------------------------------------------------------------------
  !  配列形状のチェック
  !  Check array shape
  !-------------------------------------------------------------------
  ! 入力ファイル中のデータの次元数
  ! Get size of dimesions in data of an input file
  !
  call inquire( var = var, &           ! (in)
    & rank = rank, alldims = alldims ) ! (out)
  ! 引数の次元数のチェック (縮退されている場合には減らす)
  ! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)
  array_rank = 4
  if ( size( array, 1 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 2 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 3 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 4 ) == 1 ) array_rank = array_rank - 1
  ! 次元数の比較
  ! Compare sizes of dimensions
  !
  if ( .not. 4 == rank .and. .not. array_rank == rank ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Rank of data (%c) is "%d", rank of argument is "%d"', &
        & i = (/rank, 4/), c1 = trim(url) )
    end if
    stat = gt_erankmismatch
    cause_c = 'array'
    goto 999
  end if
  ! 入力ファイル中のデータの配列形状取得
  ! Get shape of data in an input file
  call inquire( var = var , dimord = 1, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(1) = allcount
  else
    data_shape(1) = 1
  end if
  call inquire( var = var , dimord = 2, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(2) = allcount
  else
    data_shape(2) = 1
  end if
  call inquire( var = var , dimord = 3, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(3) = allcount
  else
    data_shape(3) = 1
  end if
  call inquire( var = var , dimord = 4, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(4) = allcount
  else
    data_shape(4) = 1
  end if
  ! 引数の配列形状整形
  ! Arrange shape of an argument
  !
  array_shape_check = array_shape
  sd = 1
  do i = 1, 4 - 1
    if ( array_shape_check(sd) == 1 ) then
      array_shape_check(sd:4) = cshift( array_shape_check(sd:4), 1, 1 )
    else
      sd = sd + 1
    end if
  end do
  ! 配列形状の比較
  ! Compare shapes
  !
  if ( .not. all( array_shape_check == data_shape ) ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Shape of data (%c) is (%c), shape of argument is (%c)', &
        & c1 = trim( url ), &
        & c2 = trim( tochar( data_shape(1:rank) ) ), &
        & c3 = trim( tochar( array_shape_check(1:rank) ) ) )
    end if
    stat = gt_eargsizemismatch
    cause_c = 'array'
    goto 999
  end if
  !-------------------------------------
  !  データ取得
  !  Get data
  call inquire( var = var, & ! (in)
    & size = domain )        ! (out)
  if ( allocated( array_tmp ) ) deallocate( array_tmp )
  allocate( array_tmp(array_allsize) )
  call get( var, array_tmp, domain )
  array = reshape( array_tmp, array_shape )
  deallocate( array_tmp )
  call close( var )
  !-------------------------------------
  !  データファイル名と切り出し範囲の印字
  !  Print data filename and clipping range
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url), rank_mpi = -1)
  end if
999 continue
  call storeerror(stat, subname, err, cause_c)
end subroutine historygetreal4
subroutine historygetreal5(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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_not_empty, present_and_true
  use dc_regex, only: match
  use dc_types, only: string, dp, sp
  use dc_message, only: messagenotify
  use dc_error, only: storeerror, dc_noerr, gt_enoturl, gt_erankmismatch, &
    & gt_eargsizemismatch
  ! MPI ライブラリ
  ! MPI library
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical,  intent(in),  optional:: quiet
  logical,  intent(in),  optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical,  intent(out), optional:: flag_time_exist
  logical,  intent(out), optional:: err
  real(SP), intent(out) :: array(:,:,:,:,:)
  real(SP), allocatable  :: array_tmp(:)
  integer:: array_allsize
  integer:: array_shape(5), data_shape(5), array_shape_check(5)
  integer:: allcount
  integer:: i, sd
  logical:: inq_err
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  integer:: rank, alldims, array_rank
  integer:: domain
  character(STRING):: tname
  integer:: stat
  character(STRING):: cause_c
  character(*), parameter :: subname = "HistoryGetReal5"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  cause_c = ''
  stat = dc_noerr
  file_work = file
  array_shape = shape( array )
  array_allsize = size( array )
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 最新時刻の URL 取得
  ! Get URL of latest time
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  ! ファイルオープン
  ! File open
  call open( var, url, err = err )
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  !-------------------------------------------------------------------
  !  配列形状のチェック
  !  Check array shape
  !-------------------------------------------------------------------
  ! 入力ファイル中のデータの次元数
  ! Get size of dimesions in data of an input file
  !
  call inquire( var = var, &           ! (in)
    & rank = rank, alldims = alldims ) ! (out)
  ! 引数の次元数のチェック (縮退されている場合には減らす)
  ! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)
  array_rank = 5
  if ( size( array, 1 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 2 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 3 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 4 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 5 ) == 1 ) array_rank = array_rank - 1
  ! 次元数の比較
  ! Compare sizes of dimensions
  !
  if ( .not. 5 == rank .and. .not. array_rank == rank ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Rank of data (%c) is "%d", rank of argument is "%d"', &
        & i = (/rank, 5/), c1 = trim(url) )
    end if
    stat = gt_erankmismatch
    cause_c = 'array'
    goto 999
  end if
  ! 入力ファイル中のデータの配列形状取得
  ! Get shape of data in an input file
  call inquire( var = var , dimord = 1, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(1) = allcount
  else
    data_shape(1) = 1
  end if
  call inquire( var = var , dimord = 2, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(2) = allcount
  else
    data_shape(2) = 1
  end if
  call inquire( var = var , dimord = 3, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(3) = allcount
  else
    data_shape(3) = 1
  end if
  call inquire( var = var , dimord = 4, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(4) = allcount
  else
    data_shape(4) = 1
  end if
  call inquire( var = var , dimord = 5, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(5) = allcount
  else
    data_shape(5) = 1
  end if
  ! 引数の配列形状整形
  ! Arrange shape of an argument
  !
  array_shape_check = array_shape
  sd = 1
  do i = 1, 5 - 1
    if ( array_shape_check(sd) == 1 ) then
      array_shape_check(sd:5) = cshift( array_shape_check(sd:5), 1, 1 )
    else
      sd = sd + 1
    end if
  end do
  ! 配列形状の比較
  ! Compare shapes
  !
  if ( .not. all( array_shape_check == data_shape ) ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Shape of data (%c) is (%c), shape of argument is (%c)', &
        & c1 = trim( url ), &
        & c2 = trim( tochar( data_shape(1:rank) ) ), &
        & c3 = trim( tochar( array_shape_check(1:rank) ) ) )
    end if
    stat = gt_eargsizemismatch
    cause_c = 'array'
    goto 999
  end if
  !-------------------------------------
  !  データ取得
  !  Get data
  call inquire( var = var, & ! (in)
    & size = domain )        ! (out)
  if ( allocated( array_tmp ) ) deallocate( array_tmp )
  allocate( array_tmp(array_allsize) )
  call get( var, array_tmp, domain )
  array = reshape( array_tmp, array_shape )
  deallocate( array_tmp )
  call close( var )
  !-------------------------------------
  !  データファイル名と切り出し範囲の印字
  !  Print data filename and clipping range
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url), rank_mpi = -1)
  end if
999 continue
  call storeerror(stat, subname, err, cause_c)
end subroutine historygetreal5
subroutine historygetreal6(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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_not_empty, present_and_true
  use dc_regex, only: match
  use dc_types, only: string, dp, sp
  use dc_message, only: messagenotify
  use dc_error, only: storeerror, dc_noerr, gt_enoturl, gt_erankmismatch, &
    & gt_eargsizemismatch
  ! MPI ライブラリ
  ! MPI library
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical,  intent(in),  optional:: quiet
  logical,  intent(in),  optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical,  intent(out), optional:: flag_time_exist
  logical,  intent(out), optional:: err
  real(SP), intent(out) :: array(:,:,:,:,:,:)
  real(SP), allocatable  :: array_tmp(:)
  integer:: array_allsize
  integer:: array_shape(6), data_shape(6), array_shape_check(6)
  integer:: allcount
  integer:: i, sd
  logical:: inq_err
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  integer:: rank, alldims, array_rank
  integer:: domain
  character(STRING):: tname
  integer:: stat
  character(STRING):: cause_c
  character(*), parameter :: subname = "HistoryGetReal6"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  cause_c = ''
  stat = dc_noerr
  file_work = file
  array_shape = shape( array )
  array_allsize = size( array )
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 最新時刻の URL 取得
  ! Get URL of latest time
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  ! ファイルオープン
  ! File open
  call open( var, url, err = err )
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  !-------------------------------------------------------------------
  !  配列形状のチェック
  !  Check array shape
  !-------------------------------------------------------------------
  ! 入力ファイル中のデータの次元数
  ! Get size of dimesions in data of an input file
  !
  call inquire( var = var, &           ! (in)
    & rank = rank, alldims = alldims ) ! (out)
  ! 引数の次元数のチェック (縮退されている場合には減らす)
  ! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)
  array_rank = 6
  if ( size( array, 1 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 2 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 3 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 4 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 5 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 6 ) == 1 ) array_rank = array_rank - 1
  ! 次元数の比較
  ! Compare sizes of dimensions
  !
  if ( .not. 6 == rank .and. .not. array_rank == rank ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Rank of data (%c) is "%d", rank of argument is "%d"', &
        & i = (/rank, 6/), c1 = trim(url) )
    end if
    stat = gt_erankmismatch
    cause_c = 'array'
    goto 999
  end if
  ! 入力ファイル中のデータの配列形状取得
  ! Get shape of data in an input file
  call inquire( var = var , dimord = 1, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(1) = allcount
  else
    data_shape(1) = 1
  end if
  call inquire( var = var , dimord = 2, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(2) = allcount
  else
    data_shape(2) = 1
  end if
  call inquire( var = var , dimord = 3, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(3) = allcount
  else
    data_shape(3) = 1
  end if
  call inquire( var = var , dimord = 4, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(4) = allcount
  else
    data_shape(4) = 1
  end if
  call inquire( var = var , dimord = 5, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(5) = allcount
  else
    data_shape(5) = 1
  end if
  call inquire( var = var , dimord = 6, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(6) = allcount
  else
    data_shape(6) = 1
  end if
  ! 引数の配列形状整形
  ! Arrange shape of an argument
  !
  array_shape_check = array_shape
  sd = 1
  do i = 1, 6 - 1
    if ( array_shape_check(sd) == 1 ) then
      array_shape_check(sd:6) = cshift( array_shape_check(sd:6), 1, 1 )
    else
      sd = sd + 1
    end if
  end do
  ! 配列形状の比較
  ! Compare shapes
  !
  if ( .not. all( array_shape_check == data_shape ) ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Shape of data (%c) is (%c), shape of argument is (%c)', &
        & c1 = trim( url ), &
        & c2 = trim( tochar( data_shape(1:rank) ) ), &
        & c3 = trim( tochar( array_shape_check(1:rank) ) ) )
    end if
    stat = gt_eargsizemismatch
    cause_c = 'array'
    goto 999
  end if
  !-------------------------------------
  !  データ取得
  !  Get data
  call inquire( var = var, & ! (in)
    & size = domain )        ! (out)
  if ( allocated( array_tmp ) ) deallocate( array_tmp )
  allocate( array_tmp(array_allsize) )
  call get( var, array_tmp, domain )
  array = reshape( array_tmp, array_shape )
  deallocate( array_tmp )
  call close( var )
  !-------------------------------------
  !  データファイル名と切り出し範囲の印字
  !  Print data filename and clipping range
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url), rank_mpi = -1)
  end if
999 continue
  call storeerror(stat, subname, err, cause_c)
end subroutine historygetreal6
subroutine historygetreal7(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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_not_empty, present_and_true
  use dc_regex, only: match
  use dc_types, only: string, dp, sp
  use dc_message, only: messagenotify
  use dc_error, only: storeerror, dc_noerr, gt_enoturl, gt_erankmismatch, &
    & gt_eargsizemismatch
  ! MPI ライブラリ
  ! MPI library
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical,  intent(in),  optional:: quiet
  logical,  intent(in),  optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical,  intent(out), optional:: flag_time_exist
  logical,  intent(out), optional:: err
  real(SP), intent(out) :: array(:,:,:,:,:,:,:)
  real(SP), allocatable  :: array_tmp(:)
  integer:: array_allsize
  integer:: array_shape(7), data_shape(7), array_shape_check(7)
  integer:: allcount
  integer:: i, sd
  logical:: inq_err
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  integer:: rank, alldims, array_rank
  integer:: domain
  character(STRING):: tname
  integer:: stat
  character(STRING):: cause_c
  character(*), parameter :: subname = "HistoryGetReal7"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  cause_c = ''
  stat = dc_noerr
  file_work = file
  array_shape = shape( array )
  array_allsize = size( array )
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 最新時刻の URL 取得
  ! Get URL of latest time
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  ! ファイルオープン
  ! File open
  call open( var, url, err = err )
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  !-------------------------------------------------------------------
  !  配列形状のチェック
  !  Check array shape
  !-------------------------------------------------------------------
  ! 入力ファイル中のデータの次元数
  ! Get size of dimesions in data of an input file
  !
  call inquire( var = var, &           ! (in)
    & rank = rank, alldims = alldims ) ! (out)
  ! 引数の次元数のチェック (縮退されている場合には減らす)
  ! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)
  array_rank = 7
  if ( size( array, 1 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 2 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 3 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 4 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 5 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 6 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 7 ) == 1 ) array_rank = array_rank - 1
  ! 次元数の比較
  ! Compare sizes of dimensions
  !
  if ( .not. 7 == rank .and. .not. array_rank == rank ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Rank of data (%c) is "%d", rank of argument is "%d"', &
        & i = (/rank, 7/), c1 = trim(url) )
    end if
    stat = gt_erankmismatch
    cause_c = 'array'
    goto 999
  end if
  ! 入力ファイル中のデータの配列形状取得
  ! Get shape of data in an input file
  call inquire( var = var , dimord = 1, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(1) = allcount
  else
    data_shape(1) = 1
  end if
  call inquire( var = var , dimord = 2, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(2) = allcount
  else
    data_shape(2) = 1
  end if
  call inquire( var = var , dimord = 3, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(3) = allcount
  else
    data_shape(3) = 1
  end if
  call inquire( var = var , dimord = 4, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(4) = allcount
  else
    data_shape(4) = 1
  end if
  call inquire( var = var , dimord = 5, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(5) = allcount
  else
    data_shape(5) = 1
  end if
  call inquire( var = var , dimord = 6, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(6) = allcount
  else
    data_shape(6) = 1
  end if
  call inquire( var = var , dimord = 7, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(7) = allcount
  else
    data_shape(7) = 1
  end if
  ! 引数の配列形状整形
  ! Arrange shape of an argument
  !
  array_shape_check = array_shape
  sd = 1
  do i = 1, 7 - 1
    if ( array_shape_check(sd) == 1 ) then
      array_shape_check(sd:7) = cshift( array_shape_check(sd:7), 1, 1 )
    else
      sd = sd + 1
    end if
  end do
  ! 配列形状の比較
  ! Compare shapes
  !
  if ( .not. all( array_shape_check == data_shape ) ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Shape of data (%c) is (%c), shape of argument is (%c)', &
        & c1 = trim( url ), &
        & c2 = trim( tochar( data_shape(1:rank) ) ), &
        & c3 = trim( tochar( array_shape_check(1:rank) ) ) )
    end if
    stat = gt_eargsizemismatch
    cause_c = 'array'
    goto 999
  end if
  !-------------------------------------
  !  データ取得
  !  Get data
  call inquire( var = var, & ! (in)
    & size = domain )        ! (out)
  if ( allocated( array_tmp ) ) deallocate( array_tmp )
  allocate( array_tmp(array_allsize) )
  call get( var, array_tmp, domain )
  array = reshape( array_tmp, array_shape )
  deallocate( array_tmp )
  call close( var )
  !-------------------------------------
  !  データファイル名と切り出し範囲の印字
  !  Print data filename and clipping range
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url), rank_mpi = -1)
  end if
999 continue
  call storeerror(stat, subname, err, cause_c)
end subroutine historygetreal7
subroutine historygetint0(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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_not_empty, present_and_true
  use dc_regex, only: match
  use dc_types, only: string, dp
  use dc_message, only: messagenotify
  use dc_error, only: storeerror, dc_noerr, gt_enoturl, gt_erankmismatch
  ! MPI ライブラリ
  ! MPI library
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical,  intent(in),  optional:: quiet
  logical,  intent(in),  optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical,  intent(out), optional:: flag_time_exist
  logical,  intent(out), optional:: err
  integer, intent(out) :: array
  integer :: array_tmp(1)
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  integer:: rank, alldims, array_rank
  integer:: domain
  character(STRING):: tname
  integer:: stat
  character(STRING):: cause_c
  character(*), parameter :: subname = "HistoryGetInt0"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  cause_c = ''
  stat = dc_noerr
  file_work = file
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 最新時刻の URL 取得
  ! Get URL of latest time
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  ! ファイルオープン
  ! File open
  call open( var, url, err = err )
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  !-------------------------------------------------------------------
  !  配列形状のチェック
  !  Check array shape
  !-------------------------------------------------------------------
  ! 入力ファイル中のデータの次元数
  ! Get size of dimesions in data of an input file
  !
  call inquire( var = var, &           ! (in)
    & rank = rank, alldims = alldims ) ! (out)
  ! 引数の次元数のチェック (縮退されている場合には減らす)
  ! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)
  array_rank = 0
  ! 次元数の比較
  ! Compare sizes of dimensions
  !
  if ( .not. 0 == rank .and. .not. array_rank == rank ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Rank of data (%c) is "%d", rank of argument is "%d"', &
        & i = (/rank, 0/), c1 = trim(url) )
    end if
    stat = gt_erankmismatch
    cause_c = 'array'
    goto 999
  end if
  ! 入力ファイル中のデータの配列形状取得
  ! Get shape of data in an input file
  !-------------------------------------
  !  データ取得
  !  Get data
  call inquire( var = var, & ! (in)
    & size = domain )        ! (out)
  call get( var = var, & ! (inout)
    & nvalue = domain, & ! (in)
    & value = array_tmp) ! (out)
  array = array_tmp(1)
  call close( var )
  !-------------------------------------
  !  データファイル名と切り出し範囲の印字
  !  Print data filename and clipping range
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url), rank_mpi = -1)
  end if
999 continue
  call storeerror(stat, subname, err, cause_c)
end subroutine historygetint0
subroutine historygetint1(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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_not_empty, present_and_true
  use dc_regex, only: match
  use dc_types, only: string, dp
  use dc_message, only: messagenotify
  use dc_error, only: storeerror, dc_noerr, gt_enoturl, gt_erankmismatch, &
    & gt_eargsizemismatch
  ! MPI ライブラリ
  ! MPI library
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical,  intent(in),  optional:: quiet
  logical,  intent(in),  optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical,  intent(out), optional:: flag_time_exist
  logical,  intent(out), optional:: err
  integer, intent(out) :: array(:)
  integer, allocatable  :: array_tmp(:)
  integer:: array_allsize
  integer:: array_shape(1), data_shape(1), array_shape_check(1)
  integer:: allcount
  logical:: inq_err
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  integer:: rank, alldims, array_rank
  integer:: domain
  character(STRING):: tname
  integer:: stat
  character(STRING):: cause_c
  character(*), parameter :: subname = "HistoryGetInt1"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  cause_c = ''
  stat = dc_noerr
  file_work = file
  array_shape = shape( array )
  array_allsize = size( array )
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 最新時刻の URL 取得
  ! Get URL of latest time
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  ! ファイルオープン
  ! File open
  call open( var, url, err = err )
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  !-------------------------------------------------------------------
  !  配列形状のチェック
  !  Check array shape
  !-------------------------------------------------------------------
  ! 入力ファイル中のデータの次元数
  ! Get size of dimesions in data of an input file
  !
  call inquire( var = var, &           ! (in)
    & rank = rank, alldims = alldims ) ! (out)
  ! 引数の次元数のチェック (縮退されている場合には減らす)
  ! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)
  array_rank = 1
  if ( size( array, 1 ) == 1 ) array_rank = array_rank - 1
  ! 次元数の比較
  ! Compare sizes of dimensions
  !
  if ( .not. 1 == rank .and. .not. array_rank == rank ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Rank of data (%c) is "%d", rank of argument is "%d"', &
        & i = (/rank, 1/), c1 = trim(url) )
    end if
    stat = gt_erankmismatch
    cause_c = 'array'
    goto 999
  end if
  ! 入力ファイル中のデータの配列形状取得
  ! Get shape of data in an input file
  call inquire( var = var , dimord = 1, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(1) = allcount
  else
    data_shape(1) = 1
  end if
  ! 引数の配列形状整形
  ! Arrange shape of an argument
  !
  array_shape_check = array_shape
  ! 配列形状の比較
  ! Compare shapes
  !
  if ( .not. all( array_shape_check == data_shape ) ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Shape of data (%c) is (%c), shape of argument is (%c)', &
        & c1 = trim( url ), &
        & c2 = trim( tochar( data_shape(1:rank) ) ), &
        & c3 = trim( tochar( array_shape_check(1:rank) ) ) )
    end if
    stat = gt_eargsizemismatch
    cause_c = 'array'
    goto 999
  end if
  !-------------------------------------
  !  データ取得
  !  Get data
  call inquire( var = var, & ! (in)
    & size = domain )        ! (out)
  if ( allocated( array_tmp ) ) deallocate( array_tmp )
  allocate( array_tmp(array_allsize) )
  call get( var, array_tmp, domain )
  array = reshape( array_tmp, array_shape )
  deallocate( array_tmp )
  call close( var )
  !-------------------------------------
  !  データファイル名と切り出し範囲の印字
  !  Print data filename and clipping range
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url), rank_mpi = -1)
  end if
999 continue
  call storeerror(stat, subname, err, cause_c)
end subroutine historygetint1
subroutine historygetint2(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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_not_empty, present_and_true
  use dc_regex, only: match
  use dc_types, only: string, dp
  use dc_message, only: messagenotify
  use dc_error, only: storeerror, dc_noerr, gt_enoturl, gt_erankmismatch, &
    & gt_eargsizemismatch
  ! MPI ライブラリ
  ! MPI library
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical,  intent(in),  optional:: quiet
  logical,  intent(in),  optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical,  intent(out), optional:: flag_time_exist
  logical,  intent(out), optional:: err
  integer, intent(out) :: array(:,:)
  integer, allocatable  :: array_tmp(:)
  integer:: array_allsize
  integer:: array_shape(2), data_shape(2), array_shape_check(2)
  integer:: allcount
  integer:: i, sd
  logical:: inq_err
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  integer:: rank, alldims, array_rank
  integer:: domain
  character(STRING):: tname
  integer:: stat
  character(STRING):: cause_c
  character(*), parameter :: subname = "HistoryGetInt2"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  cause_c = ''
  stat = dc_noerr
  file_work = file
  array_shape = shape( array )
  array_allsize = size( array )
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 最新時刻の URL 取得
  ! Get URL of latest time
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  ! ファイルオープン
  ! File open
  call open( var, url, err = err )
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  !-------------------------------------------------------------------
  !  配列形状のチェック
  !  Check array shape
  !-------------------------------------------------------------------
  ! 入力ファイル中のデータの次元数
  ! Get size of dimesions in data of an input file
  !
  call inquire( var = var, &           ! (in)
    & rank = rank, alldims = alldims ) ! (out)
  ! 引数の次元数のチェック (縮退されている場合には減らす)
  ! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)
  array_rank = 2
  if ( size( array, 1 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 2 ) == 1 ) array_rank = array_rank - 1
  ! 次元数の比較
  ! Compare sizes of dimensions
  !
  if ( .not. 2 == rank .and. .not. array_rank == rank ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Rank of data (%c) is "%d", rank of argument is "%d"', &
        & i = (/rank, 2/), c1 = trim(url) )
    end if
    stat = gt_erankmismatch
    cause_c = 'array'
    goto 999
  end if
  ! 入力ファイル中のデータの配列形状取得
  ! Get shape of data in an input file
  call inquire( var = var , dimord = 1, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(1) = allcount
  else
    data_shape(1) = 1
  end if
  call inquire( var = var , dimord = 2, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(2) = allcount
  else
    data_shape(2) = 1
  end if
  ! 引数の配列形状整形
  ! Arrange shape of an argument
  !
  array_shape_check = array_shape
  sd = 1
  do i = 1, 2 - 1
    if ( array_shape_check(sd) == 1 ) then
      array_shape_check(sd:2) = cshift( array_shape_check(sd:2), 1, 1 )
    else
      sd = sd + 1
    end if
  end do
  ! 配列形状の比較
  ! Compare shapes
  !
  if ( .not. all( array_shape_check == data_shape ) ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Shape of data (%c) is (%c), shape of argument is (%c)', &
        & c1 = trim( url ), &
        & c2 = trim( tochar( data_shape(1:rank) ) ), &
        & c3 = trim( tochar( array_shape_check(1:rank) ) ) )
    end if
    stat = gt_eargsizemismatch
    cause_c = 'array'
    goto 999
  end if
  !-------------------------------------
  !  データ取得
  !  Get data
  call inquire( var = var, & ! (in)
    & size = domain )        ! (out)
  if ( allocated( array_tmp ) ) deallocate( array_tmp )
  allocate( array_tmp(array_allsize) )
  call get( var, array_tmp, domain )
  array = reshape( array_tmp, array_shape )
  deallocate( array_tmp )
  call close( var )
  !-------------------------------------
  !  データファイル名と切り出し範囲の印字
  !  Print data filename and clipping range
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url), rank_mpi = -1)
  end if
999 continue
  call storeerror(stat, subname, err, cause_c)
end subroutine historygetint2
subroutine historygetint3(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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_not_empty, present_and_true
  use dc_regex, only: match
  use dc_types, only: string, dp
  use dc_message, only: messagenotify
  use dc_error, only: storeerror, dc_noerr, gt_enoturl, gt_erankmismatch, &
    & gt_eargsizemismatch
  ! MPI ライブラリ
  ! MPI library
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical,  intent(in),  optional:: quiet
  logical,  intent(in),  optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical,  intent(out), optional:: flag_time_exist
  logical,  intent(out), optional:: err
  integer, intent(out) :: array(:,:,:)
  integer, allocatable  :: array_tmp(:)
  integer:: array_allsize
  integer:: array_shape(3), data_shape(3), array_shape_check(3)
  integer:: allcount
  integer:: i, sd
  logical:: inq_err
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  integer:: rank, alldims, array_rank
  integer:: domain
  character(STRING):: tname
  integer:: stat
  character(STRING):: cause_c
  character(*), parameter :: subname = "HistoryGetInt3"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  cause_c = ''
  stat = dc_noerr
  file_work = file
  array_shape = shape( array )
  array_allsize = size( array )
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 最新時刻の URL 取得
  ! Get URL of latest time
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  ! ファイルオープン
  ! File open
  call open( var, url, err = err )
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  !-------------------------------------------------------------------
  !  配列形状のチェック
  !  Check array shape
  !-------------------------------------------------------------------
  ! 入力ファイル中のデータの次元数
  ! Get size of dimesions in data of an input file
  !
  call inquire( var = var, &           ! (in)
    & rank = rank, alldims = alldims ) ! (out)
  ! 引数の次元数のチェック (縮退されている場合には減らす)
  ! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)
  array_rank = 3
  if ( size( array, 1 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 2 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 3 ) == 1 ) array_rank = array_rank - 1
  ! 次元数の比較
  ! Compare sizes of dimensions
  !
  if ( .not. 3 == rank .and. .not. array_rank == rank ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Rank of data (%c) is "%d", rank of argument is "%d"', &
        & i = (/rank, 3/), c1 = trim(url) )
    end if
    stat = gt_erankmismatch
    cause_c = 'array'
    goto 999
  end if
  ! 入力ファイル中のデータの配列形状取得
  ! Get shape of data in an input file
  call inquire( var = var , dimord = 1, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(1) = allcount
  else
    data_shape(1) = 1
  end if
  call inquire( var = var , dimord = 2, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(2) = allcount
  else
    data_shape(2) = 1
  end if
  call inquire( var = var , dimord = 3, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(3) = allcount
  else
    data_shape(3) = 1
  end if
  ! 引数の配列形状整形
  ! Arrange shape of an argument
  !
  array_shape_check = array_shape
  sd = 1
  do i = 1, 3 - 1
    if ( array_shape_check(sd) == 1 ) then
      array_shape_check(sd:3) = cshift( array_shape_check(sd:3), 1, 1 )
    else
      sd = sd + 1
    end if
  end do
  ! 配列形状の比較
  ! Compare shapes
  !
  if ( .not. all( array_shape_check == data_shape ) ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Shape of data (%c) is (%c), shape of argument is (%c)', &
        & c1 = trim( url ), &
        & c2 = trim( tochar( data_shape(1:rank) ) ), &
        & c3 = trim( tochar( array_shape_check(1:rank) ) ) )
    end if
    stat = gt_eargsizemismatch
    cause_c = 'array'
    goto 999
  end if
  !-------------------------------------
  !  データ取得
  !  Get data
  call inquire( var = var, & ! (in)
    & size = domain )        ! (out)
  if ( allocated( array_tmp ) ) deallocate( array_tmp )
  allocate( array_tmp(array_allsize) )
  call get( var, array_tmp, domain )
  array = reshape( array_tmp, array_shape )
  deallocate( array_tmp )
  call close( var )
  !-------------------------------------
  !  データファイル名と切り出し範囲の印字
  !  Print data filename and clipping range
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url), rank_mpi = -1)
  end if
999 continue
  call storeerror(stat, subname, err, cause_c)
end subroutine historygetint3
subroutine historygetint4(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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_not_empty, present_and_true
  use dc_regex, only: match
  use dc_types, only: string, dp
  use dc_message, only: messagenotify
  use dc_error, only: storeerror, dc_noerr, gt_enoturl, gt_erankmismatch, &
    & gt_eargsizemismatch
  ! MPI ライブラリ
  ! MPI library
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical,  intent(in),  optional:: quiet
  logical,  intent(in),  optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical,  intent(out), optional:: flag_time_exist
  logical,  intent(out), optional:: err
  integer, intent(out) :: array(:,:,:,:)
  integer, allocatable  :: array_tmp(:)
  integer:: array_allsize
  integer:: array_shape(4), data_shape(4), array_shape_check(4)
  integer:: allcount
  integer:: i, sd
  logical:: inq_err
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  integer:: rank, alldims, array_rank
  integer:: domain
  character(STRING):: tname
  integer:: stat
  character(STRING):: cause_c
  character(*), parameter :: subname = "HistoryGetInt4"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  cause_c = ''
  stat = dc_noerr
  file_work = file
  array_shape = shape( array )
  array_allsize = size( array )
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 最新時刻の URL 取得
  ! Get URL of latest time
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  ! ファイルオープン
  ! File open
  call open( var, url, err = err )
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  !-------------------------------------------------------------------
  !  配列形状のチェック
  !  Check array shape
  !-------------------------------------------------------------------
  ! 入力ファイル中のデータの次元数
  ! Get size of dimesions in data of an input file
  !
  call inquire( var = var, &           ! (in)
    & rank = rank, alldims = alldims ) ! (out)
  ! 引数の次元数のチェック (縮退されている場合には減らす)
  ! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)
  array_rank = 4
  if ( size( array, 1 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 2 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 3 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 4 ) == 1 ) array_rank = array_rank - 1
  ! 次元数の比較
  ! Compare sizes of dimensions
  !
  if ( .not. 4 == rank .and. .not. array_rank == rank ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Rank of data (%c) is "%d", rank of argument is "%d"', &
        & i = (/rank, 4/), c1 = trim(url) )
    end if
    stat = gt_erankmismatch
    cause_c = 'array'
    goto 999
  end if
  ! 入力ファイル中のデータの配列形状取得
  ! Get shape of data in an input file
  call inquire( var = var , dimord = 1, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(1) = allcount
  else
    data_shape(1) = 1
  end if
  call inquire( var = var , dimord = 2, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(2) = allcount
  else
    data_shape(2) = 1
  end if
  call inquire( var = var , dimord = 3, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(3) = allcount
  else
    data_shape(3) = 1
  end if
  call inquire( var = var , dimord = 4, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(4) = allcount
  else
    data_shape(4) = 1
  end if
  ! 引数の配列形状整形
  ! Arrange shape of an argument
  !
  array_shape_check = array_shape
  sd = 1
  do i = 1, 4 - 1
    if ( array_shape_check(sd) == 1 ) then
      array_shape_check(sd:4) = cshift( array_shape_check(sd:4), 1, 1 )
    else
      sd = sd + 1
    end if
  end do
  ! 配列形状の比較
  ! Compare shapes
  !
  if ( .not. all( array_shape_check == data_shape ) ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Shape of data (%c) is (%c), shape of argument is (%c)', &
        & c1 = trim( url ), &
        & c2 = trim( tochar( data_shape(1:rank) ) ), &
        & c3 = trim( tochar( array_shape_check(1:rank) ) ) )
    end if
    stat = gt_eargsizemismatch
    cause_c = 'array'
    goto 999
  end if
  !-------------------------------------
  !  データ取得
  !  Get data
  call inquire( var = var, & ! (in)
    & size = domain )        ! (out)
  if ( allocated( array_tmp ) ) deallocate( array_tmp )
  allocate( array_tmp(array_allsize) )
  call get( var, array_tmp, domain )
  array = reshape( array_tmp, array_shape )
  deallocate( array_tmp )
  call close( var )
  !-------------------------------------
  !  データファイル名と切り出し範囲の印字
  !  Print data filename and clipping range
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url), rank_mpi = -1)
  end if
999 continue
  call storeerror(stat, subname, err, cause_c)
end subroutine historygetint4
subroutine historygetint5(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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_not_empty, present_and_true
  use dc_regex, only: match
  use dc_types, only: string, dp
  use dc_message, only: messagenotify
  use dc_error, only: storeerror, dc_noerr, gt_enoturl, gt_erankmismatch, &
    & gt_eargsizemismatch
  ! MPI ライブラリ
  ! MPI library
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical,  intent(in),  optional:: quiet
  logical,  intent(in),  optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical,  intent(out), optional:: flag_time_exist
  logical,  intent(out), optional:: err
  integer, intent(out) :: array(:,:,:,:,:)
  integer, allocatable  :: array_tmp(:)
  integer:: array_allsize
  integer:: array_shape(5), data_shape(5), array_shape_check(5)
  integer:: allcount
  integer:: i, sd
  logical:: inq_err
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  integer:: rank, alldims, array_rank
  integer:: domain
  character(STRING):: tname
  integer:: stat
  character(STRING):: cause_c
  character(*), parameter :: subname = "HistoryGetInt5"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  cause_c = ''
  stat = dc_noerr
  file_work = file
  array_shape = shape( array )
  array_allsize = size( array )
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 最新時刻の URL 取得
  ! Get URL of latest time
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  ! ファイルオープン
  ! File open
  call open( var, url, err = err )
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  !-------------------------------------------------------------------
  !  配列形状のチェック
  !  Check array shape
  !-------------------------------------------------------------------
  ! 入力ファイル中のデータの次元数
  ! Get size of dimesions in data of an input file
  !
  call inquire( var = var, &           ! (in)
    & rank = rank, alldims = alldims ) ! (out)
  ! 引数の次元数のチェック (縮退されている場合には減らす)
  ! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)
  array_rank = 5
  if ( size( array, 1 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 2 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 3 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 4 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 5 ) == 1 ) array_rank = array_rank - 1
  ! 次元数の比較
  ! Compare sizes of dimensions
  !
  if ( .not. 5 == rank .and. .not. array_rank == rank ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Rank of data (%c) is "%d", rank of argument is "%d"', &
        & i = (/rank, 5/), c1 = trim(url) )
    end if
    stat = gt_erankmismatch
    cause_c = 'array'
    goto 999
  end if
  ! 入力ファイル中のデータの配列形状取得
  ! Get shape of data in an input file
  call inquire( var = var , dimord = 1, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(1) = allcount
  else
    data_shape(1) = 1
  end if
  call inquire( var = var , dimord = 2, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(2) = allcount
  else
    data_shape(2) = 1
  end if
  call inquire( var = var , dimord = 3, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(3) = allcount
  else
    data_shape(3) = 1
  end if
  call inquire( var = var , dimord = 4, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(4) = allcount
  else
    data_shape(4) = 1
  end if
  call inquire( var = var , dimord = 5, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(5) = allcount
  else
    data_shape(5) = 1
  end if
  ! 引数の配列形状整形
  ! Arrange shape of an argument
  !
  array_shape_check = array_shape
  sd = 1
  do i = 1, 5 - 1
    if ( array_shape_check(sd) == 1 ) then
      array_shape_check(sd:5) = cshift( array_shape_check(sd:5), 1, 1 )
    else
      sd = sd + 1
    end if
  end do
  ! 配列形状の比較
  ! Compare shapes
  !
  if ( .not. all( array_shape_check == data_shape ) ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Shape of data (%c) is (%c), shape of argument is (%c)', &
        & c1 = trim( url ), &
        & c2 = trim( tochar( data_shape(1:rank) ) ), &
        & c3 = trim( tochar( array_shape_check(1:rank) ) ) )
    end if
    stat = gt_eargsizemismatch
    cause_c = 'array'
    goto 999
  end if
  !-------------------------------------
  !  データ取得
  !  Get data
  call inquire( var = var, & ! (in)
    & size = domain )        ! (out)
  if ( allocated( array_tmp ) ) deallocate( array_tmp )
  allocate( array_tmp(array_allsize) )
  call get( var, array_tmp, domain )
  array = reshape( array_tmp, array_shape )
  deallocate( array_tmp )
  call close( var )
  !-------------------------------------
  !  データファイル名と切り出し範囲の印字
  !  Print data filename and clipping range
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url), rank_mpi = -1)
  end if
999 continue
  call storeerror(stat, subname, err, cause_c)
end subroutine historygetint5
subroutine historygetint6(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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_not_empty, present_and_true
  use dc_regex, only: match
  use dc_types, only: string, dp
  use dc_message, only: messagenotify
  use dc_error, only: storeerror, dc_noerr, gt_enoturl, gt_erankmismatch, &
    & gt_eargsizemismatch
  ! MPI ライブラリ
  ! MPI library
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical,  intent(in),  optional:: quiet
  logical,  intent(in),  optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical,  intent(out), optional:: flag_time_exist
  logical,  intent(out), optional:: err
  integer, intent(out) :: array(:,:,:,:,:,:)
  integer, allocatable  :: array_tmp(:)
  integer:: array_allsize
  integer:: array_shape(6), data_shape(6), array_shape_check(6)
  integer:: allcount
  integer:: i, sd
  logical:: inq_err
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  integer:: rank, alldims, array_rank
  integer:: domain
  character(STRING):: tname
  integer:: stat
  character(STRING):: cause_c
  character(*), parameter :: subname = "HistoryGetInt6"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  cause_c = ''
  stat = dc_noerr
  file_work = file
  array_shape = shape( array )
  array_allsize = size( array )
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 最新時刻の URL 取得
  ! Get URL of latest time
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  ! ファイルオープン
  ! File open
  call open( var, url, err = err )
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  !-------------------------------------------------------------------
  !  配列形状のチェック
  !  Check array shape
  !-------------------------------------------------------------------
  ! 入力ファイル中のデータの次元数
  ! Get size of dimesions in data of an input file
  !
  call inquire( var = var, &           ! (in)
    & rank = rank, alldims = alldims ) ! (out)
  ! 引数の次元数のチェック (縮退されている場合には減らす)
  ! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)
  array_rank = 6
  if ( size( array, 1 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 2 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 3 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 4 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 5 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 6 ) == 1 ) array_rank = array_rank - 1
  ! 次元数の比較
  ! Compare sizes of dimensions
  !
  if ( .not. 6 == rank .and. .not. array_rank == rank ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Rank of data (%c) is "%d", rank of argument is "%d"', &
        & i = (/rank, 6/), c1 = trim(url) )
    end if
    stat = gt_erankmismatch
    cause_c = 'array'
    goto 999
  end if
  ! 入力ファイル中のデータの配列形状取得
  ! Get shape of data in an input file
  call inquire( var = var , dimord = 1, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(1) = allcount
  else
    data_shape(1) = 1
  end if
  call inquire( var = var , dimord = 2, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(2) = allcount
  else
    data_shape(2) = 1
  end if
  call inquire( var = var , dimord = 3, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(3) = allcount
  else
    data_shape(3) = 1
  end if
  call inquire( var = var , dimord = 4, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(4) = allcount
  else
    data_shape(4) = 1
  end if
  call inquire( var = var , dimord = 5, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(5) = allcount
  else
    data_shape(5) = 1
  end if
  call inquire( var = var , dimord = 6, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(6) = allcount
  else
    data_shape(6) = 1
  end if
  ! 引数の配列形状整形
  ! Arrange shape of an argument
  !
  array_shape_check = array_shape
  sd = 1
  do i = 1, 6 - 1
    if ( array_shape_check(sd) == 1 ) then
      array_shape_check(sd:6) = cshift( array_shape_check(sd:6), 1, 1 )
    else
      sd = sd + 1
    end if
  end do
  ! 配列形状の比較
  ! Compare shapes
  !
  if ( .not. all( array_shape_check == data_shape ) ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Shape of data (%c) is (%c), shape of argument is (%c)', &
        & c1 = trim( url ), &
        & c2 = trim( tochar( data_shape(1:rank) ) ), &
        & c3 = trim( tochar( array_shape_check(1:rank) ) ) )
    end if
    stat = gt_eargsizemismatch
    cause_c = 'array'
    goto 999
  end if
  !-------------------------------------
  !  データ取得
  !  Get data
  call inquire( var = var, & ! (in)
    & size = domain )        ! (out)
  if ( allocated( array_tmp ) ) deallocate( array_tmp )
  allocate( array_tmp(array_allsize) )
  call get( var, array_tmp, domain )
  array = reshape( array_tmp, array_shape )
  deallocate( array_tmp )
  call close( var )
  !-------------------------------------
  !  データファイル名と切り出し範囲の印字
  !  Print data filename and clipping range
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url), rank_mpi = -1)
  end if
999 continue
  call storeerror(stat, subname, err, cause_c)
end subroutine historygetint6
subroutine historygetint7(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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_not_empty, present_and_true
  use dc_regex, only: match
  use dc_types, only: string, dp
  use dc_message, only: messagenotify
  use dc_error, only: storeerror, dc_noerr, gt_enoturl, gt_erankmismatch, &
    & gt_eargsizemismatch
  ! MPI ライブラリ
  ! MPI library
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical,  intent(in),  optional:: quiet
  logical,  intent(in),  optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical,  intent(out), optional:: flag_time_exist
  logical,  intent(out), optional:: err
  integer, intent(out) :: array(:,:,:,:,:,:,:)
  integer, allocatable  :: array_tmp(:)
  integer:: array_allsize
  integer:: array_shape(7), data_shape(7), array_shape_check(7)
  integer:: allcount
  integer:: i, sd
  logical:: inq_err
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  integer:: rank, alldims, array_rank
  integer:: domain
  character(STRING):: tname
  integer:: stat
  character(STRING):: cause_c
  character(*), parameter :: subname = "HistoryGetInt7"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  cause_c = ''
  stat = dc_noerr
  file_work = file
  array_shape = shape( array )
  array_allsize = size( array )
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 最新時刻の URL 取得
  ! Get URL of latest time
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  ! ファイルオープン
  ! File open
  call open( var, url, err = err )
  if ( present_and_true(err) ) then
    stat = gt_enoturl
    cause_c = url
    goto 999
  end if
  !-------------------------------------------------------------------
  !  配列形状のチェック
  !  Check array shape
  !-------------------------------------------------------------------
  ! 入力ファイル中のデータの次元数
  ! Get size of dimesions in data of an input file
  !
  call inquire( var = var, &           ! (in)
    & rank = rank, alldims = alldims ) ! (out)
  ! 引数の次元数のチェック (縮退されている場合には減らす)
  ! Check size of dimensions of an argument (If any dimension degenerated, size of dimensions is decreased)
  array_rank = 7
  if ( size( array, 1 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 2 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 3 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 4 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 5 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 6 ) == 1 ) array_rank = array_rank - 1
  if ( size( array, 7 ) == 1 ) array_rank = array_rank - 1
  ! 次元数の比較
  ! Compare sizes of dimensions
  !
  if ( .not. 7 == rank .and. .not. array_rank == rank ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Rank of data (%c) is "%d", rank of argument is "%d"', &
        & i = (/rank, 7/), c1 = trim(url) )
    end if
    stat = gt_erankmismatch
    cause_c = 'array'
    goto 999
  end if
  ! 入力ファイル中のデータの配列形状取得
  ! Get shape of data in an input file
  call inquire( var = var , dimord = 1, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(1) = allcount
  else
    data_shape(1) = 1
  end if
  call inquire( var = var , dimord = 2, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(2) = allcount
  else
    data_shape(2) = 1
  end if
  call inquire( var = var , dimord = 3, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(3) = allcount
  else
    data_shape(3) = 1
  end if
  call inquire( var = var , dimord = 4, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(4) = allcount
  else
    data_shape(4) = 1
  end if
  call inquire( var = var , dimord = 5, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(5) = allcount
  else
    data_shape(5) = 1
  end if
  call inquire( var = var , dimord = 6, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(6) = allcount
  else
    data_shape(6) = 1
  end if
  call inquire( var = var , dimord = 7, &   ! (in)
    & allcount = allcount, err = inq_err )       ! (out)
  if ( .not. inq_err ) then
    data_shape(7) = allcount
  else
    data_shape(7) = 1
  end if
  ! 引数の配列形状整形
  ! Arrange shape of an argument
  !
  array_shape_check = array_shape
  sd = 1
  do i = 1, 7 - 1
    if ( array_shape_check(sd) == 1 ) then
      array_shape_check(sd:7) = cshift( array_shape_check(sd:7), 1, 1 )
    else
      sd = sd + 1
    end if
  end do
  ! 配列形状の比較
  ! Compare shapes
  !
  if ( .not. all( array_shape_check == data_shape ) ) then
    if ( .not. present_and_true(quiet) ) then
      call messagenotify('W', subname, &
        & 'Shape of data (%c) is (%c), shape of argument is (%c)', &
        & c1 = trim( url ), &
        & c2 = trim( tochar( data_shape(1:rank) ) ), &
        & c3 = trim( tochar( array_shape_check(1:rank) ) ) )
    end if
    stat = gt_eargsizemismatch
    cause_c = 'array'
    goto 999
  end if
  !-------------------------------------
  !  データ取得
  !  Get data
  call inquire( var = var, & ! (in)
    & size = domain )        ! (out)
  if ( allocated( array_tmp ) ) deallocate( array_tmp )
  allocate( array_tmp(array_allsize) )
  call get( var, array_tmp, domain )
  array = reshape( array_tmp, array_shape )
  deallocate( array_tmp )
  call close( var )
  !-------------------------------------
  !  データファイル名と切り出し範囲の印字
  !  Print data filename and clipping range
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url), rank_mpi = -1)
  end if
999 continue
  call storeerror(stat, subname, err, cause_c)
end subroutine historygetint7
subroutine historygetdouble0pointer(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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: string, dp
  use dc_message, only: messagenotify
  use dc_trace, only: dbgmessage
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  integer:: domain
  real(DP), pointer :: array ! (out)
  real(DP), target :: array_tmp(1)
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  character(STRING):: tname
  character(*), parameter :: subname = "HistoryGetDouble0Pointer"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 必要な情報を gtool 変数化
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  allocate(array)
  call dbgmessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  !
  call open(var, url, err)
  call inquire(var=var, size=domain)
  call get(var, array_tmp, domain, err)
  array = array_tmp(1)
  call close(var, err)
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
end subroutine historygetdouble0pointer
subroutine historygetdouble1pointer(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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: string, dp
  use dc_message, only: messagenotify
  use dc_trace, only: dbgmessage
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  real(DP), pointer :: array(:) ! (out)
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  character(STRING):: tname
  character(*), parameter :: subname = "HistoryGetDouble1Pointer"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 必要な情報を gtool 変数化
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call dbgmessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  !
  call open(var, url, err)
  call get(var, array, err)
  call close(var, err)
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
end subroutine historygetdouble1pointer
subroutine historygetdouble2pointer(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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: string, dp
  use dc_message, only: messagenotify
  use dc_trace, only: dbgmessage
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  real(DP), pointer :: array(:,:) ! (out)
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  character(STRING):: tname
  character(*), parameter :: subname = "HistoryGetDouble2Pointer"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 必要な情報を gtool 変数化
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call dbgmessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  !
  call open(var, url, err)
  call get(var, array, err)
  call close(var, err)
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
end subroutine historygetdouble2pointer
subroutine historygetdouble3pointer(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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: string, dp
  use dc_message, only: messagenotify
  use dc_trace, only: dbgmessage
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  real(DP), pointer :: array(:,:,:) ! (out)
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  character(STRING):: tname
  character(*), parameter :: subname = "HistoryGetDouble3Pointer"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 必要な情報を gtool 変数化
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call dbgmessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  !
  call open(var, url, err)
  call get(var, array, err)
  call close(var, err)
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
end subroutine historygetdouble3pointer
subroutine historygetdouble4pointer(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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: string, dp
  use dc_message, only: messagenotify
  use dc_trace, only: dbgmessage
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  real(DP), pointer :: array(:,:,:,:) ! (out)
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  character(STRING):: tname
  character(*), parameter :: subname = "HistoryGetDouble4Pointer"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 必要な情報を gtool 変数化
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call dbgmessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  !
  call open(var, url, err)
  call get(var, array, err)
  call close(var, err)
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
end subroutine historygetdouble4pointer
subroutine historygetdouble5pointer(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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: string, dp
  use dc_message, only: messagenotify
  use dc_trace, only: dbgmessage
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  real(DP), pointer :: array(:,:,:,:,:) ! (out)
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  character(STRING):: tname
  character(*), parameter :: subname = "HistoryGetDouble5Pointer"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 必要な情報を gtool 変数化
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call dbgmessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  !
  call open(var, url, err)
  call get(var, array, err)
  call close(var, err)
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
end subroutine historygetdouble5pointer
subroutine historygetdouble6pointer(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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: string, dp
  use dc_message, only: messagenotify
  use dc_trace, only: dbgmessage
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  real(DP), pointer :: array(:,:,:,:,:,:) ! (out)
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  character(STRING):: tname
  character(*), parameter :: subname = "HistoryGetDouble6Pointer"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 必要な情報を gtool 変数化
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call dbgmessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  !
  call open(var, url, err)
  call get(var, array, err)
  call close(var, err)
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
end subroutine historygetdouble6pointer
subroutine historygetdouble7pointer(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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: string, dp
  use dc_message, only: messagenotify
  use dc_trace, only: dbgmessage
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  real(DP), pointer :: array(:,:,:,:,:,:,:) ! (out)
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  character(STRING):: tname
  character(*), parameter :: subname = "HistoryGetDouble7Pointer"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 必要な情報を gtool 変数化
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call dbgmessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  !
  call open(var, url, err)
  call get(var, array, err)
  call close(var, err)
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
end subroutine historygetdouble7pointer
subroutine historygetreal0pointer(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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: string, dp, sp
  use dc_message, only: messagenotify
  use dc_trace, only: dbgmessage
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  integer:: domain
  real(SP), pointer :: array ! (out)
  real(SP), target :: array_tmp(1)
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  character(STRING):: tname
  character(*), parameter :: subname = "HistoryGetReal0Pointer"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 必要な情報を gtool 変数化
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  allocate(array)
  call dbgmessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  !
  call open(var, url, err)
  call inquire(var=var, size=domain)
  call get(var, array_tmp, domain, err)
  array = array_tmp(1)
  call close(var, err)
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
end subroutine historygetreal0pointer
subroutine historygetreal1pointer(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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: string, dp, sp
  use dc_message, only: messagenotify
  use dc_trace, only: dbgmessage
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  real(SP), pointer :: array(:) ! (out)
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  character(STRING):: tname
  character(*), parameter :: subname = "HistoryGetReal1Pointer"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 必要な情報を gtool 変数化
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call dbgmessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  !
  call open(var, url, err)
  call get(var, array, err)
  call close(var, err)
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
end subroutine historygetreal1pointer
subroutine historygetreal2pointer(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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: string, dp, sp
  use dc_message, only: messagenotify
  use dc_trace, only: dbgmessage
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  real(SP), pointer :: array(:,:) ! (out)
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  character(STRING):: tname
  character(*), parameter :: subname = "HistoryGetReal2Pointer"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 必要な情報を gtool 変数化
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call dbgmessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  !
  call open(var, url, err)
  call get(var, array, err)
  call close(var, err)
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
end subroutine historygetreal2pointer
subroutine historygetreal3pointer(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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: string, dp, sp
  use dc_message, only: messagenotify
  use dc_trace, only: dbgmessage
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  real(SP), pointer :: array(:,:,:) ! (out)
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  character(STRING):: tname
  character(*), parameter :: subname = "HistoryGetReal3Pointer"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 必要な情報を gtool 変数化
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call dbgmessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  !
  call open(var, url, err)
  call get(var, array, err)
  call close(var, err)
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
end subroutine historygetreal3pointer
subroutine historygetreal4pointer(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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: string, dp, sp
  use dc_message, only: messagenotify
  use dc_trace, only: dbgmessage
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  real(SP), pointer :: array(:,:,:,:) ! (out)
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  character(STRING):: tname
  character(*), parameter :: subname = "HistoryGetReal4Pointer"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 必要な情報を gtool 変数化
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call dbgmessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  !
  call open(var, url, err)
  call get(var, array, err)
  call close(var, err)
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
end subroutine historygetreal4pointer
subroutine historygetreal5pointer(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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: string, dp, sp
  use dc_message, only: messagenotify
  use dc_trace, only: dbgmessage
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  real(SP), pointer :: array(:,:,:,:,:) ! (out)
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  character(STRING):: tname
  character(*), parameter :: subname = "HistoryGetReal5Pointer"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 必要な情報を gtool 変数化
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call dbgmessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  !
  call open(var, url, err)
  call get(var, array, err)
  call close(var, err)
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
end subroutine historygetreal5pointer
subroutine historygetreal6pointer(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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: string, dp, sp
  use dc_message, only: messagenotify
  use dc_trace, only: dbgmessage
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  real(SP), pointer :: array(:,:,:,:,:,:) ! (out)
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  character(STRING):: tname
  character(*), parameter :: subname = "HistoryGetReal6Pointer"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 必要な情報を gtool 変数化
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call dbgmessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  !
  call open(var, url, err)
  call get(var, array, err)
  call close(var, err)
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
end subroutine historygetreal6pointer
subroutine historygetreal7pointer(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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: string, dp, sp
  use dc_message, only: messagenotify
  use dc_trace, only: dbgmessage
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  real(SP), pointer :: array(:,:,:,:,:,:,:) ! (out)
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  character(STRING):: tname
  character(*), parameter :: subname = "HistoryGetReal7Pointer"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 必要な情報を gtool 変数化
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call dbgmessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  !
  call open(var, url, err)
  call get(var, array, err)
  call close(var, err)
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
end subroutine historygetreal7pointer
subroutine historygetint0pointer(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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: string, dp
  use dc_message, only: messagenotify
  use dc_trace, only: dbgmessage
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  integer:: domain
  integer,  pointer :: array ! (out)
  integer,  target :: array_tmp(1)
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  character(STRING):: tname
  character(*), parameter :: subname = "HistoryGetInt0Pointer"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 必要な情報を gtool 変数化
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  allocate(array)
  call dbgmessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  !
  call open(var, url, err)
  call inquire(var=var, size=domain)
  call get(var, array_tmp, domain, err)
  array = array_tmp(1)
  call close(var, err)
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
end subroutine historygetint0pointer
subroutine historygetint1pointer(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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: string, dp
  use dc_message, only: messagenotify
  use dc_trace, only: dbgmessage
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  integer,  pointer :: array(:) ! (out)
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  character(STRING):: tname
  character(*), parameter :: subname = "HistoryGetInt1Pointer"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 必要な情報を gtool 変数化
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call dbgmessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  !
  call open(var, url, err)
  call get(var, array, err)
  call close(var, err)
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
end subroutine historygetint1pointer
subroutine historygetint2pointer(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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: string, dp
  use dc_message, only: messagenotify
  use dc_trace, only: dbgmessage
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  integer,  pointer :: array(:,:) ! (out)
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  character(STRING):: tname
  character(*), parameter :: subname = "HistoryGetInt2Pointer"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 必要な情報を gtool 変数化
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call dbgmessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  !
  call open(var, url, err)
  call get(var, array, err)
  call close(var, err)
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
end subroutine historygetint2pointer
subroutine historygetint3pointer(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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: string, dp
  use dc_message, only: messagenotify
  use dc_trace, only: dbgmessage
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  integer,  pointer :: array(:,:,:) ! (out)
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  character(STRING):: tname
  character(*), parameter :: subname = "HistoryGetInt3Pointer"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 必要な情報を gtool 変数化
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call dbgmessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  !
  call open(var, url, err)
  call get(var, array, err)
  call close(var, err)
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
end subroutine historygetint3pointer
subroutine historygetint4pointer(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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: string, dp
  use dc_message, only: messagenotify
  use dc_trace, only: dbgmessage
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  integer,  pointer :: array(:,:,:,:) ! (out)
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  character(STRING):: tname
  character(*), parameter :: subname = "HistoryGetInt4Pointer"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 必要な情報を gtool 変数化
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call dbgmessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  !
  call open(var, url, err)
  call get(var, array, err)
  call close(var, err)
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
end subroutine historygetint4pointer
subroutine historygetint5pointer(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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: string, dp
  use dc_message, only: messagenotify
  use dc_trace, only: dbgmessage
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  integer,  pointer :: array(:,:,:,:,:) ! (out)
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  character(STRING):: tname
  character(*), parameter :: subname = "HistoryGetInt5Pointer"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 必要な情報を gtool 変数化
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call dbgmessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  !
  call open(var, url, err)
  call get(var, array, err)
  call close(var, err)
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
end subroutine historygetint5pointer
subroutine historygetint6pointer(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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: string, dp
  use dc_message, only: messagenotify
  use dc_trace, only: dbgmessage
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  integer,  pointer :: array(:,:,:,:,:,:) ! (out)
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  character(STRING):: tname
  character(*), parameter :: subname = "HistoryGetInt6Pointer"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 必要な情報を gtool 変数化
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call dbgmessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  !
  call open(var, url, err)
  call get(var, array, err)
  call close(var, err)
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
end subroutine historygetint6pointer
subroutine historygetint7pointer(file, varname, array, range, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  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: string, dp
  use dc_message, only: messagenotify
  use dc_trace, only: dbgmessage
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time ! データの時刻
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  integer,  pointer :: array(:,:,:,:,:,:,:) ! (out)
  type(gt_variable):: var
  character(STRING):: file_work, url, actual_url
  character(STRING):: tname
  character(*), parameter :: subname = "HistoryGetInt7Pointer"
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    subroutine actual_iorange_dump(url, actual_url, returned_time, time_name, err)
      use dc_types, only: dp
      character(*), intent(in) :: url                ! 変数 URL
      character(*), intent(out), optional :: actual_url
      ! 正確な入出力範囲指定
      real(DP), intent(out), optional:: returned_time    ! データの時刻
      character(*), intent(in), optional:: time_name ! 時刻次元の名称
      logical, intent(out), optional :: err          ! エラーのフラグ
    end subroutine actual_iorange_dump
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  ! ファイル名の変更 (MPI 用)
  ! Change filename (for MPI)
  !
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  ! 必要な情報を gtool 変数化
  !
  call lookup_growable_url(file_work, varname, url, range, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call dbgmessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  !
  call open(var, url, err)
  call get(var, array, err)
  call close(var, err)
  call actual_iorange_dump(url, &  ! (in)
    & actual_url, returned_time, & ! (out) optional
    & time_name = tname, &         ! (in)  optional
    & err = err)                   ! (out) optional
  if ( .not. present_and_true(quiet) ) then
    call messagenotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
end subroutine historygetint7pointer
subroutine historygetdouble0timer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble0(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), intent(out) :: array
    end subroutine historygetdouble0
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble0( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble0timer
subroutine historygetdouble1timer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble1(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), intent(out) :: array(:)
    end subroutine historygetdouble1
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble1( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble1timer
subroutine historygetdouble2timer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble2(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), intent(out) :: array(:,:)
    end subroutine historygetdouble2
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble2( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble2timer
subroutine historygetdouble3timer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble3(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), intent(out) :: array(:,:,:)
    end subroutine historygetdouble3
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble3( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble3timer
subroutine historygetdouble4timer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble4(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), intent(out) :: array(:,:,:,:)
    end subroutine historygetdouble4
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble4( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble4timer
subroutine historygetdouble5timer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble5(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), intent(out) :: array(:,:,:,:,:)
    end subroutine historygetdouble5
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble5( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble5timer
subroutine historygetdouble6timer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble6(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), intent(out) :: array(:,:,:,:,:,:)
    end subroutine historygetdouble6
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble6( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble6timer
subroutine historygetdouble7timer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:,:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble7(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), intent(out) :: array(:,:,:,:,:,:,:)
    end subroutine historygetdouble7
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble7( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble7timer
subroutine historygetdouble0pointertimer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble0pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), pointer :: array
    end subroutine historygetdouble0pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble0pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble0pointertimer
subroutine historygetdouble1pointertimer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble1pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), pointer :: array(:)
    end subroutine historygetdouble1pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble1pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble1pointertimer
subroutine historygetdouble2pointertimer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble2pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), pointer :: array(:,:)
    end subroutine historygetdouble2pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble2pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble2pointertimer
subroutine historygetdouble3pointertimer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble3pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), pointer :: array(:,:,:)
    end subroutine historygetdouble3pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble3pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble3pointertimer
subroutine historygetdouble4pointertimer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble4pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), pointer :: array(:,:,:,:)
    end subroutine historygetdouble4pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble4pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble4pointertimer
subroutine historygetdouble5pointertimer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble5pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), pointer :: array(:,:,:,:,:)
    end subroutine historygetdouble5pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble5pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble5pointertimer
subroutine historygetdouble6pointertimer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:,:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble6pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), pointer :: array(:,:,:,:,:,:)
    end subroutine historygetdouble6pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble6pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble6pointertimer
subroutine historygetdouble7pointertimer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:,:,:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble7pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), pointer :: array(:,:,:,:,:,:,:)
    end subroutine historygetdouble7pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble7pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble7pointertimer
subroutine historygetreal0timer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), intent(out) :: array
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal0(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), intent(out) :: array
    end subroutine historygetreal0
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal0( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal0timer
subroutine historygetreal1timer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), intent(out) :: array(:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal1(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), intent(out) :: array(:)
    end subroutine historygetreal1
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal1( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal1timer
subroutine historygetreal2timer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), intent(out) :: array(:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal2(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), intent(out) :: array(:,:)
    end subroutine historygetreal2
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal2( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal2timer
subroutine historygetreal3timer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), intent(out) :: array(:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal3(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), intent(out) :: array(:,:,:)
    end subroutine historygetreal3
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal3( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal3timer
subroutine historygetreal4timer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), intent(out) :: array(:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal4(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), intent(out) :: array(:,:,:,:)
    end subroutine historygetreal4
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal4( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal4timer
subroutine historygetreal5timer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), intent(out) :: array(:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal5(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), intent(out) :: array(:,:,:,:,:)
    end subroutine historygetreal5
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal5( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal5timer
subroutine historygetreal6timer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), intent(out) :: array(:,:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal6(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), intent(out) :: array(:,:,:,:,:,:)
    end subroutine historygetreal6
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal6( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal6timer
subroutine historygetreal7timer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), intent(out) :: array(:,:,:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal7(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), intent(out) :: array(:,:,:,:,:,:,:)
    end subroutine historygetreal7
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal7( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal7timer
subroutine historygetreal0pointertimer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), pointer :: array
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal0pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), pointer :: array
    end subroutine historygetreal0pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal0pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal0pointertimer
subroutine historygetreal1pointertimer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), pointer :: array(:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal1pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), pointer :: array(:)
    end subroutine historygetreal1pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal1pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal1pointertimer
subroutine historygetreal2pointertimer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), pointer :: array(:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal2pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), pointer :: array(:,:)
    end subroutine historygetreal2pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal2pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal2pointertimer
subroutine historygetreal3pointertimer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), pointer :: array(:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal3pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), pointer :: array(:,:,:)
    end subroutine historygetreal3pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal3pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal3pointertimer
subroutine historygetreal4pointertimer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), pointer :: array(:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal4pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), pointer :: array(:,:,:,:)
    end subroutine historygetreal4pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal4pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal4pointertimer
subroutine historygetreal5pointertimer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), pointer :: array(:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal5pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), pointer :: array(:,:,:,:,:)
    end subroutine historygetreal5pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal5pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal5pointertimer
subroutine historygetreal6pointertimer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), pointer :: array(:,:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal6pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), pointer :: array(:,:,:,:,:,:)
    end subroutine historygetreal6pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal6pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal6pointertimer
subroutine historygetreal7pointertimer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), pointer :: array(:,:,:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal7pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), pointer :: array(:,:,:,:,:,:,:)
    end subroutine historygetreal7pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal7pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal7pointertimer
subroutine historygetint0timer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  integer, intent(out)  :: array
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint0(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, intent(out)  :: array
    end subroutine historygetint0
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint0( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint0timer
subroutine historygetint1timer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  integer, intent(out)  :: array(:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint1(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, intent(out)  :: array(:)
    end subroutine historygetint1
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint1( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint1timer
subroutine historygetint2timer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  integer, intent(out)  :: array(:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint2(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, intent(out)  :: array(:,:)
    end subroutine historygetint2
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint2( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint2timer
subroutine historygetint3timer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  integer, intent(out)  :: array(:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint3(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, intent(out)  :: array(:,:,:)
    end subroutine historygetint3
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint3( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint3timer
subroutine historygetint4timer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  integer, intent(out)  :: array(:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint4(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, intent(out)  :: array(:,:,:,:)
    end subroutine historygetint4
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint4( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint4timer
subroutine historygetint5timer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  integer, intent(out)  :: array(:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint5(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, intent(out)  :: array(:,:,:,:,:)
    end subroutine historygetint5
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint5( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint5timer
subroutine historygetint6timer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  integer, intent(out)  :: array(:,:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint6(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, intent(out)  :: array(:,:,:,:,:,:)
    end subroutine historygetint6
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint6( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint6timer
subroutine historygetint7timer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  integer, intent(out)  :: array(:,:,:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint7(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, intent(out)  :: array(:,:,:,:,:,:,:)
    end subroutine historygetint7
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint7( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint7timer
subroutine historygetint0pointertimer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  integer, pointer  :: array
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint0pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, pointer  :: array
    end subroutine historygetint0pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint0pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint0pointertimer
subroutine historygetint1pointertimer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  integer, pointer  :: array(:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint1pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, pointer  :: array(:)
    end subroutine historygetint1pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint1pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint1pointertimer
subroutine historygetint2pointertimer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  integer, pointer  :: array(:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint2pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, pointer  :: array(:,:)
    end subroutine historygetint2pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint2pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint2pointertimer
subroutine historygetint3pointertimer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  integer, pointer  :: array(:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint3pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, pointer  :: array(:,:,:)
    end subroutine historygetint3pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint3pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint3pointertimer
subroutine historygetint4pointertimer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  integer, pointer  :: array(:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint4pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, pointer  :: array(:,:,:,:)
    end subroutine historygetint4pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint4pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint4pointertimer
subroutine historygetint5pointertimer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  integer, pointer  :: array(:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint5pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, pointer  :: array(:,:,:,:,:)
    end subroutine historygetint5pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint5pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint5pointertimer
subroutine historygetint6pointertimer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  integer, pointer  :: array(:,:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint6pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, pointer  :: array(:,:,:,:,:,:)
    end subroutine historygetint6pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint6pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint6pointertimer
subroutine historygetint7pointertimer( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(SP), intent(in):: time
  logical, intent(in), optional:: quiet
  integer, pointer  :: array(:,:,:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint7pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, pointer  :: array(:,:,:,:,:,:,:)
    end subroutine historygetint7pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint7pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint7pointertimer
subroutine historygetdouble0timed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble0(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), intent(out) :: array
    end subroutine historygetdouble0
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble0( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble0timed
subroutine historygetdouble1timed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble1(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), intent(out) :: array(:)
    end subroutine historygetdouble1
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble1( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble1timed
subroutine historygetdouble2timed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble2(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), intent(out) :: array(:,:)
    end subroutine historygetdouble2
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble2( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble2timed
subroutine historygetdouble3timed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble3(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), intent(out) :: array(:,:,:)
    end subroutine historygetdouble3
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble3( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble3timed
subroutine historygetdouble4timed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble4(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), intent(out) :: array(:,:,:,:)
    end subroutine historygetdouble4
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble4( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble4timed
subroutine historygetdouble5timed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble5(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), intent(out) :: array(:,:,:,:,:)
    end subroutine historygetdouble5
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble5( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble5timed
subroutine historygetdouble6timed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble6(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), intent(out) :: array(:,:,:,:,:,:)
    end subroutine historygetdouble6
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble6( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble6timed
subroutine historygetdouble7timed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:,:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble7(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), intent(out) :: array(:,:,:,:,:,:,:)
    end subroutine historygetdouble7
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble7( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble7timed
subroutine historygetdouble0pointertimed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble0pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), pointer :: array
    end subroutine historygetdouble0pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble0pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble0pointertimed
subroutine historygetdouble1pointertimed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble1pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), pointer :: array(:)
    end subroutine historygetdouble1pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble1pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble1pointertimed
subroutine historygetdouble2pointertimed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble2pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), pointer :: array(:,:)
    end subroutine historygetdouble2pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble2pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble2pointertimed
subroutine historygetdouble3pointertimed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble3pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), pointer :: array(:,:,:)
    end subroutine historygetdouble3pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble3pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble3pointertimed
subroutine historygetdouble4pointertimed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble4pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), pointer :: array(:,:,:,:)
    end subroutine historygetdouble4pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble4pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble4pointertimed
subroutine historygetdouble5pointertimed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble5pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), pointer :: array(:,:,:,:,:)
    end subroutine historygetdouble5pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble5pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble5pointertimed
subroutine historygetdouble6pointertimed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:,:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble6pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), pointer :: array(:,:,:,:,:,:)
    end subroutine historygetdouble6pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble6pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble6pointertimed
subroutine historygetdouble7pointertimed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:,:,:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble7pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), pointer :: array(:,:,:,:,:,:,:)
    end subroutine historygetdouble7pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble7pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble7pointertimed
subroutine historygetreal0timed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), intent(out) :: array
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal0(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), intent(out) :: array
    end subroutine historygetreal0
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal0( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal0timed
subroutine historygetreal1timed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), intent(out) :: array(:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal1(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), intent(out) :: array(:)
    end subroutine historygetreal1
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal1( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal1timed
subroutine historygetreal2timed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), intent(out) :: array(:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal2(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), intent(out) :: array(:,:)
    end subroutine historygetreal2
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal2( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal2timed
subroutine historygetreal3timed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), intent(out) :: array(:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal3(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), intent(out) :: array(:,:,:)
    end subroutine historygetreal3
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal3( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal3timed
subroutine historygetreal4timed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), intent(out) :: array(:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal4(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), intent(out) :: array(:,:,:,:)
    end subroutine historygetreal4
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal4( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal4timed
subroutine historygetreal5timed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), intent(out) :: array(:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal5(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), intent(out) :: array(:,:,:,:,:)
    end subroutine historygetreal5
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal5( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal5timed
subroutine historygetreal6timed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), intent(out) :: array(:,:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal6(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), intent(out) :: array(:,:,:,:,:,:)
    end subroutine historygetreal6
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal6( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal6timed
subroutine historygetreal7timed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), intent(out) :: array(:,:,:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal7(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), intent(out) :: array(:,:,:,:,:,:,:)
    end subroutine historygetreal7
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal7( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal7timed
subroutine historygetreal0pointertimed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), pointer :: array
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal0pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), pointer :: array
    end subroutine historygetreal0pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal0pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal0pointertimed
subroutine historygetreal1pointertimed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), pointer :: array(:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal1pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), pointer :: array(:)
    end subroutine historygetreal1pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal1pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal1pointertimed
subroutine historygetreal2pointertimed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), pointer :: array(:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal2pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), pointer :: array(:,:)
    end subroutine historygetreal2pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal2pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal2pointertimed
subroutine historygetreal3pointertimed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), pointer :: array(:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal3pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), pointer :: array(:,:,:)
    end subroutine historygetreal3pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal3pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal3pointertimed
subroutine historygetreal4pointertimed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), pointer :: array(:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal4pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), pointer :: array(:,:,:,:)
    end subroutine historygetreal4pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal4pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal4pointertimed
subroutine historygetreal5pointertimed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), pointer :: array(:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal5pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), pointer :: array(:,:,:,:,:)
    end subroutine historygetreal5pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal5pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal5pointertimed
subroutine historygetreal6pointertimed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), pointer :: array(:,:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal6pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), pointer :: array(:,:,:,:,:,:)
    end subroutine historygetreal6pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal6pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal6pointertimed
subroutine historygetreal7pointertimed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), pointer :: array(:,:,:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal7pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), pointer :: array(:,:,:,:,:,:,:)
    end subroutine historygetreal7pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal7pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal7pointertimed
subroutine historygetint0timed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  integer, intent(out)  :: array
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint0(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, intent(out)  :: array
    end subroutine historygetint0
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint0( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint0timed
subroutine historygetint1timed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  integer, intent(out)  :: array(:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint1(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, intent(out)  :: array(:)
    end subroutine historygetint1
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint1( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint1timed
subroutine historygetint2timed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  integer, intent(out)  :: array(:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint2(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, intent(out)  :: array(:,:)
    end subroutine historygetint2
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint2( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint2timed
subroutine historygetint3timed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  integer, intent(out)  :: array(:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint3(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, intent(out)  :: array(:,:,:)
    end subroutine historygetint3
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint3( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint3timed
subroutine historygetint4timed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  integer, intent(out)  :: array(:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint4(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, intent(out)  :: array(:,:,:,:)
    end subroutine historygetint4
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint4( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint4timed
subroutine historygetint5timed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  integer, intent(out)  :: array(:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint5(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, intent(out)  :: array(:,:,:,:,:)
    end subroutine historygetint5
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint5( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint5timed
subroutine historygetint6timed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  integer, intent(out)  :: array(:,:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint6(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, intent(out)  :: array(:,:,:,:,:,:)
    end subroutine historygetint6
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint6( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint6timed
subroutine historygetint7timed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  integer, intent(out)  :: array(:,:,:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint7(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, intent(out)  :: array(:,:,:,:,:,:,:)
    end subroutine historygetint7
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint7( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint7timed
subroutine historygetint0pointertimed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  integer, pointer  :: array
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint0pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, pointer  :: array
    end subroutine historygetint0pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint0pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint0pointertimed
subroutine historygetint1pointertimed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  integer, pointer  :: array(:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint1pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, pointer  :: array(:)
    end subroutine historygetint1pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint1pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint1pointertimed
subroutine historygetint2pointertimed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  integer, pointer  :: array(:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint2pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, pointer  :: array(:,:)
    end subroutine historygetint2pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint2pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint2pointertimed
subroutine historygetint3pointertimed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  integer, pointer  :: array(:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint3pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, pointer  :: array(:,:,:)
    end subroutine historygetint3pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint3pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint3pointertimed
subroutine historygetint4pointertimed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  integer, pointer  :: array(:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint4pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, pointer  :: array(:,:,:,:)
    end subroutine historygetint4pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint4pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint4pointertimed
subroutine historygetint5pointertimed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  integer, pointer  :: array(:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint5pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, pointer  :: array(:,:,:,:,:)
    end subroutine historygetint5pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint5pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint5pointertimed
subroutine historygetint6pointertimed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  integer, pointer  :: array(:,:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint6pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, pointer  :: array(:,:,:,:,:,:)
    end subroutine historygetint6pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint6pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint6pointertimed
subroutine historygetint7pointertimed( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  real(DP), intent(in):: time
  logical, intent(in), optional:: quiet
  integer, pointer  :: array(:,:,:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint7pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, pointer  :: array(:,:,:,:,:,:,:)
    end subroutine historygetint7pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint7pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint7pointertimed
subroutine historygetdouble0timei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble0(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), intent(out) :: array
    end subroutine historygetdouble0
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble0( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble0timei
subroutine historygetdouble1timei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble1(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), intent(out) :: array(:)
    end subroutine historygetdouble1
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble1( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble1timei
subroutine historygetdouble2timei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble2(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), intent(out) :: array(:,:)
    end subroutine historygetdouble2
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble2( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble2timei
subroutine historygetdouble3timei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble3(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), intent(out) :: array(:,:,:)
    end subroutine historygetdouble3
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble3( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble3timei
subroutine historygetdouble4timei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble4(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), intent(out) :: array(:,:,:,:)
    end subroutine historygetdouble4
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble4( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble4timei
subroutine historygetdouble5timei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble5(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), intent(out) :: array(:,:,:,:,:)
    end subroutine historygetdouble5
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble5( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble5timei
subroutine historygetdouble6timei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble6(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), intent(out) :: array(:,:,:,:,:,:)
    end subroutine historygetdouble6
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble6( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble6timei
subroutine historygetdouble7timei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:,:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble7(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), intent(out) :: array(:,:,:,:,:,:,:)
    end subroutine historygetdouble7
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble7( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble7timei
subroutine historygetdouble0pointertimei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble0pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), pointer :: array
    end subroutine historygetdouble0pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble0pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble0pointertimei
subroutine historygetdouble1pointertimei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble1pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), pointer :: array(:)
    end subroutine historygetdouble1pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble1pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble1pointertimei
subroutine historygetdouble2pointertimei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble2pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), pointer :: array(:,:)
    end subroutine historygetdouble2pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble2pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble2pointertimei
subroutine historygetdouble3pointertimei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble3pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), pointer :: array(:,:,:)
    end subroutine historygetdouble3pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble3pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble3pointertimei
subroutine historygetdouble4pointertimei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble4pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), pointer :: array(:,:,:,:)
    end subroutine historygetdouble4pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble4pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble4pointertimei
subroutine historygetdouble5pointertimei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble5pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), pointer :: array(:,:,:,:,:)
    end subroutine historygetdouble5pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble5pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble5pointertimei
subroutine historygetdouble6pointertimei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:,:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble6pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), pointer :: array(:,:,:,:,:,:)
    end subroutine historygetdouble6pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble6pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble6pointertimei
subroutine historygetdouble7pointertimei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array(:,:,:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetdouble7pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(DP), pointer :: array(:,:,:,:,:,:,:)
    end subroutine historygetdouble7pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetdouble7pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetdouble7pointertimei
subroutine historygetreal0timei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), intent(out) :: array
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal0(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), intent(out) :: array
    end subroutine historygetreal0
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal0( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal0timei
subroutine historygetreal1timei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), intent(out) :: array(:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal1(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), intent(out) :: array(:)
    end subroutine historygetreal1
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal1( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal1timei
subroutine historygetreal2timei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), intent(out) :: array(:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal2(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), intent(out) :: array(:,:)
    end subroutine historygetreal2
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal2( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal2timei
subroutine historygetreal3timei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), intent(out) :: array(:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal3(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), intent(out) :: array(:,:,:)
    end subroutine historygetreal3
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal3( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal3timei
subroutine historygetreal4timei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), intent(out) :: array(:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal4(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), intent(out) :: array(:,:,:,:)
    end subroutine historygetreal4
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal4( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal4timei
subroutine historygetreal5timei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), intent(out) :: array(:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal5(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), intent(out) :: array(:,:,:,:,:)
    end subroutine historygetreal5
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal5( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal5timei
subroutine historygetreal6timei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), intent(out) :: array(:,:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal6(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), intent(out) :: array(:,:,:,:,:,:)
    end subroutine historygetreal6
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal6( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal6timei
subroutine historygetreal7timei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), intent(out) :: array(:,:,:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal7(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), intent(out) :: array(:,:,:,:,:,:,:)
    end subroutine historygetreal7
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal7( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal7timei
subroutine historygetreal0pointertimei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), pointer :: array
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal0pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), pointer :: array
    end subroutine historygetreal0pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal0pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal0pointertimei
subroutine historygetreal1pointertimei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), pointer :: array(:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal1pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), pointer :: array(:)
    end subroutine historygetreal1pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal1pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal1pointertimei
subroutine historygetreal2pointertimei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), pointer :: array(:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal2pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), pointer :: array(:,:)
    end subroutine historygetreal2pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal2pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal2pointertimei
subroutine historygetreal3pointertimei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), pointer :: array(:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal3pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), pointer :: array(:,:,:)
    end subroutine historygetreal3pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal3pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal3pointertimei
subroutine historygetreal4pointertimei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), pointer :: array(:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal4pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), pointer :: array(:,:,:,:)
    end subroutine historygetreal4pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal4pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal4pointertimei
subroutine historygetreal5pointertimei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), pointer :: array(:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal5pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), pointer :: array(:,:,:,:,:)
    end subroutine historygetreal5pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal5pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal5pointertimei
subroutine historygetreal6pointertimei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), pointer :: array(:,:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal6pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), pointer :: array(:,:,:,:,:,:)
    end subroutine historygetreal6pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal6pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal6pointertimei
subroutine historygetreal7pointertimei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp, sp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  real(SP), pointer :: array(:,:,:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetreal7pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp, sp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      real(SP), pointer :: array(:,:,:,:,:,:,:)
    end subroutine historygetreal7pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetreal7pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetreal7pointertimei
subroutine historygetint0timei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  integer, intent(out)  :: array
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint0(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, intent(out)  :: array
    end subroutine historygetint0
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint0( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint0timei
subroutine historygetint1timei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  integer, intent(out)  :: array(:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint1(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, intent(out)  :: array(:)
    end subroutine historygetint1
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint1( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint1timei
subroutine historygetint2timei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  integer, intent(out)  :: array(:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint2(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, intent(out)  :: array(:,:)
    end subroutine historygetint2
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint2( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint2timei
subroutine historygetint3timei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  integer, intent(out)  :: array(:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint3(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, intent(out)  :: array(:,:,:)
    end subroutine historygetint3
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint3( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint3timei
subroutine historygetint4timei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  integer, intent(out)  :: array(:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint4(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, intent(out)  :: array(:,:,:,:)
    end subroutine historygetint4
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint4( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint4timei
subroutine historygetint5timei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  integer, intent(out)  :: array(:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint5(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, intent(out)  :: array(:,:,:,:,:)
    end subroutine historygetint5
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint5( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint5timei
subroutine historygetint6timei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  integer, intent(out)  :: array(:,:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint6(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, intent(out)  :: array(:,:,:,:,:,:)
    end subroutine historygetint6
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint6( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint6timei
subroutine historygetint7timei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  integer, intent(out)  :: array(:,:,:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint7(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, intent(out)  :: array(:,:,:,:,:,:,:)
    end subroutine historygetint7
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint7( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint7timei
subroutine historygetint0pointertimei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  integer, pointer  :: array
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint0pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, pointer  :: array
    end subroutine historygetint0pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint0pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint0pointertimei
subroutine historygetint1pointertimei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  integer, pointer  :: array(:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint1pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, pointer  :: array(:)
    end subroutine historygetint1pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint1pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint1pointertimei
subroutine historygetint2pointertimei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  integer, pointer  :: array(:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint2pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, pointer  :: array(:,:)
    end subroutine historygetint2pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint2pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint2pointertimei
subroutine historygetint3pointertimei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  integer, pointer  :: array(:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint3pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, pointer  :: array(:,:,:)
    end subroutine historygetint3pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint3pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint3pointertimei
subroutine historygetint4pointertimei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  integer, pointer  :: array(:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint4pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, pointer  :: array(:,:,:,:)
    end subroutine historygetint4pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint4pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint4pointertimei
subroutine historygetint5pointertimei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  integer, pointer  :: array(:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint5pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, pointer  :: array(:,:,:,:,:)
    end subroutine historygetint5pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint5pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint5pointertimei
subroutine historygetint6pointertimei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  integer, pointer  :: array(:,:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint6pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, pointer  :: array(:,:,:,:,:,:)
    end subroutine historygetint6pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint6pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint6pointertimei
subroutine historygetint7pointertimei( &
  & file, varname, array, time, &
  & quiet, flag_mpi_split, returned_time, flag_time_exist, err)
  use dc_string, only: tochar, split
  use dc_types, only: string, dp
  use dc_trace, only: dbgmessage
  use dc_url, only: url_chop_iorange, gt_equal
  use dc_present, only: present_and_true
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file, varname
  integer,  intent(in):: time
  logical, intent(in), optional:: quiet
  integer, pointer  :: array(:,:,:,:,:,:,:)
  logical, intent(in), optional:: flag_mpi_split
  real(DP), intent(out), optional:: returned_time
  logical, intent(out), optional:: flag_time_exist
  logical, intent(out), optional:: err
  character(STRING):: file_work, url, iorange, remainder, timevar_name, time_range
  character(STRING), pointer:: carray (:)
  character(STRING):: tname
  interface
    subroutine historygetint7pointer(&
      & file, varname, array, range, quiet, &
      & flag_mpi_split, returned_time, flag_time_exist, err)
      use dc_types, only: dp
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(in), optional:: range
      logical, intent(in), optional:: quiet
      logical, intent(in), optional:: flag_mpi_split
      real(DP), intent(out), optional:: returned_time
      logical, intent(out), optional:: flag_time_exist
      logical, intent(out), optional:: err
      integer, pointer  :: array(:,:,:,:,:,:,:)
    end subroutine historygetint7pointer
  end interface
  interface
    subroutine lookup_growable_url(file, varname, url, range, flag_time_exist, time_name, err)
      character(*), intent(in):: file
      character(*), intent(in):: varname
      character(*), intent(out):: url
      character(*), intent(in), optional:: range
      logical, intent(out), optional:: flag_time_exist
      character(*), intent(out), optional:: time_name
      logical, intent(out), optional:: err
    end subroutine lookup_growable_url
  end interface
  interface
    function file_rename_mpi( file ) result(result)
      use dc_types, only: string
      character(*), intent(in):: file
      character(STRING):: result
    end function file_rename_mpi
  end interface
  continue
  file_work = file
  if ( present_and_true( flag_mpi_split ) ) &
    & file_work = file_rename_mpi( file_work )
  call lookup_growable_url(file = file_work, varname = varname, &
    & url = url, &
    & flag_time_exist = flag_time_exist, time_name = tname, err = err)
  call url_chop_iorange( &
    & fullname = url, iorange = iorange, remainder = remainder )
  call split( str = iorange, carray = carray, sep = gt_equal )
  timevar_name = carray(1)
  deallocate( carray )
  time_range = trim(timevar_name) // gt_equal // trim(tochar(time))
  call historygetint7pointer( file = file, &
    & varname = varname, array = array, &
    & range = time_range, quiet = quiet, &
    & flag_mpi_split = flag_mpi_split, &
    & returned_time = returned_time, &
    & flag_time_exist = flag_time_exist, &
    & err = err )
end subroutine historygetint7pointertimei
subroutine lookup_growable_url( &
  & file, varname, & ! (in)
  & url, &           ! (out)
  & range, &         ! (in) optional
  & flag_time_exist, time_name, err) ! (out) optional
  !
  ! file の変数 varname が依存する次元の内, 時間の次元
  ! (growable == .TRUE. のもの, つまり無制限次元) の変数名,
  ! およびその最後の値を取得し, gtool 変数化
  ! ("file@varname,time=10.5" みたいな) して返す.
  !
  ! * もしも varname が次元変数である場合は「time=」を付けずに返す.
  ! * range を与えた場合, 以下のチェックを行った後, それを gtool4
  !   変数の iorange 部分に付加する.
  !   * range に空文字が与えられた場合, range が与えられない場合と
  !     同じ動作をする.
  !   * range 内に時間次元が設定されていない場合は, 自動的に
  !     時間次元に関する iorange ("time=0.5") が指定される.
  ! * 数値のみの文字列 (例: "20", "10.354") が与えられる場合,
  !   エラーを生じる.
  !
  ! *flag_time_exist* が与えられる場合には, 得られるデータに
  ! 時刻次元が含まれる場合には .true. を, 含まれない場合は
  ! .false. を返す.
  ! *time_name* が与えられる場合には, 得られるデータに
  ! 時刻次元が含まれる場合にはその時刻次元変数名を,
  ! 含まれない場合には空文字を返す.
  !
  use gtdata_types, only: gt_variable
  use gtdata_generic, only: open, close, inquire
  use dc_present,only: present_select, present_and_not_empty, present_and_true
  use dc_string, only: tochar
  use dc_error,  only: storeerror, dc_noerr, &
    & nf90_einval, gt_enotvar, gt_ebadgt4commagraphy
  use dc_url, only: gt_circumflex, gt_comma, gt_equal
  use dc_url, only: urlsplit, urlmerge, urlsearchiorange
  use dc_regex, only: match
  use dc_types, only: string
  use dc_trace, only: beginsub, endsub, dbgmessage
  character(*), intent(in) :: file           ! ファイル名
  character(*), intent(in) :: varname        ! 変数名
  character(*), intent(out) :: url           ! gtool変数化した文字列
  character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
  logical, intent(out), optional:: flag_time_exist ! 時刻次元の存在の有無
  character(*), intent(out), optional:: time_name  ! 時刻次元の名称
  logical, intent(out), optional :: err      ! エラーのフラグ
  !
  type(gt_variable)                       :: var
  type(gt_variable), allocatable          :: dimvar(:)
  character(STRING) :: time_url, tname, time_iorange
  character(STRING) :: iorange, cause_c
  logical:: growable, nounlimited
  integer:: allcount, timecount, nd, i, stat
  integer:: regex_stat, regex_len
  character(*), parameter :: subname = "lookup_growable_url"
continue
  call beginsub(subname, '<file=%c varname=%c range=%c>', &
    & c1=trim(file), c2=trim(varname), &
    & c3=trim(present_select('', 'no-range', range)))
  stat = dc_noerr
  cause_c = ""
  url = ""
  ! 引数の正当性をチェック
  if (.not. present_and_not_empty(file)) then
    stat = nf90_einval
    cause_c = '"file" is not specified'
    goto 999
  elseif (.not. present_and_not_empty(varname)) then
    stat = nf90_einval
    cause_c = '"varname" is not specified'
    goto 999
  end if
  ! 時刻次元の変数名, およびその最終時刻の
  ! 探査のために file@varname を open (まだデータを取得しない)
  call open(var, urlmerge(file, varname), err = err)
  if ( present_and_true(err) ) then
    stat = gt_enotvar
    goto 999
  end if
  ! 次元の数を取得
  call inquire(var=var, alldims=nd)
  call dbgmessage('@ alldims = %d', i=(/nd/))
  if (allocated(dimvar)) then
    deallocate(dimvar)
  end if
  allocate(dimvar(nd))
  !
  ! 変数が無制限変数を持たない場合, もしくは変数自体が
  ! 無制限次元変数である場合には, それに関する iorange を
  ! 付けないで返すよう, フラグを立てる.
  ! それ以外は .false. にする.
  nounlimited = .true.
  !
  ! 各次元毎に情報を取得し, growable == .TRUE. のもの (つまりは時間)
  ! の変数名 (tname) を取得する.
  call dbgmessage('[%c: growable-dim-search]', c1=trim(subname))
  tname = ''
  do, i = 1, nd
    call open(var = dimvar(i), &        ! (out)
      & source_var = var, dimord = i, & ! (in)
      & count_compact = .true., &       ! (in)
      & err = err)                      ! (out) optional
    ! まずは変数入り gtool4 変数を time_url に取得
    call inquire(var = dimvar(i), &           ! (in)
      & growable = growable, &                ! (out)
      & allcount = allcount, url = time_url)  ! (out)
    call dbgmessage('  [dim=d>: growable=<%y>: url=<%c>]', &
      &  i = (/i/), l = (/growable/), c1 = trim(time_url))
    ! 変数部分だけ分離
    call urlsplit( fullname = time_url, & ! (in)
      &            var = tname)           ! (out)
    ! 無制限次元で, かつ開こうとする変数自体が無制限次元でない場合
    !
    if ( growable .and. trim(tname) /= trim(varname) ) then
      ! 総数 = 最後の数を timecount に
      !
      timecount = allcount
      nounlimited = .false.
    endif
    call close(dimvar(i))
    ! 時刻次元が見つかった場合にはループを抜ける
    !
    if ( .not. nounlimited ) then
      exit
    ! 時刻次元ではない場合, tname を空に
    !
    else
      tname = ''
    end if
  end do
  ! 探査を終了したので閉じる
  call close(var)
  if (stat /= dc_noerr) then
    goto 999
  end if
  ! 時刻次元名を返す
  !
  if ( present(time_name) ) time_name = tname
  ! 時刻部分の iorange を作成しておく.
  ! 格子点情報で取得されているので, 頭に "^" を付加する.
  if (nounlimited) then
    time_iorange = ''
    if ( present(flag_time_exist) ) flag_time_exist = .false.
!!$    if ( present(returned_time) ) returned_time = 0.
  else
    time_iorange = trim(tname) // gt_equal // &
      & gt_circumflex // adjustl(tochar(timecount))
    if ( present(flag_time_exist) ) flag_time_exist = .true.
!!$    if ( present(returned_time) ) then
!!$      returned_time =
!!$    end if
  end if
  ! iorange を指定する.
  ! 時刻に関しては, range が存在しない場合には
  ! 自動取得した最後の時刻を付加する.
  ! range が存在する場合, "=" が含まれなければ, gtool4 のコンマ記法
  ! として不適切としてエラーを生じる.
  ! "=" が含まれる場合, iorange としてそのまま iorange になる.
  ! ただし, その iorange に時刻次元が含まれない場合,
  ! やはり先ほど自動取得した値が付加される.
  ! 当然, 時刻次元が存在しない場合には付加しない.
  if (.not. present_and_not_empty(range)) then
    iorange = time_iorange
  else
    ! range がコンマ記法になっているか, "=" があるかどうかで調べる
    call match(gt_equal, range, regex_len, regex_stat)
    ! コンマ記法になってない場合は無制限次元の値と判定
    if (regex_stat < 0) then
      cause_c = range
      stat = gt_ebadgt4commagraphy
      goto 999
!!$      iorange = trim(tname) // GT_EQUAL // adjustl(range)
    else
      ! コンマ記法になっている場合, まずその中に無制限次元が
      ! 存在しているか調べ, 存在してない場合のみ time_iorange を
      ! 付加する.
      if (trim(urlsearchiorange(range, tname)) /= "") then
        iorange = range
      else
        if (trim(time_iorange) /= "") then
          iorange = range // gt_comma // time_iorange
        else
          iorange = range
        end if
      end if
    end if
  endif
  call dbgmessage('@ iorange=%c', c1=trim(iorange))
  ! file, varname, iorange を gtool変数化
  ! (「file@varname,time=10.5」のように)
  url = urlmerge(file, varname, '', iorange)
999 continue
  call storeerror(stat, subname, err, cause_c)
  call endsub(subname, '<url=%c>', c1=trim(url))
end subroutine lookup_growable_url
subroutine actual_iorange_dump( url, & ! (in)
  & actual_url, returned_time, &  ! (out) optional
  & time_name, &                  ! (in)  optional
  & err )                         ! (out) optional
  !
  ! 変数 URL *url* に対応するファイル, 変数からデータを取り出す際,
  ! 入出力範囲指定によって切り出される値の本当の位置を
  ! 標準出力に出力する. *actual_url* が与えられる場合には
  ! その引数に値を返し, 標準出力には出力しない.
  !
  ! HistoryGet, HistoryGetPointer が下層で呼び出している
  ! gtdata_generic::Get は, 入出力範囲が次元データに正確に一致しない
  ! 場合, 最も近い値を自動的に選択して切り出す. しかしその結果,
  ! 「本当はどこのデータを入力したか」がわからない場合があるため,
  ! このサブルーチンによって正確な位置をユーザに知らせる.
  !
  ! *time_name* と *returned_time* が与えられる場合には,
  ! *returned_time* に時刻の数値を返す.
  ! *returned_time* のみ与えられる場合には 0 を返す.
  !
  use dc_types, only: dp, string
  use dc_string, only: split, joinchar, tochar, roundnum
  use dc_url, only: urlsearchiorange, urlmerge, urlsplit
  use dc_url, only: gt_comma, gt_equal, gt_colon
  use dc_message, only: messagenotify
  use dc_trace, only: dbgmessage
  use dc_regex, only: match
  use gtdata_types, only: gt_variable
  use gtdata_generic, only: open, close, get
  use dc_error,  only: storeerror, dc_noerr
  character(*), intent(in):: url            ! 変数 URL
  character(*), intent(out), optional:: actual_url
                                             ! 正確な入出力範囲指定に修正
                                             ! された変数 URL
  real(DP), intent(out), optional:: returned_time ! データの時刻
  character(*), intent(in), optional:: time_name  ! 時刻次元の名称
  logical, intent(out), optional:: err      ! エラーのフラグ
  character(STRING), pointer :: iorange_each(:) =>null()
  character(STRING), pointer :: range_values(:) =>null()
  character(STRING), pointer :: new_iorange_each(:) =>null()
  character(STRING), pointer :: new_range_values(:) =>null()
  character(STRING):: new_url, new_iorange, url_tmp, dimname
  character(STRING):: file, varname, range, cause_c
  type(gt_variable):: var
  real :: iorange_value(1)
  integer :: i, j, regex_len, regex_stat, stat
  character(*), parameter :: subname = "actual_iorange_dump"
  continue
  new_iorange = ''
  cause_c = ''
  stat = dc_noerr
  if ( present(returned_time) ) then
    returned_time = 0.
  end if
  call urlsplit(url, file, varname, iorange=range)
  call split(range, iorange_each, gt_comma)
  allocate(new_iorange_each(size(iorange_each)))
  do i = 1, size(iorange_each)
    call match(gt_equal, iorange_each(i), regex_len, regex_stat)
    if (regex_stat < 0 .or. regex_len < 2) then
      new_iorange_each(i) = trim(iorange_each(i))
    else
      dimname = iorange_each(i)(:regex_len-1)
      call split(iorange_each(i)(regex_len+1:), range_values, gt_colon)
      allocate(new_range_values(size(range_values)))
      do j = 1, size(range_values)
        url_tmp = urlmerge(file, dimname, '', &
          & iorange=trim(dimname) // gt_equal // trim(range_values(j)))
        call open(var, url_tmp)
        call get(var, iorange_value, 1)
        call close(var)
        if ( present(time_name) .and. present(returned_time) ) then
          if ( trim(time_name) == trim(dimname) ) then
            returned_time = iorange_value(1)
          end if
        end if
        new_range_values(j) = roundnum( tochar(iorange_value) )
      end do
      new_iorange_each(i) = &
        & trim(dimname) // gt_equal // joinchar(new_range_values, gt_colon)
      deallocate(new_range_values)
      deallocate(range_values)
    end if
  end do
  new_iorange = joinchar(new_iorange_each, gt_comma)
  deallocate(new_iorange_each)
  deallocate(iorange_each)
  new_url = urlmerge(file, varname, '', new_iorange)
  if (present(actual_url)) then
    actual_url = new_url
  else
    call messagenotify('M', subname, 'Input %c', c1=trim(new_url))
  end if
  call storeerror(stat, subname, err, cause_c)
end subroutine actual_iorange_dump
function file_rename_mpi( file ) result(result)
  use dc_types, only: string, token
  use dc_string, only: cprintft, lchar
  ! MPI ライブラリ
  ! MPI library
  !
  use mpi
  implicit none
  character(*), intent(in):: file
  character(STRING):: result
  logical:: initflag_mpi
  character(STRING):: file_mpi
  character(TOKEN):: nc_suffix_mpi
  integer:: myrank_mpi, err_mpi, index_nc_mpi
  character(TOKEN), save:: save_myrank = ''
  character(*), parameter:: rank_prefix = '_rank'
  continue
  if ( trim(save_myrank) == '' ) then
    call mpi_initialized(initflag_mpi, err_mpi)
    if ( initflag_mpi ) then
      call mpi_comm_rank(mpi_comm_world, myrank_mpi, err_mpi)
      save_myrank = cprintft( '%06d', i = (/ myrank_mpi /) )
    else
      result = file
      return
    end if
  end if
  file_mpi = file
  index_nc_mpi = index( lchar(file), '.nc' )
  if ( index_nc_mpi > 1 ) then
    nc_suffix_mpi = file_mpi(index_nc_mpi:)
    file_mpi = file_mpi(:index_nc_mpi-1) // &
      & rank_prefix // trim( save_myrank ) // trim( nc_suffix_mpi )
  elseif ( index_nc_mpi > 0 ) then
    file_mpi = rank_prefix // trim( save_myrank ) // trim( file_mpi )
  else
    file_mpi = trim( file_mpi ) // rank_prefix // trim( save_myrank )
  end if
  result = file_mpi
end function file_rename_mpi