gtvarsliceauto.f90

Path: gtvarsliceauto.f90
Last Update: Sun Jan 15 16:10:30 JST 2006

入出力範囲の指定

Authors:Eizi TOYODA, Yasuhiro MORIKAWA
Version:$Id: gtvarsliceauto.f90,v 1.4 2006/01/15 07:10:30 morikawa Exp $
Tag Name:$Name: gt4f90io-20060827 $
Copyright:Copyright (C) GFD Dennou Club, 2000-2005. All rights reserved.
License:See COPYRIGHT

以下のサブルーチン、関数は gtdata_generic から gtdata_generic#Slice として提供されます。

Required files

gtdata_generic.f90   gtdata_types.f90  

Methods

GTVarSliceAuto  

Included Modules

gtdata_types gtdata_generic

Public Instance methods

GTVarSliceAuto( var, [compatible] )
Subroutine :
var :type(GT_VARIABLE), intent(inout)
compatible :type(GT_VARIABLE), intent(in), optional

入出力範囲をおまかせ指示

変数 var の入出力範囲を「適当に」小さくします。 compatible を指定すると、その変数と全く同じ入出力範囲に に指定します。

Slice は複数のサブルーチンの総称名であり、 他にも文字列や番号で指定する方法があります。 以下のサブルーチンを参照してください。

Slice に関連する手続きとして、Get_Slice と Slice_Next が あります。Get_Slice は設定された入出力範囲を取得します。 Slice_Next は入出力範囲を移動することによって、変数全体を読み取る ために利用するサブルーチンです。

[Source]

subroutine GTVarSliceAuto(var, compatible)
  !
  !== 入出力範囲をおまかせ指示
  !
  ! 変数 *var* の入出力範囲を「適当に」小さくします。
  ! *compatible* を指定すると、その変数と全く同じ入出力範囲に
  ! に指定します。
  !
  ! *Slice* は複数のサブルーチンの総称名であり、
  ! 他にも文字列や番号で指定する方法があります。
  ! 以下のサブルーチンを参照してください。
  !
  ! Slice に関連する手続きとして、Get_Slice と Slice_Next が
  ! あります。Get_Slice は設定された入出力範囲を取得します。 
  ! Slice_Next は入出力範囲を移動することによって、変数全体を読み取る
  ! ために利用するサブルーチンです。
  !
  use gtdata_types, only: GT_VARIABLE
  use gtdata_generic, only: Inquire, Get_Slice, GTVarSlice
  type(GT_VARIABLE), intent(inout):: var
  type(GT_VARIABLE), intent(in), optional:: compatible
  integer:: nd, i
  integer, allocatable:: start(:), count(:), stride(:)
  call Inquire(var, alldims=nd)
  if (nd <= 0) return
  allocate(start(nd), count(nd), stride(nd))
  if (present(compatible)) then
    call Get_Slice(compatible, start, count, stride)
    do, i = 1, nd
      call GTVarSlice(var, i, start(i), count(i), stride(i))
    enddo
  else
    call Get_Slice(var, start, count, stride)
    do, i = 1, nd
      if (count(i) < 1) count(i) = 1
      call GTVarSlice(var, i, start(i), count(i), stride(i))
    enddo
  endif
  deallocate(start, count, stride)
end subroutine GTVarSliceAuto

[Validate]