gtvargetpointernum.f90

Go to the documentation of this file.

! -*- coding: utf-8; mode: f90 -*-
!-------------------------------------------------------------------------------------
! Copyright (c) 2000-2016 Gtool Development Group. All rights reserved.
!-------------------------------------------------------------------------------------
! ** Important**
!
! This file is generated from gtvargetpointernum.erb by ERB included Ruby 2.3.1.
! Please do not edit this file directly. @see "gtvargetpointernum.erb"
!-------------------------------------------------------------------------------------
!
!++
!= ポインタ配列への数値データの入力
!
! Authors::   Yasuhiro MORIKAWA, Eizi TOYODA
! Version::   $Id: gtvargetpointernum.rb2f90,v 1.5 2009-05-25 09:55:58 morikawa Exp $
! Tag Name::  $Name:  $
! Copyright:: Copyright (C) GFD Dennou Club, 2000-2005. All rights reserved.
! License::   See COPYRIGHT[link:../../COPYRIGHT]
!
! 以下のサブルーチン、関数は gtdata_generic から gtdata_generic#Get
! として提供されます。
 
  !
                                          !
  !== ポインタ配列への数値データの入力
  !
  ! 変数 *var* から *value* に数値データが入力されます。
  ! *value* はポインタ配列であり、数値データのサイズに合わせた
  ! 配列サイズが自動的に割り付けられます。
  ! *Get* は複数のサブルーチンの総称名であり、
  ! 1 〜 7 次元のポインタを与えることが可能です。
  ! また *value* に固定長配列を与えることが可能な手続きもあります。
  ! 下記を参照してください。
  !
  ! *value* が既に割り付けられており、且つ入力する数値データと配列
  ! サイズが異なる場合、エラー (コード dc_error#GT_EBADALLOCATESIZE)
  ! を生じます。原則的には *value* を空状態にして与えることを
  ! 推奨します。不定状態で与えることは予期せぬ動作を招く可能性が
  ! あるため禁止します。
  !
  ! 数値データ入力や上記の割り付けの際にエラーが生じた場合、メッセージ
  ! を出力してプログラムは強制終了します。*err* を与えてある場合には
  ! の引数に .true. が返り、プログラムは終了しません。
  !
  ! 入力しようとするデータの型が引数の型と異なる場合、データは引数の
  ! 型に変換されます。 この変換は netCDF の機能を用いています。
  ! 詳しくは {netCDF 日本語版マニュアル}[link:../xref.htm#label-10]
  ! の 3.3 型変換 を参照してください。
  !
  !
  ! This subroutine returns multi-dimensional data to argument "value".
  ! You need to provide GT_VARIABLE variable to argument "var".
  ! If you provide logical argument "err", .true. is returned
  ! instead of abort with messages when error is occurred.
 
subroutine gtvargetpointerdouble1(var, value, err)
  use gtdata_types,          only: gt_variable
  use gtdata_generic,        only: get_slice, gtvargetdouble
  use gtdata_internal_map,   only: map_set_rank
  use gtdata_netcdf_generic, only: get
  use gtdata_netcdf_types,   only: gd_nc_variable
  use dc_types,              only: string, dp
  use dc_trace,              only: dbgmessage
  use dc_error,              only: storeerror, dc_noerr, &
    & gt_ebadallocatesize, gt_enomoredims, gt_erankmismatch
  use dc_string,             only: tochar
  implicit none
  type(gt_variable), intent(in):: var
  real(DP), pointer :: value(:) !(out)
  real(DP), allocatable :: array1dim_tmp(:)
  logical, intent(out), optional  :: err
  integer                         :: stat, n(1), cause_i, data_rank
  logical                         :: invalid_check(1)
  character(STRING)               :: cause_c
  character(*), parameter :: subname = 'GTVarGetPointerDouble1'
  continue
  cause_i = 0
  cause_c = ''
  n(1) = -1
  stat = dc_noerr
  call map_set_rank(var, 1, stat)
  if (stat /= dc_noerr) goto 999
  call get_slice(var, dimord=1, count=n(1), count_compact=.false.)
  if (n(1) < 0) then
    ! count_compact ではないので、ゼロ次元化していると n = -1 となる
    n(1) = 1
  endif
  call dbgmessage('n(:)=%*d', i=n, n=(/size(n)/))
  invalid_check = n > 0
  if (.not. all(invalid_check)) then
    stat = gt_erankmismatch
    data_rank = count(invalid_check)
    cause_c = trim(tochar(data_rank)) // ' and 1'
    goto 999
  end if
  ! value が allocate されていなければ allocate する.
  ! value が既に allocate されていてサイズが取得するデータと同じで
  ! あればそのまま取得.
  ! value が allocate されていてサイズが異なる場合はエラー.
  if ( associated(value) ) then
    if ( &
      & .not. size(value,1) == n(1) .or. &
      & .false.                             ) then
      stat = gt_ebadallocatesize
      if (stat /= dc_noerr) goto 999
    else
      call dbgmessage('@ value is already allocated')
    endif
  else
    call dbgmessage('@ allocate value')
    allocate( value(&
      & n(1))  &
      &  )
  endif
  if (allocated(array1dim_tmp)) then
    deallocate(array1dim_tmp)
  end if
  allocate(array1dim_tmp(product(n)))
  call gtvargetdouble(var, array1dim_tmp, product(n), err)
  !    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))
  value = array1dim_tmp
999 continue
  call storeerror(stat, subname, err, cause_i=cause_i, cause_c=cause_c)
end subroutine gtvargetpointerdouble1
 
subroutine gtvargetpointerdouble2(var, value, err)
  use gtdata_types,          only: gt_variable
  use gtdata_generic,        only: get_slice, gtvargetdouble
  use gtdata_internal_map,   only: map_set_rank
  use gtdata_netcdf_generic, only: get
  use gtdata_netcdf_types,   only: gd_nc_variable
  use dc_types,              only: string, dp
  use dc_trace,              only: dbgmessage
  use dc_error,              only: storeerror, dc_noerr, &
    & gt_ebadallocatesize, gt_enomoredims, gt_erankmismatch
  use dc_string,             only: tochar
  implicit none
  type(gt_variable), intent(in):: var
  real(DP), pointer :: value(:,:) !(out)
  real(DP), allocatable :: array1dim_tmp(:)
  logical, intent(out), optional  :: err
  integer                         :: stat, n(2), cause_i, data_rank
  logical                         :: invalid_check(2)
  character(STRING)               :: cause_c
  character(*), parameter :: subname = 'GTVarGetPointerDouble2'
  continue
  cause_i = 0
  cause_c = ''
  n(2) = -1
  stat = dc_noerr
  call map_set_rank(var, 2, stat)
  if (stat /= dc_noerr) goto 999
  call get_slice(var, dimord=1, count=n(1), count_compact=.false.)
  call get_slice(var, dimord=2, count=n(2), count_compact=.false.)
  call dbgmessage('n(:)=%*d', i=n, n=(/size(n)/))
  invalid_check = n > 0
  if (.not. all(invalid_check)) then
    stat = gt_erankmismatch
    data_rank = count(invalid_check)
    cause_c = trim(tochar(data_rank)) // ' and 2'
    goto 999
  end if
  ! value が allocate されていなければ allocate する.
  ! value が既に allocate されていてサイズが取得するデータと同じで
  ! あればそのまま取得.
  ! value が allocate されていてサイズが異なる場合はエラー.
  if ( associated(value) ) then
    if ( &
      & .not. size(value,1) == n(1) .or. &
      & .not. size(value,2) == n(2) .or. &
      & .false.                             ) then
      stat = gt_ebadallocatesize
      if (stat /= dc_noerr) goto 999
    else
      call dbgmessage('@ value is already allocated')
    endif
  else
    call dbgmessage('@ allocate value')
    allocate( value(&
      & n(1),  &
      & n(2))  &
      &  )
  endif
  if (allocated(array1dim_tmp)) then
    deallocate(array1dim_tmp)
  end if
  allocate(array1dim_tmp(product(n)))
  call gtvargetdouble(var, array1dim_tmp, product(n), err)
  !    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))
  value = reshape(array1dim_tmp, n)
999 continue
  call storeerror(stat, subname, err, cause_i=cause_i, cause_c=cause_c)
end subroutine gtvargetpointerdouble2
 
subroutine gtvargetpointerdouble3(var, value, err)
  use gtdata_types,          only: gt_variable
  use gtdata_generic,        only: get_slice, gtvargetdouble
  use gtdata_internal_map,   only: map_set_rank
  use gtdata_netcdf_generic, only: get
  use gtdata_netcdf_types,   only: gd_nc_variable
  use dc_types,              only: string, dp
  use dc_trace,              only: dbgmessage
  use dc_error,              only: storeerror, dc_noerr, &
    & gt_ebadallocatesize, gt_enomoredims, gt_erankmismatch
  use dc_string,             only: tochar
  implicit none
  type(gt_variable), intent(in):: var
  real(DP), pointer :: value(:,:,:) !(out)
  real(DP), allocatable :: array1dim_tmp(:)
  logical, intent(out), optional  :: err
  integer                         :: stat, n(3), cause_i, data_rank
  logical                         :: invalid_check(3)
  character(STRING)               :: cause_c
  character(*), parameter :: subname = 'GTVarGetPointerDouble3'
  continue
  cause_i = 0
  cause_c = ''
  n(3) = -1
  stat = dc_noerr
  call map_set_rank(var, 3, stat)
  if (stat /= dc_noerr) goto 999
  call get_slice(var, dimord=1, count=n(1), count_compact=.false.)
  call get_slice(var, dimord=2, count=n(2), count_compact=.false.)
  call get_slice(var, dimord=3, count=n(3), count_compact=.false.)
  call dbgmessage('n(:)=%*d', i=n, n=(/size(n)/))
  invalid_check = n > 0
  if (.not. all(invalid_check)) then
    stat = gt_erankmismatch
    data_rank = count(invalid_check)
    cause_c = trim(tochar(data_rank)) // ' and 3'
    goto 999
  end if
  ! value が allocate されていなければ allocate する.
  ! value が既に allocate されていてサイズが取得するデータと同じで
  ! あればそのまま取得.
  ! value が allocate されていてサイズが異なる場合はエラー.
  if ( associated(value) ) then
    if ( &
      & .not. size(value,1) == n(1) .or. &
      & .not. size(value,2) == n(2) .or. &
      & .not. size(value,3) == n(3) .or. &
      & .false.                             ) then
      stat = gt_ebadallocatesize
      if (stat /= dc_noerr) goto 999
    else
      call dbgmessage('@ value is already allocated')
    endif
  else
    call dbgmessage('@ allocate value')
    allocate( value(&
      & n(1),  &
      & n(2),  &
      & n(3))  &
      &  )
  endif
  if (allocated(array1dim_tmp)) then
    deallocate(array1dim_tmp)
  end if
  allocate(array1dim_tmp(product(n)))
  call gtvargetdouble(var, array1dim_tmp, product(n), err)
  !    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))
  value = reshape(array1dim_tmp, n)
999 continue
  call storeerror(stat, subname, err, cause_i=cause_i, cause_c=cause_c)
end subroutine gtvargetpointerdouble3
 
subroutine gtvargetpointerdouble4(var, value, err)
  use gtdata_types,          only: gt_variable
  use gtdata_generic,        only: get_slice, gtvargetdouble
  use gtdata_internal_map,   only: map_set_rank
  use gtdata_netcdf_generic, only: get
  use gtdata_netcdf_types,   only: gd_nc_variable
  use dc_types,              only: string, dp
  use dc_trace,              only: dbgmessage
  use dc_error,              only: storeerror, dc_noerr, &
    & gt_ebadallocatesize, gt_enomoredims, gt_erankmismatch
  use dc_string,             only: tochar
  implicit none
  type(gt_variable), intent(in):: var
  real(DP), pointer :: value(:,:,:,:) !(out)
  real(DP), allocatable :: array1dim_tmp(:)
  logical, intent(out), optional  :: err
  integer                         :: stat, n(4), cause_i, data_rank
  logical                         :: invalid_check(4)
  character(STRING)               :: cause_c
  character(*), parameter :: subname = 'GTVarGetPointerDouble4'
  continue
  cause_i = 0
  cause_c = ''
  n(4) = -1
  stat = dc_noerr
  call map_set_rank(var, 4, stat)
  if (stat /= dc_noerr) goto 999
  call get_slice(var, dimord=1, count=n(1), count_compact=.false.)
  call get_slice(var, dimord=2, count=n(2), count_compact=.false.)
  call get_slice(var, dimord=3, count=n(3), count_compact=.false.)
  call get_slice(var, dimord=4, count=n(4), count_compact=.false.)
  call dbgmessage('n(:)=%*d', i=n, n=(/size(n)/))
  invalid_check = n > 0
  if (.not. all(invalid_check)) then
    stat = gt_erankmismatch
    data_rank = count(invalid_check)
    cause_c = trim(tochar(data_rank)) // ' and 4'
    goto 999
  end if
  ! value が allocate されていなければ allocate する.
  ! value が既に allocate されていてサイズが取得するデータと同じで
  ! あればそのまま取得.
  ! value が allocate されていてサイズが異なる場合はエラー.
  if ( associated(value) ) then
    if ( &
      & .not. size(value,1) == n(1) .or. &
      & .not. size(value,2) == n(2) .or. &
      & .not. size(value,3) == n(3) .or. &
      & .not. size(value,4) == n(4) .or. &
      & .false.                             ) then
      stat = gt_ebadallocatesize
      if (stat /= dc_noerr) goto 999
    else
      call dbgmessage('@ value is already allocated')
    endif
  else
    call dbgmessage('@ allocate value')
    allocate( value(&
      & n(1),  &
      & n(2),  &
      & n(3),  &
      & n(4))  &
      &  )
  endif
  if (allocated(array1dim_tmp)) then
    deallocate(array1dim_tmp)
  end if
  allocate(array1dim_tmp(product(n)))
  call gtvargetdouble(var, array1dim_tmp, product(n), err)
  !    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))
  value = reshape(array1dim_tmp, n)
999 continue
  call storeerror(stat, subname, err, cause_i=cause_i, cause_c=cause_c)
end subroutine gtvargetpointerdouble4
 
subroutine gtvargetpointerdouble5(var, value, err)
  use gtdata_types,          only: gt_variable
  use gtdata_generic,        only: get_slice, gtvargetdouble
  use gtdata_internal_map,   only: map_set_rank
  use gtdata_netcdf_generic, only: get
  use gtdata_netcdf_types,   only: gd_nc_variable
  use dc_types,              only: string, dp
  use dc_trace,              only: dbgmessage
  use dc_error,              only: storeerror, dc_noerr, &
    & gt_ebadallocatesize, gt_enomoredims, gt_erankmismatch
  use dc_string,             only: tochar
  implicit none
  type(gt_variable), intent(in):: var
  real(DP), pointer :: value(:,:,:,:,:) !(out)
  real(DP), allocatable :: array1dim_tmp(:)
  logical, intent(out), optional  :: err
  integer                         :: stat, n(5), cause_i, data_rank
  logical                         :: invalid_check(5)
  character(STRING)               :: cause_c
  character(*), parameter :: subname = 'GTVarGetPointerDouble5'
  continue
  cause_i = 0
  cause_c = ''
  n(5) = -1
  stat = dc_noerr
  call map_set_rank(var, 5, stat)
  if (stat /= dc_noerr) goto 999
  call get_slice(var, dimord=1, count=n(1), count_compact=.false.)
  call get_slice(var, dimord=2, count=n(2), count_compact=.false.)
  call get_slice(var, dimord=3, count=n(3), count_compact=.false.)
  call get_slice(var, dimord=4, count=n(4), count_compact=.false.)
  call get_slice(var, dimord=5, count=n(5), count_compact=.false.)
  call dbgmessage('n(:)=%*d', i=n, n=(/size(n)/))
  invalid_check = n > 0
  if (.not. all(invalid_check)) then
    stat = gt_erankmismatch
    data_rank = count(invalid_check)
    cause_c = trim(tochar(data_rank)) // ' and 5'
    goto 999
  end if
  ! value が allocate されていなければ allocate する.
  ! value が既に allocate されていてサイズが取得するデータと同じで
  ! あればそのまま取得.
  ! value が allocate されていてサイズが異なる場合はエラー.
  if ( associated(value) ) then
    if ( &
      & .not. size(value,1) == n(1) .or. &
      & .not. size(value,2) == n(2) .or. &
      & .not. size(value,3) == n(3) .or. &
      & .not. size(value,4) == n(4) .or. &
      & .not. size(value,5) == n(5) .or. &
      & .false.                             ) then
      stat = gt_ebadallocatesize
      if (stat /= dc_noerr) goto 999
    else
      call dbgmessage('@ value is already allocated')
    endif
  else
    call dbgmessage('@ allocate value')
    allocate( value(&
      & n(1),  &
      & n(2),  &
      & n(3),  &
      & n(4),  &
      & n(5))  &
      &  )
  endif
  if (allocated(array1dim_tmp)) then
    deallocate(array1dim_tmp)
  end if
  allocate(array1dim_tmp(product(n)))
  call gtvargetdouble(var, array1dim_tmp, product(n), err)
  !    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))
  value = reshape(array1dim_tmp, n)
