This module contains fstr control file data obtaining functions. More...

Functions/Subroutines
integer(kind=kint) function	fstr_ctrl_get_solution (ctrl, type, nlgeom)
	Read in !SOLUTION. More...

integer(kind=kint) function	fstr_ctrl_get_nonlinear_solver (ctrl, method)
	Read in !NONLINEAR_SOLVER. More...

integer(kind=kint) function	fstr_ctrl_get_solver (ctrl, method, precond, nset, iterlog, timelog, steplog, nier, iterpremax, nrest, nBFGS, scaling, dumptype, dumpexit, usejad, ncolor_in, mpc_method, estcond, method2, recyclepre, solver_opt, contact_elim, resid, singma_diag, sigma, thresh, filter)
	Read in !SOLVER. More...

integer(kind=kint) function	fstr_ctrl_get_step (ctrl, amp, iproc)
	Read in !STEP. More...

logical function	fstr_ctrl_get_istep (ctrl, hecMESH, steps, tpname, apname)
	Read in !STEP and !ISTEP. More...

integer function	fstr_ctrl_get_section (ctrl, hecMESH, sections)
	Read in !SECTION. More...

integer(kind=kint) function	fstr_ctrl_get_write (ctrl, res, visual, femap)
	Read in !WRITE. More...

integer(kind=kint) function	fstr_ctrl_get_echo (ctrl, echo)
	Read in !ECHO. More...

integer(kind=kint) function	fstr_ctrl_get_couple (ctrl, fg_type, fg_first, fg_window, surf_id, surf_id_len)
	Read in !COUPLE. More...

integer(kind=kint) function	fstr_ctrl_get_mpc (ctrl, penalty)
	Read in !MPC. More...

logical function	fstr_ctrl_get_outitem (ctrl, hecMESH, outinfo)
	Read in !OUTPUT_RES & !OUTPUT_VIS. More...

integer(kind=kint) function	fstr_ctrl_get_contactalgo (ctrl, algo)
	Read in !CONTACT. More...

logical function	fstr_ctrl_get_contact (ctrl, n, contact, np, tp, ntol, ttol, ctAlgo, cpname)
	Read in contact definition. More...

logical function	fstr_ctrl_get_embed (ctrl, n, embed, cpname)
	Read in contact definition. More...

integer(kind=kint) function	fstr_ctrl_get_contactparam (ctrl, contactparam)
	Read in !CONTACT_PARAM ! More...

integer(kind=kint) function	fstr_ctrl_get_elemopt (ctrl, elemopt361)
	Read in !ELEMOPT. More...

integer(kind=kint) function	fstr_get_autoinc (ctrl, aincparam)
	Read in !AUTOINC_PARAM ! More...

integer(kind=kint) function	fstr_ctrl_get_timepoints (ctrl, tp)
	Read in !TIME_POINTS. More...

integer(kind=kint) function	fstr_ctrl_get_amplitude (ctrl, nline, name, type_def, type_time, type_val, n, val, table)
	Read in !AMPLITUDE. More...

Detailed Description

This module contains fstr control file data obtaining functions.

Function/Subroutine Documentation

◆ fstr_ctrl_get_amplitude()

integer(kind=kint) function fstr_ctrl_common::fstr_ctrl_get_amplitude	(	integer(kind=kint), intent(in)	ctrl,
		integer(kind=kint), intent(in)	nline,
		character(len=hecmw_name_len), intent(out)	name,
		integer(kind=kint), intent(out)	type_def,
		integer(kind=kint), intent(out)	type_time,
		integer(kind=kint), intent(out)	type_val,
		integer(kind=kint), intent(out)	n,
		real(kind=kreal), dimension(:), pointer	val,
		real(kind=kreal), dimension(:), pointer	table
	)

Read in !AMPLITUDE.

Definition at line 863 of file fstr_ctrl_common.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ fstr_ctrl_get_contact()

logical function fstr_ctrl_common::fstr_ctrl_get_contact	(	integer(kind=kint), intent(in)	ctrl,
		integer(kind=kint), intent(in)	n,
		type(tcontact), dimension(n), intent(out)	contact,
		real(kind=kreal), intent(out)	np,
		real(kind=kreal), intent(out)	tp,
		real(kind=kreal), intent(out)	ntol,
		real(kind=kreal), intent(out)	ttol,
		integer(kind=kint), intent(in)	ctAlgo,
		character(len=*), intent(out)	cpname
	)

Read in contact definition.

Parameters

[in]	ctrl	ctrl file
[in]	n	number of item defined in this section
[in]	ctalgo	contact algorithm
[out]	contact	contact definition
[out]	np	penalty along contact nomral
[out]	tp	penalty along contact tangent
[out]	ntol	tolrence along contact nomral
[out]	ttol	tolrence along contact tangent
[out]	cpname	name of contact parameter

Definition at line 539 of file fstr_ctrl_common.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ fstr_ctrl_get_contactalgo()

integer(kind=kint) function fstr_ctrl_common::fstr_ctrl_get_contactalgo	(	integer(kind=kint)	ctrl,
		integer(kind=kint)	algo
	)

Read in !CONTACT.

Definition at line 525 of file fstr_ctrl_common.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ fstr_ctrl_get_contactparam()

integer(kind=kint) function fstr_ctrl_common::fstr_ctrl_get_contactparam	(	integer(kind=kint)	ctrl,
		type( tcontactparam )	contactparam
	)

Read in !CONTACT_PARAM !

Parameters

contactparam contact parameter

Definition at line 645 of file fstr_ctrl_common.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ fstr_ctrl_get_couple()

integer(kind=kint) function fstr_ctrl_common::fstr_ctrl_get_couple	(	integer(kind=kint)	ctrl,
		integer(kind=kint)	fg_type,
		integer(kind=kint)	fg_first,
		integer(kind=kint)	fg_window,
		character(len=hecmw_name_len), dimension(:), target	surf_id,
		integer(kind=kint)	surf_id_len
	)

Read in !COUPLE.

Parameters

ctrl	readed data
fg_type	if type
fg_first	if first
fg_window	if window
surf_id	surface id

Definition at line 424 of file fstr_ctrl_common.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ fstr_ctrl_get_echo()

integer(kind=kint) function fstr_ctrl_common::fstr_ctrl_get_echo	(	integer(kind=kint)	ctrl,
		integer(kind=kint)	echo
	)

Read in !ECHO.

Definition at line 412 of file fstr_ctrl_common.f90.

Here is the caller graph for this function:

◆ fstr_ctrl_get_elemopt()

integer(kind=kint) function fstr_ctrl_common::fstr_ctrl_get_elemopt	(	integer(kind=kint)	ctrl,
		integer(kind=kint)	elemopt361
	)

Read in !ELEMOPT.

Definition at line 718 of file fstr_ctrl_common.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ fstr_ctrl_get_embed()

logical function fstr_ctrl_common::fstr_ctrl_get_embed	(	integer(kind=kint), intent(in)	ctrl,
		integer(kind=kint), intent(in)	n,
		type(tcontact), dimension(n), intent(out)	embed,
		character(len=*), intent(out)	cpname
	)

Read in contact definition.

Parameters

[in]	ctrl	ctrl file
[in]	n	number of item defined in this section
[out]	embed	embed definition
[out]	cpname	name of contact parameter

Definition at line 605 of file fstr_ctrl_common.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ fstr_ctrl_get_istep()

logical function fstr_ctrl_common::fstr_ctrl_get_istep	(	integer(kind=kint), intent(in)	ctrl,
		type (hecmwst_local_mesh), intent(in)	hecMESH,
		type(step_info), intent(out)	steps,
		character(len=*), intent(out)	tpname,
		character(len=*), intent(out)	apname
	)

Read in !STEP and !ISTEP.

Parameters

[in]	ctrl	ctrl file
[in]	hecmesh	mesh information
[out]	steps	step control info
[out]	tpname	name of timepoints
[out]	apname	name of auto increment parameter

Definition at line 226 of file fstr_ctrl_common.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ fstr_ctrl_get_mpc()

integer(kind=kint) function fstr_ctrl_common::fstr_ctrl_get_mpc	(	integer(kind=kint), intent(in)	ctrl,
		real(kind=kreal), intent(out)	penalty
	)

Read in !MPC.

Parameters

[in] ctrl readed data

Definition at line 450 of file fstr_ctrl_common.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ fstr_ctrl_get_nonlinear_solver()

integer(kind=kint) function fstr_ctrl_common::fstr_ctrl_get_nonlinear_solver	(	integer(kind=kint)	ctrl,
		integer(kind=kint)	method
	)

Read in !NONLINEAR_SOLVER.

Definition at line 69 of file fstr_ctrl_common.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ fstr_ctrl_get_outitem()

logical function fstr_ctrl_common::fstr_ctrl_get_outitem	(	integer(kind=kint), intent(in)	ctrl,
		type (hecmwst_local_mesh), intent(in)	hecMESH,
		type( output_info ), intent(out)	outinfo
	)

Read in !OUTPUT_RES & !OUTPUT_VIS.

Parameters

[in]	ctrl	readed data
[in]	hecmesh	mesh information
[out]	outinfo	output information

Definition at line 466 of file fstr_ctrl_common.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ fstr_ctrl_get_section()

integer function fstr_ctrl_common::fstr_ctrl_get_section	(	integer(kind=kint), intent(in)	ctrl,
		type (hecmwst_local_mesh), intent(inout)	hecMESH,
		type (tsection), dimension(:), intent(inout), pointer	sections
	)

Read in !SECTION.

Parameters

[in,out] hecmesh mesh information

Definition at line 336 of file fstr_ctrl_common.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ fstr_ctrl_get_solution()

integer(kind=kint) function fstr_ctrl_common::fstr_ctrl_get_solution	(	integer(kind=kint)	ctrl,
		integer(kind=kint)	type,
		logical	nlgeom
	)

Read in !SOLUTION.

Definition at line 40 of file fstr_ctrl_common.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ fstr_ctrl_get_solver()

integer(kind=kint) function fstr_ctrl_common::fstr_ctrl_get_solver	(	integer(kind=kint)	ctrl,
		integer(kind=kint)	method,
		integer(kind=kint)	precond,
		integer(kind=kint)	nset,
		integer(kind=kint)	iterlog,
		integer(kind=kint)	timelog,
		integer(kind=kint)	steplog,
		integer(kind=kint)	nier,
		integer(kind=kint)	iterpremax,
		integer(kind=kint)	nrest,
		integer(kind=kint)	nBFGS,
		integer(kind=kint)	scaling,
		integer(kind=kint)	dumptype,
		integer(kind=kint)	dumpexit,
		integer(kind=kint)	usejad,
		integer(kind=kint)	ncolor_in,
		integer(kind=kint)	mpc_method,
		integer(kind=kint)	estcond,
		integer(kind=kint)	method2,
		integer(kind=kint)	recyclepre,
		integer(kind=kint), dimension(10)	solver_opt,
		integer(kind=kint)	contact_elim,
		real(kind=kreal)	resid,
		real(kind=kreal)	singma_diag,
		real(kind=kreal)	sigma,
		real(kind=kreal)	thresh,
		real(kind=kreal)	filter
	)

Read in !SOLVER.

Definition at line 89 of file fstr_ctrl_common.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ fstr_ctrl_get_step()

integer(kind=kint) function fstr_ctrl_common::fstr_ctrl_get_step	(	integer(kind=kint)	ctrl,
		character(len=hecmw_name_len)	amp,
		integer(kind=kint)	iproc
	)

Read in !STEP.

Definition at line 204 of file fstr_ctrl_common.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ fstr_ctrl_get_timepoints()

integer(kind=kint) function fstr_ctrl_common::fstr_ctrl_get_timepoints	(	integer(kind=kint)	ctrl,
		type(time_points)	tp
	)

Read in !TIME_POINTS.

Definition at line 820 of file fstr_ctrl_common.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ fstr_ctrl_get_write()

integer(kind=kint) function fstr_ctrl_common::fstr_ctrl_get_write	(	integer(kind=kint)	ctrl,
		integer(kind=kint)	res,
		integer(kind=kint)	visual,
		integer(kind=kint)	femap
	)

Read in !WRITE.

Definition at line 393 of file fstr_ctrl_common.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ fstr_get_autoinc()

integer(kind=kint) function fstr_ctrl_common::fstr_get_autoinc	(	integer(kind=kint)	ctrl,
		type( tparamautoinc )	aincparam
	)

Read in !AUTOINC_PARAM !

Parameters

aincparam auto increment parameter

Definition at line 742 of file fstr_ctrl_common.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

Functions/Subroutines

Detailed Description

Function/Subroutine Documentation

◆ fstr_ctrl_get_amplitude()

◆ fstr_ctrl_get_contact()

◆ fstr_ctrl_get_contactalgo()

◆ fstr_ctrl_get_contactparam()

◆ fstr_ctrl_get_couple()

◆ fstr_ctrl_get_echo()

◆ fstr_ctrl_get_elemopt()

◆ fstr_ctrl_get_embed()

◆ fstr_ctrl_get_istep()

◆ fstr_ctrl_get_mpc()

◆ fstr_ctrl_get_nonlinear_solver()

◆ fstr_ctrl_get_outitem()

◆ fstr_ctrl_get_section()

◆ fstr_ctrl_get_solution()

◆ fstr_ctrl_get_solver()

◆ fstr_ctrl_get_step()

◆ fstr_ctrl_get_timepoints()

◆ fstr_ctrl_get_write()

◆ fstr_get_autoinc()