! --- 例4(a) ---
use gtool
implicit none

character(string):: varname
type(gt_variable):: var
integer:: i, size
real, allocatable:: buffer(:)

call Open(var, varname)
call Inquire(var, size=size)
allocate(buffer(size))
call Get(var, buffer, size)
do, i = 1, size
    print *, buffer(i)
enddo 
call Close(var)

! --- 例4(b) ---
use gtool
implicit none

character(string):: varname
type(gt_variable):: var

call Open(var, varname)
call put_line(var)
call Close(var)

! --- 例5 ---
use gtool
implicit none

type(gt_variable):: var
integer:: stat

call Open(var, "filename?varname")
call Slice(var, dimord=1, start=1, count=1)
do
    call Slice_Next(var, stat=stat)
    if (stat /= dc_noerr) exit
    call get(var, 中略)
    中略
enddo
call Close(var)

! --- 例6 ---
subroutine do_copy(source, dest)
    character(len=*), intent(in):: source
    character(len=*), intent(in):: dest
    type(GT_VARIABLE):: vSource
    type(GT_VARIABLE):: vDest
    call Open(vSource, url=source)
    call Create(vDest, url=dest, copyfrom=vSource, &
        & copyvalue=.TRUE.)
    call Close(vSource)
    call Close(vDest)
end subroutine

! --- 例7 ---
integer:: bufsiz
real, allocatable:: buffer(:)
logical:: err

call Open(vSource, url=source)
call Create(vDest, url=dest, copyfrom=vSource)
call Inquire(vSource, size=bufsiz)
allocate(buffer(bufsiz))
call Get(vSource, buffer, isiz, err)
call Put(vDest, buffer, isiz, err)
call Close(vSource)
call Close(vDest)

! --- 例8 ---
integer:: stat

call Open(vSource, url=source)
call Create(vDest, url=dest, copyfrom=vSource)
call Slice(vSource)
call Slice(vDest, vSource)
call Inquire(vSource, size=bufsiz)
allocate(buffer(bufsiz))
do
    call Get(vSource, buffer, isiz, err)
    call Put(vDest, buffer, isiz, err)
    call Slice_Next(vSource, stat=stat)
    if (stat /= 0) break
    call Slice_Next(vDest, stat=stat)
    if (stat /= 0) break
enddo
call Close(vSource)
call Close(vDest)

! --- 例9 ---
type(gt_variable):: src, mold, dest
integer:: cnt, siz, idim_avg
logical:: err
double precision:: dbuf(:), dsum(:)

call open(src, 入力変数名)
idim_avg = dimname_to_dimord(src, "lon")
if (idim_avg < 0) return
call slice(src, idim_avg, start=1, count=1, stride=1)

名前 "lon" で識別される次元番号は dimname_to_dimord で得られます。この次元番号について Slice しておくと、あとで Get→Slice_Next で得られるループは "lon" の次元に関して順次読み取ることになります。

call open(mold, src, dimord=0)
call del_dim(mold, idim_avg, err=err)
if (err) return
call create(dest, url=出力変数名, copyfrom=mold, &
    & copyvalue=.false., overwrite=.true., err=err)
call close(mold)
if (err) return

変数 src と同じ次元構成の変数を作るためには create(dest, copyfrom=src) としてしまえばよいのですが、次元を減らさなくてはいけないので、いったん　mold という別の変数を Open しなおして、その次元を del_dim で削除してから create(dest, copyfrom=mold) しています。

call inquire(src, size=siz)
allocate(dbuf(siz), dsum(siz))
cnt = 0
dsum(1:siz) = 0.0d0

do
    call get(src, dbuf(1:siz), siz)
    where (dbuf(1:siz) /= undef)
	  dsum(1:siz) = dsum(1:siz) + dbuf(1:siz)
	  cnt = cnt + 1
    end where
    call slice_next(src, stat=stat)
    if (stat /= 0) exit
enddo

dsum(1:siz) = dsum(1:siz) / cnt
call put(dest, dsum(1:siz), siz)

call close(src)
call close(dest)

すでに Slice ずみの src について Slice_Next を呼び出すと、平均を取りたい次元 "lon" についてのループになります。ここで読み出した値 dbuf を集計した値 dsum を読み取り回数 cnt で割ると、平均値が得られます。