VTK – MUSST

LIBVTKIO is a library of functions for Input and Output pure fortran data (both ascii and binary) in VTK format.

The VTK standard can be separated into two main catagories: the \MaiuscolettoBS{VTK Legacy Standard} and the \MaiuscolettoBS{VTK XML Standard}. The latter is more powerful and will has a stronger support from VTk comunity than legacy standard; XML file format would to be preferred despite the legacy one.

Uses

- IR_VTK
Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Used by

Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Interfaces

VTK_GEO VTK_VAR VTK_GEO_XML VTK_VAR_XML

Functions

GetUnit Upper_Case VTK_INI VTK_GEO_STRP_R8 VTK_GEO_STRP_R4 VTK_GEO_STRG_R8 VTK_GEO_STRG_R4 VTK_GEO_RECT_R8 VTK_GEO_RECT_R4 VTK_GEO_UNST_R8 VTK_GEO_UNST_R4 VTK_CON VTK_DAT VTK_VAR_SCAL_R8 VTK_VAR_SCAL_R4 VTK_VAR_SCAL_I4 VTK_VAR_VECT_R8 VTK_VAR_VECT_R4 VTK_VAR_VECT_I4 VTK_VAR_TEXT_R8 VTK_VAR_TEXT_R4 VTK_END VTK_INI_XML VTK_GEO_XML_STRG_R8 VTK_GEO_XML_STRG_R4 VTK_GEO_XML_RECT_R8 VTK_GEO_XML_RECT_R4 VTK_GEO_XML_UNST_R8 VTK_GEO_XML_UNST_R4 VTK_GEO_XML_CLOSEP VTK_CON_XML VTK_DAT_XML VTK_VAR_XML_SCAL_R8 VTK_VAR_XML_SCAL_R4 VTK_VAR_XML_SCAL_I8 VTK_VAR_XML_SCAL_I4 VTK_VAR_XML_SCAL_I2 VTK_VAR_XML_SCAL_I1 VTK_VAR_XML_VECT_R8 VTK_VAR_XML_VECT_R4 VTK_VAR_XML_VECT_I8 VTK_VAR_XML_VECT_I4 VTK_VAR_XML_VECT_I2 VTK_VAR_XML_VECT_I1 VTK_VAR_XML_LIST_R8 VTK_VAR_XML_LIST_R4 VTK_VAR_XML_LIST_I8 VTK_VAR_XML_LIST_I4 VTK_VAR_XML_LIST_I2 VTK_VAR_XML_LIST_I1 VTK_END_XML VTM_INI_XML VTM_BLK_XML VTM_WRF_XML VTM_END_XML

Variables

Type	Visibility	Attributes		Name		Initial
integer(kind=I4P),	private,	parameter	::	maxlen	=	500
character(len=1),	private,	parameter	::	end_rec	=	char(10)
integer(kind=I4P),	private,	parameter	::	f_out_ascii	=	0
integer(kind=I4P),	private,	parameter	::	f_out_binary	=	1
integer(kind=I4P),	private		::	f_out	=	f_out_ascii
character(len=maxlen),	private		::	topology
integer(kind=I4P),	private		::	Unit_VTK
integer(kind=I4P),	private		::	Unit_VTK_Append
integer(kind=I4P),	private		::	N_Byte
real(kind=R8P),	private		::	Tipo_R8	=	1._R8P
real(kind=R4P),	private		::	Tipo_R4	=	1._R4P
integer(kind=I8P),	private		::	Tipo_I8	=	1_I8P
integer(kind=I4P),	private		::	Tipo_I4	=	1_I4P
integer(kind=I2P),	private		::	Tipo_I2	=	1_I2P
integer(kind=I1P),	private		::	Tipo_I1	=	1_I1P
integer(kind=I8P),	private		::	ioffset
integer(kind=I4P),	private		::	indent
integer(kind=I4P),	private		::	Unit_VTM
integer(kind=I4P),	private		::	blk
integer(kind=I4P),	private		::	vtm_indent

Interfaces

public interface VTK_GEO

private function VTK_GEO_UNST_R8(NN, X, Y, Z) result(E_IO)

Function for saving mesh; topology = UNSTRUCTURED_GRID (R8P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NN
real(kind=R8P),	intent(in)	::	X(1:NN)
real(kind=R8P),	intent(in)	::	Y(1:NN)
real(kind=R8P),	intent(in)	::	Z(1:NN)

Return Value integer(kind=I4P)

private function VTK_GEO_UNST_R4(NN, X, Y, Z) result(E_IO)

Function for saving mesh; topology = UNSTRUCTURED_GRID (R4P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NN
real(kind=R4P),	intent(in)	::	X(1:NN)
real(kind=R4P),	intent(in)	::	Y(1:NN)
real(kind=R4P),	intent(in)	::	Z(1:NN)

Return Value integer(kind=I4P)

private function VTK_GEO_STRP_R8(Nx, Ny, Nz, X0, Y0, Z0, Dx, Dy, Dz) result(E_IO)

Function for saving mesh; topology = STRUCTURED_POINTS (R8P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	Nx
integer(kind=I4P),	intent(in)	::	Ny
integer(kind=I4P),	intent(in)	::	Nz
real(kind=R8P),	intent(in)	::	X0
real(kind=R8P),	intent(in)	::	Y0
real(kind=R8P),	intent(in)	::	Z0
real(kind=R8P),	intent(in)	::	Dx
real(kind=R8P),	intent(in)	::	Dy
real(kind=R8P),	intent(in)	::	Dz

Return Value integer(kind=I4P)

private function VTK_GEO_STRP_R4(Nx, Ny, Nz, X0, Y0, Z0, Dx, Dy, Dz) result(E_IO)

Function for saving mesh; topology = STRUCTURED_POINTS (R4P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	Nx
integer(kind=I4P),	intent(in)	::	Ny
integer(kind=I4P),	intent(in)	::	Nz
real(kind=R4P),	intent(in)	::	X0
real(kind=R4P),	intent(in)	::	Y0
real(kind=R4P),	intent(in)	::	Z0
real(kind=R4P),	intent(in)	::	Dx
real(kind=R4P),	intent(in)	::	Dy
real(kind=R4P),	intent(in)	::	Dz

Return Value integer(kind=I4P)

private function VTK_GEO_STRG_R8(Nx, Ny, Nz, NN, X, Y, Z) result(E_IO)

Function for saving mesh; topology = STRUCTURED_GRID (R8P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	Nx
integer(kind=I4P),	intent(in)	::	Ny
integer(kind=I4P),	intent(in)	::	Nz
integer(kind=I4P),	intent(in)	::	NN
real(kind=R8P),	intent(in)	::	X(1:NN)
real(kind=R8P),	intent(in)	::	Y(1:NN)
real(kind=R8P),	intent(in)	::	Z(1:NN)

Return Value integer(kind=I4P)

private function VTK_GEO_STRG_R4(Nx, Ny, Nz, NN, X, Y, Z) result(E_IO)

Function for saving mesh; topology = STRUCTURED_GRID (R4P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	Nx
integer(kind=I4P),	intent(in)	::	Ny
integer(kind=I4P),	intent(in)	::	Nz
integer(kind=I4P),	intent(in)	::	NN
real(kind=R4P),	intent(in)	::	X(1:NN)
real(kind=R4P),	intent(in)	::	Y(1:NN)
real(kind=R4P),	intent(in)	::	Z(1:NN)

Return Value integer(kind=I4P)

private function VTK_GEO_RECT_R8(Nx, Ny, Nz, X, Y, Z) result(E_IO)

Function for saving mesh; topology = RECTILINEAR_GRID (R8P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	Nx
integer(kind=I4P),	intent(in)	::	Ny
integer(kind=I4P),	intent(in)	::	Nz
real(kind=R8P),	intent(in)	::	X(1:Nx)
real(kind=R8P),	intent(in)	::	Y(1:Ny)
real(kind=R8P),	intent(in)	::	Z(1:Nz)

Return Value integer(kind=I4P)

private function VTK_GEO_RECT_R4(Nx, Ny, Nz, X, Y, Z) result(E_IO)

Function for saving mesh; topology = RECTILINEAR_GRID (R4P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	Nx
integer(kind=I4P),	intent(in)	::	Ny
integer(kind=I4P),	intent(in)	::	Nz
real(kind=R4P),	intent(in)	::	X(1:Nx)
real(kind=R4P),	intent(in)	::	Y(1:Ny)
real(kind=R4P),	intent(in)	::	Z(1:Nz)

Return Value integer(kind=I4P)

public interface VTK_VAR

private function VTK_VAR_SCAL_R8(NC_NN, varname, var) result(E_IO)

Function for saving field of scalar variable (R8P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
character(len=*),	intent(in)	::	varname
real(kind=R8P),	intent(in)	::	var(1:NC_NN)

Return Value integer(kind=I4P)

private function VTK_VAR_SCAL_R4(NC_NN, varname, var) result(E_IO)

Function for saving field of scalar variable (R4P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
character(len=*),	intent(in)	::	varname
real(kind=R4P),	intent(in)	::	var(1:NC_NN)

Return Value integer(kind=I4P)

private function VTK_VAR_SCAL_I4(NC_NN, varname, var) result(E_IO)

Function for saving field of scalar variable (I4P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
character(len=*),	intent(in)	::	varname
integer(kind=I4P),	intent(in)	::	var(1:NC_NN)

Return Value integer(kind=I4P)

private function VTK_VAR_VECT_R8(vec_type, NC_NN, varname, varX, varY, varZ) result(E_IO)

Function for saving field of vectorial variable (R8P).

Arguments

Type	Intent		Name
character(len=*),	intent(in)	::	vec_type
integer(kind=I4P),	intent(in)	::	NC_NN
character(len=*),	intent(in)	::	varname
real(kind=R8P),	intent(in)	::	varX(1:NC_NN)
real(kind=R8P),	intent(in)	::	varY(1:NC_NN)
real(kind=R8P),	intent(in)	::	varZ(1:NC_NN)

Return Value integer(kind=I4P)

private function VTK_VAR_VECT_R4(vec_type, NC_NN, varname, varX, varY, varZ) result(E_IO)

Function for saving field of vectorial variable (R4P).

Arguments

Type	Intent		Name
character(len=*),	intent(in)	::	vec_type
integer(kind=I4P),	intent(in)	::	NC_NN
character(len=*),	intent(in)	::	varname
real(kind=R4P),	intent(in)	::	varX(1:NC_NN)
real(kind=R4P),	intent(in)	::	varY(1:NC_NN)
real(kind=R4P),	intent(in)	::	varZ(1:NC_NN)

Return Value integer(kind=I4P)

private function VTK_VAR_VECT_I4(NC_NN, varname, varX, varY, varZ) result(E_IO)

Function for saving field of vectorial variable (I4P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
character(len=*),	intent(in)	::	varname
integer(kind=I4P),	intent(in)	::	varX(1:NC_NN)
integer(kind=I4P),	intent(in)	::	varY(1:NC_NN)
integer(kind=I4P),	intent(in)	::	varZ(1:NC_NN)

Return Value integer(kind=I4P)

private function VTK_VAR_TEXT_R8(NC_NN, dimm, varname, textCoo) result(E_IO)

Function for saving texture variable (R8P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
integer(kind=I4P),	intent(in)	::	dimm
character(len=*),	intent(in)	::	varname
real(kind=R8P),	intent(in)	::	textCoo(1:NC_NN,1:dimm)

Return Value integer(kind=I4P)

private function VTK_VAR_TEXT_R4(NC_NN, dimm, varname, textCoo) result(E_IO)

Function for saving texture variable (R4P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
integer(kind=I4P),	intent(in)	::	dimm
character(len=*),	intent(in)	::	varname
real(kind=R4P),	intent(in)	::	textCoo(1:NC_NN,1:dimm)

Return Value integer(kind=I4P)

public interface VTK_GEO_XML

private function VTK_GEO_XML_STRG_R4(nx1, nx2, ny1, ny2, nz1, nz2, NN, X, Y, Z) result(E_IO)

Function for saving mesh; topology = StructuredGrid (R4P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	nx1
integer(kind=I4P),	intent(in)	::	nx2
integer(kind=I4P),	intent(in)	::	ny1
integer(kind=I4P),	intent(in)	::	ny2
integer(kind=I4P),	intent(in)	::	nz1
integer(kind=I4P),	intent(in)	::	nz2
integer(kind=I4P),	intent(in)	::	NN
real(kind=R4P),	intent(in)	::	X(1:NN)
real(kind=R4P),	intent(in)	::	Y(1:NN)
real(kind=R4P),	intent(in)	::	Z(1:NN)

Return Value integer(kind=I4P)

private function VTK_GEO_XML_STRG_R8(nx1, nx2, ny1, ny2, nz1, nz2, NN, X, Y, Z) result(E_IO)

Function for saving mesh; topology = StructuredGrid (R8P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	nx1
integer(kind=I4P),	intent(in)	::	nx2
integer(kind=I4P),	intent(in)	::	ny1
integer(kind=I4P),	intent(in)	::	ny2
integer(kind=I4P),	intent(in)	::	nz1
integer(kind=I4P),	intent(in)	::	nz2
integer(kind=I4P),	intent(in)	::	NN
real(kind=R8P),	intent(in)	::	X(1:NN)
real(kind=R8P),	intent(in)	::	Y(1:NN)
real(kind=R8P),	intent(in)	::	Z(1:NN)

Return Value integer(kind=I4P)

private function VTK_GEO_XML_RECT_R8(nx1, nx2, ny1, ny2, nz1, nz2, X, Y, Z) result(E_IO)

Function for saving mesh; topology = RectilinearGrid (R8P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	nx1
integer(kind=I4P),	intent(in)	::	nx2
integer(kind=I4P),	intent(in)	::	ny1
integer(kind=I4P),	intent(in)	::	ny2
integer(kind=I4P),	intent(in)	::	nz1
integer(kind=I4P),	intent(in)	::	nz2
real(kind=R8P),	intent(in)	::	X(nx1:nx2)
real(kind=R8P),	intent(in)	::	Y(ny1:ny2)
real(kind=R8P),	intent(in)	::	Z(nz1:nz2)

Return Value integer(kind=I4P)

private function VTK_GEO_XML_RECT_R4(nx1, nx2, ny1, ny2, nz1, nz2, X, Y, Z) result(E_IO)

Function for saving mesh; topology = RectilinearGrid (R4P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	nx1
integer(kind=I4P),	intent(in)	::	nx2
integer(kind=I4P),	intent(in)	::	ny1
integer(kind=I4P),	intent(in)	::	ny2
integer(kind=I4P),	intent(in)	::	nz1
integer(kind=I4P),	intent(in)	::	nz2
real(kind=R4P),	intent(in)	::	X(nx1:nx2)
real(kind=R4P),	intent(in)	::	Y(ny1:ny2)
real(kind=R4P),	intent(in)	::	Z(nz1:nz2)

Return Value integer(kind=I4P)

private function VTK_GEO_XML_UNST_R8(NN, NC, X, Y, Z) result(E_IO)

Function for saving mesh; topology = UnstructuredGrid (R8P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NN
integer(kind=I4P),	intent(in)	::	NC
real(kind=R8P),	intent(in)	::	X(1:NN)
real(kind=R8P),	intent(in)	::	Y(1:NN)
real(kind=R8P),	intent(in)	::	Z(1:NN)

Return Value integer(kind=I4P)

private function VTK_GEO_XML_UNST_R4(NN, NC, X, Y, Z) result(E_IO)

Function for saving mesh; topology = UnstructuredGrid (R4P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NN
integer(kind=I4P),	intent(in)	::	NC
real(kind=R4P),	intent(in)	::	X(1:NN)
real(kind=R4P),	intent(in)	::	Y(1:NN)
real(kind=R4P),	intent(in)	::	Z(1:NN)

Return Value integer(kind=I4P)

private function VTK_GEO_XML_CLOSEP() result(E_IO)

Function for closing mesh block data.

Arguments
None
Return Value integer(kind=I4P)

public interface VTK_VAR_XML

private function VTK_VAR_XML_SCAL_R8(NC_NN, varname, var) result(E_IO)

Function for saving scalar variable (R8P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
character(len=*),	intent(in)	::	varname
real(kind=R8P),	intent(in)	::	var(1:NC_NN)

Return Value integer(kind=I4P)

private function VTK_VAR_XML_SCAL_R4(NC_NN, varname, var) result(E_IO)

Function for saving scalar variable (R4P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
character(len=*),	intent(in)	::	varname
real(kind=R4P),	intent(in)	::	var(1:NC_NN)

Return Value integer(kind=I4P)

private function VTK_VAR_XML_SCAL_I8(NC_NN, varname, var) result(E_IO)

Function for saving scalar variable (I8P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
character(len=*),	intent(in)	::	varname
integer(kind=I8P),	intent(in)	::	var(1:NC_NN)

Return Value integer(kind=I4P)

private function VTK_VAR_XML_SCAL_I4(NC_NN, varname, var) result(E_IO)

Function for saving scalar variable (I4P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
character(len=*),	intent(in)	::	varname
integer(kind=I4P),	intent(in)	::	var(1:NC_NN)

Return Value integer(kind=I4P)

private function VTK_VAR_XML_SCAL_I2(NC_NN, varname, var) result(E_IO)

Function for saving scalar variable (I2P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
character(len=*),	intent(in)	::	varname
integer(kind=I2P),	intent(in)	::	var(1:NC_NN)

Return Value integer(kind=I4P)

private function VTK_VAR_XML_SCAL_I1(NC_NN, varname, var) result(E_IO)

Function for saving scalar variable (I1P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
character(len=*),	intent(in)	::	varname
integer(kind=I1P),	intent(in)	::	var(1:NC_NN)

Return Value integer(kind=I4P)

private function VTK_VAR_XML_VECT_R8(NC_NN, varname, varX, varY, varZ) result(E_IO)

Function for saving vectorial variable (R8P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
character(len=*),	intent(in)	::	varname
real(kind=R8P),	intent(in)	::	varX(1:NC_NN)
real(kind=R8P),	intent(in)	::	varY(1:NC_NN)
real(kind=R8P),	intent(in)	::	varZ(1:NC_NN)

Return Value integer(kind=I4P)

private function VTK_VAR_XML_VECT_R4(NC_NN, varname, varX, varY, varZ) result(E_IO)

Function for saving vectorial variable (R4P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
character(len=*),	intent(in)	::	varname
real(kind=R4P),	intent(in)	::	varX(1:NC_NN)
real(kind=R4P),	intent(in)	::	varY(1:NC_NN)
real(kind=R4P),	intent(in)	::	varZ(1:NC_NN)

Return Value integer(kind=I4P)

private function VTK_VAR_XML_VECT_I8(NC_NN, varname, varX, varY, varZ) result(E_IO)

Function for saving vectorial variable (I8P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
character(len=*),	intent(in)	::	varname
integer(kind=I8P),	intent(in)	::	varX(1:NC_NN)
integer(kind=I8P),	intent(in)	::	varY(1:NC_NN)
integer(kind=I8P),	intent(in)	::	varZ(1:NC_NN)

Return Value integer(kind=I4P)

private function VTK_VAR_XML_VECT_I4(NC_NN, varname, varX, varY, varZ) result(E_IO)

Function for saving vectorial variable (I4P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
character(len=*),	intent(in)	::	varname
integer(kind=I4P),	intent(in)	::	varX(1:NC_NN)
integer(kind=I4P),	intent(in)	::	varY(1:NC_NN)
integer(kind=I4P),	intent(in)	::	varZ(1:NC_NN)

Return Value integer(kind=I4P)

private function VTK_VAR_XML_VECT_I2(NC_NN, varname, varX, varY, varZ) result(E_IO)

Function for saving vectorial variable (I2P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
character(len=*),	intent(in)	::	varname
integer(kind=I2P),	intent(in)	::	varX(1:NC_NN)
integer(kind=I2P),	intent(in)	::	varY(1:NC_NN)
integer(kind=I2P),	intent(in)	::	varZ(1:NC_NN)

Return Value integer(kind=I4P)

private function VTK_VAR_XML_VECT_I1(NC_NN, varname, varX, varY, varZ) result(E_IO)

Function for saving vectorial variable (I1P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
character(len=*),	intent(in)	::	varname
integer(kind=I1P),	intent(in)	::	varX(1:NC_NN)
integer(kind=I1P),	intent(in)	::	varY(1:NC_NN)
integer(kind=I1P),	intent(in)	::	varZ(1:NC_NN)

Return Value integer(kind=I4P)

private function VTK_VAR_XML_LIST_R8(NC_NN, N_COL, varname, var) result(E_IO)

Function for saving list variable (R8P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
integer(kind=I4P),	intent(in)	::	N_COL
character(len=*),	intent(in)	::	varname
real(kind=R8P),	intent(in)	::	var(1:NC_NN,1:N_COL)

Return Value integer(kind=I4P)

private function VTK_VAR_XML_LIST_R4(NC_NN, N_COL, varname, var) result(E_IO)

Function for saving list variable (R4P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
integer(kind=I4P),	intent(in)	::	N_COL
character(len=*),	intent(in)	::	varname
real(kind=R4P),	intent(in)	::	var(1:NC_NN,1:N_COL)

Return Value integer(kind=I4P)

private function VTK_VAR_XML_LIST_I8(NC_NN, N_COL, varname, var) result(E_IO)

Function for saving list variable (I8P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
integer(kind=I4P),	intent(in)	::	N_COL
character(len=*),	intent(in)	::	varname
integer(kind=I8P),	intent(in)	::	var(1:NC_NN,1:N_COL)

Return Value integer(kind=I4P)

private function VTK_VAR_XML_LIST_I4(NC_NN, N_COL, varname, var) result(E_IO)

Function for saving list variable (I4P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
integer(kind=I4P),	intent(in)	::	N_COL
character(len=*),	intent(in)	::	varname
integer(kind=I4P),	intent(in)	::	var(1:NC_NN,1:N_COL)

Return Value integer(kind=I4P)

private function VTK_VAR_XML_LIST_I2(NC_NN, N_COL, varname, var) result(E_IO)

Function for saving list variable (I2P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
integer(kind=I4P),	intent(in)	::	N_COL
character(len=*),	intent(in)	::	varname
integer(kind=I2P),	intent(in)	::	var(1:NC_NN,1:N_COL)

Return Value integer(kind=I4P)

private function VTK_VAR_XML_LIST_I1(NC_NN, N_COL, varname, var) result(E_IO)

Function for saving list variable (I1P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
integer(kind=I4P),	intent(in)	::	N_COL
character(len=*),	intent(in)	::	varname
integer(kind=I1P),	intent(in)	::	var(1:NC_NN,1:N_COL)

Return Value integer(kind=I4P)

Functions

private function GetUnit() result(Free_Unit)

The GetUnit function is used for getting a free logic unit. The users of \LIBVTKIO does not know which is the logical unit: \LIBVTKIO handels this information without boring the users. The logical unit used is safe-free: if the program calling \LIBVTKIO has others logical units used \LIBVTKIO will never use these units, but will choice one that is free.

Arguments

None

Return Value integer(kind=I4P)

private function Upper_Case(string)

The Upper_Case function converts the lower case characters of a string to upper case one. \LIBVTKIO uses this function in order to achieve case-insensitive: all character variables used within \LIBVTKIO functions are pre-processed by Uppper_Case function before these variables are used. So the users can call \LIBVTKIO functions whitout pay attention of the case of the kwywords passed to the functions: calling the function VTK_INI with the string \code{E_IO = VTK_INI('Ascii',…)} or with the string \code{E_IO = VTK_INI('AscII',…)} is equivalent.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	string

Return Value character(len=len(string))

public function VTK_INI(output_format, filename, title, mesh_topology) result(E_IO)

The VTK_INI function is used for initializing file. This function must be the first to be called.

Arguments

Type	Intent		Name
character(len=*),	intent(in)	::	output_format
character(len=*),	intent(in)	::	filename
character(len=*),	intent(in)	::	title
character(len=*),	intent(in)	::	mesh_topology

Return Value integer(kind=I4P)

The VTK_INI variables have the following meaning:

private function VTK_GEO_STRP_R8(Nx, Ny, Nz, X0, Y0, Z0, Dx, Dy, Dz) result(E_IO)

Function for saving mesh; topology = STRUCTURED_POINTS (R8P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	Nx
integer(kind=I4P),	intent(in)	::	Ny
integer(kind=I4P),	intent(in)	::	Nz
real(kind=R8P),	intent(in)	::	X0
real(kind=R8P),	intent(in)	::	Y0
real(kind=R8P),	intent(in)	::	Z0
real(kind=R8P),	intent(in)	::	Dx
real(kind=R8P),	intent(in)	::	Dy
real(kind=R8P),	intent(in)	::	Dz

Return Value integer(kind=I4P)

private function VTK_GEO_STRP_R4(Nx, Ny, Nz, X0, Y0, Z0, Dx, Dy, Dz) result(E_IO)

Function for saving mesh; topology = STRUCTURED_POINTS (R4P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	Nx
integer(kind=I4P),	intent(in)	::	Ny
integer(kind=I4P),	intent(in)	::	Nz
real(kind=R4P),	intent(in)	::	X0
real(kind=R4P),	intent(in)	::	Y0
real(kind=R4P),	intent(in)	::	Z0
real(kind=R4P),	intent(in)	::	Dx
real(kind=R4P),	intent(in)	::	Dy
real(kind=R4P),	intent(in)	::	Dz

Return Value integer(kind=I4P)

private function VTK_GEO_STRG_R8(Nx, Ny, Nz, NN, X, Y, Z) result(E_IO)

Function for saving mesh; topology = STRUCTURED_GRID (R8P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	Nx
integer(kind=I4P),	intent(in)	::	Ny
integer(kind=I4P),	intent(in)	::	Nz
integer(kind=I4P),	intent(in)	::	NN
real(kind=R8P),	intent(in)	::	X(1:NN)
real(kind=R8P),	intent(in)	::	Y(1:NN)
real(kind=R8P),	intent(in)	::	Z(1:NN)

Return Value integer(kind=I4P)

private function VTK_GEO_STRG_R4(Nx, Ny, Nz, NN, X, Y, Z) result(E_IO)

Function for saving mesh; topology = STRUCTURED_GRID (R4P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	Nx
integer(kind=I4P),	intent(in)	::	Ny
integer(kind=I4P),	intent(in)	::	Nz
integer(kind=I4P),	intent(in)	::	NN
real(kind=R4P),	intent(in)	::	X(1:NN)
real(kind=R4P),	intent(in)	::	Y(1:NN)
real(kind=R4P),	intent(in)	::	Z(1:NN)

Return Value integer(kind=I4P)

private function VTK_GEO_RECT_R8(Nx, Ny, Nz, X, Y, Z) result(E_IO)

Function for saving mesh; topology = RECTILINEAR_GRID (R8P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	Nx
integer(kind=I4P),	intent(in)	::	Ny
integer(kind=I4P),	intent(in)	::	Nz
real(kind=R8P),	intent(in)	::	X(1:Nx)
real(kind=R8P),	intent(in)	::	Y(1:Ny)
real(kind=R8P),	intent(in)	::	Z(1:Nz)

Return Value integer(kind=I4P)

private function VTK_GEO_RECT_R4(Nx, Ny, Nz, X, Y, Z) result(E_IO)

Function for saving mesh; topology = RECTILINEAR_GRID (R4P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	Nx
integer(kind=I4P),	intent(in)	::	Ny
integer(kind=I4P),	intent(in)	::	Nz
real(kind=R4P),	intent(in)	::	X(1:Nx)
real(kind=R4P),	intent(in)	::	Y(1:Ny)
real(kind=R4P),	intent(in)	::	Z(1:Nz)

Return Value integer(kind=I4P)

private function VTK_GEO_UNST_R8(NN, X, Y, Z) result(E_IO)

Function for saving mesh; topology = UNSTRUCTURED_GRID (R8P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NN
real(kind=R8P),	intent(in)	::	X(1:NN)
real(kind=R8P),	intent(in)	::	Y(1:NN)
real(kind=R8P),	intent(in)	::	Z(1:NN)

Return Value integer(kind=I4P)

private function VTK_GEO_UNST_R4(NN, X, Y, Z) result(E_IO)

Function for saving mesh; topology = UNSTRUCTURED_GRID (R4P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NN
real(kind=R4P),	intent(in)	::	X(1:NN)
real(kind=R4P),	intent(in)	::	Y(1:NN)
real(kind=R4P),	intent(in)	::	Z(1:NN)

Return Value integer(kind=I4P)

public function VTK_CON(NC, connect, cell_type) result(E_IO)

This function \MaiuscolettoBS{must} be used when unstructured grid is used. It saves the connectivity of the unstructured mesh.

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC
integer(kind=I4P),	intent(in)	::	connect(:)
integer(kind=I4P),	intent(in)	::	cell_type(1:NC)

Return Value integer(kind=I4P)

public function VTK_DAT(NC_NN, var_location) result(E_IO)

This function \MaiuscolettoBS{must} be called before saving the data related to geometric mesh. This function initializes the saving of data variables indicating the \emph{type} of variables that will be saved.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=I4P),	intent(in)			::	NC_NN
character(len=*),	intent(in)			::	var_location

Return Value integer(kind=I4P)

private function VTK_VAR_SCAL_R8(NC_NN, varname, var) result(E_IO)

Function for saving field of scalar variable (R8P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
character(len=*),	intent(in)	::	varname
real(kind=R8P),	intent(in)	::	var(1:NC_NN)

Return Value integer(kind=I4P)

private function VTK_VAR_SCAL_R4(NC_NN, varname, var) result(E_IO)

Function for saving field of scalar variable (R4P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
character(len=*),	intent(in)	::	varname
real(kind=R4P),	intent(in)	::	var(1:NC_NN)

Return Value integer(kind=I4P)

private function VTK_VAR_SCAL_I4(NC_NN, varname, var) result(E_IO)

Function for saving field of scalar variable (I4P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
character(len=*),	intent(in)	::	varname
integer(kind=I4P),	intent(in)	::	var(1:NC_NN)

Return Value integer(kind=I4P)

private function VTK_VAR_VECT_R8(vec_type, NC_NN, varname, varX, varY, varZ) result(E_IO)

Function for saving field of vectorial variable (R8P).

Arguments

Type	Intent		Name
character(len=*),	intent(in)	::	vec_type
integer(kind=I4P),	intent(in)	::	NC_NN
character(len=*),	intent(in)	::	varname
real(kind=R8P),	intent(in)	::	varX(1:NC_NN)
real(kind=R8P),	intent(in)	::	varY(1:NC_NN)
real(kind=R8P),	intent(in)	::	varZ(1:NC_NN)

Return Value integer(kind=I4P)

private function VTK_VAR_VECT_R4(vec_type, NC_NN, varname, varX, varY, varZ) result(E_IO)

Function for saving field of vectorial variable (R4P).

Arguments

Type	Intent		Name
character(len=*),	intent(in)	::	vec_type
integer(kind=I4P),	intent(in)	::	NC_NN
character(len=*),	intent(in)	::	varname
real(kind=R4P),	intent(in)	::	varX(1:NC_NN)
real(kind=R4P),	intent(in)	::	varY(1:NC_NN)
real(kind=R4P),	intent(in)	::	varZ(1:NC_NN)

Return Value integer(kind=I4P)

private function VTK_VAR_VECT_I4(NC_NN, varname, varX, varY, varZ) result(E_IO)

Function for saving field of vectorial variable (I4P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
character(len=*),	intent(in)	::	varname
integer(kind=I4P),	intent(in)	::	varX(1:NC_NN)
integer(kind=I4P),	intent(in)	::	varY(1:NC_NN)
integer(kind=I4P),	intent(in)	::	varZ(1:NC_NN)

Return Value integer(kind=I4P)

private function VTK_VAR_TEXT_R8(NC_NN, dimm, varname, textCoo) result(E_IO)

Function for saving texture variable (R8P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
integer(kind=I4P),	intent(in)	::	dimm
character(len=*),	intent(in)	::	varname
real(kind=R8P),	intent(in)	::	textCoo(1:NC_NN,1:dimm)

Return Value integer(kind=I4P)

private function VTK_VAR_TEXT_R4(NC_NN, dimm, varname, textCoo) result(E_IO)

Function for saving texture variable (R4P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
integer(kind=I4P),	intent(in)	::	dimm
character(len=*),	intent(in)	::	varname
real(kind=R4P),	intent(in)	::	textCoo(1:NC_NN,1:dimm)

Return Value integer(kind=I4P)

public function VTK_END() result(E_IO)

This function is used to finalize the file opened and it has not inputs. The \LIBVTKIO manages the file unit without the user's action.

Arguments

None

Return Value integer(kind=I4P)

The VTK_END variables have the following meaning:

public function VTK_INI_XML(output_format, filename, mesh_topology, nx1, nx2, ny1, ny2, nz1, nz2) result(E_IO)

The VTK_INI_XML function is used for initializing file. This function must be the first to be called.

Arguments

Type	Intent	Optional		Name
character(len=*),	intent(in)		::	output_format
character(len=*),	intent(in)		::	filename
character(len=*),	intent(in)		::	mesh_topology
integer(kind=I4P),	intent(in),	optional	::	nx1
integer(kind=I4P),	intent(in),	optional	::	nx2
integer(kind=I4P),	intent(in),	optional	::	ny1
integer(kind=I4P),	intent(in),	optional	::	ny2
integer(kind=I4P),	intent(in),	optional	::	nz1
integer(kind=I4P),	intent(in),	optional	::	nz2

Return Value integer(kind=I4P)

private function VTK_GEO_XML_STRG_R8(nx1, nx2, ny1, ny2, nz1, nz2, NN, X, Y, Z) result(E_IO)

Function for saving mesh; topology = StructuredGrid (R8P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	nx1
integer(kind=I4P),	intent(in)	::	nx2
integer(kind=I4P),	intent(in)	::	ny1
integer(kind=I4P),	intent(in)	::	ny2
integer(kind=I4P),	intent(in)	::	nz1
integer(kind=I4P),	intent(in)	::	nz2
integer(kind=I4P),	intent(in)	::	NN
real(kind=R8P),	intent(in)	::	X(1:NN)
real(kind=R8P),	intent(in)	::	Y(1:NN)
real(kind=R8P),	intent(in)	::	Z(1:NN)

Return Value integer(kind=I4P)

private function VTK_GEO_XML_STRG_R4(nx1, nx2, ny1, ny2, nz1, nz2, NN, X, Y, Z) result(E_IO)

Function for saving mesh; topology = StructuredGrid (R4P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	nx1
integer(kind=I4P),	intent(in)	::	nx2
integer(kind=I4P),	intent(in)	::	ny1
integer(kind=I4P),	intent(in)	::	ny2
integer(kind=I4P),	intent(in)	::	nz1
integer(kind=I4P),	intent(in)	::	nz2
integer(kind=I4P),	intent(in)	::	NN
real(kind=R4P),	intent(in)	::	X(1:NN)
real(kind=R4P),	intent(in)	::	Y(1:NN)
real(kind=R4P),	intent(in)	::	Z(1:NN)

Return Value integer(kind=I4P)

private function VTK_GEO_XML_RECT_R8(nx1, nx2, ny1, ny2, nz1, nz2, X, Y, Z) result(E_IO)

Function for saving mesh; topology = RectilinearGrid (R8P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	nx1
integer(kind=I4P),	intent(in)	::	nx2
integer(kind=I4P),	intent(in)	::	ny1
integer(kind=I4P),	intent(in)	::	ny2
integer(kind=I4P),	intent(in)	::	nz1
integer(kind=I4P),	intent(in)	::	nz2
real(kind=R8P),	intent(in)	::	X(nx1:nx2)
real(kind=R8P),	intent(in)	::	Y(ny1:ny2)
real(kind=R8P),	intent(in)	::	Z(nz1:nz2)

Return Value integer(kind=I4P)

private function VTK_GEO_XML_RECT_R4(nx1, nx2, ny1, ny2, nz1, nz2, X, Y, Z) result(E_IO)

Function for saving mesh; topology = RectilinearGrid (R4P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	nx1
integer(kind=I4P),	intent(in)	::	nx2
integer(kind=I4P),	intent(in)	::	ny1
integer(kind=I4P),	intent(in)	::	ny2
integer(kind=I4P),	intent(in)	::	nz1
integer(kind=I4P),	intent(in)	::	nz2
real(kind=R4P),	intent(in)	::	X(nx1:nx2)
real(kind=R4P),	intent(in)	::	Y(ny1:ny2)
real(kind=R4P),	intent(in)	::	Z(nz1:nz2)

Return Value integer(kind=I4P)

private function VTK_GEO_XML_UNST_R8(NN, NC, X, Y, Z) result(E_IO)

Function for saving mesh; topology = UnstructuredGrid (R8P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NN
integer(kind=I4P),	intent(in)	::	NC
real(kind=R8P),	intent(in)	::	X(1:NN)
real(kind=R8P),	intent(in)	::	Y(1:NN)
real(kind=R8P),	intent(in)	::	Z(1:NN)

Return Value integer(kind=I4P)

private function VTK_GEO_XML_UNST_R4(NN, NC, X, Y, Z) result(E_IO)

Function for saving mesh; topology = UnstructuredGrid (R4P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NN
integer(kind=I4P),	intent(in)	::	NC
real(kind=R4P),	intent(in)	::	X(1:NN)
real(kind=R4P),	intent(in)	::	Y(1:NN)
real(kind=R4P),	intent(in)	::	Z(1:NN)

Return Value integer(kind=I4P)

private function VTK_GEO_XML_CLOSEP() result(E_IO)

Function for closing mesh block data.

Arguments

None

Return Value integer(kind=I4P)

public function VTK_CON_XML(NC, connect, offset, cell_type) result(E_IO)

This function \MaiuscolettoBS{must} be used when unstructured grid is used. It saves the connectivity of the unstructured mesh.

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC
integer(kind=I4P),	intent(in)	::	connect(:)
integer(kind=I4P),	intent(in)	::	offset(1:NC)
integer(kind=I1P),	intent(in)	::	cell_type(1:NC)

Return Value integer(kind=I4P)

public function VTK_DAT_XML(var_location, var_block_action) result(E_IO)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	var_location
character(len=*),	intent(in)			::	var_block_action

Return Value integer(kind=I4P)

The VTK_DAT_XML variables have the following meaning:

private function VTK_VAR_XML_SCAL_R8(NC_NN, varname, var) result(E_IO)

Function for saving scalar variable (R8P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
character(len=*),	intent(in)	::	varname
real(kind=R8P),	intent(in)	::	var(1:NC_NN)

Return Value integer(kind=I4P)

private function VTK_VAR_XML_SCAL_R4(NC_NN, varname, var) result(E_IO)

Function for saving scalar variable (R4P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
character(len=*),	intent(in)	::	varname
real(kind=R4P),	intent(in)	::	var(1:NC_NN)

Return Value integer(kind=I4P)

private function VTK_VAR_XML_SCAL_I8(NC_NN, varname, var) result(E_IO)

Function for saving scalar variable (I8P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
character(len=*),	intent(in)	::	varname
integer(kind=I8P),	intent(in)	::	var(1:NC_NN)

Return Value integer(kind=I4P)

private function VTK_VAR_XML_SCAL_I4(NC_NN, varname, var) result(E_IO)

Function for saving scalar variable (I4P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
character(len=*),	intent(in)	::	varname
integer(kind=I4P),	intent(in)	::	var(1:NC_NN)

Return Value integer(kind=I4P)

private function VTK_VAR_XML_SCAL_I2(NC_NN, varname, var) result(E_IO)

Function for saving scalar variable (I2P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
character(len=*),	intent(in)	::	varname
integer(kind=I2P),	intent(in)	::	var(1:NC_NN)

Return Value integer(kind=I4P)

private function VTK_VAR_XML_SCAL_I1(NC_NN, varname, var) result(E_IO)

Function for saving scalar variable (I1P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
character(len=*),	intent(in)	::	varname
integer(kind=I1P),	intent(in)	::	var(1:NC_NN)

Return Value integer(kind=I4P)

private function VTK_VAR_XML_VECT_R8(NC_NN, varname, varX, varY, varZ) result(E_IO)

Function for saving vectorial variable (R8P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
character(len=*),	intent(in)	::	varname
real(kind=R8P),	intent(in)	::	varX(1:NC_NN)
real(kind=R8P),	intent(in)	::	varY(1:NC_NN)
real(kind=R8P),	intent(in)	::	varZ(1:NC_NN)

Return Value integer(kind=I4P)

private function VTK_VAR_XML_VECT_R4(NC_NN, varname, varX, varY, varZ) result(E_IO)

Function for saving vectorial variable (R4P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
character(len=*),	intent(in)	::	varname
real(kind=R4P),	intent(in)	::	varX(1:NC_NN)
real(kind=R4P),	intent(in)	::	varY(1:NC_NN)
real(kind=R4P),	intent(in)	::	varZ(1:NC_NN)

Return Value integer(kind=I4P)

private function VTK_VAR_XML_VECT_I8(NC_NN, varname, varX, varY, varZ) result(E_IO)

Function for saving vectorial variable (I8P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
character(len=*),	intent(in)	::	varname
integer(kind=I8P),	intent(in)	::	varX(1:NC_NN)
integer(kind=I8P),	intent(in)	::	varY(1:NC_NN)
integer(kind=I8P),	intent(in)	::	varZ(1:NC_NN)

Return Value integer(kind=I4P)

private function VTK_VAR_XML_VECT_I4(NC_NN, varname, varX, varY, varZ) result(E_IO)

Function for saving vectorial variable (I4P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
character(len=*),	intent(in)	::	varname
integer(kind=I4P),	intent(in)	::	varX(1:NC_NN)
integer(kind=I4P),	intent(in)	::	varY(1:NC_NN)
integer(kind=I4P),	intent(in)	::	varZ(1:NC_NN)

Return Value integer(kind=I4P)

private function VTK_VAR_XML_VECT_I2(NC_NN, varname, varX, varY, varZ) result(E_IO)

Function for saving vectorial variable (I2P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
character(len=*),	intent(in)	::	varname
integer(kind=I2P),	intent(in)	::	varX(1:NC_NN)
integer(kind=I2P),	intent(in)	::	varY(1:NC_NN)
integer(kind=I2P),	intent(in)	::	varZ(1:NC_NN)

Return Value integer(kind=I4P)

private function VTK_VAR_XML_VECT_I1(NC_NN, varname, varX, varY, varZ) result(E_IO)

Function for saving vectorial variable (I1P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
character(len=*),	intent(in)	::	varname
integer(kind=I1P),	intent(in)	::	varX(1:NC_NN)
integer(kind=I1P),	intent(in)	::	varY(1:NC_NN)
integer(kind=I1P),	intent(in)	::	varZ(1:NC_NN)

Return Value integer(kind=I4P)

private function VTK_VAR_XML_LIST_R8(NC_NN, N_COL, varname, var) result(E_IO)

Function for saving list variable (R8P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
integer(kind=I4P),	intent(in)	::	N_COL
character(len=*),	intent(in)	::	varname
real(kind=R8P),	intent(in)	::	var(1:NC_NN,1:N_COL)

Return Value integer(kind=I4P)

private function VTK_VAR_XML_LIST_R4(NC_NN, N_COL, varname, var) result(E_IO)

Function for saving list variable (R4P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
integer(kind=I4P),	intent(in)	::	N_COL
character(len=*),	intent(in)	::	varname
real(kind=R4P),	intent(in)	::	var(1:NC_NN,1:N_COL)

Return Value integer(kind=I4P)

private function VTK_VAR_XML_LIST_I8(NC_NN, N_COL, varname, var) result(E_IO)

Function for saving list variable (I8P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
integer(kind=I4P),	intent(in)	::	N_COL
character(len=*),	intent(in)	::	varname
integer(kind=I8P),	intent(in)	::	var(1:NC_NN,1:N_COL)

Return Value integer(kind=I4P)

private function VTK_VAR_XML_LIST_I4(NC_NN, N_COL, varname, var) result(E_IO)

Function for saving list variable (I4P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
integer(kind=I4P),	intent(in)	::	N_COL
character(len=*),	intent(in)	::	varname
integer(kind=I4P),	intent(in)	::	var(1:NC_NN,1:N_COL)

Return Value integer(kind=I4P)

private function VTK_VAR_XML_LIST_I2(NC_NN, N_COL, varname, var) result(E_IO)

Function for saving list variable (I2P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
integer(kind=I4P),	intent(in)	::	N_COL
character(len=*),	intent(in)	::	varname
integer(kind=I2P),	intent(in)	::	var(1:NC_NN,1:N_COL)

Return Value integer(kind=I4P)

private function VTK_VAR_XML_LIST_I1(NC_NN, N_COL, varname, var) result(E_IO)

Function for saving list variable (I1P).

Arguments

Type	Intent		Name
integer(kind=I4P),	intent(in)	::	NC_NN
integer(kind=I4P),	intent(in)	::	N_COL
character(len=*),	intent(in)	::	varname
integer(kind=I1P),	intent(in)	::	var(1:NC_NN,1:N_COL)

VTK Module

Contents

Variables

Interfaces

Functions

Uses

Used by

Contents

Variables

Interfaces

Functions

Variables

Interfaces

public interface VTK_GEO

private function VTK_GEO_UNST_R8(NN, X, Y, Z) result(E_IO)

Arguments

Return Value integer(kind=I4P)

private function VTK_GEO_UNST_R4(NN, X, Y, Z) result(E_IO)

Arguments

Return Value integer(kind=I4P)

private function VTK_GEO_STRP_R8(Nx, Ny, Nz, X0, Y0, Z0, Dx, Dy, Dz) result(E_IO)

Arguments

Return Value integer(kind=I4P)

private function VTK_GEO_STRP_R4(Nx, Ny, Nz, X0, Y0, Z0, Dx, Dy, Dz) result(E_IO)

Arguments

Return Value integer(kind=I4P)

private function VTK_GEO_STRG_R8(Nx, Ny, Nz, NN, X, Y, Z) result(E_IO)

Arguments

Return Value integer(kind=I4P)

private function VTK_GEO_STRG_R4(Nx, Ny, Nz, NN, X, Y, Z) result(E_IO)

Arguments

Return Value integer(kind=I4P)

private function VTK_GEO_RECT_R8(Nx, Ny, Nz, X, Y, Z) result(E_IO)

Arguments

Return Value integer(kind=I4P)

private function VTK_GEO_RECT_R4(Nx, Ny, Nz, X, Y, Z) result(E_IO)

Arguments

Return Value integer(kind=I4P)

public interface VTK_VAR

private function VTK_VAR_SCAL_R8(NC_NN, varname, var) result(E_IO)

Arguments

Return Value integer(kind=I4P)

private function VTK_VAR_SCAL_R4(NC_NN, varname, var) result(E_IO)

Arguments

Return Value integer(kind=I4P)

private function VTK_VAR_SCAL_I4(NC_NN, varname, var) result(E_IO)

Arguments

Return Value integer(kind=I4P)

private function VTK_VAR_VECT_R8(vec_type, NC_NN, varname, varX, varY, varZ) result(E_IO)

Arguments

Return Value integer(kind=I4P)

private function VTK_VAR_VECT_R4(vec_type, NC_NN, varname, varX, varY, varZ) result(E_IO)

Arguments

Return Value integer(kind=I4P)

private function VTK_VAR_VECT_I4(NC_NN, varname, varX, varY, varZ) result(E_IO)

Arguments

Return Value integer(kind=I4P)

private function VTK_VAR_TEXT_R8(NC_NN, dimm, varname, textCoo) result(E_IO)

Arguments

Return Value integer(kind=I4P)

private function VTK_VAR_TEXT_R4(NC_NN, dimm, varname, textCoo) result(E_IO)

Arguments

Return Value integer(kind=I4P)

public interface VTK_GEO_XML

private function VTK_GEO_XML_STRG_R4(nx1, nx2, ny1, ny2, nz1, nz2, NN, X, Y, Z) result(E_IO)

Arguments

Return Value integer(kind=I4P)

private function VTK_GEO_XML_STRG_R8(nx1, nx2, ny1, ny2, nz1, nz2, NN, X, Y, Z) result(E_IO)

Arguments

Return Value integer(kind=I4P)

private function VTK_GEO_XML_RECT_R8(nx1, nx2, ny1, ny2, nz1, nz2, X, Y, Z) result(E_IO)

Arguments

Return Value integer(kind=I4P)

private function VTK_GEO_XML_RECT_R4(nx1, nx2, ny1, ny2, nz1, nz2, X, Y, Z) result(E_IO)

Arguments

Return Value integer(kind=I4P)

private function VTK_GEO_XML_UNST_R8(NN, NC, X, Y, Z) result(E_IO)

Arguments

Return Value integer(kind=I4P)

private function VTK_GEO_XML_UNST_R4(NN, NC, X, Y, Z) result(E_IO)