OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
eigcond.F File Reference
#include "implicit_f.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 "scr14_c.inc"
#include "scr17_c.inc"
#include "scr05_c.inc"
#include "scr23_c.inc"
#include "param_c.inc"
#include "sphcom.inc"
#include "units_c.inc"
#include "spmd_c.inc"
#include "task_c.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine eigcond (graphe, eigipm, eigrpm, ikc0, nddl0, k_diag, k_lt, iadk, jdik, ms, in, ndof, nddl, eigibuf, x, 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, dd_iad, fr_iad, dd_front, 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, nodglob, iad_elem, fr_elem, fr_sec, fr_rby2, iad_rby2, fr_wall, nint2, iint2, ipari, intbuf_tab, d, lddl, partsav, fncont, ftcont, temp, thke, err_thk_sh4, err_thk_sh3, irbe2, irbe3, lrbe2, lrbe3, fr_rbe2, fr_rbe3m, iad_rbe2, weight_md, cluster, 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

◆ eigcond()

subroutine eigcond ( type(prgraph), dimension(*) graphe,
integer, dimension(*) eigipm,
eigrpm,
integer, dimension(*) ikc0,
integer nddl0,
k_diag,
k_lt,
integer, dimension(*) iadk,
integer, dimension(*) jdik,
ms,
in,
integer, dimension(*) ndof,
integer nddl,
integer, dimension(*) eigibuf,
x,
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,
integer, dimension(nspmd+1,*) dd_iad,
integer, dimension(*) fr_iad,
integer, dimension(4,*) dd_front,
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(*) iparg,
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 nint2,
integer, dimension(*) iint2,
integer, dimension(npari,*) ipari,
type(intbuf_struct_), dimension(*) intbuf_tab,
d,
integer, dimension(*) lddl,
partsav,
fncont,
ftcont,
temp,
thke,
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,
type (cluster_), dimension(ncluster) cluster,
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 41 of file eigcond.F.

68C-----------------------------------------------
69C M o d u l e s
70C-----------------------------------------------
71 USE dsgraph_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
82C-----------------------------------------------
83C I m p l i c i t T y p e s
84C-----------------------------------------------
85#include "implicit_f.inc"
86C-----------------------------------------------
87C C o m m o n B l o c k s
88C-----------------------------------------------
89#include "com01_c.inc"
90#include "com04_c.inc"
91#include "com06_c.inc"
92#include "com08_c.inc"
93#include "com09_c.inc"
94#include "com_xfem1.inc"
95#include "scr14_c.inc"
96#include "scr17_c.inc"
97#include "scr05_c.inc"
98#include "scr23_c.inc"
99#include "param_c.inc"
100#include "sphcom.inc"
101#include "units_c.inc"
102#include "spmd_c.inc"
103#include "task_c.inc"
104C-----------------------------------------------
105C D u m m y A r g u m e n t s
106C-----------------------------------------------
107 INTEGER EIGIPM(*), IKC0(*), NDDL0, IADK(*), JDIK(*), NDOF(*),
108 . NDDL, EIGIBUF(*), IXS(*), IXQ(*), IXC(*), IXT(*), IXP(*),
109 . IXR(*), IXTG(*), ICUT(*), ITAB(*), LPBY(*), NPBY(NNPBY,*),
110 . NSTRF(*), NPRW(*), INDX_CRK(*),XEDGE4N(4,*),XEDGE3N(3,*),
111 . DD_IAD(NSPMD+1,*), FR_IAD(*), DD_FRONT(4,*), WEIGHT(*),
112 . IPART(*), NOM_OPT(LNOPT1,*),
113 . IDATA(*), KXX(NIXX,*), IXX(*),
114 . KXSP(NISP,*), IXSP(KVOISPH,*), NOD2SP(*), IXS10(6,*),
115 . IXS20(12,*), IXS16(8,*), MONVOL(*), IPM(*), IGEO(*),
116 . IPARG(*), NODGLOB(*), IAD_ELEM(2,*), FR_ELEM(*),
117 . FR_SEC(NSPMD+1,*), FR_RBY2(3,*), IAD_RBY2(4,*),
118 . FR_WALL(*), NINT2, IINT2(*), IPARI(NPARI,*),
119 . LDDL(*),WEIGHT_MD(*),NV46,SPH2SOL(*)
120 INTEGER IRBE2(NRBE2L,*),IRBE3(NRBE3L,*),LRBE2(*),LRBE3(*),
121 . FR_RBE2(3,*),FR_RBE3M(3,*),IAD_RBE2(4,*),NERCVOIS(*),
122 . NESDVOIS(*),LERCVOIS(*),LESDVOIS(*)
123 my_real
124 . eigrpm(*), k_diag(*), k_lt(*), ms(*), in(*), x(3,*),
125 . v(3,*), a(3,*), bufel(*), pm(npropm,*), geo(*), cont(3,*),
126 . skew(lskew,*), xcut(*), fint(*), fext(*), fopt(6,*),
127 . anin(*),rwbuf(*), tani(*), eani(*), rby(nrby,*), bufsf(*),
128 . rdata(*), bufmat(*), bufgeo(*), spbuf(*), volmon(*),
129 . d(3,*), vr(3,*), partsav(npsav,*), fncont(*),
130 . ftcont(*),temp(*),thke(*), err_thk_sh4(*), err_thk_sh3(*),
131 . fcluster(*),mcluster(*),w(*),stifn(*),stifr(*),fcont_max(*),
132 . fncontp2(3,*) ,ftcontp2(3,*)
133 TYPE(PRGRAPH) :: GRAPHE(*)
134 TYPE (ELBUF_STRUCT_), DIMENSION(NGROUP) :: ELBUF_TAB
135 TYPE (ELBUF_STRUCT_), DIMENSION(NGROUP,NXEL) :: XFEM_TAB
136 TYPE (CLUSTER_) ,DIMENSION(NCLUSTER) :: CLUSTER
137 TYPE(INTBUF_STRUCT_) INTBUF_TAB(*)
138 TYPE (XFEM_EDGE_) , DIMENSION(*) :: CRKEDGE
139 TYPE (STACK_PLY) :: STACK
140 TYPE(H3D_DATABASE) :: H3D_DATA
141 TYPE (SUBSET_) , DIMENSION(NSUBS) :: SUBSET
142 TYPE (GROUP_) , DIMENSION(NGRNOD) :: IGRNOD
143 TYPE (SURF_) , DIMENSION(NSURF) :: IGRSURF
144 TYPE(DRAPE_) :: DRAPE_Q4, DRAPE_T3
145 TYPE(t_ale_connectivity), INTENT(IN) :: ALE_CONNECTIVITY
146C-----------------------------------------------
147C L o c a l V a r i a b l e s
148C-----------------------------------------------
149 INTEGER I, INO, IDDL, ITYP, NM, MAXITR, IPRI, NBLF, NN1, NN2,
150 . ICT, ICR, BDOF(6), II, ITAG(NUMNOD), IKC(NDDL0), IAD,
151 . JJ, N, J, IFREE1, IBLOC1, IFREE2, IBLOC2, LFREE(NDDL),
152 . LBLOC(NDDL), NMS, NSCM, IOPT, NVD, IBID, NVAL,
153 . NEL3D, NEL2D, NEL1D, NEL, N1, N2, N3, N4, N5, N6, N7, N8,
154 . KUIX, KXUSR ,KFACPTX,KXEDGE,KXFACET,KXSOLID,KNUMX1,KNUMX2,
155 . KNUMX3,KOFFX1,KOFFX2,KOFFX3,KMASS1,KMASS2,KMASS3,
156 . KFUNC1,KFUNC2,KFUNC3,KFIN,
157 . N9, N10, K1, K2, K3, K4, K5, K6, K7, K8, K9, K10, K11, L1,
158 . IM, ID, TAGRBY(2,NUMNOD), TAGIT2(5,NUMNOD), IDMAST, IMAST,
159 . NIR, NSL_RB, ISL_RB(NUMNOD), NSL_I2, ISL_I2(NUMNOD), K,
160 . NDDLG, KK, MSGOFF, IRQTAG, NMST, NMSL(NSPMD), NMSLMAX,
161 . ITAGMS(GRAPHE(1)%NDDL_GLOB), IWIOUT, MSGOFF2, IWIOUTP,
162 . IWKLI, LTITR1, IPMESS, NDDLC, IEIG, IBLO, ISHELL, NME,NNZ,
163 . LMR, LRLF, LC, NMR, IPRIB, LENG, NDDLI7, ISHELLP,RIBID(1),
164 . K12,IBID_(1)
165 integer
166 . sn1,sn2,sn3,sn4,sn5,sn6,sn7,sn8,sn9,nelg,
167 . skuix, skxusr ,skfacptx,skxedge,skxfacet,skxsolid,sknumx1,
168 . sknumx2,sknumx3,skoffx1,skoffx2,skoffx3,skmass1,skmass2,
169 . skmass3,skfunc1,skfunc2,skfunc3,skfin
170 my_real
171 . mass(nddl), tol, cutfrq, rbid, freq2(nsvmaxt),
172 . cmax, cmaxp, rx, ry, rz, vv(6), facit2(4,numnod),
173 . x0(3,numnod), shifti, tol0, ksi, rrbid(1)
174 my_real
175 . , DIMENSION(:,:), ALLOCATABLE :: vectd, b, vects, vectr
176 my_real
177 . , DIMENSION(:), ALLOCATABLE :: scale, dmax, dmaxp, VALUE
178 INTEGER, DIMENSION(:,:), ALLOCATABLE :: IDMS, BCOR
179 INTEGER, DIMENSION(:), ALLOCATABLE :: ROWIND, COLPTR, IDIAG, REDIR
180 CHARACTER TITRE*80
181 TYPE(MULTI_FVM_STRUCT) :: MULTI_FVM
182 DATA msgoff /100000/
183 DATA msgoff2 /200000/
184C=======================================================================
185
186 CALL arret(5)
187 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
dsgraph_mod
Definition dsgraph_mod.F:31
groupdef_mod
Definition groupdef_mod.F:662
h3d_mod
Definition h3d_mod.F:308
stack_mod
Definition stack_mod.F:72
arret
subroutine arret(nn)
Definition arret.F:87