Class axis_type_mod
In: shared/axis_type.f90

begin

Dependency

Methods

Included Modules

type_mod gt4_history dc_trace

Attributes

Derived_Types  []  AXISINFO

Public Instance methods

AXISINFO()
Derived Type :
axisinfo :type(GT_HISTORY_AXIS)
: gt4 変数情報
type(GT_HISTORY_ATTR), pointer:attrs(:) =>null() ! 属性情報群
a_Dim(:) =>null() :real(DBKIND) , pointer
: 次元データ
stored = .false. :logical
: 格納完了フラグ
Subroutine :
from :type(AXISINFO), intent(in)
: ==== Output
to :type(AXISINFO), intent(out)
: =end

Dependency

[Source]

  subroutine axis_type_copy0(from, to)
  !
  !==== Dependency
  !
    use type_mod, only: STRING
    use dc_trace, only: BeginSub, EndSub
    use gt4_history, only: HistoryAxisCopy
                                                                 !=end
    implicit none
                                                                 !=begin
    !==== Input
    !
    type(AXISINFO), intent(in)  :: from
    !
    !==== Output
    type(AXISINFO), intent(out) :: to
                                                                 !=end
    character(STRING), parameter:: subname = "axis_type_copy0"
  continue

    call BeginSub(subname)
    call HistoryAxisCopy(axis_dest=to % axisinfo, axis_src=from % axisinfo)
!!$    to%axisinfo%name     = from%axisinfo%name
!!$    to%axisinfo%length   = from%axisinfo%length
!!$    to%axisinfo%longname = from%axisinfo%longname
!!$    to%axisinfo%units    = from%axisinfo%units
!!$    to%axisinfo%xtype    = from%axisinfo%xtype
    to%stored   = from%stored
    allocate( to%a_Dim(size(from%a_Dim)) )
    to%a_Dim(:) = from%a_Dim(:)

!!$    if ( associated(from%attrs) ) then
!!$       allocate( to%attrs(size(from%attrs(:))) )
!!$       call axis_attrs_copy(from%attrs(:), to%attrs(:))
!!$    else
!!$       if ( associated(to%attrs) ) then
!!$          deallocate( to%attrs )
!!$       endif
!!$    endif

    call EndSub(subname)
  end subroutine axis_type_copy0
Subroutine :
from(:) :type(AXISINFO), intent(in)
: ==== Output
to(:) :type(AXISINFO), intent(out)
: =end

Dependency

[Source]

  subroutine axis_type_copy1(from, to)
  !
  !==== Dependency
  !
    use type_mod, only: STRING, INTKIND
    use dc_trace, only: BeginSub, EndSub
                                                                 !=end
    implicit none
                                                                 !=begin
    !==== Input
    !
    type(AXISINFO), intent(in)  :: from(:)
    !==== Output
    !
    type(AXISINFO), intent(out) :: to(:)
                                                                 !=end
    integer(INTKIND)            :: i
    character(STRING), parameter:: subname = "axis_type_copy1"
  continue
    call BeginSub(subname)

    do i = 1, min( size(from), size(to) )
       call axis_type_copy( from(i), to(i) )
    enddo

    call EndSub(subname)
  end subroutine axis_type_copy1

[Validate]