fstr_setup_util Module Reference

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

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

Functions/Subroutines
logical function	fstr_str2index (s, x)
subroutine	fstr_strupr (s)
logical function	fstr_streqr (s1, s2)
subroutine	fstr_ctrl_err_stop
subroutine	fstr_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)
subroutine	append_new_group (hecMESH, grp_type_name, name, count, list, grp_id)
subroutine	append_node_grp_from_surf_grp (hecMESH, sgrp_id, ngrp_id)
subroutine	append_intersection_node_grp (hecMESH, ngrp_id1, ngrp_id2)
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)
integer(kind=kint) function	get_local_member_index (hecMESH, type_name, name, local_id)
integer(kind=kint) function	get_sorted_local_member_index (hecMESH, hecPARAM, type_name, name, local_id)
subroutine	bsearch_int_array (array, istart, iend, val, idx)
recursive subroutine	qsort_int_array (array, istart, iend)
subroutine	uniq_int_array (array, len, newlen)
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	nodesurf_grp_name_to_id_ex (hecMESH, header_name, n, grp_id_name, grp_ID, grp_TYPE)
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)
subroutine	dload_grp_name_to_id_ex (hecMESH, n, grp_id_name, fg_surface, grp_ID)
subroutine	append_new_amplitude (amp, name, type_def, type_time, type_val, np, val, table)
	Append new amplitude table at the end of existing amplitude tables. More...
subroutine	amp_name_to_id (hecMESH, header_name, aname, id)
subroutine	get_amp_id (hecMESH, aname, id)
integer(kind=kint) function	get_node_grp_member_n (hecMESH, grp_name_array, n)
subroutine	fstr_expand_index_array (array, old_size, new_size)
subroutine	fstr_expand_char_array (array, old_size, new_size)
subroutine	fstr_expand_integer_array (array, old_size, new_size)
subroutine	fstr_expand_real_array (array, old_size, new_size)
subroutine	fstr_expand_integer_array2 (array, column, old_size, new_size)
subroutine	fstr_expand_real_array2 (array, column, old_size, new_size)
subroutine	fstr_expand_name_array (array, old_size, new_size)
subroutine	fstr_delete_index_array (array, old_size, nindex)
subroutine	fstr_delete_integer_array (array, old_size, nitem)
subroutine	fstr_delete_real_array (array, old_size, nitem)
subroutine	reallocate_integer (array, n)
subroutine	reallocate_real (array, n)
subroutine	fstr_setup_visualize (ctrl, hecMESH)
subroutine	fstr_setup_visualize_main (ctrl, vis_filename)

Detailed Description

This module contains auxiliary functions in calculation setup.

Function/Subroutine Documentation

amp_name_to_id()

subroutine fstr_setup_util::amp_name_to_id	(	type (hecmwst_local_mesh)	hecMESH,
		character(len=*)	header_name,
		character(len=hecmw_name_len)	aname,
		integer(kind=kint)	id
	)

Definition at line 1078 of file fstr_setup_util.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

append_intersection_node_grp()

subroutine fstr_setup_util::append_intersection_node_grp	(	type(hecmwst_local_mesh), pointer	hecMESH,
		integer(kind=kint), intent(in)	ngrp_id1,
		integer(kind=kint), intent(in)	ngrp_id2
	)

Parameters

hecmesh

mesh definition

Definition at line 369 of file fstr_setup_util.f90.

Here is the call graph for this function:

append_new_amplitude()

subroutine fstr_setup_util::append_new_amplitude	(	type( hecmwst_amplitude ), intent(inout)	amp,
		character(len=hecmw_name_len), intent(in)	name,
		integer(kind=kint), intent(in)	type_def,
		integer(kind=kint), intent(in)	type_time,
		integer(kind=kint), intent(in)	type_val,
		integer(kind=kint), intent(in)	np,
		real(kind=kreal), dimension(:), intent(in)	val,
		real(kind=kreal), dimension(:), intent(in)	table
	)

Append new amplitude table at the end of existing amplitude tables.

Parameters

[in,out]	amp	amplitude table structure
[in]	name	name of amplitude table
[in]	type_def	HECMW_AMP_TYPEDEF_TABULAR
[in]	type_time	HECMW_AMP_TYPETIME_STEP
[in]	type_val	HECMW_AMP_TYPEVAL_{RELATIVE|ABSOLUTE}
[in]	np	number of table items
[in]	val	values of the table
[in]	table	time points of the table

Definition at line 1030 of file fstr_setup_util.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

append_new_group()

subroutine fstr_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 287 of file fstr_setup_util.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

append_node_grp_from_surf_grp()

subroutine fstr_setup_util::append_node_grp_from_surf_grp	(	type(hecmwst_local_mesh), pointer	hecMESH,
		integer(kind=kint), intent(in)	sgrp_id,
		integer(kind=kint), intent(out)	ngrp_id
	)

Parameters

hecmesh

mesh definition

Definition at line 325 of file fstr_setup_util.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

backset_group_pointers()

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

Definition at line 147 of file fstr_setup_util.f90.

Here is the caller graph for this function:

bsearch_int_array()

subroutine fstr_setup_util::bsearch_int_array	(	integer(kind=kint), dimension(:), intent(in)	array,
		integer(kind=kint), intent(in)	istart,
		integer(kind=kint), intent(in)	iend,
		integer(kind=kint), intent(in)	val,
		integer(kind=kint), intent(out)	idx
	)

Definition at line 600 of file fstr_setup_util.f90.

Here is the caller graph for this function:

dload_grp_name_to_id_ex()

subroutine fstr_setup_util::dload_grp_name_to_id_ex	(	type (hecmwst_local_mesh), target	hecMESH,
		integer(kind=kint)	n,
		character(hecmw_name_len), dimension(:)	grp_id_name,
		logical, dimension(:)	fg_surface,
		integer(kind=kint), dimension(:)	grp_ID
	)

Definition at line 936 of file fstr_setup_util.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

elem_global_to_local()

integer(kind=kint) function fstr_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 210 of file fstr_setup_util.f90.

Here is the call graph for this function:

elem_grp_name_to_id()

subroutine fstr_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 703 of file fstr_setup_util.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

elem_grp_name_to_id_ex()

subroutine fstr_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 853 of file fstr_setup_util.f90.

Here is the call graph for this function:

fstr_ctrl_err_stop()

subroutine fstr_setup_util::fstr_ctrl_err_stop

Definition at line 95 of file fstr_setup_util.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

fstr_delete_index_array()

subroutine fstr_setup_util::fstr_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 1350 of file fstr_setup_util.f90.

Here is the caller graph for this function:

fstr_delete_integer_array()

subroutine fstr_setup_util::fstr_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 1380 of file fstr_setup_util.f90.

Here is the caller graph for this function:

fstr_delete_real_array()

subroutine fstr_setup_util::fstr_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 1410 of file fstr_setup_util.f90.

Here is the caller graph for this function:

fstr_expand_char_array()

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

Definition at line 1172 of file fstr_setup_util.f90.

Here is the caller graph for this function:

fstr_expand_index_array()

subroutine fstr_setup_util::fstr_expand_index_array	(	integer(kind=kint), dimension(:), pointer	array,
		integer(kind=kint)	old_size,
		integer(kind=kint)	new_size
	)

Definition at line 1144 of file fstr_setup_util.f90.

Here is the caller graph for this function:

fstr_expand_integer_array()

subroutine fstr_setup_util::fstr_expand_integer_array	(	integer(kind=kint), dimension(:), pointer	array,
		integer(kind=kint)	old_size,
		integer(kind=kint)	new_size
	)

Definition at line 1200 of file fstr_setup_util.f90.

Here is the caller graph for this function:

fstr_expand_integer_array2()

subroutine fstr_setup_util::fstr_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 1257 of file fstr_setup_util.f90.

Here is the caller graph for this function:

fstr_expand_name_array()

subroutine fstr_setup_util::fstr_expand_name_array	(	type(fstr_str_arr)	array,
		integer(kind=kint)	old_size,
		integer(kind=kint)	new_size
	)

Definition at line 1324 of file fstr_setup_util.f90.

Here is the caller graph for this function:

fstr_expand_real_array()

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

Definition at line 1228 of file fstr_setup_util.f90.

Here is the caller graph for this function:

fstr_expand_real_array2()

subroutine fstr_setup_util::fstr_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 1292 of file fstr_setup_util.f90.

Here is the caller graph for this function:

fstr_setup_util_err_stop()

subroutine fstr_setup_util::fstr_setup_util_err_stop

(

character(*)

msg

)

Definition at line 107 of file fstr_setup_util.f90.

Here is the caller graph for this function:

fstr_setup_visualize()

subroutine fstr_setup_util::fstr_setup_visualize	(	integer(kind=kint)	ctrl,
		type (hecmwst_local_mesh)	hecMESH
	)

Definition at line 1467 of file fstr_setup_util.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

fstr_setup_visualize_main()

subroutine fstr_setup_util::fstr_setup_visualize_main	(	integer(kind=kint)	ctrl,
		character(hecmw_filename_len)	vis_filename
	)

Definition at line 1491 of file fstr_setup_util.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

fstr_str2index()

logical function fstr_setup_util::fstr_str2index	(	character(*)	s,
		integer	x
	)

Definition at line 33 of file fstr_setup_util.f90.

Here is the caller graph for this function:

fstr_streqr()

logical function fstr_setup_util::fstr_streqr	(	character(*)	s1,
		character(*)	s2
	)

Definition at line 72 of file fstr_setup_util.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

fstr_strupr()

subroutine fstr_setup_util::fstr_strupr

(

character(*)

s

)

Definition at line 58 of file fstr_setup_util.f90.

Here is the caller graph for this function:

get_amp_id()

subroutine fstr_setup_util::get_amp_id	(	type (hecmwst_local_mesh)	hecMESH,
		character(len=hecmw_name_len)	aname,
		integer(kind=kint)	id
	)

Definition at line 1099 of file fstr_setup_util.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

get_grp_id()

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

Definition at line 436 of file fstr_setup_util.f90.

Here is the call graph for this function:

get_grp_member()

integer(kind=kint) function fstr_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 464 of file fstr_setup_util.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 fstr_setup_util::get_grp_member_n	(	type (hecmwst_local_mesh), target	hecMESH,
		character(len=*)	grp_type_name,
		character(len=*)	name
	)

Definition at line 410 of file fstr_setup_util.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

get_local_member_index()

integer(kind=kint) function fstr_setup_util::get_local_member_index	(	type (hecmwst_local_mesh), target	hecMESH,
		character(len=*)	type_name,
		character(len=*)	name,
		integer(kind=kint)	local_id
	)

Definition at line 516 of file fstr_setup_util.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 fstr_setup_util::get_node_grp_member_n	(	type (hecmwst_local_mesh), target	hecMESH,
		type(fstr_str_arr)	grp_name_array,
		integer(kind=kint)	n
	)

Definition at line 1121 of file fstr_setup_util.f90.

Here is the call graph for this function:

get_sorted_local_member_index()

integer(kind=kint) function fstr_setup_util::get_sorted_local_member_index	(	type (hecmwst_local_mesh), target	hecMESH,
		type(fstr_param), target	hecPARAM,
		character(len=*)	type_name,
		character(len=*)	name,
		integer(kind=kint)	local_id
	)

Definition at line 558 of file fstr_setup_util.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

node_global_to_local()

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

Definition at line 171 of file fstr_setup_util.f90.

Here is the caller graph for this function:

node_grp_name_to_id()

subroutine fstr_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 677 of file fstr_setup_util.f90.

Here is the call graph for this function:

node_grp_name_to_id_ex()

subroutine fstr_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 734 of file fstr_setup_util.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

nodesurf_grp_name_to_id_ex()

subroutine fstr_setup_util::nodesurf_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,
		integer(kind=kint), dimension(:)	grp_TYPE
	)

Definition at line 792 of file fstr_setup_util.f90.

Here is the call graph for this function:

qsort_int_array()

recursive subroutine fstr_setup_util::qsort_int_array	(	integer(kind=kint), dimension(:), intent(inout)	array,
		integer(kind=kint), intent(in)	istart,
		integer(kind=kint), intent(in)	iend
	)

Definition at line 629 of file fstr_setup_util.f90.

Here is the caller graph for this function:

reallocate_integer()

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

Definition at line 1442 of file fstr_setup_util.f90.

Here is the caller graph for this function:

reallocate_real()

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

Definition at line 1451 of file fstr_setup_util.f90.

Here is the caller graph for this function:

surf_grp_name_to_id_ex()

subroutine fstr_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 909 of file fstr_setup_util.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

uniq_int_array()

subroutine fstr_setup_util::uniq_int_array	(	integer(kind=kint), dimension(:), intent(inout)	array,
		integer(kind=kint), intent(in)	len,
		integer(kind=kint), intent(out)	newlen
	)

Definition at line 658 of file fstr_setup_util.f90.

Here is the caller graph for this function: