tem_ellipsoid_out_vec Subroutine

private subroutine tem_ellipsoid_out_vec(me, conf)

Write out an array of ellipsoids in lua format

Arguments

Type IntentOptional 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

Calls

proc~~tem_ellipsoid_out_vec~~CallsGraph proc~tem_ellipsoid_out_vec tem_ellipsoid_out_vec proc~aot_out_open_table aot_out_open_table proc~tem_ellipsoid_out_vec->proc~aot_out_open_table proc~aot_out_close_table aot_out_close_table proc~tem_ellipsoid_out_vec->proc~aot_out_close_table proc~tem_ellipsoid_out_scal tem_ellipsoid_out_scal proc~tem_ellipsoid_out_vec->proc~tem_ellipsoid_out_scal proc~tem_ellipsoid_out_scal->proc~aot_out_open_table proc~tem_ellipsoid_out_scal->proc~aot_out_close_table proc~aot_out_val aot_out_val proc~tem_ellipsoid_out_scal->proc~aot_out_val

Called by

proc~~tem_ellipsoid_out_vec~~CalledByGraph proc~tem_ellipsoid_out_vec tem_ellipsoid_out_vec interface~tem_ellipsoid_out tem_ellipsoid_out interface~tem_ellipsoid_out->proc~tem_ellipsoid_out_vec proc~tem_shape_out_scal tem_shape_out_scal proc~tem_shape_out_scal->interface~tem_ellipsoid_out proc~tem_shape_out_vec tem_shape_out_vec proc~tem_shape_out_vec->proc~tem_shape_out_scal interface~tem_shape_out tem_shape_out interface~tem_shape_out->proc~tem_shape_out_scal interface~tem_shape_out->proc~tem_shape_out_vec proc~tem_convergence_out_single tem_convergence_out_single proc~tem_convergence_out_single->interface~tem_shape_out proc~hvs_ascii_write_header hvs_ascii_write_header proc~hvs_ascii_write_header->interface~tem_shape_out

Contents

Source Code

tem_ellipsoid_out_vec

Source Code

  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