Data Types
type	srf_info

Functions/Subroutines
subroutine	identify_typ_elt (NDP, NDIM, TYP_ELT)

subroutine	identify_endian_type (FILE_NAME, ENDIAN, FILE_ID, IERR)

subroutine	open_mesh_srf (FILE_NAME, FILE_ID, OPENMODE, FFORMAT, IERR, MESH_NUMBER)

subroutine	open_bnd_srf (FILE_NAME, FILE_ID, OPENMODE, IERR, MESH_NUMBER)

subroutine	close_bnd_srf (FILE_ID, IERR, MESH_NUMBER)

subroutine	close_mesh_srf (FILE_ID, IERR, MESH_NUMBER)

subroutine	get_mesh_title_srf (FILE_ID, TITLE, IERR)

subroutine	get_mesh_date_srf (FILE_ID, DATE, IERR)

subroutine	get_mesh_nelem_srf (FILE_ID, TYP_ELT, NELEM, IERR)

subroutine	get_mesh_npoin_per_element_srf (FILE_ID, TYP_ELT, NDP, IERR)

subroutine	get_mesh_connectivity_srf (FILE_ID, TYP_ELT, IKLE, NELEM, NDP, IERR)

subroutine	get_mesh_npoin_srf (FILE_ID, NPOIN, IERR)

subroutine	get_mesh_nplan_srf (FILE_ID, NPLAN, IERR)

subroutine	get_mesh_orig_srf (FILE_ID, X_ORIG, Y_ORIG, IERR)

subroutine	get_mesh_dimension_srf (FILE_ID, NDIM, IERR)

subroutine	get_mesh_coord_srf (FILE_ID, JDIM, NPOIN, COORD, IERR)

subroutine	get_mesh_l2g_numbering_srf (FILE_ID, KNOLG, NPOIN, IERR)

subroutine	get_mesh_nptir_srf (FILE_ID, NPTIR, IERR)

subroutine	get_bnd_ipobo_srf (FILE_ID, NPOIN, IPOBO, IERR)

subroutine	get_bnd_numbering_srf (FILE_ID, TYP_ELEM_BND, NPTFR, NBOR, IERR)

subroutine	get_bnd_nelem_srf (FILE_ID, TYPE_BND_ELEM, NELEM, IERR)

subroutine	get_bnd_connectivity_srf (FILE_ID, TYP_BND_ELT, NELEBD, NDP, IKLE, IERR)

subroutine	get_bnd_color_srf (FILE_ID, TYP_BND_ELT, NELEBD, COLOR, IERR)

subroutine	get_bnd_value_srf (FILE_ID, TYP_BND_ELEM, NPTFR, LIHBOR, LIUBOR, LIVBOR, HBOR, UBOR, VBOR, CHBORD, TRAC, LITBOR, TBOR, ATBOR, BTBOR, IERR)

subroutine	get_bnd_npoin_srf (FILE_ID, TYPE_BND_ELEM, NPTFR, IERR)

subroutine	get_data_nvar_srf (FILE_ID, NVAR, IERR)

subroutine	get_data_var_list_srf (FILE_ID, NVAR, VAR_LIST, UNIT_LIST, IERR)

subroutine	get_data_ntimestep_srf (FILE_ID, NTIMESTEP, IERR)

subroutine	get_data_time_srf (FILE_ID, RECORD, TIME, IERR)

subroutine	get_data_value_srf (FILE_ID, RECORD, VAR_NAME, RES_VALUE, N, IERR)

subroutine	set_header_srf (FILE_ID, TITLE, NVAR, VAR_NAME, IERR)

pure integer function	compute_next (N, H, W)

subroutine	igetmi (M, H, W)

subroutine	set_mesh_srf (FFORMAT, FILE_ID, MESH_DIM, TYPELT, NDP, NPTFR, NPTIR, NELEM, NPOIN, IKLE, IPOBO, KNOLG, X, Y, NPLAN, DATE, TIME, X_ORIG, Y_ORIG, IERR, IN_PLACE)

