gtvarcopyattr.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	gtvarcopyattr (to, attrname, from, err)

Function/Subroutine Documentation

gtvarcopyattr()

subroutine gtvarcopyattr	(	type(gt_variable), intent(inout)	to,
		character(len = *), intent(in)	attrname,
		type(gt_variable), intent(in)	from,
		logical, intent(out), optional	err
	)

Definition at line 14 of file gtvarcopyattr.f90.

References dc_trace::beginsub(), dc_error::dc_noerr, dc_trace::endsub(), dc_error::storeerror(), dc_types::string, and gtdata_internal_map::var_class().

Referenced by gtvarcopyattrall().

  !
  !== 属性のコピー
  !
  ! 変数 *from* の属性 *attrname* を 変数 *to* へコピーします。
  !
  ! 属性のコピー時にエラーが生じた場合、メッセージを出力
  ! してプログラムは強制終了します。*err* を与えてある場合には
  ! の引数に .true. が返り、プログラムは終了しません。
  !
  ! *Copy_Attr* は 2 つのサブルーチンの総称名であり、
  ! 他にも一括で変数の全ての属性をコピーする方法もあります。
  ! 下記のサブルーチンを参照ください。
  !
  use gtdata_types, only: gt_variable
  use gtdata_generic, only: get_attr, put_attr
  use gtdata_internal_map, only: var_class, vtb_class_netcdf, vtb_class_memory
  use gtdata_netcdf_generic, only: copy_attr
  use gtdata_netcdf_types, only: gd_nc_variable
  use dc_trace, only: beginsub, endsub
  use dc_error, only: storeerror, dc_noerr
  use dc_types, only: string
  implicit none
  type(gt_variable), intent(inout):: to
  character(len = *), intent(in):: attrname
  type(gt_variable), intent(in):: from
  logical, intent(out), optional:: err
  character(STRING):: svalue
  integer:: from_class, from_cid, to_class, to_cid, stat
continue
  if (present(err)) err = .false.
  call beginsub('gtvarcopyattr', 'mapid to=%d from=%d name=%c', &
    & i=(/to%mapid, from%mapid/), c1=attrname)
  call var_class(from, from_class, from_cid)
  call var_class(to, to_class, to_cid)
  if (from_class == vtb_class_netcdf .and. to_class == vtb_class_netcdf) then
    call copy_attr(gd_nc_variable(to_cid), attrname, &
      & gd_nc_variable(from_cid), stat)
  else
    ! とりあえず文字列で入出力しておく
    call get_attr(from, attrname, svalue, default='')
    call put_attr(to, attrname, svalue, '', err)
    stat = dc_noerr
  endif
  call storeerror(stat, "GTVarCopyAttr", err)
  call endsub('gtvarcopyattr', 'stat = %d', i=(/stat/))

Here is the call graph for this function:

Here is the caller graph for this function: