tem_shape_out_scal Subroutine

private subroutine tem_shape_out_scal(me, conf)

Write a shape to lua file

Arguments

Type IntentOptional AttributesName
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_scal~~CallsGraph proc~tem_shape_out_scal tem_shape_out_scal proc~aot_out_close_table aot_out_close_table proc~tem_shape_out_scal->proc~aot_out_close_table proc~tem_shape_level_out tem_shape_level_out proc~tem_shape_out_scal->proc~tem_shape_level_out interface~aot_out_val aot_out_val proc~tem_shape_out_scal->interface~aot_out_val interface~tem_canonicalnd_out tem_canonicalND_out proc~tem_shape_out_scal->interface~tem_canonicalnd_out proc~tem_shape_bclabel_out tem_shape_bcLabel_out proc~tem_shape_out_scal->proc~tem_shape_bclabel_out interface~tem_ellipsoid_out tem_ellipsoid_out proc~tem_shape_out_scal->interface~tem_ellipsoid_out interface~tem_triangle_out tem_triangle_out proc~tem_shape_out_scal->interface~tem_triangle_out interface~tem_cylinder_out tem_cylinder_out proc~tem_shape_out_scal->interface~tem_cylinder_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 proc~aot_out_open_table aot_out_open_table proc~tem_shape_out_scal->proc~aot_out_open_table proc~tem_shape_proplabel_out tem_shape_propLabel_out proc~tem_shape_out_scal->proc~tem_shape_proplabel_out proc~tem_shape_level_out->proc~aot_out_close_table proc~tem_shape_level_out->interface~aot_out_val proc~tem_shape_level_out->proc~aot_out_open_table 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_shape_bclabel_out->proc~aot_out_close_table proc~tem_shape_bclabel_out->interface~aot_out_val proc~tem_shape_bclabel_out->proc~aot_out_open_table proc~tem_ellipsoid_out_vec tem_ellipsoid_out_vec interface~tem_ellipsoid_out->proc~tem_ellipsoid_out_vec proc~tem_ellipsoid_out_scal tem_ellipsoid_out_scal interface~tem_ellipsoid_out->proc~tem_ellipsoid_out_scal 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_cylinder_out_vec tem_cylinder_out_vec interface~tem_cylinder_out->proc~tem_cylinder_out_vec proc~tem_cylinder_out_scal tem_cylinder_out_scal interface~tem_cylinder_out->proc~tem_cylinder_out_scal proc~tem_sphere_out_vec tem_sphere_out_vec interface~tem_sphere_out->proc~tem_sphere_out_vec proc~tem_sphere_out_scal tem_sphere_out_scal interface~tem_sphere_out->proc~tem_sphere_out_scal proc~tem_stlhead_out_vec tem_stlHead_out_vec interface~tem_stlhead_out->proc~tem_stlhead_out_vec proc~tem_stlhead_out_scal tem_stlHead_out_scal interface~tem_stlhead_out->proc~tem_stlhead_out_scal proc~tem_shape_proplabel_out->proc~aot_out_close_table proc~tem_shape_proplabel_out->interface~aot_out_val proc~tem_shape_proplabel_out->proc~aot_out_open_table proc~tem_ellipsoid_out_vec->proc~aot_out_close_table proc~tem_ellipsoid_out_vec->proc~aot_out_open_table proc~tem_ellipsoid_out_vec->proc~tem_ellipsoid_out_scal proc~tem_stlhead_out_vec->proc~aot_out_close_table proc~tem_stlhead_out_vec->proc~aot_out_open_table proc~tem_stlhead_out_vec->proc~tem_stlhead_out_scal proc~tem_sphere_out_vec->proc~aot_out_close_table proc~tem_sphere_out_vec->proc~aot_out_open_table proc~tem_sphere_out_vec->proc~tem_sphere_out_scal proc~tem_triangle_out_scal->proc~aot_out_close_table proc~tem_triangle_out_scal->interface~aot_out_val proc~tem_triangle_out_scal->proc~aot_out_open_table proc~tem_canonicalnd_out_scal->proc~aot_out_close_table proc~tem_canonicalnd_out_scal->interface~aot_out_val proc~tem_canonicalnd_out_scal->proc~aot_out_open_table proc~tem_canonicalnd_out_vec->proc~aot_out_close_table proc~tem_canonicalnd_out_vec->proc~aot_out_open_table proc~tem_canonicalnd_out_vec->proc~tem_canonicalnd_out_scal proc~tem_cylinder_out_vec->proc~aot_out_close_table proc~tem_cylinder_out_vec->proc~aot_out_open_table proc~tem_cylinder_out_vec->proc~tem_cylinder_out_scal proc~tem_sphere_out_scal->proc~aot_out_close_table proc~tem_sphere_out_scal->interface~aot_out_val proc~tem_sphere_out_scal->proc~aot_out_open_table proc~tem_cylinder_out_scal->proc~aot_out_close_table proc~tem_cylinder_out_scal->interface~aot_out_val proc~tem_cylinder_out_scal->proc~aot_out_open_table proc~tem_ellipsoid_out_scal->proc~aot_out_close_table proc~tem_ellipsoid_out_scal->interface~aot_out_val proc~tem_ellipsoid_out_scal->proc~aot_out_open_table proc~tem_stlhead_out_scal->proc~aot_out_close_table proc~tem_stlhead_out_scal->interface~aot_out_val proc~tem_stlhead_out_scal->proc~aot_out_open_table proc~tem_triangle_out_vec->proc~aot_out_close_table proc~tem_triangle_out_vec->interface~aot_out_val proc~tem_triangle_out_vec->proc~aot_out_open_table proc~tem_triangle_out_vec->proc~tem_triangle_out_scal

Called by

proc~~tem_shape_out_scal~~CalledByGraph proc~tem_shape_out_scal tem_shape_out_scal interface~tem_shape_out tem_shape_out interface~tem_shape_out->proc~tem_shape_out_scal proc~tem_shape_out_vec tem_shape_out_vec interface~tem_shape_out->proc~tem_shape_out_vec proc~tem_shape_out_vec->proc~tem_shape_out_scal 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 proc~tem_convergence_out_vector tem_convergence_out_vector proc~tem_convergence_out_vector->proc~tem_convergence_out_single 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~hvs_ascii_init hvs_ascii_init proc~hvs_ascii_init->proc~hvs_ascii_write_header interface~tem_convergence_out tem_convergence_out interface~tem_convergence_out->proc~tem_convergence_out_single interface~tem_convergence_out->proc~tem_convergence_out_vector 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_asciispatial_init proc~hvs_output_init->proc~hvs_ascii_init proc~tem_convergence_dump_vector tem_convergence_dump_vector proc~tem_convergence_dump_vector->proc~tem_convergence_out_vector

Contents

Source Code


Source Code

  subroutine tem_shape_out_scal( 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
    !---------------------------------------------------------------------------

    ! 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 )
    end if

    call aot_out_val( put_conf = conf, vname = 'kind', &
      &               val = trim(me%kind) )
    ! choose output shape kind
    select case( trim(me%kind) )
    case('canoND')
      call tem_canonicalND_out(me%canoND, conf)
    case('triangle')
      call tem_triangle_out(me%triangle, conf)
    case('stl')
      call tem_stlHead_out(me%stl_data%head, conf)
    case('sphere')
      call tem_sphere_out(me%sphere, conf)
    case('ellipsoid')
      call tem_ellipsoid_out(me%ellipsoid, conf)
    case('cylinder')
      call tem_cylinder_out(me%cylinder, conf)
    case('property')
      call tem_shape_propLabel_out(me%propBits, conf)
    case('level')
      call tem_shape_level_out(me%minLevel, me%maxLevel, conf)
    case('boundary')
      call tem_shape_bcLabel_out(me%bcLabels, conf)
    end select

    call aot_out_close_table( put_conf = conf )

  end subroutine tem_shape_out_scal