FrontISTR  5.7.0
Large-scale structural analysis program with finit element method
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 1077 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
hecmeshmesh definition

Definition at line 368 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]ampamplitude table structure
[in]namename of amplitude table
[in]type_defHECMW_AMP_TYPEDEF_TABULAR
[in]type_timeHECMW_AMP_TYPETIME_STEP
[in]type_valHECMW_AMP_TYPEVAL_{RELATIVE|ABSOLUTE}
[in]npnumber of table items
[in]valvalues of the table
[in]tabletime points of the table

Definition at line 1029 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
hecmeshmesh definition

Definition at line 286 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
hecmeshmesh definition

Definition at line 324 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 146 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 599 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 935 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 209 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 702 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 852 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 94 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
arrayarray to be modified
[in]old_sizecurrent array size
[in]nindexnumber of items to be deleted

Definition at line 1349 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
arrayarray to be modified
[in]old_sizecurrent array size
[in]nitemnumber of items to be deleted

Definition at line 1379 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
arrayarray to be modified
[in]old_sizecurrent array size
[in]nitemnumber of items to be deleted

Definition at line 1409 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 1171 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 1143 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 1199 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 1256 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 1323 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 1227 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 1291 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 106 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 1466 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 1490 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 32 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 71 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 57 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 1098 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 435 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 463 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 409 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 515 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 1120 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 557 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 170 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 676 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 733 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 791 of file fstr_setup_util.f90.

Here is the call graph for this function:
Here is the caller 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 628 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 1441 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 1450 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 908 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 657 of file fstr_setup_util.f90.

Here is the caller graph for this function: