gtdata_internal_map Module Reference

Data Types
interface	dimrange
type	gt_dimmap
type	map_table_entry

Functions/Subroutines
subroutine	dimrange_by_dimno (var, dimno, dimlo, dimhi)
subroutine	map_dup (var, source_var)
subroutine, public	map_create (var, class, cid, ndims, allcount, stat)
subroutine, public	maptabadd (mapid, vid)
subroutine, public	maptabdelete (var, err)
subroutine, public	map_lookup (var, vid, map, ndims)
subroutine	map_set (var, map, stat)
subroutine, public	var_class (var, class, cid)
subroutine	map_set_ndims (var, ndims, stat)
subroutine	map_set_rank (var, rank, stat)
subroutine, public	map_to_internal_specs (var, specs, ndims)
subroutine	map_allocate (map, ndims)
subroutine	map_apply (var, map)
subroutine	map_resize (var, ndims)
subroutine	gtvar_dump (var)
integer function	dimord_skip_compact (dimord, map)

Variables
type(map_table_entry), dimension(:), allocatable, target, save, private	maptab
integer, parameter, private	maptab_init_size = 16

Function/Subroutine Documentation

dimord_skip_compact()

integer function gtdata_internal_map::dimord_skip_compact	(	integer, intent(in)	dimord,
		type(gt_dimmap), dimension(:), intent(in)	map
	)

Definition at line 520 of file gtdata_internal_map.f90.

References dc_trace::dbgmessage().

Referenced by gtvarexchdim(), gtvargetslice(), and gtvaropenbydimord().

    ! 次元表の中で非縮退次元だけを数えた次元番号 dimord の次元を
    ! 特定し、外部向けの次元番号を返す。
    use dc_trace, only: dbgmessage
    integer, intent(in):: dimord
    type(gt_dimmap), intent(in):: map(:)
    integer:: nd, id
    result = -1
    nd = 0
    do, id = 1, size(map)
      if (map(id)%count < 2) cycle
      nd = nd + 1
      if (nd < dimord) cycle
      result = id
      call dbgmessage('compact dim skip: %d <= %d', i=(/result, dimord/))
      exit
    enddo

Here is the call graph for this function:

Here is the caller graph for this function:

dimrange_by_dimno()

subroutine gtdata_internal_map::dimrange_by_dimno	(	type(gt_variable), intent(in)	var,
		integer, intent(in)	dimno,
		integer, intent(out)	dimlo,
		integer, intent(out)	dimhi
	)

Definition at line 84 of file gtdata_internal_map.f90.

References map_lookup().

    ! 変数と次元番号を指定して、当該次元の内部的添字番号範囲を得る
    use gtdata_types, only: gt_variable
    use gtdata_generic, only: open, close
    use gtdata_internal_vartable, only: dimrange
    type(gt_variable), intent(in):: var
    integer, intent(in):: dimno
    integer, intent(out):: dimlo, dimhi
    type(gt_variable):: dimvar
    integer:: vid
    call open(dimvar, var, dimno, count_compact=.true.)
    call map_lookup(dimvar, vid=vid)
    call dimrange(vid, dimlo, dimhi)
    call close(dimvar)

Here is the call graph for this function:

gtvar_dump()

subroutine gtdata_internal_map::gtvar_dump

(

type(gt_variable), intent(in)

var

)

Definition at line 482 of file gtdata_internal_map.f90.

References dc_trace::dbgmessage(), maptab, and gtdata_internal_vartable::vartable_dump().

Referenced by gtvarcreate(), gtvarcreated(), gtvargetdouble(), gtvargetint(), gtvargetreal(), gtvarlimit(), gtvaropen(), gtvarslice(), gtvarslicec(), and gtvarxformbinary().

    ! 変数のプロパティを出力
    use gtdata_types, only: gt_variable
    use gtdata_internal_vartable, only: vartable_dump
    use dc_trace, only: debug, dbgmessage
    type(gt_variable), intent(in):: var
    integer:: idim, imap
    logical:: dbg_mode
  continue
    call debug( dbg_mode )
    if (.not. dbg_mode) return
    imap = var%mapid
    if (imap < 1 .or. imap > size(maptab)) then
      call dbgmessage('[gt_variable %d: invalid id]', i=(/imap/))
      return
    endif
    if (associated(maptab(imap)%map)) then
      call dbgmessage('[gt_variable %d: ndims=%d, map.size=%d]', &
        & i=(/imap, maptab(imap)%ndims, size(maptab(imap)%map)/))
      do, idim = 1, size(maptab(imap)%map)
        call dbgmessage('[dim%d dimno=%d ofs=%d step=%d' &
          &// ' all=%d start=%d count=%d stride=%d url=%c]', &
          & c1=trim(maptab(imap)%map(idim)%url), &
          & i=(/idim, maptab(imap)%map(idim)%dimno, &
          & maptab(imap)%map(idim)%offset, &
          & maptab(imap)%map(idim)%step, &
          & maptab(imap)%map(idim)%allcount, &
          & maptab(imap)%map(idim)%start, &
          & maptab(imap)%map(idim)%count, &
          & maptab(imap)%map(idim)%stride/))
      enddo
    else
      call dbgmessage('[gt_variable %d: ndims=%d, map=null]', &
        & i=(/imap, maptab(imap)%ndims/))
    endif
    call vartable_dump(maptab(imap)%vid)

Here is the call graph for this function:

Here is the caller graph for this function:

map_allocate()

subroutine gtdata_internal_map::map_allocate	(	type(gt_dimmap), dimension(:), pointer	map,
		integer, intent(in)	ndims
	)

Definition at line 404 of file gtdata_internal_map.f90.

Referenced by gtvarxformbinary(), map_create(), and map_resize().

    ! 次元表エントリに ndims 個のエントリを割り付け初期化する。
    type(gt_dimmap), pointer:: map(:)
    integer, intent(in):: ndims
    if (ndims <= 0) then
      nullify(map)
      return
    endif
    allocate(map(1:ndims))
    map(1:ndims)%dimno = -1
    map(1:ndims)%url = ' '
    map(1:ndims)%allcount = 0
    map(1:ndims)%offset = 0
    map(1:ndims)%step = 1
    map(1:ndims)%start = 1
    map(1:ndims)%count = 0
    map(1:ndims)%stride = 1
    map(1:ndims)%scalar = .false.

Here is the caller graph for this function:

map_apply()

subroutine gtdata_internal_map::map_apply	(	type(gt_variable), intent(inout)	var,
		type(gt_dimmap), dimension(:), pointer	map
	)

Definition at line 424 of file gtdata_internal_map.f90.

References maptab.

Referenced by gtvarxformbinary().

    ! 変数 var にマップ表 map を組み合わせる
    use gtdata_types, only: gt_variable
    type(gt_variable), intent(inout):: var
    type(gt_dimmap), pointer:: map(:)
    type(gt_dimmap), pointer:: tmpmap(:), varmap
    integer:: i, nd
    nd = size(map)
    allocate(tmpmap(nd))
    do, i = 1, nd
      tmpmap(i)%allcount = map(i)%allcount
      tmpmap(i)%count = map(i)%count
      if (map(i)%dimno > 0) then
        varmap => maptab(var%mapid)%map(map(i)%dimno)
        tmpmap(i)%url = varmap%url
        tmpmap(i)%dimno = varmap%dimno
        tmpmap(i)%offset = varmap%offset + map(i)%offset
        tmpmap(i)%step = varmap%step * map(i)%step
      else
        tmpmap(i)%url = map(i)%url
        tmpmap(i)%dimno = 0
        tmpmap(i)%offset = map(i)%offset
        tmpmap(i)%step = map(i)%step
      endif
    enddo
    deallocate(map)
    map => tmpmap

Here is the caller graph for this function:

map_create()

subroutine, public gtdata_internal_map::map_create	(	type(gt_variable), intent(out)	var,
		integer, intent(in)	class,
		integer, intent(in)	cid,
		integer, intent(in)	ndims,
		integer, dimension(:), intent(in)	allcount,
		integer, intent(out)	stat
	)

Definition at line 134 of file gtdata_internal_map.f90.

References dc_error::dc_noerr, dc_error::gt_enomoredims, map_allocate(), maptab, maptabadd(), and gtdata_internal_vartable::vartableadd().

Referenced by gtvarcreate(), gtvarcreated(), gtvaropen(), and gtvaropenbydimord().

    ! 変数 var を作成する。内部種別 class, 内部識別子 cid,
    ! 外見的次元数 ndims, 外見的次元長 allcount(:) を与える。
    ! オフセットゼロを仮定して諸元の初期化が行われる。
    use gtdata_types, only: gt_variable
    use gtdata_internal_vartable, only: vartableadd
    use dc_error, only: nf90_enotvar, gt_enomoredims, dc_noerr
    type(gt_variable), intent(out):: var
    integer, intent(in):: class, cid, ndims, allcount(:)
    integer, intent(out):: stat
    type(gt_dimmap), pointer:: map(:)
    integer:: vid, i
  continue

    stat = dc_noerr
    if ( ndims < 0 ) then
      stat = gt_enomoredims
      goto 999
    end if
    call vartableadd(vid, class, cid)
    call maptabadd(var%mapid, vid)
    if (ndims > 0) then
      call map_allocate(map, ndims)
      maptab(var%mapid)%ndims = ndims
      maptab(var%mapid)%map => map

      do, i = 1, ndims
        map(i)%dimno = i
        map(i)%allcount = allcount(i)
        map(i)%count = allcount(i)
        map(i)%offset = 0
        map(i)%start = 1
        map(i)%step = 1
        map(i)%stride = 1
        map(i)%scalar = .false.
      enddo
    else
      ! スカラー変数 (ndims = 0) の場合
      call map_allocate(map, 1)
      maptab(var%mapid)%ndims = 0
      maptab(var%mapid)%map => map
      map(1)%dimno = 1
      map(1)%allcount = 1
      map(1)%count = 1
      map(1)%offset = 0
      map(1)%start = 1
      map(1)%step = 1
      map(1)%stride = 1
      map(1)%scalar = .true.
    end if

999 continue
    return

Here is the call graph for this function:

Here is the caller graph for this function:

map_dup()

subroutine gtdata_internal_map::map_dup	(	type(gt_variable), intent(out)	var,
		type(gt_variable), intent(in)	source_var
	)

Definition at line 100 of file gtdata_internal_map.f90.

References dc_trace::dbgmessage(), map_lookup(), maptab, maptabadd(), gtdata_internal_vartable::vartableadd(), and gtdata_internal_vartable::vartablelookup().

Referenced by gtvaropenbydimord().

    ! 変数 source_var の複写 var を作成する
    use gtdata_types, only: gt_variable
    use gtdata_internal_vartable, only: vartableadd, vartablelookup
    use dc_trace, only: dbgmessage
    type(gt_variable), intent(out):: var
    type(gt_variable), intent(in):: source_var
    integer:: vid, mid1, mid2, vid2, nd, class, cid
    call map_lookup(source_var, vid=vid)
    if (vid < 0) then
      var = gt_variable(-1)
      return
    endif
    if (vid == 0) then
      vid2 = 0
    else
      call vartablelookup(vid, class=class, cid=cid)
      call vartableadd(vid2, class, cid)
    endif
    call maptabadd(var%mapid, vid2)
    mid1 = source_var%mapid
    mid2 = var%mapid
    maptab(mid2)%ndims = maptab(mid1)%ndims
    if (associated(maptab(mid1)%map)) then
      nd = size(maptab(mid1)%map)
      allocate(maptab(mid2)%map(nd))
      maptab(mid2)%map(1:nd) = maptab(mid1)%map(1:nd)
    else
      nullify(maptab(mid2)%map)
    endif
    call dbgmessage('map_dup mapid(%d from %d) vid(%d from %d)', &
      & i=(/mid2, mid1, maptab(mid2)%vid, maptab(mid1)%vid/))