999 continue
  call storeerror(stat, subname, err, cause_i=cause_i, cause_c=cause_c)
end subroutine gtvargetpointerdouble5
 
subroutine gtvargetpointerdouble6(var, value, err)
  use gtdata_types,          only: gt_variable
  use gtdata_generic,        only: get_slice, gtvargetdouble
  use gtdata_internal_map,   only: map_set_rank
  use gtdata_netcdf_generic, only: get
  use gtdata_netcdf_types,   only: gd_nc_variable
  use dc_types,              only: string, dp
  use dc_trace,              only: dbgmessage
  use dc_error,              only: storeerror, dc_noerr, &
    & gt_ebadallocatesize, gt_enomoredims, gt_erankmismatch
  use dc_string,             only: tochar
  implicit none
  type(gt_variable), intent(in):: var
  real(DP), pointer :: value(:,:,:,:,:,:) !(out)
  real(DP), allocatable :: array1dim_tmp(:)
  logical, intent(out), optional  :: err
  integer                         :: stat, n(6), cause_i, data_rank
  logical                         :: invalid_check(6)
  character(STRING)               :: cause_c
  character(*), parameter :: subname = 'GTVarGetPointerDouble6'
  continue
  cause_i = 0
  cause_c = ''
  n(6) = -1
  stat = dc_noerr
  call map_set_rank(var, 6, stat)
  if (stat /= dc_noerr) goto 999
  call get_slice(var, dimord=1, count=n(1), count_compact=.false.)
  call get_slice(var, dimord=2, count=n(2), count_compact=.false.)
  call get_slice(var, dimord=3, count=n(3), count_compact=.false.)
  call get_slice(var, dimord=4, count=n(4), count_compact=.false.)
  call get_slice(var, dimord=5, count=n(5), count_compact=.false.)
  call get_slice(var, dimord=6, count=n(6), count_compact=.false.)
  call dbgmessage('n(:)=%*d', i=n, n=(/size(n)/))
  invalid_check = n > 0
  if (.not. all(invalid_check)) then
    stat = gt_erankmismatch
    data_rank = count(invalid_check)
    cause_c = trim(tochar(data_rank)) // ' and 6'
    goto 999
  end if
  ! value が allocate されていなければ allocate する.
  ! value が既に allocate されていてサイズが取得するデータと同じで
  ! あればそのまま取得.
  ! value が allocate されていてサイズが異なる場合はエラー.
  if ( associated(value) ) then
    if ( &
      & .not. size(value,1) == n(1) .or. &
      & .not. size(value,2) == n(2) .or. &
      & .not. size(value,3) == n(3) .or. &
      & .not. size(value,4) == n(4) .or. &
      & .not. size(value,5) == n(5) .or. &
      & .not. size(value,6) == n(6) .or. &
      & .false.                             ) then
      stat = gt_ebadallocatesize
      if (stat /= dc_noerr) goto 999
    else
      call dbgmessage('@ value is already allocated')
    endif
  else
    call dbgmessage('@ allocate value')
    allocate( value(&
      & n(1),  &
      & n(2),  &
      & n(3),  &
      & n(4),  &
      & n(5),  &
      & n(6))  &
      &  )
  endif
  if (allocated(array1dim_tmp)) then
    deallocate(array1dim_tmp)
  end if
  allocate(array1dim_tmp(product(n)))
  call gtvargetdouble(var, array1dim_tmp, product(n), err)
  !    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))
  value = reshape(array1dim_tmp, n)
999 continue
  call storeerror(stat, subname, err, cause_i=cause_i, cause_c=cause_c)
end subroutine gtvargetpointerdouble6
 
subroutine gtvargetpointerdouble7(var, value, err)
  use gtdata_types,          only: gt_variable
  use gtdata_generic,        only: get_slice, gtvargetdouble
  use gtdata_internal_map,   only: map_set_rank
  use gtdata_netcdf_generic, only: get
  use gtdata_netcdf_types,   only: gd_nc_variable
  use dc_types,              only: string, dp
  use dc_trace,              only: dbgmessage
  use dc_error,              only: storeerror, dc_noerr, &
    & gt_ebadallocatesize, gt_enomoredims, gt_erankmismatch
  use dc_string,             only: tochar
  implicit none
  type(gt_variable), intent(in):: var
  real(DP), pointer :: value(:,:,:,:,:,:,:) !(out)
  real(DP), allocatable :: array1dim_tmp(:)
  logical, intent(out), optional  :: err
  integer                         :: stat, n(7), cause_i, data_rank
  logical                         :: invalid_check(7)
  character(STRING)               :: cause_c
  character(*), parameter :: subname = 'GTVarGetPointerDouble7'
  continue
  cause_i = 0
  cause_c = ''
  n(7) = -1
  stat = dc_noerr
  call map_set_rank(var, 7, stat)
  if (stat /= dc_noerr) goto 999
  call get_slice(var, dimord=1, count=n(1), count_compact=.false.)
  call get_slice(var, dimord=2, count=n(2), count_compact=.false.)
  call get_slice(var, dimord=3, count=n(3), count_compact=.false.)
  call get_slice(var, dimord=4, count=n(4), count_compact=.false.)
  call get_slice(var, dimord=5, count=n(5), count_compact=.false.)
  call get_slice(var, dimord=6, count=n(6), count_compact=.false.)
  call get_slice(var, dimord=7, count=n(7), count_compact=.false.)
  call dbgmessage('n(:)=%*d', i=n, n=(/size(n)/))
  invalid_check = n > 0
  if (.not. all(invalid_check)) then
    stat = gt_erankmismatch
    data_rank = count(invalid_check)
    cause_c = trim(tochar(data_rank)) // ' and 7'
    goto 999
  end if
  ! value が allocate されていなければ allocate する.
  ! value が既に allocate されていてサイズが取得するデータと同じで
  ! あればそのまま取得.
  ! value が allocate されていてサイズが異なる場合はエラー.
  if ( associated(value) ) then
    if ( &
      & .not. size(value,1) == n(1) .or. &
      & .not. size(value,2) == n(2) .or. &
      & .not. size(value,3) == n(3) .or. &
      & .not. size(value,4) == n(4) .or. &
      & .not. size(value,5) == n(5) .or. &
      & .not. size(value,6) == n(6) .or. &
      & .not. size(value,7) == n(7) .or. &
      & .false.                             ) then
      stat = gt_ebadallocatesize
      if (stat /= dc_noerr) goto 999
    else
      call dbgmessage('@ value is already allocated')
    endif
  else
    call dbgmessage('@ allocate value')
    allocate( value(&
      & n(1),  &
      & n(2),  &
      & n(3),  &
      & n(4),  &
      & n(5),  &
      & n(6),  &
      & n(7))  &
      &  )
  endif
  if (allocated(array1dim_tmp)) then
    deallocate(array1dim_tmp)
  end if
  allocate(array1dim_tmp(product(n)))
  call gtvargetdouble(var, array1dim_tmp, product(n), err)
  !    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))
  value = reshape(array1dim_tmp, n)
999 continue
  call storeerror(stat, subname, err, cause_i=cause_i, cause_c=cause_c)
end subroutine gtvargetpointerdouble7
 
subroutine gtvargetpointerreal1(var, value, err)
  use gtdata_types,          only: gt_variable
  use gtdata_generic,        only: get_slice, gtvargetreal
  use gtdata_internal_map,   only: map_set_rank
  use gtdata_netcdf_generic, only: get
  use gtdata_netcdf_types,   only: gd_nc_variable
  use dc_types,              only: string, sp
  use dc_trace,              only: dbgmessage
  use dc_error,              only: storeerror, dc_noerr, &
    & gt_ebadallocatesize, gt_enomoredims, gt_erankmismatch
  use dc_string,             only: tochar
  implicit none
  type(gt_variable), intent(in):: var
  real(SP), pointer :: value(:) !(out)
  real(SP), allocatable :: array1dim_tmp(:)
  logical, intent(out), optional  :: err
  integer                         :: stat, n(1), cause_i, data_rank
  logical                         :: invalid_check(1)
  character(STRING)               :: cause_c
  character(*), parameter :: subname = 'GTVarGetPointerReal1'
  continue
  cause_i = 0
  cause_c = ''
  n(1) = -1
  stat = dc_noerr
  call map_set_rank(var, 1, stat)
  if (stat /= dc_noerr) goto 999
  call get_slice(var, dimord=1, count=n(1), count_compact=.false.)
  if (n(1) < 0) then
    ! count_compact ではないので、ゼロ次元化していると n = -1 となる
    n(1) = 1
  endif
  call dbgmessage('n(:)=%*d', i=n, n=(/size(n)/))
  invalid_check = n > 0
  if (.not. all(invalid_check)) then
    stat = gt_erankmismatch
    data_rank = count(invalid_check)
    cause_c = trim(tochar(data_rank)) // ' and 1'
    goto 999
  end if
  ! value が allocate されていなければ allocate する.
  ! value が既に allocate されていてサイズが取得するデータと同じで
  ! あればそのまま取得.
  ! value が allocate されていてサイズが異なる場合はエラー.
  if ( associated(value) ) then
    if ( &
      & .not. size(value,1) == n(1) .or. &
      & .false.                             ) then
      stat = gt_ebadallocatesize
      if (stat /= dc_noerr) goto 999
    else
      call dbgmessage('@ value is already allocated')
    endif
  else
    call dbgmessage('@ allocate value')
    allocate( value(&
      & n(1))  &
      &  )
  endif
  if (allocated(array1dim_tmp)) then
    deallocate(array1dim_tmp)
  end if
  allocate(array1dim_tmp(product(n)))
  call gtvargetreal(var, array1dim_tmp, product(n), err)
  !    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))
  value = array1dim_tmp
999 continue
  call storeerror(stat, subname, err, cause_i=cause_i, cause_c=cause_c)
end subroutine gtvargetpointerreal1
 
subroutine gtvargetpointerreal2(var, value, err)
  use gtdata_types,          only: gt_variable
  use gtdata_generic,        only: get_slice, gtvargetreal
  use gtdata_internal_map,   only: map_set_rank
  use gtdata_netcdf_generic, only: get
  use gtdata_netcdf_types,   only: gd_nc_variable
  use dc_types,              only: string, sp
  use dc_trace,              only: dbgmessage
  use dc_error,              only: storeerror, dc_noerr, &
    & gt_ebadallocatesize, gt_enomoredims, gt_erankmismatch
  use dc_string,             only: tochar
  implicit none
  type(gt_variable), intent(in):: var
  real(SP), pointer :: value(:,:) !(out)
  real(SP), allocatable :: array1dim_tmp(:)
  logical, intent(out), optional  :: err
  integer                         :: stat, n(2), cause_i, data_rank
  logical                         :: invalid_check(2)
  character(STRING)               :: cause_c
  character(*), parameter :: subname = 'GTVarGetPointerReal2'
  continue
  cause_i = 0
  cause_c = ''
  n(2) = -1
  stat = dc_noerr
  call map_set_rank(var, 2, stat)
  if (stat /= dc_noerr) goto 999
  call get_slice(var, dimord=1, count=n(1), count_compact=.false.)
  call get_slice(var, dimord=2, count=n(2), count_compact=.false.)
  call dbgmessage('n(:)=%*d', i=n, n=(/size(n)/))
  invalid_check = n > 0
  if (.not. all(invalid_check)) then
    stat = gt_erankmismatch
    data_rank = count(invalid_check)
    cause_c = trim(tochar(data_rank)) // ' and 2'
    goto 999
  end if
  ! value が allocate されていなければ allocate する.
  ! value が既に allocate されていてサイズが取得するデータと同じで
  ! あればそのまま取得.
  ! value が allocate されていてサイズが異なる場合はエラー.
  if ( associated(value) ) then
    if ( &
      & .not. size(value,1) == n(1) .or. &
      & .not. size(value,2) == n(2) .or. &
      & .false.                             ) then
      stat = gt_ebadallocatesize
      if (stat /= dc_noerr) goto 999
    else
      call dbgmessage('@ value is already allocated')
    endif
  else
    call dbgmessage('@ allocate value')
    allocate( value(&
      & n(1),  &
      & n(2))  &
      &  )
  endif
  if (allocated(array1dim_tmp)) then
    deallocate(array1dim_tmp)
  end if
  allocate(array1dim_tmp(product(n)))
  call gtvargetreal(var, array1dim_tmp, product(n), err)
  !    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))
  value = reshape(array1dim_tmp, n)
999 continue
  call storeerror(stat, subname, err, cause_i=cause_i, cause_c=cause_c)
end subroutine gtvargetpointerreal2
 
subroutine gtvargetpointerreal3(var, value, err)
  use gtdata_types,          only: gt_variable
  use gtdata_generic,        only: get_slice, gtvargetreal
  use gtdata_internal_map,   only: map_set_rank
  use gtdata_netcdf_generic, only: get
  use gtdata_netcdf_types,   only: gd_nc_variable
  use dc_types,              only: string, sp
  use dc_trace,              only: dbgmessage
  use dc_error,              only: storeerror, dc_noerr, &
    & gt_ebadallocatesize, gt_enomoredims, gt_erankmismatch
  use dc_string,             only: tochar
  implicit none
  type(gt_variable), intent(in):: var
  real(SP), pointer :: value(:,:,:) !(out)
  real(SP), allocatable :: array1dim_tmp(:)
  logical, intent(out), optional  :: err
  integer                         :: stat, n(3), cause_i, data_rank
  logical                         :: invalid_check(3)
  character(STRING)               :: cause_c
  character(*), parameter :: subname = 'GTVarGetPointerReal3'
  continue
  cause_i = 0
  cause_c = ''
  n(3) = -1
  stat = dc_noerr
  call map_set_rank(var, 3, stat)
  if (stat /= dc_noerr) goto 999
  call get_slice(var, dimord=1, count=n(1), count_compact=.false.)
  call get_slice(var, dimord=2, count=n(2), count_compact=.false.)
  call get_slice(var, dimord=3, count=n(3), count_compact=.false.)
  call dbgmessage('n(:)=%*d', i=n, n=(/size(n)/))
  invalid_check = n > 0
  if (.not. all(invalid_check)) then
    stat = gt_erankmismatch
    data_rank = count(invalid_check)
    cause_c = trim(tochar(data_rank)) // ' and 3'
    goto 999
  end if
  ! value が allocate されていなければ allocate する.
  ! value が既に allocate されていてサイズが取得するデータと同じで
  ! あればそのまま取得.
  ! value が allocate されていてサイズが異なる場合はエラー.
  if ( associated(value) ) then
    if ( &
      & .not. size(value,1) == n(1) .or. &
      & .not. size(value,2) == n(2) .or. &
      & .not. size(value,3) == n(3) .or. &
      & .false.                             ) then
      stat = gt_ebadallocatesize
      if (stat /= dc_noerr) goto 999
    else
      call dbgmessage('@ value is already allocated')
    endif
  else
    call dbgmessage('@ allocate value')
    allocate( value(&
      & n(1),  &
      & n(2),  &
      & n(3))  &
      &  )
  endif
  if (allocated(array1dim_tmp)) then
    deallocate(array1dim_tmp)
  end if
  allocate(array1dim_tmp(product(n)))
  call gtvargetreal(var, array1dim_tmp, product(n), err)
  !    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))
  value = reshape(array1dim_tmp, n)
999 continue
  call storeerror(stat, subname, err, cause_i=cause_i, cause_c=cause_c)
end subroutine gtvargetpointerreal3
 
subroutine gtvargetpointerreal4(var, value, err)
  use gtdata_types,          only: gt_variable
  use gtdata_generic,        only: get_slice, gtvargetreal
  use gtdata_internal_map,   only: map_set_rank
  use gtdata_netcdf_generic, only: get
  use gtdata_netcdf_types,   only: gd_nc_variable
  use dc_types,              only: string, sp
  use dc_trace,              only: dbgmessage
  use dc_error,              only: storeerror, dc_noerr, &
    & gt_ebadallocatesize, gt_enomoredims, gt_erankmismatch
  use dc_string,             only: tochar
  implicit none
  type(gt_variable), intent(in):: var
  real(SP), pointer :: value(:,:,:,:) !(out)
  real(SP), allocatable :: array1dim_tmp(:)
  logical, intent(out), optional  :: err
  integer                         :: stat, n(4), cause_i, data_rank
  logical                         :: invalid_check(4)
  character(STRING)               :: cause_c
  character(*), parameter :: subname = 'GTVarGetPointerReal4'
  continue
  cause_i = 0
  cause_c = ''
  n(4) = -1
  stat = dc_noerr
  call map_set_rank(var, 4, stat)
  if (stat /= dc_noerr) goto 999
  call get_slice(var, dimord=1, count=n(1), count_compact=.false.)
  call get_slice(var, dimord=2, count=n(2), count_compact=.false.)
  call get_slice(var, dimord=3, count=n(3), count_compact=.false.)
  call get_slice(var, dimord=4, count=n(4), count_compact=.false.)
  call dbgmessage('n(:)=%*d', i=n, n=(/size(n)/))
  invalid_check = n > 0
  if (.not. all(invalid_check)) then
    stat = gt_erankmismatch
    data_rank = count(invalid_check)
    cause_c = trim(tochar(data_rank)) // ' and 4'
    goto 999
  end if
  ! value が allocate されていなければ allocate する.
  ! value が既に allocate されていてサイズが取得するデータと同じで
  ! あればそのまま取得.
  ! value が allocate されていてサイズが異なる場合はエラー.
  if ( associated(value) ) then
    if ( &
      & .not. size(value,1) == n(1) .or. &
      & .not. size(value,2) == n(2) .or. &
      & .not. size(value,3) == n(3) .or. &
      & .not. size(value,4) == n(4) .or. &
      & .false.                             ) then
      stat = gt_ebadallocatesize
      if (stat /= dc_noerr) goto 999
    else
      call dbgmessage('@ value is already allocated')
    endif
  else
    call dbgmessage('@ allocate value')
    allocate( value(&
      & n(1),  &
      & n(2),  &
      & n(3),  &
      & n(4))  &
      &  )
  endif
  if (allocated(array1dim_tmp)) then
    deallocate(array1dim_tmp)
  end if
  allocate(array1dim_tmp(product(n)))
  call gtvargetreal(var, array1dim_tmp, product(n), err)
  !    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))
  value = reshape(array1dim_tmp, n)
999 continue
  call storeerror(stat, subname, err, cause_i=cause_i, cause_c=cause_c)
end subroutine gtvargetpointerreal4
 
subroutine gtvargetpointerreal5(var, value, err)
  use gtdata_types,          only: gt_variable
  use gtdata_generic,        only: get_slice, gtvargetreal
  use gtdata_internal_map,   only: map_set_rank
  use gtdata_netcdf_generic, only: get
  use gtdata_netcdf_types,   only: gd_nc_variable
  use dc_types,              only: string, sp
  use dc_trace,              only: dbgmessage
  use dc_error,              only: storeerror, dc_noerr, &
    & gt_ebadallocatesize, gt_enomoredims, gt_erankmismatch
  use dc_string,             only: tochar
  implicit none
  type(gt_variable), intent(in):: var
  real(SP), pointer :: value(:,:,:,:,:) !(out)
  real(SP), allocatable :: array1dim_tmp(:)
  logical, intent(out), optional  :: err
  integer                         :: stat, n(5), cause_i, data_rank
  logical                         :: invalid_check(5)
  character(STRING)               :: cause_c
  character(*), parameter :: subname = 'GTVarGetPointerReal5'
  continue
  cause_i = 0
  cause_c = ''
  n(5) = -1
  stat = dc_noerr
  call map_set_rank(var, 5, stat)
  if (stat /= dc_noerr) goto 999
  call get_slice(var, dimord=1, count=n(1), count_compact=.false.)
  call get_slice(var, dimord=2, count=n(2), count_compact=.false.)
  call get_slice(var, dimord=3, count=n(3), count_compact=.false.)
  call get_slice(var, dimord=4, count=n(4), count_compact=.false.)
  call get_slice(var, dimord=5, count=n(5), count_compact=.false.)
  call dbgmessage('n(:)=%*d', i=n, n=(/size(n)/))
  invalid_check = n > 0
  if (.not. all(invalid_check)) then
    stat = gt_erankmismatch
    data_rank = count(invalid_check)
    cause_c = trim(tochar(data_rank)) // ' and 5'
    goto 999
  end if
  ! value が allocate されていなければ allocate する.
  ! value が既に allocate されていてサイズが取得するデータと同じで
  ! あればそのまま取得.
  ! value が allocate されていてサイズが異なる場合はエラー.
  if ( associated(value) ) then
    if ( &
      & .not. size(value,1) == n(1) .or. &
      & .not. size(value,2) == n(2) .or. &
      & .not. size(value,3) == n(3) .or. &
      & .not. size(value,4) == n(4) .or. &
      & .not. size(value,5) == n(5) .or. &
      & .false.                             ) then
      stat = gt_ebadallocatesize
      if (stat /= dc_noerr) goto 999
    else
      call dbgmessage('@ value is already allocated')
    endif
  else
    call dbgmessage('@ allocate value')
    allocate( value(&
      & n(1),  &
      & n(2),  &
      & n(3),  &
      & n(4),  &
      & n(5))  &
      &  )
  endif
  if (allocated(array1dim_tmp)) then
    deallocate(array1dim_tmp)
  end if
  allocate(array1dim_tmp(product(n)))
  call gtvargetreal(var, array1dim_tmp, product(n), err)
  !    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))
  value = reshape(array1dim_tmp, n)
999 continue
  call storeerror(stat, subname, err, cause_i=cause_i, cause_c=cause_c)
end subroutine gtvargetpointerreal5
 
subroutine gtvargetpointerreal6(var, value, err)
  use gtdata_types,          only: gt_variable
  use gtdata_generic,        only: get_slice, gtvargetreal
  use gtdata_internal_map,   only: map_set_rank
  use gtdata_netcdf_generic, only: get
  use gtdata_netcdf_types,   only: gd_nc_variable
  use dc_types,              only: string, sp
  use dc_trace,              only: dbgmessage
  use dc_error,              only: storeerror, dc_noerr, &
    & gt_ebadallocatesize, gt_enomoredims, gt_erankmismatch
  use dc_string,             only: tochar
  implicit none
  type(gt_variable), intent(in):: var
  real(SP), pointer :: value(:,:,:,:,:,:) !(out)
  real(SP), allocatable :: array1dim_tmp(:)
  logical, intent(out), optional  :: err
  integer                         :: stat, n(6), cause_i, data_rank
  logical                         :: invalid_check(6)
  character(STRING)               :: cause_c
  character(*), parameter :: subname = 'GTVarGetPointerReal6'
  continue
  cause_i = 0
  cause_c = ''
  n(6) = -1
  stat = dc_noerr
  call map_set_rank(var, 6, stat)
  if (stat /= dc_noerr) goto 999
  call get_slice(var, dimord=1, count=n(1), count_compact=.false.)
  call get_slice(var, dimord=2, count=n(2), count_compact=.false.)
  call get_slice(var, dimord=3, count=n(3), count_compact=.false.)
  call get_slice(var, dimord=4, count=n(4), count_compact=.false.)
  call get_slice(var, dimord=5, count=n(5), count_compact=.false.)
  call get_slice(var, dimord=6, count=n(6), count_compact=.false.)
  call dbgmessage('n(:)=%*d', i=n, n=(/size(n)/))
  invalid_check = n > 0
  if (.not. all(invalid_check)) then
    stat = gt_erankmismatch
    data_rank = count(invalid_check)
    cause_c = trim(tochar(data_rank)) // ' and 6'
    goto 999
  end if
  ! value が allocate されていなければ allocate する.
  ! value が既に allocate されていてサイズが取得するデータと同じで
  ! あればそのまま取得.
  ! value が allocate されていてサイズが異なる場合はエラー.
  if ( associated(value) ) then
    if ( &
      & .not. size(value,1) == n(1) .or. &
      & .not. size(value,2) == n(2) .or. &
      & .not. size(value,3) == n(3) .or. &
      & .not. size(value,4) == n(4) .or. &
      & .not. size(value,5) == n(5) .or. &
      & .not. size(value,6) == n(6) .or. &
      & .false.                             ) then
      stat = gt_ebadallocatesize
      if (stat /= dc_noerr) goto 999
    else
      call dbgmessage('@ value is already allocated')
    endif
  else
    call dbgmessage('@ allocate value')
    allocate( value(&
      & n(1),  &
      & n(2),  &
      & n(3),  &
      & n(4),  &
      & n(5),  &
      & n(6))  &
      &  )
  endif
  if (allocated(array1dim_tmp)) then
    deallocate(array1dim_tmp)
  end if
  allocate(array1dim_tmp(product(n)))
  call gtvargetreal(var, array1dim_tmp, product(n), err)
  !    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))
  value = reshape(array1dim_tmp, n)
999 continue
  call storeerror(stat, subname, err, cause_i=cause_i, cause_c=cause_c)
end subroutine gtvargetpointerreal6
 
subroutine gtvargetpointerreal7(var, value, err)
  use gtdata_types,          only: gt_variable
  use gtdata_generic,        only: get_slice, gtvargetreal
  use gtdata_internal_map,   only: map_set_rank
  use gtdata_netcdf_generic, only: get
  use gtdata_netcdf_types,   only: gd_nc_variable
  use dc_types,              only: string, sp
  use dc_trace,              only: dbgmessage
  use dc_error,              only: storeerror, dc_noerr, &
    & gt_ebadallocatesize, gt_enomoredims, gt_erankmismatch
  use dc_string,             only: tochar
  implicit none
  type(gt_variable), intent(in):: var
  real(SP), pointer :: value(:,:,:,:,:,:,:) !(out)
  real(SP), allocatable :: array1dim_tmp(:)
  logical, intent(out), optional  :: err
  integer                         :: stat, n(7), cause_i, data_rank
  logical                         :: invalid_check(7)
  character(STRING)               :: cause_c
  character(*), parameter :: subname = 'GTVarGetPointerReal7'
  continue
  cause_i = 0
  cause_c = ''
  n(7) = -1
  stat = dc_noerr
  call map_set_rank(var, 7, stat)
  if (stat /= dc_noerr) goto 999
  call get_slice(var, dimord=1, count=n(1), count_compact=.false.)
  call get_slice(var, dimord=2, count=n(2), count_compact=.false.)
  call get_slice(var, dimord=3, count=n(3), count_compact=.false.)
  call get_slice(var, dimord=4, count=n(4), count_compact=.false.)
  call get_slice(var, dimord=5, count=n(5), count_compact=.false.)
  call get_slice(var, dimord=6, count=n(6), count_compact=.false.)
  call get_slice(var, dimord=7, count=n(7), count_compact=.false.)
  call dbgmessage('n(:)=%*d', i=n, n=(/size(n)/))
  invalid_check = n > 0
  if (.not. all(invalid_check)) then
    stat = gt_erankmismatch
    data_rank = count(invalid_check)
    cause_c = trim(tochar(data_rank)) // ' and 7'
    goto 999
  end if
  ! value が allocate されていなければ allocate する.
  ! value が既に allocate されていてサイズが取得するデータと同じで
  ! あればそのまま取得.
  ! value が allocate されていてサイズが異なる場合はエラー.
  if ( associated(value) ) then
    if ( &
      & .not. size(value,1) == n(1) .or. &
      & .not. size(value,2) == n(2) .or. &
      & .not. size(value,3) == n(3) .or. &
      & .not. size(value,4) == n(4) .or. &
      & .not. size(value,5) == n(5) .or. &
      & .not. size(value,6) == n(6) .or. &
      & .not. size(value,7) == n(7) .or. &
      & .false.                             ) then
      stat = gt_ebadallocatesize
      if (stat /= dc_noerr) goto 999
    else
      call dbgmessage('@ value is already allocated')
    endif
  else
    call dbgmessage('@ allocate value')
    allocate( value(&
      & n(1),  &
      & n(2),  &
      & n(3),  &
      & n(4),  &
      & n(5),  &
      & n(6),  &
      & n(7))  &
      &  )
  endif
  if (allocated(array1dim_tmp)) then
    deallocate(array1dim_tmp)
  end if
  allocate(array1dim_tmp(product(n)))
  call gtvargetreal(var, array1dim_tmp, product(n), err)
  !    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))
  value = reshape(array1dim_tmp, n)
999 continue
  call storeerror(stat, subname, err, cause_i=cause_i, cause_c=cause_c)
end subroutine gtvargetpointerreal7
 
subroutine gtvargetpointerint1(var, value, err)
  use gtdata_types,          only: gt_variable
  use gtdata_generic,        only: get_slice, gtvargetint
  use gtdata_internal_map,   only: map_set_rank
  use gtdata_netcdf_generic, only: get
  use gtdata_netcdf_types,   only: gd_nc_variable
  use dc_types,              only: string
  use dc_trace,              only: dbgmessage
  use dc_error,              only: storeerror, dc_noerr, &
    & gt_ebadallocatesize, gt_enomoredims, gt_erankmismatch
  use dc_string,             only: tochar
  implicit none
  type(gt_variable), intent(in):: var
  integer, pointer :: value(:) !(out)
  integer, allocatable :: array1dim_tmp(:)
  logical, intent(out), optional  :: err
  integer                         :: stat, n(1), cause_i, data_rank
  logical                         :: invalid_check(1)
  character(STRING)               :: cause_c
  character(*), parameter :: subname = 'GTVarGetPointerInt1'
  continue
  cause_i = 0
  cause_c = ''
  n(1) = -1
  stat = dc_noerr
  call map_set_rank(var, 1, stat)
  if (stat /= dc_noerr) goto 999
  call get_slice(var, dimord=1, count=n(1), count_compact=.false.)
  if (n(1) < 0) then
    ! count_compact ではないので、ゼロ次元化していると n = -1 となる
    n(1) = 1
  endif
  call dbgmessage('n(:)=%*d', i=n, n=(/size(n)/))
  invalid_check = n > 0
  if (.not. all(invalid_check)) then
    stat = gt_erankmismatch
    data_rank = count(invalid_check)
    cause_c = trim(tochar(data_rank)) // ' and 1'
    goto 999
  end if
  ! value が allocate されていなければ allocate する.
  ! value が既に allocate されていてサイズが取得するデータと同じで
  ! あればそのまま取得.
  ! value が allocate されていてサイズが異なる場合はエラー.
  if ( associated(value) ) then
    if ( &
      & .not. size(value,1) == n(1) .or. &
      & .false.                             ) then
      stat = gt_ebadallocatesize
      if (stat /= dc_noerr) goto 999
    else
      call dbgmessage('@ value is already allocated')
    endif
  else
    call dbgmessage('@ allocate value')
    allocate( value(&
      & n(1))  &
      &  )
  endif
  if (allocated(array1dim_tmp)) then
    deallocate(array1dim_tmp)
  end if
  allocate(array1dim_tmp(product(n)))
  call gtvargetint(var, array1dim_tmp, product(n), err)
  !    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))
  value = array1dim_tmp
999 continue
  call storeerror(stat, subname, err, cause_i=cause_i, cause_c=cause_c)
end subroutine gtvargetpointerint1
 
subroutine gtvargetpointerint2(var, value, err)
  use gtdata_types,          only: gt_variable
  use gtdata_generic,        only: get_slice, gtvargetint
  use gtdata_internal_map,   only: map_set_rank
  use gtdata_netcdf_generic, only: get
  use gtdata_netcdf_types,   only: gd_nc_variable
  use dc_types,              only: string
  use dc_trace,              only: dbgmessage
  use dc_error,              only: storeerror, dc_noerr, &
    & gt_ebadallocatesize, gt_enomoredims, gt_erankmismatch
  use dc_string,             only: tochar
  implicit none
  type(gt_variable), intent(in):: var
  integer, pointer :: value(:,:) !(out)
  integer, allocatable :: array1dim_tmp(:)
  logical, intent(out), optional  :: err
  integer                         :: stat, n(2), cause_i, data_rank
  logical                         :: invalid_check(2)
  character(STRING)               :: cause_c
  character(*), parameter :: subname = 'GTVarGetPointerInt2'
  continue
  cause_i = 0
  cause_c = ''
  n(2) = -1
  stat = dc_noerr
  call map_set_rank(var, 2, stat)
  if (stat /= dc_noerr) goto 999
  call get_slice(var, dimord=1, count=n(1), count_compact=.false.)
  call get_slice(var, dimord=2, count=n(2), count_compact=.false.)
  call dbgmessage('n(:)=%*d', i=n, n=(/size(n)/))
  invalid_check = n > 0
  if (.not. all(invalid_check)) then
    stat = gt_erankmismatch
    data_rank = count(invalid_check)
    cause_c = trim(tochar(data_rank)) // ' and 2'
    goto 999
  end if
  ! value が allocate されていなければ allocate する.
  ! value が既に allocate されていてサイズが取得するデータと同じで
  ! あればそのまま取得.
  ! value が allocate されていてサイズが異なる場合はエラー.
  if ( associated(value) ) then
    if ( &
      & .not. size(value,1) == n(1) .or. &
      & .not. size(value,2) == n(2) .or. &
      & .false.                             ) then
      stat = gt_ebadallocatesize
      if (stat /= dc_noerr) goto 999
    else
      call dbgmessage('@ value is already allocated')
    endif
  else
    call dbgmessage('@ allocate value')
    allocate( value(&
      & n(1),  &
      & n(2))  &
      &  )
  endif
  if (allocated(array1dim_tmp)) then
    deallocate(array1dim_tmp)
  end if
  allocate(array1dim_tmp(product(n)))
  call gtvargetint(var, array1dim_tmp, product(n), err)
  !    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))
  value = reshape(array1dim_tmp, n)
999 continue
  call storeerror(stat, subname, err, cause_i=cause_i, cause_c=cause_c)
end subroutine gtvargetpointerint2
 
subroutine gtvargetpointerint3(var, value, err)
  use gtdata_types,          only: gt_variable
  use gtdata_generic,        only: get_slice, gtvargetint
  use gtdata_internal_map,   only: map_set_rank
  use gtdata_netcdf_generic, only: get
  use gtdata_netcdf_types,   only: gd_nc_variable
  use dc_types,              only: string
  use dc_trace,              only: dbgmessage
  use dc_error,              only: storeerror, dc_noerr, &
    & gt_ebadallocatesize, gt_enomoredims, gt_erankmismatch
  use dc_string,             only: tochar
  implicit none
  type(gt_variable), intent(in):: var
  integer, pointer :: value(:,:,:) !(out)
  integer, allocatable :: array1dim_tmp(:)
  logical, intent(out), optional  :: err
  integer                         :: stat, n(3), cause_i, data_rank
  logical                         :: invalid_check(3)
  character(STRING)               :: cause_c
  character(*), parameter :: subname = 'GTVarGetPointerInt3'
  continue
  cause_i = 0
  cause_c = ''
  n(3) = -1
  stat = dc_noerr
  call map_set_rank(var, 3, stat)
  if (stat /= dc_noerr) goto 999
  call get_slice(var, dimord=1, count=n(1), count_compact=.false.)
  call get_slice(var, dimord=2, count=n(2), count_compact=.false.)
  call get_slice(var, dimord=3, count=n(3), count_compact=.false.)
  call dbgmessage('n(:)=%*d', i=n, n=(/size(n)/))
  invalid_check = n > 0
  if (.not. all(invalid_check)) then
    stat = gt_erankmismatch
    data_rank = count(invalid_check)
    cause_c = trim(tochar(data_rank)) // ' and 3'
    goto 999
  end if
  ! value が allocate されていなければ allocate する.
  ! value が既に allocate されていてサイズが取得するデータと同じで
  ! あればそのまま取得.
  ! value が allocate されていてサイズが異なる場合はエラー.
  if ( associated(value) ) then
    if ( &
      & .not. size(value,1) == n(1) .or. &
      & .not. size(value,2) == n(2) .or. &
      & .not. size(value,3) == n(3) .or. &
      & .false.                             ) then
      stat = gt_ebadallocatesize
      if (stat /= dc_noerr) goto 999
    else
      call dbgmessage('@ value is already allocated')
    endif
  else
    call dbgmessage('@ allocate value')
    allocate( value(&
      & n(1),  &
      & n(2),  &
      & n(3))  &
      &  )
  endif
  if (allocated(array1dim_tmp)) then
    deallocate(array1dim_tmp)
  end if
  allocate(array1dim_tmp(product(n)))
  call gtvargetint(var, array1dim_tmp, product(n), err)
  !    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))
  value = reshape(array1dim_tmp, n)
999 continue
  call storeerror(stat, subname, err, cause_i=cause_i, cause_c=cause_c)
end subroutine gtvargetpointerint3
 
subroutine gtvargetpointerint4(var, value, err)
  use gtdata_types,          only: gt_variable
  use gtdata_generic,        only: get_slice, gtvargetint
  use gtdata_internal_map,   only: map_set_rank
  use gtdata_netcdf_generic, only: get
  use gtdata_netcdf_types,   only: gd_nc_variable
  use dc_types,              only: string
  use dc_trace,              only: dbgmessage
  use dc_error,              only: storeerror, dc_noerr, &
    & gt_ebadallocatesize, gt_enomoredims, gt_erankmismatch
  use dc_string,             only: tochar
  implicit none
  type(gt_variable), intent(in):: var
  integer, pointer :: value(:,:,:,:) !(out)
  integer, allocatable :: array1dim_tmp(:)
  logical, intent(out), optional  :: err
  integer                         :: stat, n(4), cause_i, data_rank
  logical                         :: invalid_check(4)
  character(STRING)               :: cause_c
  character(*), parameter :: subname = 'GTVarGetPointerInt4'
  continue
  cause_i = 0
  cause_c = ''
  n(4) = -1
  stat = dc_noerr
  call map_set_rank(var, 4, stat)
  if (stat /= dc_noerr) goto 999
  call get_slice(var, dimord=1, count=n(1), count_compact=.false.)
  call get_slice(var, dimord=2, count=n(2), count_compact=.false.)
  call get_slice(var, dimord=3, count=n(3), count_compact=.false.)
  call get_slice(var, dimord=4, count=n(4), count_compact=.false.)
  call dbgmessage('n(:)=%*d', i=n, n=(/size(n)/))
  invalid_check = n > 0
  if (.not. all(invalid_check)) then
    stat = gt_erankmismatch
    data_rank = count(invalid_check)
    cause_c = trim(tochar(data_rank)) // ' and 4'
    goto 999
  end if
  ! value が allocate されていなければ allocate する.
  ! value が既に allocate されていてサイズが取得するデータと同じで
  ! あればそのまま取得.
  ! value が allocate されていてサイズが異なる場合はエラー.
  if ( associated(value) ) then
    if ( &
      & .not. size(value,1) == n(1) .or. &
      & .not. size(value,2) == n(2) .or. &
      & .not. size(value,3) == n(3) .or. &
      & .not. size(value,4) == n(4) .or. &
      & .false.                             ) then
      stat = gt_ebadallocatesize
      if (stat /= dc_noerr) goto 999
    else
      call dbgmessage('@ value is already allocated')
    endif
  else
    call dbgmessage('@ allocate value')
    allocate( value(&
      & n(1),  &
      & n(2),  &
      & n(3),  &
      & n(4))  &
      &  )
  endif
  if (allocated(array1dim_tmp)) then
    deallocate(array1dim_tmp)
  end if
  allocate(array1dim_tmp(product(n)))
  call gtvargetint(var, array1dim_tmp, product(n), err)
  !    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))
  value = reshape(array1dim_tmp, n)
999 continue
  call storeerror(stat, subname, err, cause_i=cause_i, cause_c=cause_c)
end subroutine gtvargetpointerint4
 
subroutine gtvargetpointerint5(var, value, err)
  use gtdata_types,          only: gt_variable
  use gtdata_generic,        only: get_slice, gtvargetint
  use gtdata_internal_map,   only: map_set_rank
  use gtdata_netcdf_generic, only: get
  use gtdata_netcdf_types,   only: gd_nc_variable
  use dc_types,              only: string
  use dc_trace,              only: dbgmessage
  use dc_error,              only: storeerror, dc_noerr, &
    & gt_ebadallocatesize, gt_enomoredims, gt_erankmismatch
  use dc_string,             only: tochar
  implicit none
  type(gt_variable), intent(in):: var
  integer, pointer :: value(:,:,:,:,:) !(out)
  integer, allocatable :: array1dim_tmp(:)
  logical, intent(out), optional  :: err
  integer                         :: stat, n(5), cause_i, data_rank
  logical                         :: invalid_check(5)
  character(STRING)               :: cause_c
  character(*), parameter :: subname = 'GTVarGetPointerInt5'
  continue
  cause_i = 0
  cause_c = ''
  n(5) = -1
  stat = dc_noerr
  call map_set_rank(var, 5, stat)
  if (stat /= dc_noerr) goto 999
  call get_slice(var, dimord=1, count=n(1), count_compact=.false.)
  call get_slice(var, dimord=2, count=n(2), count_compact=.false.)
  call get_slice(var, dimord=3, count=n(3), count_compact=.false.)
  call get_slice(var, dimord=4, count=n(4), count_compact=.false.)
  call get_slice(var, dimord=5, count=n(5), count_compact=.false.)
  call dbgmessage('n(:)=%*d', i=n, n=(/size(n)/))
  invalid_check = n > 0
  if (.not. all(invalid_check)) then
    stat = gt_erankmismatch
    data_rank = count(invalid_check)
    cause_c = trim(tochar(data_rank)) // ' and 5'
    goto 999
  end if
  ! value が allocate されていなければ allocate する.
  ! value が既に allocate されていてサイズが取得するデータと同じで
  ! あればそのまま取得.
  ! value が allocate されていてサイズが異なる場合はエラー.
  if ( associated(value) ) then
    if ( &
      & .not. size(value,1) == n(1) .or. &
      & .not. size(value,2) == n(2) .or. &
      & .not. size(value,3) == n(3) .or. &
      & .not. size(value,4) == n(4) .or. &
      & .not. size(value,5) == n(5) .or. &
      & .false.                             ) then
      stat = gt_ebadallocatesize
      if (stat /= dc_noerr) goto 999
    else
      call dbgmessage('@ value is already allocated')
    endif
  else
    call dbgmessage('@ allocate value')
    allocate( value(&
      & n(1),  &
      & n(2),  &
      & n(3),  &
      & n(4),  &
      & n(5))  &
      &  )
  endif
  if (allocated(array1dim_tmp)) then
    deallocate(array1dim_tmp)
  end if
  allocate(array1dim_tmp(product(n)))
  call gtvargetint(var, array1dim_tmp, product(n), err)
  !    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))
  value = reshape(array1dim_tmp, n)
999 continue
  call storeerror(stat, subname, err, cause_i=cause_i, cause_c=cause_c)
end subroutine gtvargetpointerint5
 
subroutine gtvargetpointerint6(var, value, err)
  use gtdata_types,          only: gt_variable
  use gtdata_generic,        only: get_slice, gtvargetint
  use gtdata_internal_map,   only: map_set_rank
  use gtdata_netcdf_generic, only: get
  use gtdata_netcdf_types,   only: gd_nc_variable
  use dc_types,              only: string
  use dc_trace,              only: dbgmessage
  use dc_error,              only: storeerror, dc_noerr, &
    & gt_ebadallocatesize, gt_enomoredims, gt_erankmismatch
  use dc_string,             only: tochar
  implicit none
  type(gt_variable), intent(in):: var
  integer, pointer :: value(:,:,:,:,:,:) !(out)
  integer, allocatable :: array1dim_tmp(:)
  logical, intent(out), optional  :: err
  integer                         :: stat, n(6), cause_i, data_rank
  logical                         :: invalid_check(6)
  character(STRING)               :: cause_c
  character(*), parameter :: subname = 'GTVarGetPointerInt6'
  continue
  cause_i = 0
  cause_c = ''
  n(6) = -1
  stat = dc_noerr
  call map_set_rank(var, 6, stat)
  if (stat /= dc_noerr) goto 999
  call get_slice(var, dimord=1, count=n(1), count_compact=.false.)
  call get_slice(var, dimord=2, count=n(2), count_compact=.false.)
  call get_slice(var, dimord=3, count=n(3), count_compact=.false.)
  call get_slice(var, dimord=4, count=n(4), count_compact=.false.)
  call get_slice(var, dimord=5, count=n(5), count_compact=.false.)
  call get_slice(var, dimord=6, count=n(6), count_compact=.false.)
  call dbgmessage('n(:)=%*d', i=n, n=(/size(n)/))
  invalid_check = n > 0
  if (.not. all(invalid_check)) then
    stat = gt_erankmismatch
    data_rank = count(invalid_check)
    cause_c = trim(tochar(data_rank)) // ' and 6'
    goto 999
  end if
  ! value が allocate されていなければ allocate する.
  ! value が既に allocate されていてサイズが取得するデータと同じで
  ! あればそのまま取得.
  ! value が allocate されていてサイズが異なる場合はエラー.
  if ( associated(value) ) then
    if ( &
      & .not. size(value,1) == n(1) .or. &
      & .not. size(value,2) == n(2) .or. &
      & .not. size(value,3) == n(3) .or. &
      & .not. size(value,4) == n(4) .or. &
      & .not. size(value,5) == n(5) .or. &
      & .not. size(value,6) == n(6) .or. &
      & .false.                             ) then
      stat = gt_ebadallocatesize
      if (stat /= dc_noerr) goto 999
    else
      call dbgmessage('@ value is already allocated')
    endif
  else
    call dbgmessage('@ allocate value')
    allocate( value(&
      & n(1),  &
      & n(2),  &
      & n(3),  &
      & n(4),  &
      & n(5),  &
      & n(6))  &
      &  )
  endif
  if (allocated(array1dim_tmp)) then
    deallocate(array1dim_tmp)
  end if
  allocate(array1dim_tmp(product(n)))
  call gtvargetint(var, array1dim_tmp, product(n), err)
  !    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))
  value = reshape(array1dim_tmp, n)
999 continue
  call storeerror(stat, subname, err, cause_i=cause_i, cause_c=cause_c)
end subroutine gtvargetpointerint6
 
subroutine gtvargetpointerint7(var, value, err)
  use gtdata_types,          only: gt_variable
  use gtdata_generic,        only: get_slice, gtvargetint
  use gtdata_internal_map,   only: map_set_rank
  use gtdata_netcdf_generic, only: get
  use gtdata_netcdf_types,   only: gd_nc_variable
  use dc_types,              only: string
  use dc_trace,              only: dbgmessage
  use dc_error,              only: storeerror, dc_noerr, &
    & gt_ebadallocatesize, gt_enomoredims, gt_erankmismatch
  use dc_string,             only: tochar
  implicit none
  type(gt_variable), intent(in):: var
  integer, pointer :: value(:,:,:,:,:,:,:) !(out)
  integer, allocatable :: array1dim_tmp(:)
  logical, intent(out), optional  :: err
  integer                         :: stat, n(7), cause_i, data_rank
  logical                         :: invalid_check(7)
  character(STRING)               :: cause_c
  character(*), parameter :: subname = 'GTVarGetPointerInt7'
  continue
  cause_i = 0
  cause_c = ''
  n(7) = -1
  stat = dc_noerr
  call map_set_rank(var, 7, stat)
  if (stat /= dc_noerr) goto 999
  call get_slice(var, dimord=1, count=n(1), count_compact=.false.)
  call get_slice(var, dimord=2, count=n(2), count_compact=.false.)
  call get_slice(var, dimord=3, count=n(3), count_compact=.false.)
  call get_slice(var, dimord=4, count=n(4), count_compact=.false.)
  call get_slice(var, dimord=5, count=n(5), count_compact=.false.)
  call get_slice(var, dimord=6, count=n(6), count_compact=.false.)
  call get_slice(var, dimord=7, count=n(7), count_compact=.false.)
  call dbgmessage('n(:)=%*d', i=n, n=(/size(n)/))
  invalid_check = n > 0
  if (.not. all(invalid_check)) then
    stat = gt_erankmismatch
    data_rank = count(invalid_check)
    cause_c = trim(tochar(data_rank)) // ' and 7'
    goto 999
  end if
  ! value が allocate されていなければ allocate する.
  ! value が既に allocate されていてサイズが取得するデータと同じで
  ! あればそのまま取得.
  ! value が allocate されていてサイズが異なる場合はエラー.
  if ( associated(value) ) then
    if ( &
      & .not. size(value,1) == n(1) .or. &
      & .not. size(value,2) == n(2) .or. &
      & .not. size(value,3) == n(3) .or. &
      & .not. size(value,4) == n(4) .or. &
      & .not. size(value,5) == n(5) .or. &
      & .not. size(value,6) == n(6) .or. &
      & .not. size(value,7) == n(7) .or. &
      & .false.                             ) then
      stat = gt_ebadallocatesize
      if (stat /= dc_noerr) goto 999
    else
      call dbgmessage('@ value is already allocated')
    endif
  else
    call dbgmessage('@ allocate value')
    allocate( value(&
      & n(1),  &
      & n(2),  &
      & n(3),  &
      & n(4),  &
      & n(5),  &
      & n(6),  &
      & n(7))  &
      &  )
  endif
  if (allocated(array1dim_tmp)) then
    deallocate(array1dim_tmp)
  end if
  allocate(array1dim_tmp(product(n)))
  call gtvargetint(var, array1dim_tmp, product(n), err)
  !    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))
  value = reshape(array1dim_tmp, n)
999 continue
  call storeerror(stat, subname, err, cause_i=cause_i, cause_c=cause_c)
end subroutine gtvargetpointerint7