OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
eig1.F File Reference
#include "implicit_f.inc"
#include "mvsiz_p.inc"
#include "com01_c.inc"
#include "com04_c.inc"
#include "com06_c.inc"
#include "com08_c.inc"
#include "com09_c.inc"
#include "com_xfem1.inc"
#include "sphcom.inc"
#include "scr05_c.inc"
#include "scr14_c.inc"
#include "scr17_c.inc"
#include "scr23_c.inc"
#include "param_c.inc"
#include "units_c.inc"
#include "chara_c.inc"
#include "spmd_c.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine eig1 (k_diag, k_lt, iadk, jdik, ms, in, nddl, ndof, nnzl, x, d, v, a, bufel, ixs, ixq, ixc, ixt, ixp, ixr, ixtg, pm, geo, cont, icut, skew, xcut, fint, itab, fext, fopt, anin, lpby, npby, nstrf, rwbuf, nprw, tani, elbuf_tab, matparam_tab, dd_iad, fr_iad, dd_front, cluster, weight, eani, ipart, rby, nom_opt, igrsurf, bufsf, idata, rdata, bufmat, bufgeo, kxx, ixx, kxsp, ixsp, nod2sp, spbuf, ixs10, ixs20, ixs16, vr, monvol, volmon, ipm, igeo, iparg, eigipm, eigibuf, eigrpm, ldiag, ljdik, ljdik2, ikc, maxncv, thke, nms, nint2, iint2, ipari, intbuf_tab, nodglob, iad_elem, fr_elem, fr_sec, fr_rby2, iad_rby2, fr_wall, inloc, iddl, partsav, fncont, ftcont, temp, err_thk_sh4, err_thk_sh3, irbe2, irbe3, lrbe2, lrbe3, fr_rbe2, fr_rbe3m, iad_rbe2, weight_md, fcluster, mcluster, xfem_tab, w, nv46, nercvois, nesdvois, lercvois, lesdvois, crkedge, indx_crk, xedge4n, xedge3n, stack, sph2sol, stifn, stifr, drape_q4, drape_t3, h3d_data, subset, igrnod, fcont_max, fncontp2, ftcontp2, ale_connectivity)

Function/Subroutine Documentation

◆ eig1()

subroutine eig1 ( k_diag,
k_lt,
integer, dimension(*) iadk,
integer, dimension(*) jdik,
ms,
in,
integer nddl,
integer, dimension(*) ndof,
integer nnzl,
x,
d,
v,
a,
bufel,
integer, dimension(*) ixs,
integer, dimension(*) ixq,
integer, dimension(*) ixc,
integer, dimension(*) ixt,
integer, dimension(*) ixp,
integer, dimension(*) ixr,
integer, dimension(*) ixtg,
pm,
geo,
cont,
integer, dimension(*) icut,
skew,
xcut,
fint,
integer, dimension(*) itab,
fext,
fopt,
anin,
integer, dimension(*) lpby,
integer, dimension(nnpby,*) npby,
integer, dimension(*) nstrf,
rwbuf,
integer, dimension(*) nprw,
tani,
type (elbuf_struct_), dimension(ngroup) elbuf_tab,
type (matparam_struct_), dimension(nummat), intent(in) matparam_tab,
integer, dimension(nspmd+1,*) dd_iad,
integer, dimension(*) fr_iad,
integer, dimension(4,*) dd_front,
type (cluster_), dimension(ncluster) cluster,
integer, dimension(*) weight,
eani,
integer, dimension(*) ipart,
rby,
integer, dimension(lnopt1,*) nom_opt,
type (surf_), dimension(nsurf) igrsurf,
bufsf,
integer, dimension(*) idata,
rdata,
bufmat,
bufgeo,
integer, dimension(nixx,*) kxx,
integer, dimension(*) ixx,
integer, dimension(nisp,*) kxsp,
integer, dimension(kvoisph,*) ixsp,
integer, dimension(*) nod2sp,
spbuf,
integer, dimension(6,*) ixs10,
integer, dimension(12,*) ixs20,
integer, dimension(8,*) ixs16,
vr,
integer, dimension(*) monvol,
volmon,
integer, dimension(*) ipm,
integer, dimension(*) igeo,
integer, dimension(nparg,*) iparg,
integer, dimension(*) eigipm,
integer, dimension(*) eigibuf,
eigrpm,
integer ldiag,
integer ljdik,
integer ljdik2,
integer, dimension(*) ikc,
integer maxncv,
thke,
integer nms,
integer nint2,
integer, dimension(*) iint2,
integer, dimension(npari,*) ipari,
type(intbuf_struct_), dimension(*) intbuf_tab,
integer, dimension(*) nodglob,
integer, dimension(2,*) iad_elem,
integer, dimension(*) fr_elem,
integer, dimension(nspmd+1,*) fr_sec,
integer, dimension(3,*) fr_rby2,
integer, dimension(4,*) iad_rby2,
integer, dimension(*) fr_wall,
integer, dimension(*) inloc,
integer, dimension(*) iddl,
partsav,
fncont,
ftcont,
temp,
err_thk_sh4,
err_thk_sh3,
integer, dimension(nrbe2l,*) irbe2,
integer, dimension(nrbe3l,*) irbe3,
integer, dimension(*) lrbe2,
integer, dimension(*) lrbe3,
integer, dimension(3,*) fr_rbe2,
integer, dimension(3,*) fr_rbe3m,
integer, dimension(4,*) iad_rbe2,
integer, dimension(*) weight_md,
fcluster,
mcluster,
type (elbuf_struct_), dimension(ngroup,nxel) xfem_tab,
w,
integer nv46,
integer, dimension(*) nercvois,
integer, dimension(*) nesdvois,
integer, dimension(*) lercvois,
integer, dimension(*) lesdvois,
type (xfem_edge_), dimension(*) crkedge,
integer, dimension(*) indx_crk,
integer, dimension(4,*) xedge4n,
integer, dimension(3,*) xedge3n,
type (stack_ply) stack,
integer, dimension(*) sph2sol,
stifn,
stifr,
type (drape_) drape_q4,
type (drape_) drape_t3,
type(h3d_database) h3d_data,
type (subset_), dimension(nsubs) subset,
type (group_), dimension(ngrnod) igrnod,
fcont_max,
fncontp2,
ftcontp2,
type(t_ale_connectivity), intent(in) ale_connectivity )

Definition at line 40 of file eig1.F.

68C-----------------------------------------------
69C M o d u l e s
70C-----------------------------------------------
71 USE message_mod
72 USE elbufdef_mod
73 USE cluster_mod
74 USE intbufdef_mod
75 USE crackxfem_mod
76 USE stack_mod
77 USE h3d_mod
78 USE groupdef_mod
79 USE multi_fvm_mod
80 USE drape_mod
81 USE ale_connectivity_mod
82 USE matparam_def_mod
83C-----------------------------------------------
84C I m p l i c i t T y p e s
85C-----------------------------------------------
86#include "implicit_f.inc"
87C-----------------------------------------------
88C C o m m o n B l o c k s
89C-----------------------------------------------
90#include "mvsiz_p.inc"
91#include "com01_c.inc"
92#include "com04_c.inc"
93#include "com06_c.inc"
94#include "com08_c.inc"
95#include "com09_c.inc"
96#include "com_xfem1.inc"
97#include "sphcom.inc"
98#include "scr05_c.inc"
99#include "scr14_c.inc"
100#include "scr17_c.inc"
101#include "scr23_c.inc"
102#include "param_c.inc"
103#include "units_c.inc"
104#include "chara_c.inc"
105#include "spmd_c.inc"
106C-----------------------------------------------
107C D u m m y A r g u m e n t s
108C-----------------------------------------------
109 INTEGER IADK(*), JDIK(*), NDDL, NDOF(*),
110 . IPARG(NPARG,*), IXS(*), IXQ(*), IXC(*), IXT(*), IXP(*),
111 . IXS10(6,*) ,IXS16(8,*) ,IXS20(12,*) ,NPRW(*),
112 . IPART(*), IXR(*), IXTG(*), ITAB(*),ICUT(*),NSTRF(*),LPBY(*),
113 . NPBY(NNPBY,*),INDX_CRK(*),
114 . DD_IAD(NSPMD+1,*),XEDGE4N(4,*),XEDGE3N(3,*),
115 . FR_IAD(*),DD_FRONT(4,*),WEIGHT(*),
116 . IDATA(*),KXX(NIXX,*),IXX(*),KXSP(NISP,*),IXSP(KVOISPH,*),
117 . NOD2SP(*),IPM(*), IGEO(*),MONVOL(*), EIGIPM(*), EIGIBUF(*),
118 . LDIAG, LJDIK, LJDIK2, NNZL, IKC(*), MAXNCV, NMS,
119 . NINT2, IINT2(*), IPARI(NPARI,*), INLOC(*), IDDL(*),
120 . NODGLOB(*), IAD_ELEM(2,*), FR_ELEM(*), FR_SEC(NSPMD+1,*),
121 . FR_RBY2(3,*), IAD_RBY2(4,*), FR_WALL(*),NOM_OPT(LNOPT1,*),
122 . WEIGHT_MD(*),NV46,NERCVOIS(*),NESDVOIS(*),LERCVOIS(*),
123 . LESDVOIS(*),SPH2SOL(*)
124 INTEGER IRBE2(NRBE2L,*),IRBE3(NRBE3L,*),LRBE2(*),LRBE3(*),
125 . FR_RBE2(3,*),FR_RBE3M(3,*),IAD_RBE2(4,*)
126 my_real
127 . k_diag(*) ,k_lt(*), ms(*), in(*),
128 . pm(npropm,*), geo(*),skew(lskew,*),vr(3,*),
129 . x(3,*), d(3,*), v(3,*), a(3,*), bufel(*),fcluster(*),
130 . cont(3,*),xcut(*),fint(*),eani(*),rby(nrby,*),mcluster(*),
131 . fext(3,*) ,fopt(6,*),anin(*),rwbuf(*),tani(*),
132 . bufsf(*),rdata(*),bufmat(*),bufgeo(*),spbuf(*),volmon(*),
133 . eigrpm(*), thke(*), partsav(npsav,*), fncont(*),
134 . ftcont(*),temp(*), err_thk_sh4(*), err_thk_sh3(*), w(*),
135 . stifn(*),stifr(*),fcont_max(*),fncontp2(3,*) ,ftcontp2(3,*)
136 TYPE (ELBUF_STRUCT_), DIMENSION(NGROUP) :: ELBUF_TAB
137 TYPE (ELBUF_STRUCT_), DIMENSION(NGROUP,NXEL) :: XFEM_TAB
138 TYPE (CLUSTER_) ,DIMENSION(NCLUSTER) :: CLUSTER
139 TYPE(INTBUF_STRUCT_) INTBUF_TAB(*)
140 TYPE (XFEM_EDGE_) , DIMENSION(*) :: CRKEDGE
141 TYPE (STACK_PLY) :: STACK
142 TYPE(H3D_DATABASE) :: H3D_DATA
143 TYPE (SUBSET_) , DIMENSION(NSUBS) :: SUBSET
144 TYPE (GROUP_) , DIMENSION(NGRNOD) :: IGRNOD
145 TYPE (SURF_) , DIMENSION(NSURF) :: IGRSURF
146 TYPE (DRAPE_) :: DRAPE_Q4, DRAPE_T3
147 TYPE(t_ale_connectivity), INTENT(IN) :: ALE_CONNECTIVITY
148 TYPE (MATPARAM_STRUCT_) ,DIMENSION(NUMMAT) ,INTENT(IN) :: MATPARAM_TAB
149C-----------------------------------------------
150C L o c a l V a r i a b l e s
151C-----------------------------------------------
152 INTEGER NN, IBC, IADK2(LDIAG+1), CORRESP(2,LDIAG),
153 . CORRESP_IB(2,NMS), IADK_IB(LDIAG+1), ITAG(NUMNOD), IRCM,
154 . NBM, INO, IDL, I, J, K, LEN, IPRI, NM, MAXITR, NBF, NF,
155 . NFC, N, NEV, NCV, MAXN, MAXNEV, LDV, ISHFTS, MODE,
156 . INFO, IDBL, IDF, NFC2, NFC0, NBLO0, NIB, NVAL,ITY,
157 . NBLO, II, IBLO, REDIR(LDIAG), REDIR_IB(NMS),
158 . COLPTR(LDIAG+1), IDIAG(LDIAG), NME, LMR, LRLF, LC, NFR,
159 . TAGRBY(2,EIGIPM(10)), TAGIT2(5,EIGIPM(10)), IM,
160 . NEL3D, NEL2D, NEL1D, NEL, N1, N2, N3, N4, N5, N6, N7, N8,
161 . KUIX, KXUSR ,KFACPTX,KXEDGE,KXFACET,KXSOLID,KNUMX1,KNUMX2,
162 . KNUMX3,KOFFX1,KOFFX2,KOFFX3,KMASS1,KMASS2,KMASS3,
163 . KFUNC1,KFUNC2,KFUNC3,KFIN,
164 . N9, N10, K1, K2, K3, K4, K5, K6, K7, K8, K9, K10, K11, L1,
165 . SN1,SN2,SN3,SN4,SN5,SN6,SN7,SN8,SN9,NELG,K12,
166 . SKUIX, SKXUSR ,SKFACPTX,SKXEDGE,SKXFACET,SKXSOLID,SKNUMX1,
167 . SKNUMX2,SKNUMX3,SKOFFX1,SKOFFX2,SKOFFX3,SKMASS1,SKMASS2,
168 . SKMASS3,SKFUNC1,SKFUNC2,SKFUNC3,SKFIN,NG,
169 . ID, ISHELL, ITYP, IEIG, IDMAST, IMAST, NUV, NIR,
170 . NSL_RB, ISL_RB, NSL_I2, ISL_I2, IPRIB, IBID, LENG,RIBID(1),IBID_(1)
171 my_real
172 . k_diag2(ldiag), vv(6,eigipm(10)), shift, tol, cutfreq,
173 . tshift, puls, fr1, freq(maxncv,2), freq2(eigipm(5)),
174 . vect(eigipm(14),maxncv), vectl(eigipm(14),eigipm(5)),
175 . fr2, ksi, rbid, cmax, dmax, scale(eigipm(5)+nms+6),
176 . x0(3,numnod), vt(ldiag), facit2(4,eigipm(10)),
177 . rx, ry, rz, vvv(6),rrbid(1)
178 CHARACTER WHICH*2
179C
180 INTEGER, DIMENSION(:), ALLOCATABLE :: JDIK2, JDIK_IB, ROWIND
181 my_real
182 . , DIMENSION(:), ALLOCATABLE :: k_lt2, k_ib, kl, ml, kls,
183 . VALUE, bufel0
184 my_real
185 . , DIMENSION(:,:), ALLOCATABLE :: vecta, vect2, vectr
186 my_real
187 . off_sav(mvsiz,ngroup)
188 TYPE(MULTI_FVM_STRUCT) :: MULTI_FVM
189C=======================================================================
190C
191
192 RETURN
my_real
#define my_real
Definition cppsort.cpp:32
ale_connectivity_mod
Definition ale_connectivity_mod.F:223
cluster_mod
Definition cluster_mod.F:40
crackxfem_mod
Definition crackxfem_mod.F:121
drape_mod
Definition drape_mod.F:54
groupdef_mod
Definition groupdef_mod.F:662
h3d_mod
Definition h3d_mod.F:308
message_mod
Definition message_mod.F:1249
stack_mod
Definition stack_mod.F:72