OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
eig.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 eig (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, glob_therm)

Function/Subroutine Documentation

◆ eig()

subroutine eig ( 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,
type (glob_therm_), intent(inout) glob_therm )

Definition at line 44 of file eig.F.

73C-----------------------------------------------
74C M o d u l e s
75C-----------------------------------------------
76 USE message_mod
77 USE elbufdef_mod
78 USE cluster_mod
79 USE intbufdef_mod
80 USE crackxfem_mod
81 USE stack_mod
82 USE h3d_mod
83 USE groupdef_mod
84 USE multi_fvm_mod
85 USE inoutfile_mod
86 USE drape_mod
87 USE ale_connectivity_mod
88 USE matparam_def_mod
89 use glob_therm_mod
90C-----------------------------------------------
91C I m p l i c i t T y p e s
92C-----------------------------------------------
93#include "implicit_f.inc"
94C-----------------------------------------------
95C C o m m o n B l o c k s
96C-----------------------------------------------
97#include "mvsiz_p.inc"
98#include "com01_c.inc"
99#include "com04_c.inc"
100#include "com06_c.inc"
101#include "com08_c.inc"
102#include "com09_c.inc"
103#include "com_xfem1.inc"
104#include "sphcom.inc"
105#include "scr05_c.inc"
106#include "scr14_c.inc"
107#include "scr17_c.inc"
108#include "scr23_c.inc"
109#include "param_c.inc"
110#include "units_c.inc"
111#include "chara_c.inc"
112#include "spmd_c.inc"
113C-----------------------------------------------
114C D u m m y A r g u m e n t s
115C-----------------------------------------------
116 INTEGER IADK(*), JDIK(*), NDDL, NDOF(*),
117 . IPARG(NPARG,*), IXS(*), IXQ(*), IXC(*), IXT(*), IXP(*),
118 . IXS10(6,*) ,IXS16(8,*) ,IXS20(12,*) ,NPRW(*),
119 . IPART(*), IXR(*), IXTG(*), ITAB(*),ICUT(*),NSTRF(*),LPBY(*),
120 . NPBY(NNPBY,*),INDX_CRK(*),
121 . DD_IAD(NSPMD+1,*),XEDGE4N(4,*),XEDGE3N(3,*),
122 . FR_IAD(*),DD_FRONT(4,*),WEIGHT(*),
123 . IDATA(*),KXX(NIXX,*),IXX(*),KXSP(NISP,*),IXSP(KVOISPH,*),
124 . NOD2SP(*),IPM(*), IGEO(*),MONVOL(*), EIGIPM(*), EIGIBUF(*),
125 . LDIAG, LJDIK, LJDIK2, NNZL, IKC(*), MAXNCV, NMS,
126 . NINT2, IINT2(*), IPARI(NPARI,*), INLOC(*), IDDL(*),
127 . NODGLOB(*), IAD_ELEM(2,*), FR_ELEM(*), FR_SEC(NSPMD+1,*),
128 . FR_RBY2(3,*), IAD_RBY2(4,*), FR_WALL(*),NOM_OPT(LNOPT1,*),
129 . WEIGHT_MD(*),NV46,SPH2SOL(*)
130 INTEGER IRBE2(NRBE2L,*),IRBE3(NRBE3L,*),LRBE2(*),LRBE3(*),
131 . FR_RBE2(3,*),FR_RBE3M(3,*),IAD_RBE2(4,*),
132 . NERCVOIS(*),NESDVOIS(*),LERCVOIS(*),LESDVOIS(*)
133
134 my_real
135 . k_diag(*) ,k_lt(*), ms(*), in(*),fcluster(*),mcluster(*),
136 . pm(npropm,*), geo(*),skew(lskew,*),vr(3,*),
137 . x(3,*), d(3,*), v(3,*), a(3,*), bufel(*),
138 . cont(3,*),xcut(*),fint(*),eani(*),rby(nrby,*),
139 . fext(3,*) ,fopt(6,*),anin(*),rwbuf(*),tani(*),
140 . bufsf(*),rdata(*),bufmat(*),bufgeo(*),spbuf(*),volmon(*),
141 . eigrpm(*), thke(*), partsav(npsav,*), fncont(3,*),
142 . ftcont(3,*),temp(*), err_thk_sh4(*),err_thk_sh3(*),w(*),
143 . stifn(*),stifr(*),fcont_max(*),fncontp2(3,*),ftcontp2(3,*)
144 TYPE (ELBUF_STRUCT_), DIMENSION(NGROUP) :: ELBUF_TAB
145 TYPE (ELBUF_STRUCT_), DIMENSION(NGROUP,NXEL) :: XFEM_TAB
146 TYPE (CLUSTER_) ,DIMENSION(NCLUSTER) :: CLUSTER
147 TYPE(INTBUF_STRUCT_) INTBUF_TAB(*)
148 TYPE (XFEM_EDGE_) , DIMENSION(*) :: CRKEDGE
149 TYPE (STACK_PLY) :: STACK
150 TYPE(H3D_DATABASE) :: H3D_DATA
151 TYPE (SUBSET_) , DIMENSION(NSUBS) :: SUBSET
152 TYPE (GROUP_) , DIMENSION(NGRNOD) :: IGRNOD
153 TYPE (SURF_) , DIMENSION(NSURF) :: IGRSURF
154 TYPE(DRAPE_) :: DRAPE_Q4 ,DRAPE_T3
155 TYPE(t_ale_connectivity), INTENT(IN) :: ALE_CONNECTIVITY
156 TYPE (MATPARAM_STRUCT_) ,DIMENSION(NUMMAT) ,INTENT(IN) :: MATPARAM_TAB
157 type (glob_therm_) ,intent(inout) :: glob_therm
158
159C-----------------------------------------------
160C L o c a l V a r i a b l e s
161C-----------------------------------------------
162 INTEGER COLPTR(LDIAG+1), NNO, I,NG,ITY,
163 . IDIAG(LDIAG), CORRESP(2,LDIAG), CORRESP_IB(2,NMS),
164 . NEV, NCV, N, MAXN, MAXNEV, LDV, ISHFTS,
165 . MAXITR, MODE, PRSP, INFO, J, II, IM, IAD,
166 . NEL3D, NEL2D, NEL1D, NEL, N1, N2, N3, N4, N5, N6, N7, N8,
167 . KUIX, KXUSR ,KFACPTX,KXEDGE,KXFACET,KXSOLID,KNUMX1,KNUMX2,
168 . KNUMX3,KOFFX1,KOFFX2,KOFFX3,KMASS1,KMASS2,KMASS3,
169 . KFUNC1,KFUNC2,KFUNC3,KFIN,
170 . N9, N10, K1, K2, K3, K4, K5, K6, K7, K8, K9, K10, K11, L1,
171 . LENWA_TMP, IADK2(LDIAG+1), IADK_IB(LDIAG+1),K12,
172 . ITYP, NVAL, NBF, NN1, NBLO,
173 . NF, ID, NBLO0, IDF, IDBL, IPRI, NFC, NM, NNI, NELI,NIB,
174 . NFC0, IMA, LDIAG0, III, CORRESP0(2,LDIAG), NFR,
175 . REDIR(LDIAG), REDIR_IB(NMS), TSKD, TSKS, TSKR,
176 . ITMOD, NMOD, FILEN, NME, ISHELL, LMR, LRLF, LC,
177 . TAGRBY(2,EIGIPM(10)), IFACT, IBLO, IDMAST,
178 . IMAST, TAGIT2(5,EIGIPM(10)), IEIG, ISAVE, NFC2, NIR,
179 . NSL_RB, ISL_RB(NUMNOD), NSL_I2, ISL_I2(NUMNOD), K, KK,
180 . IPRIB, INFO_FAC, INOD, IDOF, NVAL2, IBID, LENG,INORM,
181 . RIBID(1),IBID_(1)
182 integer
183 . sn1,sn2,sn3,sn4,sn5,sn6,sn7,sn8,sn9,nelg,
184 . skuix, skxusr ,skfacptx,skxedge,skxfacet,skxsolid,sknumx1,
185 . sknumx2,sknumx3,skoffx1,skoffx2,skoffx3,skmass1,skmass2,
186 . skmass3,skfunc1,skfunc2,skfunc3,skfin
187 INTEGER(KIND=8) FACTORS(8)
188 my_real
189 . tol, shift, puls, fr1, shiftr,
190 . fr2,x0(3,numnod), k_diag2(ldiag), tshift,
191 . freq(maxncv,2), freq2(eigipm(5)),
192 . scale(eigipm(5)+nms+6), cmax, dmax, ksi, orig(3),
193 . rx, ry, rz, vv(6), facit2(4,eigipm(10)), cutfreq, rbid,
194 . rrbid(1)
195C ON PASSE LES GROS TABLEAUX EN ALLOCATABLE (A CAUSE DES RISQUES DE LIMITE
196C DE STACK)
197 INTEGER, DIMENSION(:), ALLOCATABLE :: ROWIND, JDIK2, JDIK_IB
198 my_real, DIMENSION(:), ALLOCATABLE ::
199 . VALUE, k_lt2, k_ib, bufel0
200 my_real, DIMENSION(:,:), ALLOCATABLE ::
201 . vect, vect2, vects, vectr
202 CHARACTER WHICH*2, CHEIG*4, FILNAM*109
203 my_real
204 . off_sav(mvsiz,ngroup)
205 TYPE(MULTI_FVM_STRUCT) :: MULTI_FVM
206
207 INTEGER :: LEN_TMP_NAME
208 CHARACTER(len=2048) :: TMP_NAME
209
210 CALL arret(5)
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
inoutfile_mod
Definition inoutfile_mod.F:96
message_mod
Definition message_mod.F:1249
stack_mod
Definition stack_mod.F:72
arret
subroutine arret(nn)
Definition arret.F:87