hecmw_setup_util Module Reference

This module contains auxiliary functions in calculation setup. More...

Data Types
type	hecmw_str_arr
	container of character array pointer, because of gfortran's bug More...

Functions/Subroutines
logical function	hecmw_str2index (s, x)
subroutine	hecmw_strupr (s)
logical function	hecmw_streqr (s1, s2)
subroutine	hecmw_setup_util_err_stop (msg)
subroutine	backset_group_pointers (hecMESH, grp_type_name)
integer(kind=kint) function	node_global_to_local (hecMESH, list, n)
integer(kind=kint) function	elem_global_to_local (hecMESH, list, n)
integer(kind=kint) function	append_single_group (hecMESH, grp_type_name, no_count, no_list)
subroutine	append_new_group (hecMESH, grp_type_name, name, count, list, grp_id)
integer(kind=kint) function	get_grp_member_n (hecMESH, grp_type_name, name)
integer(kind=kint) function	get_grp_id (hecMESH, grp_type_name, name)
integer(kind=kint) function	get_grp_member (hecMESH, grp_type_name, name, member1, member2)
subroutine	node_grp_name_to_id (hecMESH, header_name, n, grp_id_name, grp_ID)
subroutine	elem_grp_name_to_id (hecMESH, header_name, n, grp_id_name, grp_ID)
subroutine	node_grp_name_to_id_ex (hecMESH, header_name, n, grp_id_name, grp_ID)
subroutine	elem_grp_name_to_id_ex (hecMESH, header_name, n, grp_id_name, grp_ID)
subroutine	surf_grp_name_to_id_ex (hecMESH, header_name, n, grp_id_name, grp_ID)
integer(kind=kint) function	get_node_grp_member_n (hecMESH, grp_name_array, n)
subroutine	hecmw_expand_index_array (array, old_size, new_size)
subroutine	hecmw_expand_char_array (array, old_size, new_size)
subroutine	hecmw_expand_integer_array (array, old_size, new_size)
subroutine	hecmw_expand_real_array (array, old_size, new_size)
subroutine	hecmw_expand_integer_array2 (array, column, old_size, new_size)
subroutine	hecmw_expand_real_array2 (array, column, old_size, new_size)
subroutine	hecmw_expand_name_array (array, old_size, new_size)
subroutine	hecmw_delete_index_array (array, old_size, nindex)
subroutine	hecmw_delete_integer_array (array, old_size, nitem)
subroutine	hecmw_delete_real_array (array, old_size, nitem)
subroutine	reallocate_integer (array, n)
subroutine	reallocate_real (array, n)

Detailed Description

This module contains auxiliary functions in calculation setup.

Function/Subroutine Documentation

append_new_group()

subroutine hecmw_setup_util::append_new_group	(	type(hecmwst_local_mesh), pointer	hecMESH,
		character(len=*), intent(in)	grp_type_name,
		character(len=hecmw_name_len), intent(in)	name,
		integer(kind=kint), intent(in)	count,
		integer(kind=kint), dimension(:), intent(in)	list,
		integer(kind=kint), intent(out)	grp_id
	)

Parameters

hecmesh

mesh definition

Definition at line 266 of file hecmw_setup_util_f.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

append_single_group()

integer(kind=kint) function hecmw_setup_util::append_single_group	(	type (hecmwst_local_mesh), target	hecMESH,
		character(len=*)	grp_type_name,
		integer(kind=kint)	no_count,
		integer(kind=kint), dimension(:), pointer	no_list
	)

Definition at line 214 of file hecmw_setup_util_f.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

backset_group_pointers()

subroutine hecmw_setup_util::backset_group_pointers	(	type (hecmwst_local_mesh), target	hecMESH,
		character(len=*)	grp_type_name
	)

Definition at line 126 of file hecmw_setup_util_f.f90.

Here is the caller graph for this function:

elem_global_to_local()

integer(kind=kint) function hecmw_setup_util::elem_global_to_local	(	type (hecmwst_local_mesh), target	hecMESH,
		integer(kind=kint), dimension(:), pointer	list,
		integer(kind=kint)	n
	)

Definition at line 189 of file hecmw_setup_util_f.f90.

Here is the caller graph for this function:

elem_grp_name_to_id()

subroutine hecmw_setup_util::elem_grp_name_to_id	(	type (hecmwst_local_mesh)	hecMESH,
		character(len=*)	header_name,
		integer(kind=kint)	n,
		character(hecmw_name_len), dimension(:)	grp_id_name,
		integer(kind=kint), dimension(:)	grp_ID
	)

Definition at line 432 of file hecmw_setup_util_f.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

elem_grp_name_to_id_ex()

subroutine hecmw_setup_util::elem_grp_name_to_id_ex	(	type (hecmwst_local_mesh), target	hecMESH,
		character(len=*)	header_name,
		integer(kind=kint)	n,
		character(hecmw_name_len), dimension(:)	grp_id_name,
		integer(kind=kint), dimension(:)	grp_ID
	)

Definition at line 517 of file hecmw_setup_util_f.f90.

Here is the call graph for this function:

get_grp_id()

integer(kind=kint) function hecmw_setup_util::get_grp_id	(	type (hecmwst_local_mesh), target	hecMESH,
		character(len=*)	grp_type_name,
		character(len=*)	name
	)

Definition at line 336 of file hecmw_setup_util_f.f90.

Here is the call graph for this function:

get_grp_member()

integer(kind=kint) function hecmw_setup_util::get_grp_member	(	type (hecmwst_local_mesh), target	hecMESH,
		character(len=*)	grp_type_name,
		character(len=*)	name,
		integer(kind=kint), dimension(:), pointer	member1,
		integer(kind=kint), dimension(:), optional, pointer	member2
	)

Definition at line 364 of file hecmw_setup_util_f.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

get_grp_member_n()

integer(kind=kint) function hecmw_setup_util::get_grp_member_n	(	type (hecmwst_local_mesh), target	hecMESH,
		character(len=*)	grp_type_name,
		character(len=*)	name
	)

Definition at line 310 of file hecmw_setup_util_f.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

get_node_grp_member_n()

integer(kind=kint) function hecmw_setup_util::get_node_grp_member_n	(	type (hecmwst_local_mesh), target	hecMESH,
		type(hecmw_str_arr)	grp_name_array,
		integer(kind=kint)	n
	)

Definition at line 601 of file hecmw_setup_util_f.f90.

Here is the call graph for this function:

hecmw_delete_index_array()

subroutine hecmw_setup_util::hecmw_delete_index_array	(	integer(kind=kint), dimension(:), pointer	array,
		integer(kind=kint), intent(in)	old_size,
		integer(kind=kint), intent(in)	nindex
	)

Parameters

	array	array to be modified
[in]	old_size	current array size
[in]	nindex	number of items to be deleted

Definition at line 830 of file hecmw_setup_util_f.f90.

Here is the caller graph for this function:

hecmw_delete_integer_array()

subroutine hecmw_setup_util::hecmw_delete_integer_array	(	integer(kind=kint), dimension(:), pointer	array,
		integer(kind=kint), intent(in)	old_size,
		integer(kind=kint), intent(in)	nitem
	)

Parameters

	array	array to be modified
[in]	old_size	current array size
[in]	nitem	number of items to be deleted

Definition at line 860 of file hecmw_setup_util_f.f90.

Here is the caller graph for this function:

hecmw_delete_real_array()

subroutine hecmw_setup_util::hecmw_delete_real_array	(	real(kind=kreal), dimension(:), pointer	array,
		integer(kind=kint), intent(in)	old_size,
		integer(kind=kint), intent(in)	nitem
	)

Parameters

	array	array to be modified
[in]	old_size	current array size
[in]	nitem	number of items to be deleted

Definition at line 890 of file hecmw_setup_util_f.f90.

Here is the caller graph for this function:

hecmw_expand_char_array()

subroutine hecmw_setup_util::hecmw_expand_char_array	(	character(len=hecmw_name_len), dimension(:), pointer	array,
		integer(kind=kint)	old_size,
		integer(kind=kint)	new_size
	)

Definition at line 652 of file hecmw_setup_util_f.f90.

Here is the caller graph for this function:

hecmw_expand_index_array()

subroutine hecmw_setup_util::hecmw_expand_index_array	(	integer(kind=kint), dimension(:), pointer	array,
		integer(kind=kint)	old_size,
		integer(kind=kint)	new_size
	)

Definition at line 624 of file hecmw_setup_util_f.f90.

Here is the caller graph for this function:

hecmw_expand_integer_array()

subroutine hecmw_setup_util::hecmw_expand_integer_array	(	integer(kind=kint), dimension(:), pointer	array,
		integer(kind=kint)	old_size,
		integer(kind=kint)	new_size
	)

Definition at line 680 of file hecmw_setup_util_f.f90.

Here is the caller graph for this function:

hecmw_expand_integer_array2()

subroutine hecmw_setup_util::hecmw_expand_integer_array2	(	integer(kind=kint), dimension(:,:), pointer	array,
		integer(kind=kint)	column,
		integer(kind=kint)	old_size,
		integer(kind=kint)	new_size
	)

Definition at line 737 of file hecmw_setup_util_f.f90.

Here is the caller graph for this function:

hecmw_expand_name_array()

subroutine hecmw_setup_util::hecmw_expand_name_array	(	type(hecmw_str_arr)	array,
		integer(kind=kint)	old_size,
		integer(kind=kint)	new_size
	)

Definition at line 804 of file hecmw_setup_util_f.f90.

Here is the caller graph for this function:

hecmw_expand_real_array()

subroutine hecmw_setup_util::hecmw_expand_real_array	(	real(kind=kreal), dimension(:), pointer	array,
		integer(kind=kint)	old_size,
		integer(kind=kint)	new_size
	)

Definition at line 708 of file hecmw_setup_util_f.f90.

Here is the caller graph for this function:

hecmw_expand_real_array2()

subroutine hecmw_setup_util::hecmw_expand_real_array2	(	real(kind=kreal), dimension(:,:), pointer	array,
		integer(kind=kint)	column,
		integer(kind=kint)	old_size,
		integer(kind=kint)	new_size
	)

Definition at line 772 of file hecmw_setup_util_f.f90.

Here is the caller graph for this function:

hecmw_setup_util_err_stop()

subroutine hecmw_setup_util::hecmw_setup_util_err_stop

(

character(*)

msg

)

Definition at line 88 of file hecmw_setup_util_f.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

hecmw_str2index()

logical function hecmw_setup_util::hecmw_str2index	(	character(*)	s,
		integer	x
	)

Definition at line 28 of file hecmw_setup_util_f.f90.

Here is the caller graph for this function:

hecmw_streqr()

logical function hecmw_setup_util::hecmw_streqr	(	character(*), intent(in)	s1,
		character(*), intent(in)	s2
	)

Definition at line 67 of file hecmw_setup_util_f.f90.

Here is the caller graph for this function:

hecmw_strupr()

subroutine hecmw_setup_util::hecmw_strupr

(

character(*)

s

)

Definition at line 53 of file hecmw_setup_util_f.f90.

node_global_to_local()

integer(kind=kint) function hecmw_setup_util::node_global_to_local	(	type (hecmwst_local_mesh), target	hecMESH,
		integer(kind=kint), dimension(:)	list,
		integer(kind=kint)	n
	)

Definition at line 150 of file hecmw_setup_util_f.f90.

Here is the caller graph for this function:

node_grp_name_to_id()

subroutine hecmw_setup_util::node_grp_name_to_id	(	type (hecmwst_local_mesh)	hecMESH,
		character(len=*)	header_name,
		integer(kind=kint)	n,
		character(hecmw_name_len), dimension(:)	grp_id_name,
		integer(kind=kint), dimension(:), pointer	grp_ID
	)

Definition at line 406 of file hecmw_setup_util_f.f90.

Here is the call graph for this function:

node_grp_name_to_id_ex()

subroutine hecmw_setup_util::node_grp_name_to_id_ex	(	type (hecmwst_local_mesh), target	hecMESH,
		character(len=*)	header_name,
		integer(kind=kint)	n,
		character(len=hecmw_name_len), dimension(:)	grp_id_name,
		integer(kind=kint), dimension(:)	grp_ID
	)

Definition at line 463 of file hecmw_setup_util_f.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

reallocate_integer()

subroutine hecmw_setup_util::reallocate_integer	(	integer(kind=kint), dimension(:), pointer	array,
		integer(kind=kint)	n
	)

Definition at line 922 of file hecmw_setup_util_f.f90.

reallocate_real()

subroutine hecmw_setup_util::reallocate_real	(	real(kind=kreal), dimension(:), pointer	array,
		integer(kind=kint)	n
	)

Definition at line 931 of file hecmw_setup_util_f.f90.

surf_grp_name_to_id_ex()

subroutine hecmw_setup_util::surf_grp_name_to_id_ex	(	type (hecmwst_local_mesh), target	hecMESH,
		character(len=*)	header_name,
		integer(kind=kint)	n,
		character(len=hecmw_name_len), dimension(:)	grp_id_name,
		integer(kind=kint), dimension(:)	grp_ID
	)

Definition at line 573 of file hecmw_setup_util_f.f90.

Here is the call graph for this function: