11 & fstrRESULT, fstrPARAM, fstrMAT)
28 type(hecmwst_result_data) :: fstrRESULT
35 real(kind=
kreal) :: t1, t2
39 call hecmw_mpc_mat_init(hecmesh, hecmat, hecmeshmpc, hecmatmpc)
41 fstrsolid%dunode = 0.0d0
44 call hecmw_mpc_mat_ass(hecmesh, hecmat, hecmeshmpc, hecmatmpc)
45 call hecmw_mpc_trans_rhs(hecmesh, hecmat, hecmatmpc)
46 call fstr_addbc(1, hecmesh, hecmatmpc, fstrsolid, fstrparam, fstrmat, 2)
48 call setmass(fstrsolid, hecmesh, hecmat, fstreig)
49 call hecmw_mpc_trans_mass(hecmesh, hecmat, fstreig%mass)
52 call hecmw_mpc_tback_eigvec(hecmesh, hecmat, fstreig%iter, fstreig%eigvec)
58 call hecmw_mpc_mat_finalize(hecmesh, hecmat, hecmeshmpc, hecmatmpc)
63 write(
imsg,
'("### FSTR_SOLVE_EIGEN FINISHED!")')
64 write(*,
'("### FSTR_SOLVE_EIGEN FINISHED!")')
integer(kind=4), parameter kreal
real(kind=kreal) function hecmw_wtime()
This module provides a function to deal with prescribed displacement.
subroutine fstr_addbc(cstep, hecMESH, hecMAT, fstrSOLID, fstrPARAM, fstrMAT, iter, conMAT)
Add Essential Boundary Conditions.
Lanczos iteration calculation.
subroutine fstr_solve_lanczos(hecMESH, hecMAT, fstrSOLID, fstrEIG)
SOLVE EIGENVALUE PROBLEM.
subroutine fstr_eigen_make_result(hecMESH, hecMAT, fstrEIG, fstrRESULT)
subroutine fstr_eigen_output(hecMESH, hecMAT, fstrEIG)
Set up lumped mass matrix.
subroutine setmass(fstrSOLID, hecMESH, hecMAT, fstrEIG)
This module provides a function to control eigen analysis.
subroutine fstr_solve_eigen(hecMESH, hecMAT, fstrEIG, fstrSOLID, fstrRESULT, fstrPARAM, fstrMAT)
solve eigenvalue probrem
This module provides function to calcualte tangent stiffness matrix.
subroutine, public fstr_stiffmatrix(hecMESH, hecMAT, fstrSOLID, time, tincr)
接線剛性マトリックスを作成するサブルーチン
This module defined coomon data and basic structures for analysis.
integer(kind=kint) myrank
PARALLEL EXECUTION.
integer(kind=kint), parameter imsg
HECMW to FSTR Mesh Data Converter. Convering Conectivity of Element Type 232, 342 and 352.
This modules just summarizes all modules used in static analysis.
Package of data used by Lanczos eigenvalue solver.
FSTR INNER CONTROL PARAMETERS (fstrPARAM)