OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
front_mod.F
Go to the documentation of this file.
1Copyright> OpenRadioss
2Copyright> Copyright (C) 1986-2025 Altair Engineering Inc.
3Copyright>
4Copyright> This program is free software: you can redistribute it and/or modify
5Copyright> it under the terms of the GNU Affero General Public License as published by
6Copyright> the Free Software Foundation, either version 3 of the License, or
7Copyright> (at your option) any later version.
8Copyright>
9Copyright> This program is distributed in the hope that it will be useful,
10Copyright> but WITHOUT ANY WARRANTY; without even the implied warranty of
11Copyright> MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12Copyright> GNU Affero General Public License for more details.
13Copyright>
14Copyright> You should have received a copy of the GNU Affero General Public License
15Copyright> along with this program. If not, see <https://www.gnu.org/licenses/>.
16Copyright>
17Copyright>
18Copyright> Commercial Alternative: Altair Radioss Software
19Copyright>
20Copyright> As an alternative to this open-source version, Altair also offers Altair Radioss
21Copyright> software under a commercial license. Contact Altair to discuss further if the
22Copyright> commercial version may interest you: https://www.altair.com/radioss/.
23!||====================================================================
24!|| front_mod ../starter/share/modules1/front_mod.F
25!||--- called by ------------------------------------------------------
26!|| c_front ../starter/source/restart/ddsplit/c_front.F
27!|| c_iddconnect ../starter/source/spmd/node/ddtools.F
28!|| c_ifront ../starter/source/spmd/node/ddtools.f
29!|| c_vois ../starter/source/restart/ddsplit/c_vois.F
30!|| ddsplit ../starter/source/restart/ddsplit/ddsplit.F
31!|| domdec2 ../starter/source/spmd/domdec2.F
32!|| dometis ../starter/source/spmd/domain_decomposition/grid2mat.F
33!|| fill_intercep ../starter/source/spmd/node/ddtools.F
34!|| i11buc_vox1 ../starter/source/interfaces/inter3d1/i11buc1.F
35!|| i24setnodes ../starter/source/interfaces/inter3d1/i24setnodes.F
36!|| i7buc_vox1 ../starter/source/interfaces/inter3d1/i7buc_vox1.f
37!|| iddconnectplus ../starter/source/spmd/node/frontplus.F
38!|| ifrontplus ../starter/source/spmd/node/frontplus.F
39!|| ini_iddconnect ../starter/source/spmd/node/ddtools.F
40!|| ini_ifront ../starter/source/spmd/node/ddtools.F
41!|| iniend ../starter/source/interfaces/inter3d1/iniend.F
42!|| iniend2d ../starter/source/interfaces/inter3d1/iniend.F
43!|| inint3 ../starter/source/interfaces/inter3d1/inint3.F
44!|| inintr ../starter/source/interfaces/interf1/inintr.F
45!|| intersurfl ../starter/source/spmd/node/ddtools.F
46!|| ipari_l_ini ../starter/source/restart/ddsplit/ipari_l_ini.F
47!|| lectur ../starter/source/starter/lectur.F
48!|| line_decomp ../starter/source/model/group/line_decomp.f
49!|| nlocal ../starter/source/spmd/node/ddtools.F
50!|| plist_bfs ../starter/source/spmd/node/ddtools.F
51!|| plist_iddconnect ../starter/source/spmd/node/ddtools.F
52!|| plist_ifront ../starter/source/spmd/node/ddtools.F
53!|| prepare_int25 ../starter/source/model/mesh/build_cnel.F
54!|| prepare_split_i11 ../starter/source/restart/ddsplit/inter_tools.F
55!|| prepare_split_i17 ../starter/source/restart/ddsplit/inter_tools.f
56!|| prepare_split_i2 ../starter/source/restart/ddsplit/inter_tools.F
57!|| prepare_split_i20 ../starter/source/restart/ddsplit/inter_tools.F
58!|| prepare_split_i21 ../starter/source/restart/ddsplit/inter_tools.F
59!|| prepare_split_i24 ../starter/source/restart/ddsplit/inter_tools.F
60!|| prepare_split_i25 ../starter/source/restart/ddsplit/inter_tools.F
61!|| prepare_split_i25e2e ../starter/source/spmd/prepare_split_i25e2e.F
62!|| prepare_split_i7 ../starter/source/restart/ddsplit/inter_tools.F
63!|| prepare_split_i8 ../starter/source/restart/ddsplit/inter_tools.F
64!|| prepare_split_i9 ../starter/source/restart/ddsplit/inter_tools.F
65!|| r2r_split ../starter/source/coupling/rad2rad/r2r_split.F
66!|| read_ebcs ../starter/source/boundary_conditions/ebcs/read_ebcs.F
67!|| realloc_iddconnect ../starter/source/spmd/node/ddtools.F
68!|| realloc_ifront ../starter/source/spmd/node/ddtools.F
69!|| secnd_surface_on_domain ../starter/source/interfaces/inter3d1/i24setnodes.F
70!|| set_front8 ../starter/source/spmd/node/ddtools.F
71!|| set_intercep ../starter/source/spmd/node/ddtools.F
72!|| split_adskyn_25 ../starter/source/restart/ddsplit/inter_tools.F
73!|| split_cand_i11 ../starter/source/restart/ddsplit/inter_tools.F
74!|| split_cand_i24 ../starter/source/restart/ddsplit/inter_tools.F
75!|| split_ebcs ../starter/source/boundary_conditions/ebcs/split_ebcs.F
76!|| split_interfaces ../starter/source/restart/ddsplit/split_interfaces.F
77!|| split_remnode_i24 ../starter/source/restart/ddsplit/inter_tools.F
78!|| split_remnode_i25 ../starter/source/restart/ddsplit/inter_tools.F
79!|| split_seg_ielem ../starter/source/restart/ddsplit/split_seg_ielem.F
80!|| w_fi ../starter/source/restart/ddsplit/w_fi.F
81!|| w_front ../starter/source/restart/ddsplit/w_front.F
82!|| w_type8 ../starter/source/restart/ddsplit/split_interfaces.F
83!||====================================================================
84 MODULE front_mod
85#include "my_real.inc"
86
88 INTEGER, DIMENSION(:,:), POINTER :: p
89 INTEGER, DIMENSION(:) , ALLOCATABLE :: ientry
90 END TYPE my_front
91
92c IFRONT chained-list
94
96 INTEGER, DIMENSION(:,:), ALLOCATABLE :: pdom
97 INTEGER, DIMENSION(:,:) , ALLOCATABLE :: ientrydom
98 END TYPE my_connectdom
99
100c IFRONT64 chained-list
103
104 INTEGER, DIMENSION(:),ALLOCATABLE :: ientry2
105 INTEGER, DIMENSION(:),ALLOCATABLE :: flagkin
106
108
110 INTEGER, DIMENSION(:), POINTER :: p
111 END TYPE intersurfp
112
113 END MODULE front_mod
114C=======================================================================
subroutine ddsplit(p, cep, cel, igeo, mat_elem, ipm, icode, iskew, iskn, insel, ibcslag, ipart, iparts, ipartq, ipartc, ipartt, ipartp, ipartr, iparttg, detonators, ipartx, npc, ixtg, group_param_tab, ixtg6, ixs, ixs10, ixs20, ixs16, ixq, ixc, ixt, ixp, ixr, itab, itabm1, gjbufi, nale, ale_connectivity, kxx, ixx, ibcl, ibfv, las, laccelm, nnlink, lllink, iparg, igrav, lgrav, ibvel, lbvel, iactiv, factiv, kinet, ipari, nprw, lprw, iexmad, npby, lpby, ixri, nstrf, ljoint, pornod, monvol, icontact, lagbuf, fr_iad, x, d, v, vr, dr, thke, dampr, damp, ms, in, tf, pm, skew, xframe, geo, eani, bufmat, bufgeo, bufsf, brmpc, gjbufr, w, veul, fill, dfill, wb, dsav, asav, msnf, spbuf, fac, vel, fsav, fzero, xlas, accelm, fbvel, gravfac, fr_wave, failwave, parts0, elbuf, rwl, rwsav, rby, rivet, secbuf, rvolu, rconx, nloc_dmg, fvmain, libagale, lenthg, lbufmat, lbufgeo, lbufsf, lenxlas, lnom_opt, lenlas, lenvolu, npts, cne, lcne, addcne, cni2, lcni2g, addcni2, cepi2, celi2, i2nsnt, probint, ddstat, pm1shf, dd_iad, kxsp, ixsp, nod2sp, cepsp, nthwa, nairwa, nmnt, l_mul_lag1, l_mul_lag, lwaspio, ipartsp, ispcond, pm1sph, wma, eigipm, eigibuf, eigrpm, iflow, rflow, memflow, iexlnk, fasolfr, iparth, fxbipm, fxbrpm, fxbnod, fxbmod, fxbglm, fxbcpm, fxbcps, fxblm, fxbfls, fxbdls, fxbdep, fxbvit, fxbacc, fxbelm, fxbsig, fxbgrvi, fxbgrvr, iadll, lll, ibmpc, lambda, lrbagale, iskwp, nskwp, isensp, nsensp, iaccp, naccp, ipart_state, mcp, temp, unitab, intstamp, iframe, clusters, partsav, ibft, fbft, ibcv, fconv, irbe3, lrbe3, frbe3, front_rm, rbym, irbym, lcrbym, inoise, fnoise, ms0, admsms, nom_sect, ispsym, sh4tree, sh3tree, ipadmesh, ibfflux, fbfflux, sh4trim, sh3trim, padmesh, msc, mstg, inc, intg, ptg, mcpc, mcptg, rcontact, acontact, pcontact, mscnd, incnd, mssa, mstr, msp, msrt, ibcr, fradia, dmelc, dmeltg, dmels, dmeltr, dmelp, dmelrt, res_sms, isphio, lprtsph, lonfsph, vsphio, sphveln, alph, ifill, ims, irbe2, lrbe2, ms_ply, zi_ply, inod_pxfem, iel_pxfem, icodply, iskwply, addcne_pxfem, cne_pxfem, cel_pxfem, ithvar, xdp, table, celsph, icfield, lcfield, cfield, msz2, itask, diag_sms, iloadp, lloadp, loadp, inod_crkxfem, iel_crkxfem, addcne_crkxfem, cne_crkxfem, cel_crkxfem, ibufssg_io, intercep, ibordnode, iedgesh, ibordedge, linale, nodedge, iedge, cep_crkxfem, iedge_tmp, crknodiad, elbuf_tab, nom_opt, lgauge, gauge, igaup, ngaup, nodlevxf, frontb_r2r, dflow, vflow, wflow, sph2sol, sol2sph, irst, elcutc, nodenr, kxfenod2elc, enrtag, intbuf_tab, i11flag, xfem_tab, lenthgr, rthbuf, ixig3d, kxig3d, knot, ipartig3d, wige, ncrkpart, indx_crk, crklvset, crkshell, crksky, crkavx, crkedge, sensors, stack, xfem_phantom, t8, tab_ump, poin_ump, sol2sph_typ, addcsrect, csrect, drape, loads, itagnd, icnds10, addcncnd, cepcnd, celcnd, cncnd, nativ_sms, i24maxnsne, multi_fvm, segquadfr, intbuf_fric_tab, subset, igrnod, igrbric, igrquad, igrsh4n, igrsh3n, igrtruss, igrbeam, igrspring, igrpart, igrsurf, igrslin, poin_part_shell, poin_part_tri, poin_part_sol, mid_pid_shell, mid_pid_tri, mid_pid_sol, tag_nm, nindx_nm, indx_nm, tag_scratch, nindx_scrt, indx_scrt, flag_24_25, numnod_l, tag_skn, multiple_skew, igrsurf_proc, knotlocpc, knotlocel, ale_elm, size_ale_elm, pinch_data, tag_skins6, ibcscyc, lbcscyc, t_monvol, indx_s, indx_q, indx_tg, face_elm_s, face_elm_q, face_elm_tg, nbr_th_monvol, ebcs_tab, kloadpinter, loadpinter, dgaploadint, s_loadpinter, len_cep, dynain_data, drapeg, user_windows, output, interfaces, number_load_cyl, loads_per_proc, python, dpl0cld, vel0cld, names_and_titles, bcs_per_proc, constraint_struct, glob_therm, pblast)
Definition ddsplit.F:336
subroutine c_ifront(n, cpt)
Definition ddtools.F:205
subroutine i7buc_vox1(x, irect, nsv, bumult, nseg, nmn, nrtm, mwa, nsn, gap, xyzm, noint, i_stok, dist, tzinf, msr, stf, stfn, multimp, istf, iddlevel, itab, gap_s, gap_m, igap, gapmin, gapmax, inacti, gap_s_l, gap_m_l, i_mem, ncont, icurv, bgapsmx, id, titr, drad, intercep, nin, iremnode, flagremnode, kremnode, remnode, dgapload, npari, ipari, intbuf_tab, is_used_with_law151)
Definition i7buc_vox1.F:47
subroutine prepare_split_i17(proc, intbuf_tab, ipari, tag_node_2ry, tag_node_msr, cep, cel, igrbric, nsn_l, nme_l)
subroutine line_decomp(igrslin)
Definition line_decomp.F:33
integer iddconnect_end
Definition front_mod.F:102
integer, dimension(:), allocatable flagkin
Definition front_mod.F:105
type(my_front) ifront
Definition front_mod.F:93
integer siddconnect
Definition front_mod.F:102
integer sifront
Definition front_mod.F:107
type(my_connectdom) iddconnect
Definition front_mod.F:101
integer ifront_end
Definition front_mod.F:107
integer, dimension(:), allocatable ientry2
Definition front_mod.F:104
program starter
Definition starter.F:39