tem_shape_out_vec Subroutine

private subroutine tem_shape_out_vec(me, conf)

Write a array of shapes to lua file

Arguments

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

shape 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_shape_out_vec~~CallsGraph proc~tem_shape_out_vec tem_shape_out_vec aot_out_close_table aot_out_close_table proc~tem_shape_out_vec->aot_out_close_table aot_out_open_table aot_out_open_table proc~tem_shape_out_vec->aot_out_open_table proc~tem_shape_out_scal tem_shape_out_scal proc~tem_shape_out_vec->proc~tem_shape_out_scal proc~tem_shape_out_scal->aot_out_close_table proc~tem_shape_out_scal->aot_out_open_table aot_out_val aot_out_val proc~tem_shape_out_scal->aot_out_val interface~tem_canonicalnd_out tem_canonicalND_out proc~tem_shape_out_scal->interface~tem_canonicalnd_out interface~tem_cylinder_out tem_cylinder_out proc~tem_shape_out_scal->interface~tem_cylinder_out interface~tem_ellipsoid_out tem_ellipsoid_out proc~tem_shape_out_scal->interface~tem_ellipsoid_out interface~tem_sphere_out tem_sphere_out proc~tem_shape_out_scal->interface~tem_sphere_out interface~tem_stlhead_out tem_stlHead_out proc~tem_shape_out_scal->interface~tem_stlhead_out interface~tem_triangle_out tem_triangle_out proc~tem_shape_out_scal->interface~tem_triangle_out proc~tem_shape_bclabel_out tem_shape_bcLabel_out proc~tem_shape_out_scal->proc~tem_shape_bclabel_out proc~tem_shape_level_out tem_shape_level_out proc~tem_shape_out_scal->proc~tem_shape_level_out proc~tem_shape_proplabel_out tem_shape_propLabel_out proc~tem_shape_out_scal->proc~tem_shape_proplabel_out proc~tem_canonicalnd_out_scal tem_canonicalND_out_scal interface~tem_canonicalnd_out->proc~tem_canonicalnd_out_scal proc~tem_canonicalnd_out_vec tem_canonicalND_out_vec interface~tem_canonicalnd_out->proc~tem_canonicalnd_out_vec proc~tem_cylinder_out_scal tem_cylinder_out_scal interface~tem_cylinder_out->proc~tem_cylinder_out_scal proc~tem_cylinder_out_vec tem_cylinder_out_vec interface~tem_cylinder_out->proc~tem_cylinder_out_vec proc~tem_ellipsoid_out_scal tem_ellipsoid_out_scal interface~tem_ellipsoid_out->proc~tem_ellipsoid_out_scal proc~tem_ellipsoid_out_vec tem_ellipsoid_out_vec interface~tem_ellipsoid_out->proc~tem_ellipsoid_out_vec proc~tem_sphere_out_scal tem_sphere_out_scal interface~tem_sphere_out->proc~tem_sphere_out_scal proc~tem_sphere_out_vec tem_sphere_out_vec interface~tem_sphere_out->proc~tem_sphere_out_vec proc~tem_stlhead_out_scal tem_stlHead_out_scal interface~tem_stlhead_out->proc~tem_stlhead_out_scal proc~tem_stlhead_out_vec tem_stlHead_out_vec interface~tem_stlhead_out->proc~tem_stlhead_out_vec proc~tem_triangle_out_scal tem_triangle_out_scal interface~tem_triangle_out->proc~tem_triangle_out_scal proc~tem_triangle_out_vec tem_triangle_out_vec interface~tem_triangle_out->proc~tem_triangle_out_vec proc~tem_shape_bclabel_out->aot_out_close_table proc~tem_shape_bclabel_out->aot_out_open_table proc~tem_shape_bclabel_out->aot_out_val proc~tem_shape_level_out->aot_out_close_table proc~tem_shape_level_out->aot_out_open_table proc~tem_shape_level_out->aot_out_val proc~tem_shape_proplabel_out->aot_out_close_table proc~tem_shape_proplabel_out->aot_out_open_table proc~tem_shape_proplabel_out->aot_out_val proc~tem_canonicalnd_out_scal->aot_out_close_table proc~tem_canonicalnd_out_scal->aot_out_open_table proc~tem_canonicalnd_out_scal->aot_out_val proc~tem_canonicalnd_out_vec->aot_out_close_table proc~tem_canonicalnd_out_vec->aot_out_open_table proc~tem_canonicalnd_out_vec->proc~tem_canonicalnd_out_scal proc~tem_cylinder_out_scal->aot_out_close_table proc~tem_cylinder_out_scal->aot_out_open_table proc~tem_cylinder_out_scal->aot_out_val proc~tem_cylinder_out_vec->aot_out_close_table proc~tem_cylinder_out_vec->aot_out_open_table proc~tem_cylinder_out_vec->proc~tem_cylinder_out_scal proc~tem_ellipsoid_out_scal->aot_out_close_table proc~tem_ellipsoid_out_scal->aot_out_open_table proc~tem_ellipsoid_out_scal->aot_out_val proc~tem_ellipsoid_out_vec->aot_out_close_table proc~tem_ellipsoid_out_vec->aot_out_open_table proc~tem_ellipsoid_out_vec->proc~tem_ellipsoid_out_scal proc~tem_sphere_out_scal->aot_out_close_table proc~tem_sphere_out_scal->aot_out_open_table proc~tem_sphere_out_scal->aot_out_val proc~tem_sphere_out_vec->aot_out_close_table proc~tem_sphere_out_vec->aot_out_open_table proc~tem_sphere_out_vec->proc~tem_sphere_out_scal proc~tem_stlhead_out_scal->aot_out_close_table proc~tem_stlhead_out_scal->aot_out_open_table proc~tem_stlhead_out_scal->aot_out_val proc~tem_stlhead_out_vec->aot_out_close_table proc~tem_stlhead_out_vec->aot_out_open_table proc~tem_stlhead_out_vec->proc~tem_stlhead_out_scal proc~tem_triangle_out_scal->aot_out_close_table proc~tem_triangle_out_scal->aot_out_open_table proc~tem_triangle_out_scal->aot_out_val proc~tem_triangle_out_vec->aot_out_close_table proc~tem_triangle_out_vec->aot_out_open_table proc~tem_triangle_out_vec->aot_out_val proc~tem_triangle_out_vec->proc~tem_triangle_out_scal