Here is the call graph for this function:

Here is the caller graph for this function:

map_lookup()

subroutine, public gtdata_internal_map::map_lookup	(	type(gt_variable), intent(in)	var,
		integer, intent(out), optional	vid,
		type(gt_dimmap), dimension(:), intent(out), optional	map,
		integer, intent(out), optional	ndims
	)

Definition at line 252 of file gtdata_internal_map.f90.

References maptab, and gtdata_internal_vartable::vid_invalid.

Referenced by dimrange_by_dimno(), gtvaradddim(), gtvarclose(), gtvardeldim(), gtvarexchdim(), gtvargetslice(), gtvarlimit_iiii(), gtvaropenbydimord(), gtvarslice(), gtvarslicenext(), internal_get_allcount(), internal_get_alldims(), internal_get_rank(), internal_get_size(), map_dup(), map_set_ndims(), map_set_rank(), map_to_internal_specs(), and var_class().

    ! 同じファイル番号の変数表の中身を返す
    use gtdata_types, only: gt_variable
    type(gt_variable), intent(in):: var
    integer, intent(out), optional:: vid
    type(gt_dimmap), intent(out), optional:: map(:)
    integer, intent(out), optional:: ndims
    if (.not. allocated(maptab)) goto 999
    if (var%mapid <= 0 .or. var%mapid > size(maptab)) goto 999
    if (maptab(var%mapid)%vid == vid_invalid) goto 999
    if (present(vid)) vid = maptab(var%mapid)%vid
    if (present(map)) map(:) = maptab(var%mapid)%map(1:size(map))
    if (present(ndims)) ndims = maptab(var%mapid)%ndims
    return
999 continue
    if (present(vid)) vid = vid_invalid
    if (present(map)) then
      map(:)%dimno = -1
      map(:)%url = " "
    endif
    if (present(ndims)) ndims = 0

Here is the caller graph for this function:

map_resize()

subroutine gtdata_internal_map::map_resize	(	type(gt_variable), intent(in)	var,
		integer, intent(in)	ndims
	)

Definition at line 453 of file gtdata_internal_map.f90.

References map_allocate(), and maptab.

Referenced by gtvaradddim().

    ! 変数 var の次元表の大きさを変える
    use gtdata_types, only: gt_variable
    type(gt_variable), intent(in):: var
    integer, intent(in):: ndims
    type(gt_dimmap), pointer:: newmap(:)
    type(gt_dimmap), pointer:: tmpmap(:)
    integer:: n
    if (associated(maptab(var%mapid)%map)) then
      tmpmap => maptab(var%mapid)%map
      call map_allocate(newmap, ndims)
      n = min(size(tmpmap), ndims)
      newmap(1:n) = tmpmap(1:n)
      deallocate(tmpmap)
      maptab(var%mapid)%map => newmap
      newmap(n+1:ndims)%dimno = -1
      newmap(n+1:ndims)%url = ' '
      newmap(n+1:ndims)%allcount = 0
      newmap(n+1:ndims)%offset = 0
      newmap(n+1:ndims)%step = 1
      newmap(n+1:ndims)%start = 1
      newmap(n+1:ndims)%count = 0
      newmap(n+1:ndims)%stride = 1
    else
      call map_allocate(maptab(var%mapid)%map, ndims)
      n = 1
    endif

Here is the call graph for this function:

Here is the caller graph for this function:

map_set()

subroutine gtdata_internal_map::map_set	(	type(gt_variable), intent(in)	var,
		type(gt_dimmap), dimension(:), intent(in)	map,
		integer, intent(out)	stat
	)

Definition at line 275 of file gtdata_internal_map.f90.

References dc_error::dc_noerr, dc_error::gt_enomoredims, maptab, and gtdata_internal_vartable::vid_invalid.

Referenced by gtvaradddim(), gtvardeldim(), gtvarexchdim(), gtvarlimit_iiii(), gtvaropenbydimord(), gtvarslice(), and gtvarslicenext().

    ! 同じファイル番号の変数表の値を設定する
    use gtdata_types, only: gt_variable
    use dc_error, only: nf90_enotvar, gt_enomoredims, dc_noerr
    type(gt_variable), intent(in):: var
    type(gt_dimmap), intent(in):: map(:)
    integer, intent(out):: stat
    if (.not. allocated(maptab)) goto 999
    if (var%mapid <= 0 .or. var%mapid > size(maptab)) goto 999
    if (maptab(var%mapid)%vid == vid_invalid) goto 999
    if (size(map) > size(maptab(var%mapid)%map)) then
      stat = gt_enomoredims
      return
    endif
    maptab(var%mapid)%map(1:size(map)) = map(:)
    stat = dc_noerr
    return
999 continue
    stat = nf90_enotvar

Here is the caller graph for this function:

map_set_ndims()

subroutine gtdata_internal_map::map_set_ndims	(	type(gt_variable), intent(in)	var,
		integer, intent(in)	ndims,
		integer, intent(out)	stat
	)

Definition at line 308 of file gtdata_internal_map.f90.

References dc_error::dc_noerr, dc_error::gt_enomoredims, map_lookup(), maptab, and gtdata_internal_vartable::vartablelookup().

Referenced by gtvaradddim(), gtvardeldim(), and gtvarexchdim().

    ! 変数 var の次元数を ndims に変える。
    use gtdata_types, only: gt_variable
    use gtdata_internal_vartable, only: vartablelookup
    use dc_error, only: nf90_enotvar, gt_enomoredims, dc_noerr
    type(gt_variable), intent(in):: var
    integer, intent(in):: ndims
    integer, intent(out):: stat
    integer:: vid
    call map_lookup(var, vid=vid)
    if (vid == vid_invalid) then
      stat = nf90_enotvar
      return
    endif
    if (.not. associated(maptab(var%mapid)%map)) then
      if (ndims == 0) then
        stat = dc_noerr
        maptab(var%mapid)%ndims = 0
      else
        stat = gt_enomoredims
      endif
    else
      if (ndims > size(maptab(var%mapid)%map)) then
        stat = gt_enomoredims
      else
        stat = dc_noerr
        maptab(var%mapid)%ndims = ndims
      endif
    endif

Here is the call graph for this function:

Here is the caller graph for this function:

map_set_rank()

subroutine gtdata_internal_map::map_set_rank	(	type(gt_variable), intent(in)	var,
		integer, intent(in)	rank,
		integer, intent(out)	stat
	)

Definition at line 339 of file gtdata_internal_map.f90.

References dc_error::dc_noerr, dc_error::gt_enomoredims, map_lookup(), maptab, and gtdata_internal_vartable::vartablelookup().

Referenced by gtvargetpointerdouble1(), gtvargetpointerdouble2(), gtvargetpointerdouble3(), gtvargetpointerdouble4(), gtvargetpointerdouble5(), gtvargetpointerdouble6(), gtvargetpointerdouble7(), gtvargetpointerint1(), gtvargetpointerint2(), gtvargetpointerint3(), gtvargetpointerint4(), gtvargetpointerint5(), gtvargetpointerint6(), gtvargetpointerint7(), gtvargetpointerreal1(), gtvargetpointerreal2(), gtvargetpointerreal3(), gtvargetpointerreal4(), gtvargetpointerreal5(), gtvargetpointerreal6(), and gtvargetpointerreal7().

    ! 変数 var のランク(非縮退次元数)を rank に減らすように
    ! count 値を1に減らす。ランクを増やすことや外見次元数の操作はしない。
    use gtdata_types, only: gt_variable
    use gtdata_internal_vartable, only: vartablelookup
    use dc_error, only: nf90_enotvar, gt_enomoredims, dc_noerr
    type(gt_variable), intent(in):: var
    integer, intent(in):: rank
    integer, intent(out):: stat
    type(gt_dimmap), pointer:: tmpmap(:)
    integer:: ndims
    integer:: vid, nd
    call map_lookup(var, vid, ndims=ndims)
    if (vid == vid_invalid) then
      stat = nf90_enotvar
      return
    endif
    if (ndims < rank) then
      stat = gt_enomoredims
      return
    endif
    tmpmap => maptab(var%mapid)%map
    do, nd = ndims, 1, -1
      if (count(tmpmap(1:ndims)%count > 1) <= rank) exit
      tmpmap(nd)%count = 1
    enddo
    stat = dc_noerr

Here is the call graph for this function:

Here is the caller graph for this function:

map_to_internal_specs()

subroutine, public gtdata_internal_map::map_to_internal_specs	(	type(gt_variable), intent(in)	var,
		integer, dimension(:, :), pointer	specs,
		integer, intent(out), optional	ndims
	)

Definition at line 368 of file gtdata_internal_map.f90.

References map_lookup(), maptab, and gtdata_internal_vartable::ndims().

Referenced by gtvargetdouble(), gtvargetint(), gtvargetreal(), gtvarputchar(), gtvarputdouble(), gtvarputint(), and gtvarputreal().

    ! マップ表から netCDF の引数にふさわしい start, count, stride, imap
    ! を作成する。ただし、stride が負になるばあいは対策されていない。
    ! (暫定的に gdncvarget/gdncvarput が対応している)
    use gtdata_types, only: gt_variable
    use gtdata_internal_vartable, only: num_dimensions => ndims
    type(gt_variable), intent(in):: var
    integer, pointer:: specs(:, :)
    integer, intent(out), optional:: ndims
    type(gt_dimmap), pointer:: it
    integer:: vid, i, j, imap, internal_ndims
    integer:: external_ndims
  continue
    call map_lookup(var, vid, ndims=external_ndims)
    internal_ndims = num_dimensions(vid)
    if (present(ndims)) ndims = internal_ndims
    allocate(specs(max(1, internal_ndims), 4))
    specs(:, 1) = 1
    specs(:, 2) = 1
    specs(:, 3) = 1
    specs(:, 4) = 0
    imap = 1
    do, i = 1, size(maptab(var%mapid)%map)
      it => maptab(var%mapid)%map(i)
      j = it%dimno
      if (j > 0 .and. j <= internal_ndims) then
        specs(j, 1) = it%start + it%offset
        specs(j, 2) = it%count
        if (i > external_ndims) specs(j, 2) = 1
        specs(j, 3) = it%stride * it%step
        specs(j, 4) = imap
      endif
      imap = imap * it%count
    enddo

Here is the call graph for this function:

Here is the caller graph for this function:

maptabadd()

subroutine, public gtdata_internal_map::maptabadd	(	integer, intent(out)	mapid,
		integer, intent(in)	vid
	)

Definition at line 189 of file gtdata_internal_map.f90.

References maptab, maptab_init_size, and gtdata_internal_vartable::vid_invalid.

Referenced by map_create(), and map_dup().

    ! すでに実体表に追加されたエントリ番号 vid を指定して、
    ! マップ表にエントリを追加する。
    integer, intent(out):: mapid
    integer, intent(in):: vid
    type(map_table_entry), allocatable:: tmp_maptab(:)
    integer:: i, n
    ! 必要なら初期確保
    if (.not. allocated(maptab)) then
      allocate(maptab(maptab_init_size))
      maptab(:)%vid = vid_invalid
      do, n = 1, maptab_init_size
        nullify(maptab(n)%map)
      enddo
    endif
    ! 空き地があればそこに割り当て
    do, i = 1, size(maptab)
      if (maptab(i)%vid == vid_invalid) then
        mapid = i
        maptab(mapid)%vid = vid
        return
      endif
    enddo
    ! 空き地はなかったのだから倍幅確保
    n = size(maptab)
    allocate(tmp_maptab(n))
    tmp_maptab(:) = maptab(:)
    deallocate(maptab)
    allocate(maptab(n * 2))
    ! 確保したところはクリア
    maptab(1:n) = tmp_maptab(1:n)
    do, i = n + 1, (2 * size(tmp_maptab))
      maptab(i)%vid = vid_invalid
      nullify(maptab(i)%map)
    enddo
    deallocate(tmp_maptab)
    mapid = n + 1
    maptab(mapid)%vid = vid

Here is the caller graph for this function:

maptabdelete()

subroutine, public gtdata_internal_map::maptabdelete	(	type(gt_variable), intent(in)	var,
		logical, intent(out), optional	err
	)

Definition at line 229 of file gtdata_internal_map.f90.

References dc_trace::dbgmessage(), dc_error::dc_noerr, maptab, dc_error::storeerror(), and gtdata_internal_vartable::vid_invalid.

Referenced by gtvarclose().

    ! 変数 var をマップ表から削除する。
    ! 実体表には手をつけない。
    use dc_error, only: nf90_enotvar, storeerror, dc_noerr
    use gtdata_types, only: gt_variable
    use dc_trace, only: dbgmessage
    implicit none
    type(gt_variable), intent(in):: var
    logical, intent(out), optional:: err
    integer:: mapid
    mapid = var%mapid
    if (.not. allocated(maptab)) goto 999
    if (mapid <= 0 .or. mapid > size(maptab)) goto 999
    if (maptab(mapid)%vid == vid_invalid) goto 999
    maptab(mapid)%vid = vid_invalid
    if (associated(maptab(mapid)%map)) deallocate(maptab(mapid)%map)
    call storeerror(dc_noerr, 'maptabdelete', err)
    call dbgmessage('gtdata_internal_map table %d deleted', i=(/mapid/))
    return
999 continue
    call storeerror(nf90_enotvar, 'maptabdelete', err)

Here is the call graph for this function:

Here is the caller graph for this function:

var_class()

subroutine, public gtdata_internal_map::var_class	(	type(gt_variable), intent(in)	var,
		integer, intent(out), optional	class,
		integer, intent(out), optional	cid
	)

Definition at line 297 of file gtdata_internal_map.f90.

References map_lookup(), and gtdata_internal_vartable::vartablelookup().

Referenced by gtvarattrnext(), gtvarattrrewind(), gtvarattrtrue(), gtvarcopyattr(), gtvarcreate(), gtvardelattr(), gtvardimname2ord(), gtvarequivalent(), gtvargetattrcc(), gtvargetattrd(), gtvargetattrda(), gtvargetattrdp(), gtvargetattri(), gtvargetattria(), gtvargetattrip(), gtvargetattrr(), gtvargetattrra(), gtvargetattrrp(), gtvargetdouble(), gtvargetint(), gtvargetreal(), gtvarinquire(), gtvarinquirea(), gtvaropenbydimord(), gtvarputattrchar(), gtvarputattrdouble(), gtvarputattrint(), gtvarputattrlogical(), gtvarputattrreal(), gtvarputchar(), gtvarputdouble(), gtvarputint(), gtvarputreal(), and gtvarsync().

    ! 変数 var を指定して、内部種別 class, 内部識別子 cid を得る。
    use gtdata_types, only: gt_variable
    use gtdata_internal_vartable, only: vartablelookup
    type(gt_variable), intent(in):: var
    integer, intent(out), optional:: class, cid
    integer:: vid
    call map_lookup(var, vid=vid)
    call vartablelookup(vid, class=class, cid=cid)

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

maptab

type(map_table_entry), dimension(:), allocatable, target, save, private gtdata_internal_map::maptab

private

Definition at line 68 of file gtdata_internal_map.f90.

Referenced by gtvar_dump(), map_apply(), map_create(), map_dup(), map_lookup(), map_resize(), map_set(), map_set_ndims(), map_set_rank(), map_to_internal_specs(), maptabadd(), and maptabdelete().

  type(map_table_entry), save, target, allocatable:: maptab(:)

maptab_init_size

integer, parameter, private gtdata_internal_map::maptab_init_size = 16

private

Definition at line 69 of file gtdata_internal_map.f90.

Referenced by maptabadd().

  integer, parameter:: maptab_init_size = 16