fstr_ctrl_common Module Reference

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_contact_if (ctrl, n, contact_if)
	Read in contact interference. 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 894 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 535 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_if()

integer(kind=kint) function fstr_ctrl_common::fstr_ctrl_get_contact_if	(	integer(kind=kint), intent(in)	ctrl,
		integer(kind=kint), intent(in)	n,
		type(tcontactinterference), dimension(n), intent(out)	contact_if
	)

Read in contact interference.

Parameters

[in]	ctrl	ctrl file
[in]	n	number of item defined in this section
[out]	contact_if	contact definition

Definition at line 714 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 521 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 641 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(:)	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 422 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 410 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 749 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 601 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 224 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 446 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 67 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 462 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 334 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 38 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 83 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 202 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 851 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 391 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 773 of file fstr_ctrl_common.f90.

Here is the call graph for this function:

Here is the caller graph for this function: