tem_dump_stlb Subroutine

public subroutine tem_dump_stlb(outprefix, nodes, triangles, proc, header, normals, time)

This routine dumps a set of nodes and triangles to disc.

The nodes and their connectivity are passed to the routine. The normals are passed optional or calculated internally. The outputfile name is composed of the $outprefix,$time,'.stl'.

Arguments

TypeIntentOptionalAttributesName
character(len=*), intent(in) :: outprefix

output prefix for the filename

real(kind=rk), intent(in) :: nodes(:)

nodes to be dumped (size: 3*nNodes)

integer, intent(in) :: triangles(:,:)

triangles to be dumped (size: 3, nTrias)

type(tem_comm_env_type), intent(in) :: proc

process description to use

character(len=80), intent(in), optional :: header

optional header to be dumped

real(kind=rk), intent(in), optional :: normals(:,:)

optional array of normals, if not passed normals will be calculated internally

type(tem_time_type), intent(in), optional :: time

optional simulation time to be appended to the filename


Calls

proc~~tem_dump_stlb~~CallsGraph proc~tem_dump_stlb tem_dump_stlb proc~cross_product3d cross_product3D proc~tem_dump_stlb->proc~cross_product3d proc~tem_open tem_open proc~tem_dump_stlb->proc~tem_open proc~tem_time_sim_stamp tem_time_sim_stamp proc~tem_dump_stlb->proc~tem_time_sim_stamp interface~destroy~15 destroy proc~tem_dump_stlb->interface~destroy~15 mpi_reduce mpi_reduce proc~tem_dump_stlb->mpi_reduce proc~tem_abort tem_abort proc~tem_dump_stlb->proc~tem_abort interface~init~15 init proc~tem_dump_stlb->interface~init~15 interface~append~16 append proc~tem_dump_stlb->interface~append~16 proc~tem_open->proc~tem_abort proc~newunit newunit proc~tem_open->proc~newunit proc~upper_to_lower upper_to_lower proc~tem_open->proc~upper_to_lower proc~destroy_ga2d_real destroy_ga2d_real interface~destroy~15->proc~destroy_ga2d_real mpi_abort mpi_abort proc~tem_abort->mpi_abort proc~init_ga2d_real init_ga2d_real interface~init~15->proc~init_ga2d_real proc~append_arrayga2d_real append_arrayga2d_real interface~append~16->proc~append_arrayga2d_real proc~append_singlega2d_real append_singlega2d_real interface~append~16->proc~append_singlega2d_real interface~expand~14 expand proc~append_arrayga2d_real->interface~expand~14 proc~append_singlega2d_real->interface~expand~14 proc~expand_ga2d_real expand_ga2d_real interface~expand~14->proc~expand_ga2d_real

Contents


Variables

TypeVisibilityAttributesNameInitial
real(kind=single_k), private :: loc_normals(3,size(triangles,2))
integer, private :: iTria
real(kind=rk), private :: a(3)
real(kind=rk), private :: b(3)
character(len=PathLen), private :: filename
integer, private :: outUnit
character(len=80), private :: loc_header
character(len=2), private :: attribute
integer, private :: iError
character(len=12), private :: timeStamp
integer, private :: minPos1
integer, private :: maxPos1
integer, private :: minPos2
integer, private :: maxPos2
integer, private :: minPos3
integer, private :: maxPos3
real(kind=rk), private, allocatable:: dump_nodes(:)
integer, private :: nEntries
real(kind=rk), private :: huge_real
logical, private :: validTria
type(grw_int2darray_type), private :: dump_trias
integer, private :: iPoint