![]() |
FrontISTR 5.2.0
Large-scale structural analysis program with finit element method
|
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. | |
integer(kind=kint) function | fstr_ctrl_get_solver (ctrl, method, precond, nset, iterlog, timelog, steplog, nier, iterpremax, nrest, scaling, dumptype, dumpexit, usejad, ncolor_in, mpc_method, estcond, method2, recyclepre, solver_opt1, solver_opt2, solver_opt3, solver_opt4, solver_opt5, solver_opt6, resid, singma_diag, sigma, thresh, filter) |
Read in !SOLVER. | |
integer(kind=kint) function | fstr_ctrl_get_step (ctrl, amp, iproc) |
Read in !STEP. | |
logical function | fstr_ctrl_get_istep (ctrl, hecmesh, steps, tpname, apname) |
Read in !STEP and !ISTEP. | |
integer function | fstr_ctrl_get_section (ctrl, hecmesh, sections) |
Read in !SECTION. | |
integer(kind=kint) function | fstr_ctrl_get_write (ctrl, res, visual, femap) |
Read in !WRITE. | |
integer(kind=kint) function | fstr_ctrl_get_echo (ctrl, echo) |
Read in !ECHO. | |
integer(kind=kint) function | fstr_ctrl_get_couple (ctrl, fg_type, fg_first, fg_window, surf_id, surf_id_len) |
Read in !COUPLE. | |
integer(kind=kint) function | fstr_ctrl_get_mpc (ctrl, penalty) |
Read in !MPC. | |
logical function | fstr_ctrl_get_outitem (ctrl, hecmesh, outinfo) |
Read in !OUTPUT_RES & !OUTPUT_VIS. | |
integer(kind=kint) function | fstr_ctrl_get_contactalgo (ctrl, algo) |
Read in !CONTACT. | |
logical function | fstr_ctrl_get_contact (ctrl, n, contact, np, tp, ntol, ttol, ctalgo) |
Read in contact definition. | |
integer(kind=kint) function | fstr_ctrl_get_elemopt (ctrl, elemopt361) |
Read in !ELEMOPT. | |
integer(kind=kint) function | fstr_get_autoinc (ctrl, aincparam) |
Read in !AUTOINC_PARAM ! | |
integer(kind=kint) function | fstr_ctrl_get_timepoints (ctrl, tp) |
Read in !TIME_POINTS. | |
This module contains fstr control file data obtaining functions.
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 | ||
) |
Read in contact definition.
[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 |
Definition at line 514 of file fstr_ctrl_common.f90.
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 500 of file fstr_ctrl_common.f90.
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.
ctrl | readed data |
fg_type | if type |
fg_first | if first |
fg_window | if window |
surf_id | surface id |
Definition at line 399 of file fstr_ctrl_common.f90.
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 387 of file fstr_ctrl_common.f90.
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 563 of file fstr_ctrl_common.f90.
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.
[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 210 of file fstr_ctrl_common.f90.
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.
[in] | ctrl | readed data |
Definition at line 425 of file fstr_ctrl_common.f90.
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.
[in] | ctrl | readed data |
[in] | hecmesh | mesh information |
[out] | outinfo | output information |
Definition at line 441 of file fstr_ctrl_common.f90.
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.
[in,out] | hecmesh | mesh information |
Definition at line 318 of file fstr_ctrl_common.f90.
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 39 of file fstr_ctrl_common.f90.
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) | 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) | solver_opt1, | ||
integer(kind=kint) | solver_opt2, | ||
integer(kind=kint) | solver_opt3, | ||
integer(kind=kint) | solver_opt4, | ||
integer(kind=kint) | solver_opt5, | ||
integer(kind=kint) | solver_opt6, | ||
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 69 of file fstr_ctrl_common.f90.
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 188 of file fstr_ctrl_common.f90.
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 665 of file fstr_ctrl_common.f90.
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 368 of file fstr_ctrl_common.f90.
integer(kind=kint) function fstr_ctrl_common::fstr_get_autoinc | ( | integer(kind=kint) | ctrl, |
type( tparamautoinc ) | aincparam | ||
) |
Read in !AUTOINC_PARAM !
aincparam | auto increment paramter |
Definition at line 587 of file fstr_ctrl_common.f90.