historyvarinfocopy.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	historyvarinfocopy1 (varinfo_dest, varinfo_src, err, name, dims, longname, units, xtype)
subroutine	historyvarinfocopy2 (varinfo_dest, varinfo_src, err, name, dims, longname, units, xtype)

Function/Subroutine Documentation

historyvarinfocopy1()

subroutine historyvarinfocopy1	(	type(gt_history_varinfo), intent(out)	varinfo_dest,
		type(gt_history_varinfo), intent(in)	varinfo_src,
		logical, intent(out), optional	err,
		character(*), intent(in), optional	name,
		character(*), dimension(:), intent(in), optional, target	dims,
		character(*), intent(in), optional	longname,
		character(*), intent(in), optional	units,
		character(*), intent(in), optional	xtype
	)

Definition at line 12 of file historyvarinfocopy.f90.

References dc_trace::beginsub(), dc_trace::dbgmessage(), dc_error::dc_ealreadyinit, dc_error::dc_enotinit, dc_error::dc_noerr, gtool_history_internal::default, dc_trace::endsub(), dc_string::joinchar(), dc_error::storeerror(), dc_types::string, and dc_types::token.

    !
    !== GT_HISTORY_VARINFO 型変数コピー
    !
    ! GT_HISTORY_VARINFO 型の変数 *varinfo_src* を
    ! *varinfo_dest* にコピーします。
    ! *varinfo_src* は HistoryVarinfoCreate によって初期設定されている必要が
    ! あります。
    ! さらに属性を付加する場合には HistoryVarinfoAddAttr
    ! を用いてください。
    !
    ! *err* を与えておくと、コピーの際何らかの不具合が生じても
    ! 終了せずに err が真になって返ります。
    !
    ! *err* 以降の引数は、コピーの際に上書きする値です。
    !
    use gtool_history_types, only: gt_history, gt_history_axis, gt_history_varinfo, gt_history_attr
    use gtool_history_internal, only: default, copy_attrs
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_present,only: present_select
    use dc_string, only: joinchar
    use dc_error, only: storeerror, dc_noerr, dc_enotinit, dc_ealreadyinit
    use dc_types, only: string, token
    implicit none
    type(gt_history_varinfo),intent(out):: varinfo_dest
    type(gt_history_varinfo),intent(in):: varinfo_src
    logical, intent(out), optional:: err
    character(*) , intent(in), optional:: name     ! 次元変数名
    character(*) , intent(in), optional, target:: dims(:)  ! 依存する次元
    character(*) , intent(in), optional:: longname ! 次元変数の記述的名称
    character(*) , intent(in), optional:: units    ! 次元変数の単位
    character(*) , intent(in), optional:: xtype    ! 次元変数の型

    integer:: i, stat
    character(STRING):: cause_c
    character(TOKEN), pointer :: srcdims(:) =>null() ! 依存する次元
    character(*), parameter:: subname = "HistoryVarinfoCopy1"
  continue
    call beginsub(subname)
    stat = dc_noerr
    cause_c = ''

    if ( .not. varinfo_src % initialized ) then
      stat = dc_enotinit
      cause_c = 'GT_HISTORY_VARINFO'
      goto 999
    end if

    if ( varinfo_dest % initialized ) then
      stat = dc_ealreadyinit
      cause_c = 'GT_HISTORY_VARINFO'
      goto 999
    end if

    varinfo_dest % name     = present_select('', varinfo_src % name, name)
    varinfo_dest % longname = present_select('', varinfo_src % longname, longname)
    varinfo_dest % units    = present_select('', varinfo_src % units, units)
    varinfo_dest % xtype    = present_select('', varinfo_src % xtype, xtype)

    if (present(dims)) then
      srcdims => dims
    else
      srcdims => varinfo_src % dims
    endif

    call dbgmessage('srcdims=<%c>', &
      & c1=trim(joinchar(srcdims)))

    allocate(  varinfo_dest % dims( size( srcdims ) )  )
    do i = 1, size(srcdims)
      varinfo_dest % dims(i) = srcdims(i)
    end do

    call dbgmessage('varinfo_dest %% dims=<%c>', &
      & c1=trim(joinchar(varinfo_dest % dims)))

    if (associated( varinfo_src % attrs ) ) then
      allocate(  varinfo_dest % attrs( size( varinfo_src % attrs) )  )
      call copy_attrs( from = varinfo_src % attrs, &
        &                to = varinfo_dest % attrs, err = err)
    end if

    varinfo_dest % initialized = .true.
999 continue
    call storeerror( stat, subname, err, cause_c )
    call endsub(subname)

Here is the call graph for this function:

historyvarinfocopy2()

subroutine historyvarinfocopy2	(	type(gt_history_varinfo), intent(out)	varinfo_dest,
		type(gt_history_varinfo), intent(in)	varinfo_src,
		logical, intent(out), optional	err,
		character(*), intent(in), optional	name,
		character(*), dimension(:), intent(in), optional, target	dims,
		character(*), intent(in), optional	longname,
		character(*), intent(in), optional	units,
		character(*), intent(in), optional	xtype
	)

Definition at line 101 of file historyvarinfocopy.f90.

References dc_trace::beginsub(), dc_trace::dbgmessage(), and dc_trace::endsub().

    !
    ! 使用方法は HistoryVarinfoCopy と同様です. 
    !
    ! Usage is same as "HistoryVarinfoCopy".
    !
    !--
    ! 総称名 Copy として提供するための関数です. 
    ! 機能は HistoryVarinfoCopy1 と同じです. 
    !++
    use gtool_history_types, only: gt_history, gt_history_axis, gt_history_varinfo, gt_history_attr
    use gtool_history_generic, only: historyvarinfocopy
    use dc_trace, only: beginsub, endsub, dbgmessage
    implicit none
    type(gt_history_varinfo),intent(out):: varinfo_dest
    type(gt_history_varinfo),intent(in):: varinfo_src
    logical, intent(out), optional:: err
    character(*) , intent(in), optional:: name     ! 次元変数名
    character(*) , intent(in), optional, target:: dims(:)  ! 依存する次元
    character(*) , intent(in), optional:: longname ! 次元変数の記述的名称
    character(*) , intent(in), optional:: units    ! 次元変数の単位
    character(*) , intent(in), optional:: xtype    ! 次元変数の型

    character(*), parameter:: subname = "HistoryVarinfoCopy2"
  continue
    call beginsub(subname)
    call historyvarinfocopy(varinfo_dest, varinfo_src, err, &
      & name, dims, longname, units, xtype )
    call endsub(subname)

Here is the call graph for this function: