hecmw_util Module Reference

I/O and Utility. More...

Data Types
type	hecmwst_section
type	hecmwst_material
type	hecmwst_mpc
type	hecmwst_amplitude
type	hecmwst_node_grp
type	hecmwst_elem_grp
type	hecmwst_surf_grp
type	hecmwst_contact_pair
type	hecmwst_refine_origin
type	hecmwst_local_mesh
type	hecmwst_matrix_comm
type	hecmwst_index_value_pair
type	hecmwst_matrix_lagrange
	Structure for Lagrange multiplier-related part of stiffness matrix (Lagrange multiplier-related matrix) More...
type	hecmwst_matrix

Functions/Subroutines
pure integer(kind=kint) function	hecmw_partcontact_get_mode (flag_partcontact)
pure integer(kind=kint) function	hecmw_partcontact_get_owner (flag_partcontact)
pure logical function	hecmw_has_internal_node (hecMESH, nn, nodLOCAL)
subroutine	hecmw_init
subroutine	hecmw_comm_init
subroutine	hecmw_init_nocontrol ()
subroutine	hecmw_init_ex (ctrlfile)
subroutine	hecmw_finalize
subroutine	hecmw_abort (comm, code)
real(kind=kreal) function	hecmw_wtime ()
real(kind=kreal) function	hecmw_wtick ()
integer(kind=kint) function	hecmw_comm_get_comm ()
integer(kind=kint) function	hecmw_comm_get_rank ()
integer(kind=kint) function	hecmw_comm_get_size ()
subroutine	hecmw_nullify_section (P)
subroutine	hecmw_nullify_material (P)
subroutine	hecmw_nullify_mpc (P)
subroutine	hecmw_initialize_mpc (mpc, n_mpc, n_item)
subroutine	hecmw_finalize_mpc (P)
subroutine	hecmw_nullify_amplitude (P)
subroutine	hecmw_nullify_node_grp (P)
subroutine	hecmw_nullify_elem_grp (P)
subroutine	hecmw_nullify_surf_grp (P)
subroutine	hecmw_nullify_contact_pair (P)
subroutine	hecmw_nullify_refine_origin (P)
subroutine	hecmw_nullify_mesh (P)
subroutine	hecmw_nullify_matrix_comm (P)
subroutine	hecmw_nullify_matrix (P)
subroutine	hecmw_print_matrix (fname, P)
subroutine	hecmw_read_matrix (fname, P)
subroutine	hecmw_clone_matrix (hecMATorig, hecMAT)
subroutine	hecmw_copy_matrix (hecMATorig, hecMAT)
subroutine	hecmw_blockmatrix_expand (hecMATorig, hecMAT, NDOF)
subroutine	hecmw_vector_contract (hecMATorig, hecMAT, NDOF)

Variables
integer(kind=4), parameter	kint = 4
integer(kind=4), parameter	kreal = 8
integer(kind=kint), parameter	hecmw_name_len = 63
integer(kind=kint), parameter	hecmw_header_len = 127
integer(kind=kint), parameter	hecmw_msg_len = 255
integer(kind=kint), parameter	hecmw_filename_len = 1023
integer(kind=kint), parameter	hecmw_exit_success = 0
	exit status returned to the OS (keep the values below 256) More...
integer(kind=kint), parameter	hecmw_exit_usage = 1
integer(kind=kint), parameter	hecmw_exit_input = 2
integer(kind=kint), parameter	hecmw_exit_model = 3
integer(kind=kint), parameter	hecmw_exit_solver_setup = 4
integer(kind=kint), parameter	hecmw_exit_noconv = 10
integer(kind=kint), parameter	hecmw_exit_internal = 20
integer(kind=kint), parameter	hecmw_sum = 46801
integer(kind=kint), parameter	hecmw_prod = 46802
integer(kind=kint), parameter	hecmw_max = 46803
integer(kind=kint), parameter	hecmw_min = 46804
integer(kind=kint), parameter	hecmw_lor = 46805
integer(kind=kint), parameter	hecmw_land = 46806
integer(kind=kint), parameter	hecmw_integer = 53951
integer(kind=kint), parameter	hecmw_single_precision = 53952
integer(kind=kint), parameter	hecmw_double_precision = 53953
integer(kind=kint), parameter	hecmw_character = 53954
integer(kind=kint), parameter	hecmw_status_size = MPI_STATUS_SIZE
integer(kind=kint), parameter	hecmw_sect_type_solid = 1
integer(kind=kint), parameter	hecmw_sect_type_shell = 2
integer(kind=kint), parameter	hecmw_sect_type_beam = 3
integer(kind=kint), parameter	hecmw_sect_type_interface = 4
integer(kind=kint), parameter	hecmw_sect_opt_pstress = 0
integer(kind=kint), parameter	hecmw_sect_opt_pstrain = 1
integer(kind=kint), parameter	hecmw_sect_opt_asymmetry = 2
integer(kind=kint), parameter	hecmw_sect_opt_pstress_ri = 10
integer(kind=kint), parameter	hecmw_sect_opt_pstrain_ri = 11
integer(kind=kint), parameter	hecmw_sect_opt_asymmetry_ri = 12
integer(kind=kint), parameter	hecmw_amp_typedef_tabular = 1
integer(kind=kint), parameter	hecmw_amp_typetime_step = 1
integer(kind=kint), parameter	hecmw_amp_typetime_total = 2
integer(kind=kint), parameter	hecmw_amp_typeval_relative = 1
integer(kind=kint), parameter	hecmw_amp_typeval_absolute = 2
integer(kind=kint), parameter	hecmw_bcgrptype_desplacement = 1
integer(kind=kint), parameter	hecmw_bcgrptype_flux = 2
integer(kind=kint), parameter	hecmw_contact_type_node_surf = 1
integer(kind=kint), parameter	hecmw_contact_type_surf_surf = 2
integer(kind=kint), parameter	hecmw_contact_type_node_elem = 3
integer(kind=kint), parameter	hecmw_flag_parttype_unknown = 0
integer(kind=kint), parameter	hecmw_flag_parttype_nodebased = 1
integer(kind=kint), parameter	hecmw_flag_parttype_elembased = 2
integer(kind=kint), parameter	hecmw_flag_partcontact_unknown = 0
integer(kind=kint), parameter	hecmw_flag_partcontact_aggregate = 1
integer(kind=kint), parameter	hecmw_flag_partcontact_distribute = 2
integer(kind=kint), parameter	hecmw_flag_partcontact_simple = 3
integer(kind=kint), parameter	hecmw_flag_partcontact_mode_mask = 255
integer(kind=kint), parameter	hecmw_flag_partcontact_owner_mask = 256
integer(kind=kint), parameter	hecmw_flag_partcontact_owner_master = 0
integer(kind=kint), parameter	hecmw_flag_partcontact_owner_slave = 256

Detailed Description

I/O and Utility.

Function/Subroutine Documentation

hecmw_abort()

subroutine hecmw_util::hecmw_abort	(	integer(kind=kint)	comm,
		integer(kind=kint), intent(in), optional	code
	)

Definition at line 610 of file hecmw_util_f.F90.

Here is the caller graph for this function:

hecmw_blockmatrix_expand()

subroutine hecmw_util::hecmw_blockmatrix_expand	(	type (hecmwst_matrix )	hecMATorig,
		type (hecmwst_matrix ), pointer	hecMAT,
		integer(kind=kint)	NDOF
	)

Definition at line 1066 of file hecmw_util_f.F90.

Here is the call graph for this function:

hecmw_clone_matrix()

subroutine hecmw_util::hecmw_clone_matrix	(	type (hecmwst_matrix )	hecMATorig,
		type (hecmwst_matrix ), pointer	hecMAT
	)

Definition at line 1005 of file hecmw_util_f.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

hecmw_comm_get_comm()

integer(kind=kint) function hecmw_util::hecmw_comm_get_comm

Definition at line 656 of file hecmw_util_f.F90.

Here is the caller graph for this function:

hecmw_comm_get_rank()

integer(kind=kint) function hecmw_util::hecmw_comm_get_rank

Definition at line 667 of file hecmw_util_f.F90.

Here is the caller graph for this function:

hecmw_comm_get_size()

integer(kind=kint) function hecmw_util::hecmw_comm_get_size

Definition at line 678 of file hecmw_util_f.F90.

Here is the caller graph for this function:

hecmw_comm_init()

subroutine hecmw_util::hecmw_comm_init

Definition at line 534 of file hecmw_util_f.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

hecmw_copy_matrix()

subroutine hecmw_util::hecmw_copy_matrix	(	type (hecmwst_matrix )	hecMATorig,
		type (hecmwst_matrix ), pointer	hecMAT
	)

Definition at line 1029 of file hecmw_util_f.F90.

Here is the call graph for this function:

hecmw_finalize()

subroutine hecmw_util::hecmw_finalize

Definition at line 592 of file hecmw_util_f.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

hecmw_finalize_mpc()

subroutine hecmw_util::hecmw_finalize_mpc

(

type( hecmwst_mpc )

P

)

Definition at line 730 of file hecmw_util_f.F90.

hecmw_has_internal_node()

pure logical function hecmw_util::hecmw_has_internal_node	(	type(hecmwst_local_mesh), intent(in)	hecMESH,
		integer(kind=kint), intent(in)	nn,
		integer(kind=kint), dimension(:), intent(in)	nodLOCAL
	)

Definition at line 509 of file hecmw_util_f.F90.

hecmw_init()

subroutine hecmw_util::hecmw_init

Definition at line 529 of file hecmw_util_f.F90.

Here is the call graph for this function:

hecmw_init_ex()

subroutine hecmw_util::hecmw_init_ex

(

character(len=hecmw_filename_len)

ctrlfile

)

Definition at line 566 of file hecmw_util_f.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

hecmw_init_nocontrol()

subroutine hecmw_util::hecmw_init_nocontrol

Definition at line 554 of file hecmw_util_f.F90.

Here is the call graph for this function:

hecmw_initialize_mpc()

subroutine hecmw_util::hecmw_initialize_mpc	(	type( hecmwst_mpc ), intent(inout)	mpc,
		integer(kind=kint), intent(in)	n_mpc,
		integer(kind=kint), intent(in)	n_item
	)

Definition at line 718 of file hecmw_util_f.F90.

hecmw_nullify_amplitude()

subroutine hecmw_util::hecmw_nullify_amplitude

(

type( hecmwst_amplitude )

P

)

Definition at line 738 of file hecmw_util_f.F90.

Here is the caller graph for this function:

hecmw_nullify_contact_pair()

subroutine hecmw_util::hecmw_nullify_contact_pair

(

type( hecmwst_contact_pair )

P

)

Definition at line 783 of file hecmw_util_f.F90.

Here is the caller graph for this function:

hecmw_nullify_elem_grp()

subroutine hecmw_util::hecmw_nullify_elem_grp

(

type( hecmwst_elem_grp )

P

)

Definition at line 761 of file hecmw_util_f.F90.

Here is the caller graph for this function:

hecmw_nullify_material()

subroutine hecmw_util::hecmw_nullify_material

(

type( hecmwst_material )

P

)

Definition at line 699 of file hecmw_util_f.F90.

Here is the caller graph for this function:

hecmw_nullify_matrix()

subroutine hecmw_util::hecmw_nullify_matrix

(

type( hecmwst_matrix )

P

)

Definition at line 898 of file hecmw_util_f.F90.

Here is the caller graph for this function:

hecmw_nullify_matrix_comm()

subroutine hecmw_util::hecmw_nullify_matrix_comm

(

type( hecmwst_matrix_comm )

P

)

Definition at line 887 of file hecmw_util_f.F90.

hecmw_nullify_mesh()

subroutine hecmw_util::hecmw_nullify_mesh

(

type( hecmwst_local_mesh )

P

)

Definition at line 799 of file hecmw_util_f.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

hecmw_nullify_mpc()

subroutine hecmw_util::hecmw_nullify_mpc

(

type( hecmwst_mpc )

P

)

Definition at line 709 of file hecmw_util_f.F90.

Here is the caller graph for this function:

hecmw_nullify_node_grp()

subroutine hecmw_util::hecmw_nullify_node_grp

