tem_triangle_out_vec Subroutine

private subroutine tem_triangle_out_vec(me, conf)

Write out an array of triangles in lua format Only if nTriangles <= 10

Arguments

Type IntentOptional Attributes Name
type(tem_triangle_type), intent(in) :: me(:)

triangle 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_triangle_out_vec~2~~CallsGraph proc~tem_triangle_out_vec~2 tem_triangle_out_vec proc~aot_out_open_table aot_out_open_table proc~tem_triangle_out_vec~2->proc~aot_out_open_table proc~tem_triangle_out_scal~2 tem_triangle_out_scal proc~tem_triangle_out_vec~2->proc~tem_triangle_out_scal~2 proc~aot_out_val aot_out_val proc~tem_triangle_out_vec~2->proc~aot_out_val proc~aot_out_close_table aot_out_close_table proc~tem_triangle_out_vec~2->proc~aot_out_close_table proc~tem_triangle_out_scal~2->proc~aot_out_open_table proc~tem_triangle_out_scal~2->proc~aot_out_val proc~tem_triangle_out_scal~2->proc~aot_out_close_table

Called by

proc~~tem_triangle_out_vec~2~~CalledByGraph proc~tem_triangle_out_vec~2 tem_triangle_out_vec interface~tem_triangle_out~2 tem_triangle_out interface~tem_triangle_out~2->proc~tem_triangle_out_vec~2

Contents

Source Code

tem_triangle_out_vec

Source Code

  subroutine tem_triangle_out_vec( me, conf )
    ! --------------------------------------------------------------------------
    !> triangle types to write out
    type( tem_triangle_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 triangle
    call aot_out_open_table( put_conf = conf, tname = 'triangle' )

    if (size(me)<=10) then
      do i = 1, size(me)
        call tem_triangle_out_scal( me(i), conf )
      end do
    else
      call aot_out_val( put_conf = conf, vname = 'nTriangles', val = size(me) )
      call aot_out_val( put_conf = conf,                                  &
        &               val = 'Write triangle is limited to 10 triangles' )
    end if

    call aot_out_close_table( put_conf = conf )

  end subroutine tem_triangle_out_vec