37 . X1 ,X2 ,X3 ,X4 ,X5 ,X6 ,X7 ,X8 ,
38 . Y1 ,Y2 ,Y3 ,Y4 ,Y5 ,Y6 ,Y7 ,Y8 ,
39 . Z1 ,Z2 ,Z3 ,Z4 ,Z5 ,Z6 ,Z7 ,Z8 ,
47#include "implicit_f.inc"
55#include "vect01_c.inc"
61 . VOLN(*), XIOFF(MVSIZ), AREAM(MVSIZ),
62 . ATEST(MVSIZ), AREA(6,MVSIZ),
63 . x1(*), x2(*), x3(*), x4(*), x5(*), x6(*), x7(*), x8(*), y1(*),
64 . y2(*), y3(*), y4(*), y5(*), y6(*), y7(*), y8(*), z1(*), z2(*),
65 . z3(*), z4(*), z5(*), z6(*), z7(*), z8(*), deltax(*)
73 CALL slen(x1,x2,x3,x4,y1,y2,y3,y4,z1,z2,z3,z4,1, area, aream)
74 CALL slen(x5,x6,x7,x8,y5,y6,y7,y8,z5,z6,z7,z8,2, area, aream)
75 CALL slen(x1,x2,x6,x5,y1,y2,y6,y5,z1,z2,z6,z5,3, area, aream)
76 CALL slen(x2,x3,x7,x6,y2,y3,y7,y6,z2,z3,z7,z6,4, area, aream)
77 CALL slen(x3,x4,x8,x7,y3,y4,y8,y7,z3,z4,z8,z7,5, area, aream)
78 CALL slen(x4,x1,x5,x8,y4,y1,y5,y8,z4,z1,z5,z8,6, area, aream)
81 atest(i) = em4*aream(i)
86 IF(area(1,i)<atest(i)) nfac=nfac+1
87 IF(area(2,i)<atest(i)) nfac=nfac+1
88 IF(area(3,i)<atest(i)) nfac=nfac+1
89 IF(area(4,i)<atest(i)) nfac=nfac+1
90 IF(area(5,i)<atest(i)) nfac=nfac+1
91 IF(area(6,i)<atest(i)) nfac=nfac+1
92 IF(nfac>=3) xioff(i)=ep03
96 deltax(i) = four*voln(i)*xioff(i)/sqrt(aream(i))
subroutine inirig_mat(ixc, ixs, ixtg, ixs10, x, v, pm, geo, ms, in, ptg, msc, mss, mstg, inc, intg, thkc, thkt, partsav, iparts, ipartc, ipartt, veul, dtelem, ihbe, isolnod, nvc, i8mi, msnf, mssf, igeo, etnod, nshnod, stc, sttg, wma, sh4tree, sh3tree, mcp, mcpc, temp, mcps, mssx, mcpsx, ins, stifn, stifr, connec, irig_node, numel, nindx, xrefc, xreftg, xrefs, mssa, sh3trim, isubstack, bufmat, ipm, stack, rnoise, strc, strtg, perturb, nel, group_param, igtyp, defaults, glob_therm)
subroutine initia(iparg, elbuf, ms, in, v, x, ixs, ixq, ixc, ixt, ixp, ixr, detonators, geo, pm, rby, npby, lpby, npc, npts, pld, veul, ale_connectivity, skew, fill, ipart, itab, sensors, skvol, ixtg, thk, nloc_dmg, group_param_tab, glob_therm, igrnod, igrsurf, bufsf, vr, bufmat, xlas, las, dtelem, mss, msq, msc, mst, msp, msr, mstg, ptg, inc, nod2eltg, knod2eltg, inp, inr, intg, index, itri, kxx, ixx, xelemwa, iwa, nod2elq, knod2elq, nod2els, knod2els, kxsp, ixsp, nod2sp, ispcond, icode, iskew, iskn, ispsym, xframe, isptag, spbuf, mssx, nsigi, npbyl, lpbyl, rbyl, msnf, mssf, nsigsh, igeo, ipm, nsigs, nsigsph, vns, vnsx, stc, stt, stp, str, sttg, stur, bns, bnsx, volnod, bvolnod, etnod, nshnod, stifint, fxbdep, fxbvit, fxbacc, fxbipm, fxbrpm, fxbelm, fxbsig, fxbmod, ins, ptshel, ptsh3n, ptsol, ptquad, wma, ptsph, fxbnod, mbufel, mdepl, fxani, numel, nsigrs, sh4tree, sh3tree, mcp, temp, imerge2, iadmerge2, slnrbm, nslnrbm, rmstifn, rmstifr, ms_layer, zi_layer, itag, itagel, mcpc, mcptg, xrefc, xreftg, xrefs, mssa, msrt, irbe2, lrbe2, inivol, kvol, nbsubmat, ixs10, ixs16, ixs20, totaddmas, ipmas, stifn, msz2, itagn, sitage, itage, ixr_kj, elbuf_tab, nom_opt, ptr_nopt_rbe2, ptr_nopt_adm, ptr_nopt_fun, sol2sph, irst, sh3trim, xfem_tab, kxig3d, ixig3d, msig3d, knot, nctrlmax, wige, stack, rnoise, drape, sh4ang, sh3ang, geo_stack, igeo_stack, stifintr, strc, strp, strr, strtg, perturb, itagnd, nativ_sms, iloadp, facload, ptspri, nsigbeam, ptbeam, nsigtruss, pttruss, multi_fvm, sigi, sigsh, sigsp, sigsph, sigrs, sigbeam, sigtruss, strsglob, straglob, orthoglob, isigsh, iyldini, ksigsh3, fail_ini, iusolyld, iuser, iddlevel, inimap1d, inimap2d, func2d, fvm_inivel, tagprt_sms, igrbric, igrquad, igrsh4n, igrsh3n, igrpart, totmas, knotlocpc, knotlocel, vnige, bnige, fxbglm, fxbcpm, fxbcps, fxblm, fxbfls, fxbdls, fxb_matrix, fxb_matrix_add, fxb_last_adress, ptr_nopt_fxb, r_skew, knod2el1d, nod2el1d, ebcs_tab, rby_iniaxis, alea, knod2elc, nod2elc, dr, slrbody, drapeg, ipari, intbuf_tab, interfaces, mat_param, npreload_a, preload_a, fail_fractal, fail_brokmann, defaults, ndamp_freq_range, dampr, ibeam_vector, rbeam_vector, ikine)
1.15.0