![]() |
FrontISTR 5.2.0
Large-scale structural analysis program with finit element method
|
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 | 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_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, my_rank) |
subroutine | fstr_setup_visualize_main (ctrl, vis_filename) |
This module contains auxiliary functions in calculation setup.
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 1028 of file fstr_setup_util.f90.
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 | ||
) |
hecmesh | mesh definition |
Definition at line 368 of file fstr_setup_util.f90.
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 | ||
) |
hecmesh | mesh definition |
Definition at line 286 of file fstr_setup_util.f90.
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 | ||
) |
hecmesh | mesh definition |
Definition at line 324 of file fstr_setup_util.f90.
subroutine fstr_setup_util::backset_group_pointers | ( | type (hecmwst_local_mesh), target | hecmesh, |
character(len=*) | grp_type_name | ||
) |
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 | ||
) |
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.
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.
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.
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 | ||
) |
subroutine fstr_setup_util::fstr_ctrl_err_stop |
Definition at line 94 of file fstr_setup_util.f90.
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 | ||
) |
array | array to be modified | |
[in] | old_size | current array size |
[in] | nindex | number of items to be deleted |
Definition at line 1272 of file fstr_setup_util.f90.
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 | ||
) |
array | array to be modified | |
[in] | old_size | current array size |
[in] | nitem | number of items to be deleted |
Definition at line 1302 of file fstr_setup_util.f90.
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 | ||
) |
array | array to be modified | |
[in] | old_size | current array size |
[in] | nitem | number of items to be deleted |
Definition at line 1332 of file fstr_setup_util.f90.
subroutine fstr_setup_util::fstr_expand_index_array | ( | integer(kind=kint), dimension(:), pointer | array, |
integer(kind=kint) | old_size, | ||
integer(kind=kint) | new_size | ||
) |
subroutine fstr_setup_util::fstr_expand_integer_array | ( | integer(kind=kint), dimension(:), pointer | array, |
integer(kind=kint) | old_size, | ||
integer(kind=kint) | new_size | ||
) |
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 | ||
) |
subroutine fstr_setup_util::fstr_expand_name_array | ( | type(fstr_str_arr) | array, |
integer(kind=kint) | old_size, | ||
integer(kind=kint) | new_size | ||
) |
subroutine fstr_setup_util::fstr_expand_real_array | ( | real(kind=kreal), dimension(:), pointer | array, |
integer(kind=kint) | old_size, | ||
integer(kind=kint) | new_size | ||
) |
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 | ||
) |
subroutine fstr_setup_util::fstr_setup_util_err_stop | ( | character(*) | msg | ) |
subroutine fstr_setup_util::fstr_setup_visualize | ( | integer(kind=kint) | ctrl, |
integer(kind=kint) | my_rank | ||
) |
Definition at line 1389 of file fstr_setup_util.f90.
subroutine fstr_setup_util::fstr_setup_visualize_main | ( | integer(kind=kint) | ctrl, |
character(hecmw_filename_len) | vis_filename | ||
) |
Definition at line 1409 of file fstr_setup_util.f90.
logical function fstr_setup_util::fstr_str2index | ( | character(*) | s, |
integer | x | ||
) |
Definition at line 32 of file fstr_setup_util.f90.
logical function fstr_setup_util::fstr_streqr | ( | character(*) | s1, |
character(*) | s2 | ||
) |
Definition at line 71 of file fstr_setup_util.f90.
subroutine fstr_setup_util::fstr_strupr | ( | character(*) | s | ) |
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 1049 of file fstr_setup_util.f90.
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.
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.
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.
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.
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 1071 of file fstr_setup_util.f90.
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.
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.
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 | ||
) |
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.
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 | ||
) |
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.
subroutine fstr_setup_util::reallocate_integer | ( | integer(kind=kint), dimension(:), pointer | array, |
integer(kind=kint) | n | ||
) |
subroutine fstr_setup_util::reallocate_real | ( | real(kind=kreal), dimension(:), pointer | array, |
integer(kind=kint) | n | ||
) |
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.
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 | ||
) |