tem_dump_stlb Subroutine

  1. tem_stlbIO_module.f90
  2. tem_stlb_io_module
  3. tem_dump_stlb

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~tem_open tem_open proc~tem_dump_stlb->proc~tem_open mpi_reduce mpi_reduce proc~tem_dump_stlb->mpi_reduce proc~cross_product3d cross_product3D proc~tem_dump_stlb->proc~cross_product3d interface~destroy~15 destroy proc~tem_dump_stlb->interface~destroy~15 interface~init~15 init proc~tem_dump_stlb->interface~init~15 proc~tem_abort tem_abort proc~tem_dump_stlb->proc~tem_abort proc~tem_time_sim_stamp tem_time_sim_stamp proc~tem_dump_stlb->proc~tem_time_sim_stamp interface~append~16 append proc~tem_dump_stlb->interface~append~16 proc~tem_open->proc~tem_abort proc~upper_to_lower upper_to_lower proc~tem_open->proc~upper_to_lower proc~newunit newunit proc~tem_open->proc~newunit proc~destroy_ga2d_real destroy_ga2d_real interface~destroy~15->proc~destroy_ga2d_real proc~init_ga2d_real init_ga2d_real interface~init~15->proc~init_ga2d_real mpi_abort mpi_abort proc~tem_abort->mpi_abort proc~append_singlega2d_real append_singlega2d_real interface~append~16->proc~append_singlega2d_real proc~append_arrayga2d_real append_arrayga2d_real interface~append~16->proc~append_arrayga2d_real interface~expand~14 expand proc~append_singlega2d_real->interface~expand~14 proc~append_arrayga2d_real->interface~expand~14 proc~expand_ga2d_real expand_ga2d_real interface~expand~14->proc~expand_ga2d_real

Contents

Variables


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