translate_cubesfile Program

Uses

- mod_mathtools
- mod_ioformat

Variables

Type	Attributes		Name		Initial
integer		::	nCub3(3)
integer		::	ii
integer		::	iptr
integer		::	curval
integer		::	nlines
integer		::	nmarked
integer		::	ierr
integer,	allocatable	::	cubesin(:)
integer,	allocatable	::	sortind(:)
integer,	allocatable	::	cubes_filtered(:)
integer,	allocatable	::	imarked(:)
integer,	parameter	::	ifile	=	14
double precision		::	bounds(3,2)

Functions

function get_nFiles()

Arguments

None

Return Value integer

function get_nLines(UIO) result(nLines)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	UIO

Return Value integer

Subroutines

subroutine cubes2VTK(filename, nCub3, nmarked, imarked, bounds)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	filename
integer,	intent(in)			::	nCub3(3)
integer,	intent(in)			::	nmarked
integer,	intent(in)			::	imarked(nmarked)
double precision,	intent(in)			::	bounds(3,2)

subroutine generate_cubevertices(nCub3, cubeid, bounds, kverts)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nCub3(3)
integer,	intent(in)			::	cubeid
double precision,	intent(in)			::	bounds(3,2)
double precision,	intent(out)			::	kverts(3,8)

subroutine unroll_ixyz(ixyz, nCub3, ii3)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ixyz
integer,	intent(in)			::	nCub3(3)
integer,	intent(out)			::	ii3(3)