historyaxiscreate.f90

Go to the documentation of this file.

 
 
  subroutine historyaxiscreate1( axis, &
    & name, size, longname, units, xtype)
    !
    use dc_trace, only: beginsub, endsub
    use dc_string, only: cprintft
    use gtool_history_types, only: gt_history_axis
    implicit none
    type(gt_history_axis),intent(out) :: axis
    character(*) , intent(in):: name     ! 次元変数名
    integer, intent(in):: size     ! 次元長 (配列サイズ)
    character(*) , intent(in):: longname ! 次元変数の記述的名称
    character(*) , intent(in):: units    ! 次元変数の単位
    character(*) , intent(in):: xtype    ! 次元変数の型
    character(len = *), parameter:: subname = "HistoryAxisCreate1"
  continue
    call beginsub(subname)
    axis % name = cprintft('%c', c1=name)
    axis % length = size
    axis % longname = longname
    axis % units = units
    axis % xtype = cprintft('%c', c1=xtype)
    call endsub(subname)
  end subroutine historyaxiscreate1
 
  subroutine historyaxiscreate2( axis, &
    & name, size, longname, units, xtype)
    use dc_trace, only: beginsub, endsub
    use dc_string, only: cprintft
    use gtool_history_types, only: gt_history_axis
    implicit none
    type(gt_history_axis),intent(out) :: axis
    character(*) , intent(in):: name     ! 次元変数名
    integer, intent(in):: size     ! 次元長 (配列サイズ)
    character(*) , intent(in):: longname ! 次元変数の記述的名称
    character(*) , intent(in):: units    ! 次元変数の単位
    character(*) , intent(in):: xtype    ! 次元変数の型
    character(len = *), parameter:: subname = "HistoryAxisCreate2"
  continue
    call beginsub(subname)
    axis % name = cprintft('%c', c1=name)
    axis % length = size
    axis % longname = longname
    axis % units = units
    axis % xtype = cprintft('%c', c1=xtype)
    call endsub(subname)
  end subroutine historyaxiscreate2