subroutine	add_data_srf (FILE_ID, VAR_NAME, TIME, RECORD, FIRST_VAR, VAR_VALUE, N, IERR)

subroutine	set_bnd_srf (FILE_ID, TYPE_BND_ELT, NELEBD, NDP, IKLE, LIHBOR, LIUBOR, LIVBOR, HBOR, UBOR, VBOR, CHBORD, LITBOR, TBOR, ATBOR, BTBOR, COLOR, IERR)

logical function	isopened (FILE_ID)

Variables
integer, parameter	var_size = 32

integer, parameter	title_size = 80

integer, dimension(max_file)	hash = 0

type(srf_info), dimension(max_file)	srf_obj_tab

Function/Subroutine Documentation

◆ add_data_srf()

subroutine utils_serafin::add_data_srf	(	integer, intent(in)	FILE_ID,
		character(len=var_size), intent(in)	VAR_NAME,
		double precision, intent(in)	TIME,
		integer, intent(in)	RECORD,
		logical, intent(in)	FIRST_VAR,
		double precision, dimension(n), intent(in)	VAR_VALUE,
		integer, intent(in)	N,
		integer, intent(out)	IERR
	)

Parameters

[in]	file_id	FILE_ID File descriptor
[in]	VAR_NAME	Name of the variable
[in]	TIME	Time of the data
[in]	RECORD	Time step of the data
[in]	FIRST_VAR	True if it is the first variable of the dataset
[in]	VAR_VALUE	The value for each point of the mesh
[in]	N	Size of var_value
[out]	IERR	0 if no error during the execution
[in]	n	FILE_ID File descriptor
[in]	VAR_NAME	Name of the variable
[in]	TIME	Time of the data
[in]	RECORD	Time step of the data
[in]	FIRST_VAR	True if it is the first variable of the dataset
[in]	VAR_VALUE	The value for each point of the mesh
[in]	N	Size of var_value
[out]	IERR	0 if no error during the execution

Definition at line 2922 of file utils_serafin.F.

Here is the caller graph for this function:

◆ close_bnd_srf()

subroutine utils_serafin::close_bnd_srf	(	integer, intent(in)	FILE_ID,
		integer, intent(out)	IERR,
		integer, intent(in), optional	MESH_NUMBER
	)

Parameters

[in]	file_id	FILE_ID File descriptor
[out]	IERR	0 if no error during the execution
[in]	MESH_NUMBER	If present, this is the number of the part of

Definition at line 746 of file utils_serafin.F.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ close_mesh_srf()

subroutine utils_serafin::close_mesh_srf	(	integer, intent(in)	FILE_ID,
		integer, intent(out)	IERR,
		integer, intent(in), optional	MESH_NUMBER
	)

Parameters

[in]	file_id	FILE_ID File descriptor
[out]	IERR	0 if no error during the execution
[in]	MESH_NUMBER	If present, this is the number of the part of

Definition at line 812 of file utils_serafin.F.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ compute_next()

pure integer function utils_serafin::compute_next	(	integer, intent(in)	N,
		integer, intent(in)	H,
		integer, intent(in)	W
	)

Parameters

[in]	n	N Current element
[in]	H	Height
[in]	W	Width
[out]	NX	Next element to move
[in]	h	N Current element
[in]	H	Height
[in]	W	Width
[out]	NX	Next element to move
[in]	w	N Current element
[in]	H	Height
[in]	W	Width
[out]	NX	Next element to move

Definition at line 2496 of file utils_serafin.F.

Here is the caller graph for this function:

◆ get_bnd_color_srf()

subroutine utils_serafin::get_bnd_color_srf	(	integer, intent(in)	FILE_ID,
		integer, intent(in)	TYP_BND_ELT,
		integer, intent(in)	NELEBD,
		integer, dimension(nelebd), intent(inout)	COLOR,
		integer, intent(out)	IERR
	)

Parameters

[in]	file_id	FILE_ID File descriptor
[in]	TYP_BND_ELEM	Type of the boundary elements
[in]	NELEBD	Number of boundary elements
[in,out]	COLOR	Boundary color
[out]	IERR	0 if no error during the execution

