Write out an array of ellipsoids in lua format
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(tem_ellipsoid_type), | intent(in) | :: | me(:) |
ellipsoid types to write out |
||
type(aot_out_type), | intent(inout) | :: | conf |
Aotus type handling the output to the file in lua format |
subroutine tem_ellipsoid_out_vec( me, conf )
! --------------------------------------------------------------------------
!> ellipsoid types to write out
type( tem_ellipsoid_type ), intent(in) :: me(:)
!> Aotus type handling the output to the file in lua format
type(aot_out_type), intent(inout) :: conf
! --------------------------------------------------------------------------
! counter
integer :: i
! --------------------------------------------------------------------------
! create a table with name ellipsoid
call aot_out_open_table( put_conf = conf, tname = 'object' )
do i = 1, size(me)
call tem_ellipsoid_out_scal( me(i), conf )
end do
call aot_out_close_table( put_conf = conf )
end subroutine tem_ellipsoid_out_vec