40 1 EIGIPM , EIGRPM , IKC0 , NDDL0 ,
41 2 DIAG_K , LT_K , IADK , JDIK , MS ,
42 3 IN , NDOF , NDDL , EIGIBUF , X ,
43 4 V , A , BUFEL , IXS , IXQ ,
44 5 IXC , IXT , IXP , IXR , IXTG ,
45 6 PM , GEO , CONT , ICUT , SKEW ,
46 7 XCUT , FINT , ITAB , FEXT , FOPT ,
47 8 ANIN , LPBY , NPBY , NSTRF , RWBUF ,
48 9 NPRW , TANI , ELBUF_TAB, MATPARAM_TAB,DD_IAD ,
49 A FR_IAD , DD_FRONT , WEIGHT , EANI , IPART ,
50 B RBY , NOM_OPT , IGRSURF ,
51 C BUFSF , IDATA , RDATA , BUFMAT , BUFGEO ,
52 D KXX , IXX , KXSP , IXSP , NOD2SP ,
53 E SPBUF , IXS10 , IXS20 , IXS16 , VR ,
54 F MONVOL , VOLMON , IPM , IGEO , IPARG ,
55 G NODGLOB , IAD_ELEM , FR_ELEM , FR_SEC , FR_RBY2 ,
56 H IAD_RBY2 , FR_WALL , NINT2 , IINT2 , IPARI ,
57 I INTBUF_TAB , D , LDDL , PARTSAV ,
58 J INLOC , FNCONT , FTCONT , TEMP , THKE ,
59 K ERR_THK_SH4 , ERR_THK_SH3 , IRBE2 , IRBE3 ,
60 L LRBE2 , LRBE3 , FR_RBE2 , FR_RBE3M , IAD_RBE2,
61 M WEIGHT_MD , CLUSTER , FCLUSTER , MCLUSTER , XFEM_TAB,
62 O W , NV46 , NERCVOIS , NESDVOIS,
63 P LERCVOIS , LESDVOIS ,CRKEDGE , INDX_CRK , XEDGE4N ,
64 Q XEDGE3N ,STACK ,SPH2SOL ,STIFN ,STIFR ,
65 R DRAPE_Q4 , DRAPE_T3 ,H3D_DATA ,SUBSET ,IGRNOD ,
66 S FCONT_MAX ,FNCONTP2 ,FTCONTP2, ALE_CONNECTIVITY)
84#include "implicit_f.inc"
93#include "com_xfem1.inc"
100#include "units_c.inc"
103#include "impl1_c.inc"
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(*), INLOC(*), WEIGHT_MD(*),NV46,NERCVOIS(*),
120 . NESDVOIS(*),LERCVOIS(*),LESDVOIS(*),SPH2SOL(*)
121 INTEGER IRBE2(NRBE2L,*),IRBE3(NRBE3L,*),LRBE2(*),LRBE3(*),
122 . FR_RBE2(3,*),FR_RBE3M(3,*),IAD_RBE2(4,*)
124 . EIGRPM(*), DIAG_K(*), LT_K(*), 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 (ELBUF_STRUCT_),
DIMENSION(NGROUP) :: ELBUF_TAB
134 TYPE (ELBUF_STRUCT_),
DIMENSION(NGROUP,NXEL) :: XFEM_TAB
135 TYPE (CLUSTER_) ,
DIMENSION(NCLUSTER) :: CLUSTER
136 TYPE(INTBUF_STRUCT_) INTBUF_TAB(*)
137 TYPE (XFEM_EDGE_) ,
DIMENSION(*) :: CRKEDGE
138 TYPE (STACK_PLY) :: STACK
139 TYPE(H3D_DATABASE) :: H3D_DATA
140 TYPE (SUBSET_) ,
DIMENSION(NSUBS) :: SUBSET
141 TYPE (GROUP_) ,
DIMENSION(NGRNOD) :: IGRNOD
142 TYPE (SURF_) ,
DIMENSION(NSURF) :: IGRSURF
143 TYPE (DRAPE_) :: DRAPE_Q4, DRAPE_T3
144 TYPE(t_ale_connectivity),
INTENT(IN) :: ALE_CONNECTIVITY
145 TYPE (MATPARAM_STRUCT_) ,
DIMENSION(NUMMAT) ,
INTENT(IN) :: MATPARAM_TAB
subroutine eigp(eigipm, eigrpm, ikc0, nddl0, diag_k, lt_k, 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, matparam_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, inloc, 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)
1.15.0