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