(

type( hecmwst_node_grp )

P

)

Definition at line 749 of file hecmw_util_f.F90.

Here is the caller graph for this function:

hecmw_nullify_refine_origin()

subroutine hecmw_util::hecmw_nullify_refine_origin

(

type( hecmwst_refine_origin )

P

)

Definition at line 792 of file hecmw_util_f.F90.

Here is the caller graph for this function:

hecmw_nullify_section()

subroutine hecmw_util::hecmw_nullify_section

(

type( hecmwst_section )

P

)

Definition at line 687 of file hecmw_util_f.F90.

Here is the caller graph for this function:

hecmw_nullify_surf_grp()

subroutine hecmw_util::hecmw_nullify_surf_grp

(

type( hecmwst_surf_grp )

P

)

Definition at line 772 of file hecmw_util_f.F90.

Here is the caller graph for this function:

hecmw_partcontact_get_mode()

pure integer(kind=kint) function hecmw_util::hecmw_partcontact_get_mode

(

integer(kind=kint), intent(in)

flag_partcontact

)

Definition at line 489 of file hecmw_util_f.F90.

hecmw_partcontact_get_owner()

pure integer(kind=kint) function hecmw_util::hecmw_partcontact_get_owner

(

integer(kind=kint), intent(in)

flag_partcontact

)

Definition at line 494 of file hecmw_util_f.F90.

hecmw_print_matrix()

subroutine hecmw_util::hecmw_print_matrix	(	character(len=*), intent(in)	fname,
		type( hecmwst_matrix ), intent(in)	P
	)

Definition at line 914 of file hecmw_util_f.F90.

hecmw_read_matrix()

subroutine hecmw_util::hecmw_read_matrix	(	character(len=*), intent(in)	fname,
		type( hecmwst_matrix ), intent(out)	P
	)

Definition at line 955 of file hecmw_util_f.F90.

hecmw_vector_contract()

subroutine hecmw_util::hecmw_vector_contract	(	type (hecmwst_matrix )	hecMATorig,
		type (hecmwst_matrix ), pointer	hecMAT,
		integer(kind=kint)	NDOF
	)

Definition at line 1137 of file hecmw_util_f.F90.

Here is the caller graph for this function:

hecmw_wtick()

real(kind=kreal) function hecmw_util::hecmw_wtick

Definition at line 645 of file hecmw_util_f.F90.

Here is the call graph for this function:

hecmw_wtime()

real(kind=kreal) function hecmw_util::hecmw_wtime

Definition at line 634 of file hecmw_util_f.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

hecmw_amp_typedef_tabular

integer(kind=kint), parameter hecmw_util::hecmw_amp_typedef_tabular = 1

Definition at line 133 of file hecmw_util_f.F90.

hecmw_amp_typetime_step

integer(kind=kint), parameter hecmw_util::hecmw_amp_typetime_step = 1

Definition at line 135 of file hecmw_util_f.F90.

hecmw_amp_typetime_total

integer(kind=kint), parameter hecmw_util::hecmw_amp_typetime_total = 2

Definition at line 136 of file hecmw_util_f.F90.

hecmw_amp_typeval_absolute

integer(kind=kint), parameter hecmw_util::hecmw_amp_typeval_absolute = 2

Definition at line 139 of file hecmw_util_f.F90.

hecmw_amp_typeval_relative

integer(kind=kint), parameter hecmw_util::hecmw_amp_typeval_relative = 1

Definition at line 138 of file hecmw_util_f.F90.

hecmw_bcgrptype_desplacement

integer(kind=kint), parameter hecmw_util::hecmw_bcgrptype_desplacement = 1

Definition at line 161 of file hecmw_util_f.F90.

hecmw_bcgrptype_flux

integer(kind=kint), parameter hecmw_util::hecmw_bcgrptype_flux = 2

Definition at line 162 of file hecmw_util_f.F90.

hecmw_character

integer(kind=kint), parameter hecmw_util::hecmw_character = 53954

Definition at line 41 of file hecmw_util_f.F90.

hecmw_contact_type_node_elem

integer(kind=kint), parameter hecmw_util::hecmw_contact_type_node_elem = 3

Definition at line 226 of file hecmw_util_f.F90.

hecmw_contact_type_node_surf

integer(kind=kint), parameter hecmw_util::hecmw_contact_type_node_surf = 1

Definition at line 224 of file hecmw_util_f.F90.

hecmw_contact_type_surf_surf

integer(kind=kint), parameter hecmw_util::hecmw_contact_type_surf_surf = 2

Definition at line 225 of file hecmw_util_f.F90.

hecmw_double_precision

integer(kind=kint), parameter hecmw_util::hecmw_double_precision = 53953

Definition at line 40 of file hecmw_util_f.F90.

hecmw_exit_input

integer(kind=kint), parameter hecmw_util::hecmw_exit_input = 2

Definition at line 26 of file hecmw_util_f.F90.

hecmw_exit_internal

integer(kind=kint), parameter hecmw_util::hecmw_exit_internal = 20

Definition at line 30 of file hecmw_util_f.F90.

hecmw_exit_model

integer(kind=kint), parameter hecmw_util::hecmw_exit_model = 3

Definition at line 27 of file hecmw_util_f.F90.

hecmw_exit_noconv

integer(kind=kint), parameter hecmw_util::hecmw_exit_noconv = 10

Definition at line 29 of file hecmw_util_f.F90.

hecmw_exit_solver_setup

integer(kind=kint), parameter hecmw_util::hecmw_exit_solver_setup = 4

Definition at line 28 of file hecmw_util_f.F90.

hecmw_exit_success

integer(kind=kint), parameter hecmw_util::hecmw_exit_success = 0

exit status returned to the OS (keep the values below 256)

Definition at line 24 of file hecmw_util_f.F90.

hecmw_exit_usage

integer(kind=kint), parameter hecmw_util::hecmw_exit_usage = 1

Definition at line 25 of file hecmw_util_f.F90.

hecmw_filename_len

integer(kind=kint), parameter hecmw_util::hecmw_filename_len = 1023

Definition at line 21 of file hecmw_util_f.F90.

hecmw_flag_partcontact_aggregate

integer(kind=kint), parameter hecmw_util::hecmw_flag_partcontact_aggregate = 1

Definition at line 404 of file hecmw_util_f.F90.

hecmw_flag_partcontact_distribute

integer(kind=kint), parameter hecmw_util::hecmw_flag_partcontact_distribute = 2

Definition at line 405 of file hecmw_util_f.F90.

hecmw_flag_partcontact_mode_mask

integer(kind=kint), parameter hecmw_util::hecmw_flag_partcontact_mode_mask = 255

Definition at line 411 of file hecmw_util_f.F90.

hecmw_flag_partcontact_owner_mask

integer(kind=kint), parameter hecmw_util::hecmw_flag_partcontact_owner_mask = 256

Definition at line 412 of file hecmw_util_f.F90.

hecmw_flag_partcontact_owner_master

integer(kind=kint), parameter hecmw_util::hecmw_flag_partcontact_owner_master = 0

Definition at line 413 of file hecmw_util_f.F90.

hecmw_flag_partcontact_owner_slave

integer(kind=kint), parameter hecmw_util::hecmw_flag_partcontact_owner_slave = 256

Definition at line 414 of file hecmw_util_f.F90.

hecmw_flag_partcontact_simple

integer(kind=kint), parameter hecmw_util::hecmw_flag_partcontact_simple = 3

Definition at line 406 of file hecmw_util_f.F90.

hecmw_flag_partcontact_unknown

integer(kind=kint), parameter hecmw_util::hecmw_flag_partcontact_unknown = 0

Definition at line 403 of file hecmw_util_f.F90.

hecmw_flag_parttype_elembased

integer(kind=kint), parameter hecmw_util::hecmw_flag_parttype_elembased = 2

Definition at line 400 of file hecmw_util_f.F90.

hecmw_flag_parttype_nodebased

integer(kind=kint), parameter hecmw_util::hecmw_flag_parttype_nodebased = 1

Definition at line 399 of file hecmw_util_f.F90.

hecmw_flag_parttype_unknown

integer(kind=kint), parameter hecmw_util::hecmw_flag_parttype_unknown = 0