Called by

proc~~tem_shape_out_vec~~CalledByGraph proc~tem_shape_out_vec tem_shape_out_vec interface~tem_shape_out tem_shape_out interface~tem_shape_out->proc~tem_shape_out_vec proc~hvs_ascii_write_header hvs_ascii_write_header proc~hvs_ascii_write_header->interface~tem_shape_out proc~tem_convergence_out_single tem_convergence_out_single proc~tem_convergence_out_single->interface~tem_shape_out interface~tem_convergence_out tem_convergence_out interface~tem_convergence_out->proc~tem_convergence_out_single proc~tem_convergence_out_vector tem_convergence_out_vector interface~tem_convergence_out->proc~tem_convergence_out_vector proc~hvs_ascii_init hvs_ascii_init proc~hvs_ascii_init->proc~hvs_ascii_write_header proc~hvs_asciispatial_init hvs_asciiSpatial_init proc~hvs_asciispatial_init->proc~hvs_ascii_write_header proc~tem_convergence_dump_single tem_convergence_dump_single proc~tem_convergence_dump_single->proc~tem_convergence_out_single proc~tem_convergence_out_vector->proc~tem_convergence_out_single interface~tem_convergence_dump tem_convergence_dump interface~tem_convergence_dump->proc~tem_convergence_dump_single proc~hvs_output_init hvs_output_init proc~hvs_output_init->proc~hvs_ascii_init proc~hvs_output_init->proc~hvs_asciispatial_init proc~tem_convergence_dump_vector tem_convergence_dump_vector proc~tem_convergence_dump_vector->proc~tem_convergence_out_vector

Source Code

  subroutine tem_shape_out_vec( me, conf )
    !---------------------------------------------------------------------------
    !> shape types to write out
    type( tem_shape_type ), intent(in) :: me(:)
    !> Aotus type handling the output to the file in lua format
    type(aot_out_type), intent(inout) :: conf
    !---------------------------------------------------------------------------
    integer :: iVal
    !---------------------------------------------------------------------------

    ! create a table with name shape if not exist
    if( conf%level .eq. 0 ) then
      call aot_out_open_table( put_conf = conf, tname = 'shape' )
    else
      call aot_out_open_table( put_conf = conf )
    endif

    do iVal = 1, size(me)
      call tem_shape_out_scal( me(iVal), conf )
    end do

    call aot_out_close_table( put_conf = conf )

  end subroutine tem_shape_out_vec