| Class | axis_type_mod |
| In: |
shared/axis_type.f90
|
| Derived_Types | [] | AXISINFO |
| Derived Type : | |||||
| axisinfo : | type(GT_HISTORY_AXIS)
| ||||
| a_Dim(:) =>null() : | real(DBKIND) , pointer
| ||||
| stored = .false. : | logical
|
| Subroutine : | |||
| from : | type(AXISINFO),
intent(in)
| ||
| to : | type(AXISINFO),
intent(out)
|
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)
| ||
| to(:) : | type(AXISINFO),
intent(out)
|
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