Definition at line 398 of file hecmw_util_f.F90.

hecmw_header_len

integer(kind=kint), parameter hecmw_util::hecmw_header_len = 127

Definition at line 19 of file hecmw_util_f.F90.

hecmw_integer

integer(kind=kint), parameter hecmw_util::hecmw_integer = 53951

Definition at line 38 of file hecmw_util_f.F90.

hecmw_land

integer(kind=kint), parameter hecmw_util::hecmw_land = 46806

Definition at line 37 of file hecmw_util_f.F90.

hecmw_lor

integer(kind=kint), parameter hecmw_util::hecmw_lor = 46805

Definition at line 36 of file hecmw_util_f.F90.

hecmw_max

integer(kind=kint), parameter hecmw_util::hecmw_max = 46803

Definition at line 34 of file hecmw_util_f.F90.

hecmw_min

integer(kind=kint), parameter hecmw_util::hecmw_min = 46804

Definition at line 35 of file hecmw_util_f.F90.

hecmw_msg_len

integer(kind=kint), parameter hecmw_util::hecmw_msg_len = 255

Definition at line 20 of file hecmw_util_f.F90.

hecmw_name_len

integer(kind=kint), parameter hecmw_util::hecmw_name_len = 63

Definition at line 18 of file hecmw_util_f.F90.

hecmw_prod

integer(kind=kint), parameter hecmw_util::hecmw_prod = 46802

Definition at line 33 of file hecmw_util_f.F90.

hecmw_sect_opt_asymmetry

integer(kind=kint), parameter hecmw_util::hecmw_sect_opt_asymmetry = 2

Definition at line 76 of file hecmw_util_f.F90.

hecmw_sect_opt_asymmetry_ri

integer(kind=kint), parameter hecmw_util::hecmw_sect_opt_asymmetry_ri = 12

Definition at line 79 of file hecmw_util_f.F90.

hecmw_sect_opt_pstrain

integer(kind=kint), parameter hecmw_util::hecmw_sect_opt_pstrain = 1

Definition at line 75 of file hecmw_util_f.F90.

hecmw_sect_opt_pstrain_ri

integer(kind=kint), parameter hecmw_util::hecmw_sect_opt_pstrain_ri = 11

Definition at line 78 of file hecmw_util_f.F90.

hecmw_sect_opt_pstress

integer(kind=kint), parameter hecmw_util::hecmw_sect_opt_pstress = 0

Definition at line 74 of file hecmw_util_f.F90.

hecmw_sect_opt_pstress_ri

integer(kind=kint), parameter hecmw_util::hecmw_sect_opt_pstress_ri = 10

Definition at line 77 of file hecmw_util_f.F90.

hecmw_sect_type_beam

integer(kind=kint), parameter hecmw_util::hecmw_sect_type_beam = 3

Definition at line 71 of file hecmw_util_f.F90.

hecmw_sect_type_interface

integer(kind=kint), parameter hecmw_util::hecmw_sect_type_interface = 4

Definition at line 72 of file hecmw_util_f.F90.

hecmw_sect_type_shell

integer(kind=kint), parameter hecmw_util::hecmw_sect_type_shell = 2

Definition at line 70 of file hecmw_util_f.F90.

hecmw_sect_type_solid

integer(kind=kint), parameter hecmw_util::hecmw_sect_type_solid = 1

Definition at line 69 of file hecmw_util_f.F90.

hecmw_single_precision

integer(kind=kint), parameter hecmw_util::hecmw_single_precision = 53952

Definition at line 39 of file hecmw_util_f.F90.

hecmw_status_size

integer(kind=kint), parameter hecmw_util::hecmw_status_size = MPI_STATUS_SIZE

Definition at line 44 of file hecmw_util_f.F90.

hecmw_sum

integer(kind=kint), parameter hecmw_util::hecmw_sum = 46801

Definition at line 32 of file hecmw_util_f.F90.

kint

integer(kind=4), parameter hecmw_util::kint = 4

Definition at line 15 of file hecmw_util_f.F90.

kreal

integer(kind=4), parameter hecmw_util::kreal = 8

Definition at line 16 of file hecmw_util_f.F90.