Definition at line 1787 of file utils_serafin.F.

Here is the caller graph for this function:

◆ get_bnd_connectivity_srf()

subroutine utils_serafin::get_bnd_connectivity_srf	(	integer, intent(in)	FILE_ID,
		integer, intent(in)	TYP_BND_ELT,
		integer, intent(in)	NELEBD,
		integer, intent(in)	NDP,
		integer, dimension(nelebd*ndp), intent(inout)	IKLE,
		integer, intent(out)	IERR
	)

Parameters

[in]	file_id	FILE_ID File descriptor
[in]	TYP_BND_ELEM	Type of the boundary elements
[in]	NELEBD	Number of boundary elements
[in]	NDP	Number of points per element
[in,out]	IKLE	The connectivity of the boundary elements
[out]	IERR	0 if no error during the execution

Definition at line 1702 of file utils_serafin.F.

Here is the caller graph for this function:

◆ get_bnd_ipobo_srf()

subroutine utils_serafin::get_bnd_ipobo_srf	(	integer, intent(in)	FILE_ID,
		integer, intent(in)	NPOIN,
		integer, dimension(npoin), intent(inout)	IPOBO,
		integer, intent(out)	IERR
	)

Parameters

[in]	file_id	FILE_ID File descriptor
[in]	NPOIN	Total number of nodes
[in,out]	IPOBO	An array containing 1 IF A POINT IS A BOUNDARY POINT 0 OTHERWISE
[out]	IERR	0 if no error during the execution

Definition at line 1547 of file utils_serafin.F.

Here is the caller graph for this function:

◆ get_bnd_nelem_srf()

subroutine utils_serafin::get_bnd_nelem_srf	(	integer, intent(in)	FILE_ID,
		integer, intent(in)	TYPE_BND_ELEM,
		integer, intent(inout)	NELEM,
		integer, intent(out)	IERR
	)

Parameters

[in]	file_id	FILE_ID File descriptor
[in]	TYPE_BND_ELEM	Type of the boundary elements
[in,out]	NELEM	Number of boundary elements
[out]	IERR	0 if no error during the execution

Definition at line 1654 of file utils_serafin.F.

Here is the caller graph for this function:

◆ get_bnd_npoin_srf()

subroutine utils_serafin::get_bnd_npoin_srf	(	integer, intent(in)	FILE_ID,
		integer, intent(in)	TYPE_BND_ELEM,
		integer, intent(out)	NPTFR,
		integer, intent(out)	IERR
	)

Parameters

[in]	file_id	FILE_ID File descriptor
[in]	TYPE_BND_ELEM	Type of the boundary elements
[in,out]	NPTFR	Number of boundary points
[out]	IERR	0 if no error during the execution

Definition at line 1985 of file utils_serafin.F.

Here is the caller graph for this function:

◆ get_bnd_numbering_srf()

subroutine utils_serafin::get_bnd_numbering_srf	(	integer, intent(in)	FILE_ID,
		integer, intent(in)	TYP_ELEM_BND,
		integer, intent(in)	NPTFR,
		integer, dimension(nptfr), intent(inout)	NBOR,
		integer, intent(out)	IERR
	)

Parameters

[in]	file_id	FILE_ID File descriptor
[in]	TYP_BND_ELEM	Type of the boundary element
[in]	NPTFR	Number of boundary points
[in,out]	NBOR	An array containing the numbering in the mesh OF ALL BOUNDARY POINTS
[out]	IERR	0 if no error during the execution
[in]	nptfr	FILE_ID File descriptor
[in]	TYP_BND_ELEM	Type of the boundary element
[in]	NPTFR	Number of boundary points
[in,out]	NBOR	An array containing the numbering in the mesh OF ALL BOUNDARY POINTS
[out]	IERR	0 if no error during the execution
[in]	typ_elem_bnd	FILE_ID File descriptor
[in]	TYP_BND_ELEM	Type of the boundary element
[in]	NPTFR	Number of boundary points
[in,out]	NBOR	An array containing the numbering in the mesh OF ALL BOUNDARY POINTS
[out]	IERR	0 if no error during the execution

Definition at line 1607 of file utils_serafin.F.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ get_bnd_value_srf()

subroutine utils_serafin::get_bnd_value_srf	(	integer, intent(in)	FILE_ID,
		integer, intent(in)	TYP_BND_ELEM,
		integer, intent(in)	NPTFR,
		integer, dimension(nptfr), intent(inout)	LIHBOR,
		integer, dimension(nptfr), intent(inout)	LIUBOR,
		integer, dimension(nptfr), intent(inout)	LIVBOR,
		double precision, dimension(nptfr), intent(inout)	HBOR,
		double precision, dimension(*), intent(inout)	UBOR,
		double precision, dimension(*), intent(inout)	VBOR,
		double precision, dimension(nptfr), intent(inout)	CHBORD,
		logical, intent(in)	TRAC,
		integer, dimension(*), intent(inout)	LITBOR,
		double precision, dimension(*), intent(inout)	TBOR,
		double precision, dimension(*), intent(inout)	ATBOR,
		double precision, dimension(*), intent(inout)	BTBOR,
		integer, intent(out)	IERR
	)

Parameters

[in] file_id [out] IERR 0 if no error during the execution

Definition at line 1873 of file utils_serafin.F.

Here is the caller graph for this function:

◆ get_data_ntimestep_srf()

subroutine utils_serafin::get_data_ntimestep_srf	(	integer, intent(in)	FILE_ID,
		integer, intent(out)	NTIMESTEP,
		integer, intent(out)	IERR
	)

Parameters

[in]	file_id	FILE_ID File descriptor
[in,out]	NTIMESTEP	The number of time steps
[out]	IERR	0 if no error during the execution

Definition at line 2137 of file utils_serafin.F.

Here is the caller graph for this function:

◆ get_data_nvar_srf()

subroutine utils_serafin::get_data_nvar_srf	(	integer, intent(in)	FILE_ID,
		integer, intent(out)	NVAR,
		integer, intent(out)	IERR
	)

Parameters

[in]	file_id	FILE_ID File descriptor
[in,out]	NVAR	Number of variable
[out]	IERR	0 if no error during the execution

Definition at line 2036 of file utils_serafin.F.

Here is the caller graph for this function:

◆ get_data_time_srf()

subroutine utils_serafin::get_data_time_srf	(	integer, intent(in)	FILE_ID,
		integer, intent(in)	RECORD,
		double precision, intent(inout)	TIME,
		integer, intent(out)	IERR
	)

Parameters

[in]	file_id	FILE_ID File descriptor
[in]	RECORD	Number of the time step
[in,out]	TIME	Time in second of the time step
[out]	IERR	0 if no error during the execution

Definition at line 2178 of file utils_serafin.F.

Here is the caller graph for this function:

◆ get_data_value_srf()

subroutine utils_serafin::get_data_value_srf	(	integer, intent(in)	FILE_ID,
		integer, intent(in)	RECORD,
		character(len=16), intent(in)	VAR_NAME,
		double precision, dimension(n), intent(inout)	RES_VALUE,
		integer, intent(in)	N,
		integer, intent(out)	IERR
	)

Parameters

[in]	file_id	FILE_ID File descriptor
[in]	RECORD	Time step to read in the file
[in]	VAR_NAME	Variable for which we need the value
[in,out]	RES_VALUE	Value for each point at time step record FOR THE VARIABLE VAR_NAME
[in]	N	Size of res_value
[out]	IERR	0 if no error during the execution

Definition at line 2257 of file utils_serafin.F.

Here is the caller graph for this function:

◆ get_data_var_list_srf()

subroutine utils_serafin::get_data_var_list_srf	(	integer, intent(in)	FILE_ID,
		integer, intent(in)	NVAR,
		character(len=16), dimension(nvar), intent(inout)	VAR_LIST,
		character(len=16), dimension(nvar), intent(inout)	UNIT_LIST,
		integer, intent(out)	IERR
	)

Parameters

[in]	file_id	FILE_ID File descriptor
[in,out]	VARLIST	List of variable name
[in,out]	UNTILIST	List of variable unit
[out]	IERR	0 if no error during the execution

Definition at line 2077 of file utils_serafin.F.

Here is the caller graph for this function:

◆ get_mesh_connectivity_srf()

subroutine utils_serafin::get_mesh_connectivity_srf	(	integer, intent(in)	FILE_ID,
		integer, intent(in)	TYP_ELT,
		integer, dimension(nelem*ndp), intent(inout)	IKLE,
		integer, intent(in)	NELEM,
		integer, intent(in)	NDP,
		integer, intent(out)	IERR
	)

Parameters

[in]	file_id	FILE_ID File descriptor
[in]	TYP_ELEM	Type of the element
[in,out]	IKLE	The connectivity table
[in]	NELEM	Number of elements
[in]	NDP	Number of points per element
[out]	IERR	0 if no error during the execution

Definition at line 1123 of file utils_serafin.F.

Here is the caller graph for this function:

◆ get_mesh_coord_srf()

subroutine utils_serafin::get_mesh_coord_srf	(	integer, intent(in)	FILE_ID,
		integer, intent(in)	JDIM,
		integer, intent(in)	NPOIN,
		double precision, dimension(npoin), intent(inout)	COORD,
		integer, intent(out)	IERR
	)

Parameters

[in]	file_id	FILE_ID File descriptor
[in]	JDIM	Dimension number
[in]	NPOIN	Total number of nodes
[in,out]	COORD	Local to global numbering array
[out]	IERR	0 if no error during the execution

Definition at line 1355 of file utils_serafin.F.

Here is the caller graph for this function:

◆ get_mesh_date_srf()

subroutine utils_serafin::get_mesh_date_srf	(	integer, intent(in)	FILE_ID,
		integer, dimension(6), intent(inout)	DATE,
		integer, intent(out)	IERR
	)

Parameters

[in]	file_id	FILE_ID File descriptor
[in,out]	DATE	The date
[out]	IERR	0 if no error during the execution

Definition at line 975 of file utils_serafin.F.

Here is the caller graph for this function:

◆ get_mesh_dimension_srf()

subroutine utils_serafin::get_mesh_dimension_srf	(	integer, intent(in)	FILE_ID,
		integer, intent(out)	NDIM,
		integer, intent(out)	IERR
	)

Parameters

[in]	file_id	FILE_ID File descriptor
[in,out]	NDIM	Number of dimension
[out]	IERR	0 if no error during the execution

Definition at line 1314 of file utils_serafin.F.

Here is the caller graph for this function:

◆ get_mesh_l2g_numbering_srf()

subroutine utils_serafin::get_mesh_l2g_numbering_srf	(	integer, intent(in)	FILE_ID,
		integer, dimension(npoin), intent(inout)	KNOLG,
		integer, intent(in)	NPOIN,
		integer, intent(out)	IERR
	)

Parameters

[in]	file_id	FFORMAT Format of the file
[in]	FILE_ID	File descriptor
[in,out]	KNOLG	Local to global numbering array
[in]	NPOIN	Number of nodes
[out]	IERR	0 if no error during the execution

Definition at line 1444 of file utils_serafin.F.

Here is the caller graph for this function:

◆ get_mesh_nelem_srf()

subroutine utils_serafin::get_mesh_nelem_srf	(	integer, intent(in)	FILE_ID,
		integer, intent(in)	TYP_ELT,
		integer, intent(out)	NELEM,
		integer, intent(out)	IERR
	)

Parameters

[in]	file_id	FILE_ID File descriptor
[in]	TYP_ELEM	Type of the element
[in,out]	NELEM	The number of elements
[out]	IERR	0 if no error during the execution

Definition at line 1030 of file utils_serafin.F.

Here is the caller graph for this function:

◆ get_mesh_nplan_srf()

subroutine utils_serafin::get_mesh_nplan_srf	(	integer, intent(in)	FILE_ID,
		integer, intent(out)	NPLAN,
		integer, intent(out)	IERR
	)

Parameters

[in]	file_id	FILE_ID File descriptor
[in,out]	NPLAN	The number of layers
[out]	IERR	0 if no error during the execution

Definition at line 1230 of file utils_serafin.F.

Here is the caller graph for this function:

◆ get_mesh_npoin_per_element_srf()

subroutine utils_serafin::get_mesh_npoin_per_element_srf	(	integer, intent(in)	FILE_ID,
		integer, intent(in)	TYP_ELT,
		integer, intent(out)	NDP,
		integer, intent(out)	IERR
	)

Parameters

[in]	file_id	FILE_ID File descriptor
[in]	TYP_ELEM	Type of the element
[in,out]	NDP	The number of point per element
[out]	IERR	0 if no error during the execution

Definition at line 1077 of file utils_serafin.F.

Here is the caller graph for this function:

◆ get_mesh_npoin_srf()

subroutine utils_serafin::get_mesh_npoin_srf	(	integer, intent(in)	FILE_ID,
		integer, intent(out)	NPOIN,
		integer, intent(out)	IERR
	)

Parameters

[in]	file_id	FILE_ID File descriptor
[in,out]	NPOIN	The number of points
[out]	IERR	0 if no error during the execution

Definition at line 1189 of file utils_serafin.F.

Here is the caller graph for this function:

◆ get_mesh_nptir_srf()

subroutine utils_serafin::get_mesh_nptir_srf	(	integer, intent(in)	FILE_ID,
		integer, intent(out)	NPTIR,
		integer, intent(out)	IERR
	)

Parameters

[in]	file_id	FILE_ID File descriptor
[in,out]	NPTIR	Number of interface point
[out]	IERR	0 if no error during the execution

Definition at line 1502 of file utils_serafin.F.

Here is the caller graph for this function:

◆ get_mesh_orig_srf()

subroutine utils_serafin::get_mesh_orig_srf	(	integer, intent(in)	FILE_ID,
		integer, intent(inout)	X_ORIG,
		integer, intent(inout)	Y_ORIG,
		integer, intent(out)	IERR
	)

Parameters

[in]	file_id	FILE_ID File descriptor
[in,out]	X_ORIG	Off set of the x coordinates
[in,out]	Y_ORIG	Off set of the y coordinates
[out]	IERR	0 if no error during the execution

Definition at line 1271 of file utils_serafin.F.

Here is the caller graph for this function:

◆ get_mesh_title_srf()

subroutine utils_serafin::get_mesh_title_srf	(	integer, intent(in)	FILE_ID,
		character(len=title_size), intent(out)	TITLE,
		integer, intent(out)	IERR
	)

Parameters

[in]	file_id	FILE_ID File descriptor
[in,out]	TITLE	Title of the mesh file
[out]	IERR	0 if no error during the execution

Definition at line 925 of file utils_serafin.F.

Here is the caller graph for this function:

◆ identify_endian_type()

subroutine utils_serafin::identify_endian_type	(	character(len=*), intent(in)	FILE_NAME,
		character(len=13), intent(inout)	ENDIAN,
		integer, intent(in)	FILE_ID,
		integer, intent(out)	IERR
	)

Parameters

[in]	file_id	[out] FILE_NAME Name of the file
[in,out]	ENDIAN	Encoding of integer and real in the file

Definition at line 136 of file utils_serafin.F.

Here is the caller graph for this function:

◆ identify_typ_elt()

subroutine utils_serafin::identify_typ_elt	(	integer, intent(in)	NDP,
		integer, intent(in)	NDIM,
		integer, intent(out)	TYP_ELT
	)

Parameters

[in]	ndp	[out] NDP Number of point per element
[in]	NDIM	Dimension of the element (2d or 1d)
[in]	TYP_ELT	Type of the element

Definition at line 95 of file utils_serafin.F.

Here is the caller graph for this function:

◆ igetmi()

subroutine utils_serafin::igetmi	(	integer, dimension(:), intent(inout)	M,
		integer, intent(in)	H,
		integer, intent(in)	W
	)

Parameters

[in,out]	m	[in, out] M Matrix to transpose
[in]	H	Height
[in]	W	Width

Definition at line 2514 of file utils_serafin.F.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ isopened()

logical function utils_serafin::isopened ( integer, intent(in) FILE_ID )

Parameters

[in]	file_id	FILE_ID File descriptor
[out]	ISOPENED	Return value

Definition at line 3148 of file utils_serafin.F.

Here is the caller graph for this function:

◆ open_bnd_srf()

subroutine utils_serafin::open_bnd_srf	(	character(len=*), intent(in)	FILE_NAME,
		integer, intent(in)	FILE_ID,
		character(len=9), intent(in)	OPENMODE,
		integer, intent(out)	IERR,
		integer, intent(in), optional	MESH_NUMBER
	)

Parameters

[in]	file_name	FILE_NAME Name of the boundary file
[in]	FILE_ID	File descriptor of the "mesh" file
[in]	OPENMODE	One of the following value 'read','write','readwrite'
[out]	IERR	0 if no error during the execution
[in]	MESH_NUMBER	If present, this is the number of the part of

Definition at line 620 of file utils_serafin.F.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ open_mesh_srf()

subroutine utils_serafin::open_mesh_srf	(	character(len=*), intent(in)	FILE_NAME,
		integer, intent(out)	FILE_ID,
		character(len=9), intent(in)	OPENMODE,
		character(len=8), intent(inout)	FFORMAT,
		integer, intent(out)	IERR,
		integer, intent(in), optional	MESH_NUMBER
	)

Parameters

[out]	file_id	[in] FILE_NAME Name of the file
[in]	FILE_ID	File descriptor
[in]	OPENMODE	One of the following value 'read','readwrite'
[in,out]	FFORMAT	Format of the file, can be modified if the user MADE A MISTAKE
[out]	IERR	0 if no error during the execution
[in]	MESH_NUMBER	If present, this is the number of the part of

Definition at line 279 of file utils_serafin.F.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ set_bnd_srf()

subroutine utils_serafin::set_bnd_srf	(	integer, intent(in)	FILE_ID,
		integer, intent(in)	TYPE_BND_ELT,
		integer, intent(in)	NELEBD,
		integer, intent(in)	NDP,
		integer, dimension(nelebd*ndp), intent(in)	IKLE,
		integer, dimension(nelebd), intent(in)	LIHBOR,
		integer, dimension(nelebd), intent(in)	LIUBOR,
		integer, dimension(nelebd), intent(in)	LIVBOR,
		double precision, dimension(nelebd), intent(in)	HBOR,
		double precision, dimension(nelebd), intent(in)	UBOR,
		double precision, dimension(nelebd), intent(in)	VBOR,
		double precision, dimension(nelebd), intent(in)	CHBORD,
		integer, dimension(nelebd), intent(in)	LITBOR,
		double precision, dimension(nelebd), intent(in)	TBOR,
		double precision, dimension(nelebd), intent(in)	ATBOR,
		double precision, dimension(nelebd), intent(in)	BTBOR,
		integer, dimension(nelebd), intent(in)	COLOR,
		integer, intent(out)	IERR
	)

Parameters

[in] file_id [out] IERR 0 if no error during the execution

Definition at line 3057 of file utils_serafin.F.

Here is the caller graph for this function:

◆ set_header_srf()

subroutine utils_serafin::set_header_srf	(	integer, intent(in)	FILE_ID,
		character(len=title_size), intent(in)	TITLE,
		integer, intent(in)	NVAR,
		character(len=var_size), dimension(nvar), intent(in)	VAR_NAME,
		integer, intent(out)	IERR
	)

Parameters

[in]	file_id	FILE_ID File descriptor
[in]	TITLE	Title of the mesh
[in]	NVAR	Number of variables
[in]	VAR_NAME	Name and units of the variables
[out]	IERR	0 if no error during the execution

Definition at line 2387 of file utils_serafin.F.

Here is the caller graph for this function:

◆ set_mesh_srf()

subroutine utils_serafin::set_mesh_srf	(	character(len=8), intent(in)	FFORMAT,
		integer, intent(in)	FILE_ID,
		integer, intent(in)	MESH_DIM,
		integer, intent(in)	TYPELT,
		integer, intent(in)	NDP,
		integer, intent(in)	NPTFR,
		integer, intent(in)	NPTIR,
		integer, intent(in)	NELEM,
		integer, intent(in)	NPOIN,
		integer, dimension(ndp*nelem), intent(inout)	IKLE,
		integer, dimension(*), intent(in)	IPOBO,
		integer, dimension(*), intent(in)	KNOLG,
		double precision, dimension(npoin), intent(in)	X,
		double precision, dimension(npoin), intent(in)	Y,
		integer, intent(in)	NPLAN,
		integer, dimension(3), intent(in)	DATE,
		integer, dimension(3), intent(in)	TIME,
		integer, intent(in)	X_ORIG,
		integer, intent(in)	Y_ORIG,
		integer, intent(out)	IERR,
		logical, intent(in), optional	IN_PLACE
	)

Parameters

[in]	fformat	FFORMAT Format of the file
[in]	FILE_ID	File descriptor
[in]	MESH_DIM	Dimension of the mesh
[in]	TYPELM	Type of the mesh elements
[in]	NDP	Number of points per element
[in]	NPTFR	Number of boundary point
[in]	NPTIR	Number of interface point
[in]	NELEM	Number of element in the mesh
[in]	NPOIN	Number of points in the mesh
[in,out]	IKLE	Connectivity array for the main element
[in]	IPOBO	Is a boundary point ? array
[in]	KNOLG	Local to global numbering array
[in]	X	X coordinates of the mesh points
[in]	Y	Y coordinates of the mesh points
[in]	NPLAN	Number of planes
[in]	DATE	Date of the creation of the mesh
[in]	TIME	Time of the creation of the mesh
[in]	X_ORIG	Off set of the x coordinates
[in]	Y_ORIG	Off set of the y coordinates
[out]	IERR	0 if no error during the execution

Definition at line 2587 of file utils_serafin.F.

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

◆ hash

integer, dimension(max_file) utils_serafin::hash = 0

Definition at line 84 of file utils_serafin.F.

◆ srf_obj_tab

type(srf_info), dimension(max_file) utils_serafin::srf_obj_tab

Definition at line 85 of file utils_serafin.F.

◆ title_size

integer, parameter utils_serafin::title_size = 80

Definition at line 36 of file utils_serafin.F.

◆ var_size

integer, parameter utils_serafin::var_size = 32

Definition at line 35 of file utils_serafin.F.

Data Types

Functions/Subroutines

Variables

Function/Subroutine Documentation

◆ add_data_srf()

◆ close_bnd_srf()

◆ close_mesh_srf()

◆ compute_next()

◆ get_bnd_color_srf()

◆ get_bnd_connectivity_srf()

◆ get_bnd_ipobo_srf()

◆ get_bnd_nelem_srf()

◆ get_bnd_npoin_srf()

◆ get_bnd_numbering_srf()

◆ get_bnd_value_srf()

◆ get_data_ntimestep_srf()

◆ get_data_nvar_srf()

◆ get_data_time_srf()

◆ get_data_value_srf()

◆ get_data_var_list_srf()

◆ get_mesh_connectivity_srf()

◆ get_mesh_coord_srf()

◆ get_mesh_date_srf()

◆ get_mesh_dimension_srf()

◆ get_mesh_l2g_numbering_srf()

◆ get_mesh_nelem_srf()

◆ get_mesh_nplan_srf()

◆ get_mesh_npoin_per_element_srf()

◆ get_mesh_npoin_srf()

◆ get_mesh_nptir_srf()

◆ get_mesh_orig_srf()

◆ get_mesh_title_srf()

◆ identify_endian_type()

◆ identify_typ_elt()

◆ igetmi()

◆ isopened()

◆ open_bnd_srf()

◆ open_mesh_srf()

◆ set_bnd_srf()

◆ set_header_srf()

◆ set_mesh_srf()

Variable Documentation

◆ hash

◆ srf_obj_tab

◆ title_size

◆ var_size