OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
spmd_h3d_oned_off.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!|| h3d_oned_off ../engine/source/output/h3d/spmd/spmd_h3d_oned_off.F
25!||--- called by ------------------------------------------------------
26!|| genh3d ../engine/source/output/h3d/h3d_results/genh3d.f
27!||--- uses -----------------------------------------------------
28!|| elbufdef_mod ../common_source/modules/mat_elem/elbufdef_mod.F90
29!|| element_mod ../common_source/modules/elements/element_mod.F90
30!||====================================================================
31 SUBROUTINE h3d_oned_off(ELBUF_TAB, IPARG, IXT, IXP, IXR, ONED_SCALAR, ID_ELEM, ITY_ELEM,
32 . IPART , IPARTT ,IPARTP ,IPARTR)
33C----------------------------------------------
34C M o d u l e s
35C-----------------------------------------------
36 USE elbufdef_mod
37 use element_mod , only : nixt,nixp,nixr
38C-----------------------------------------------
39C I m p l i c i t T y p e s
40C-----------------------------------------------
41#include "implicit_f.inc"
42C-----------------------------------------------
43C C o m m o n B l o c k s
44C-----------------------------------------------
45#include "com01_c.inc"
46#include "com04_c.inc"
47#include "param_c.inc"
48#include "scr17_c.inc"
49C-----------------------------------------------
50C D u m m y A r g u m e n t s
51C-----------------------------------------------
52 TYPE (ELBUF_STRUCT_), DIMENSION(NGROUP), TARGET :: ELBUF_TAB
53 INTEGER IPARG(NPARG,*), IXT(NIXT,*), IXP(NIXP,*), IXR(NIXR,*),
54 . id_elem(*), ity_elem(*),ipart(lipart1,*), ipartt(*) ,ipartp(*) ,ipartr(*)
55 my_real
56 . oned_scalar(*)
57
58C-----------------------------------------------
59C L O C A L V A R I A B L E S
60C-----------------------------------------------
61 INTEGER OFFSET,ITY,MLW,NEL,NFT,NG,I
62 TYPE(g_bufel_) ,POINTER :: GBUF
63C-----------------------------------------------
64
65 DO ng=1,ngroup
66 mlw =iparg(1,ng)
67 nel =iparg(2,ng)
68 ity =iparg(5,ng)
69 nft =iparg(3,ng)
70
71 IF (ity == 4) offset = 0
72 IF (ity == 5) offset = numelt
73 IF (ity == 6) offset = numelt+numelp
74c
75 IF(ity == 4 .OR. ity == 5 .OR. ity == 6)THEN
76 DO i=1,nel
77 IF (ity == 4) THEN
78 id_elem(offset+nft+i) = ixt(nixt,nft+i)
79 ity_elem(offset+nft+i) = 4
80 ELSEIF (ity == 5) THEN
81 id_elem(offset+nft+i) = ixp(nixp,nft+i)
82 ity_elem(offset+nft+i) = 5
83 ELSEIF (ity == 6) THEN
84 id_elem(offset+nft+i) = ixr(nixr,nft+i)
85 ity_elem(offset+nft+i) = 6
86 ENDIF
87 ENDDO
88 ENDIF
89
90 IF(ity == 4 )THEN
91 IF(mlw == 0 .OR. mlw == 13)THEN
92 DO i=1,nel
93 oned_scalar(offset+nft+i) = one
94 ENDDO
95 ELSE
96 gbuf => elbuf_tab(ng)%GBUF
97 DO i=1,nel
98 oned_scalar(offset+nft+i) = min(abs(gbuf%OFF(i)),one)
99 ENDDO
100 ENDIF
101 ELSEIF(ity == 5)THEN
102 IF(mlw == 0 .OR. mlw == 13)THEN
103 DO i=1,nel
104 oned_scalar(offset+nft+i) = one
105 ENDDO
106 ELSE
107 gbuf => elbuf_tab(ng)%GBUF
108 DO i=1,nel
109 oned_scalar(offset+nft+i) = min(abs(gbuf%OFF(i)),one)
110 ENDDO
111 ENDIF
112 ELSEIF(ity == 6)THEN
113 IF(mlw == 0 .OR. mlw == 13)THEN
114 DO i=1,nel
115 oned_scalar(offset+nft+i) = one
116 ENDDO
117 ELSE
118 gbuf => elbuf_tab(ng)%GBUF
119 DO i=1,nel
120 oned_scalar(offset+nft+i) = min(abs(gbuf%OFF(i)),one)
121 ENDDO
122 ENDIF
123 ENDIF
124 ENDDO
125 RETURN
126 END
my_real
#define my_real
Definition cppsort.cpp:32
genh3d
subroutine genh3d(output, timers, x, d, v, a, bufel, ixs, ixq, ixc, ixt, ixp, ixr, ixtg, swaft, smas, sxnorm, siad, iparg, pm, geo, ms, sinvert, cont, smater, icut, skew, xcut, fint, itab, sel2fa, fext, fopt, lpby, npby, nstrf, rwbuf, nprw, tani, elbuf_tab, mat_param, dd_iad, weight, eani, ipart, cluster, iparts, ipartq, ipartc, ipartt, ipartp, ipartr, ipartur, iparttg, rby, swa4, tors, nom_opt, bufsf, idata, rdata, siadg, bufmat, bufgeo, kxx, ixx, ipartx, suix, sxusr, snfacptx, sixedge, sixfacet, sixsolid, snumx1, snumx2, snumx3, soffx1, soffx2, soffx3, smass1, smass2, smass3, sfunc1, sfunc2, sfunc3, kxsp, ixsp, nod2sp, ipartsp, spbuf, ixs10, ixs20, ixs16, vr, monvol, volmon, ipm, igeo, nodglob, iad_elem, fr_elem, fr_sec, fr_rby2, iad_rby2, fr_wall, iflow, rflow, fncont, ftcont, temp, thke, err_thk_sh4, err_thk_sh3, diag_sms, ipari, fncont2, dr, ale_connect, irbe2, irbe3, lrbe2, lrbe3, fr_rbe2, fr_rbe3m, iad_rbe2, dxancg, nod_pxfem, iel_pxfem, zi_ply, vgaz, fcontg, fncontg, ftcontg, fanreac, inod_crk, iel_crk, elcutc, iadc_crk, pdama2, res_sms, weight_md, nodglobxfe, nodedge, fcluster, mcluster, xfem_tab, w, nv46, ipartig3d, kxig3d, ixig3d, sig3dsolid, knot, wige, nercvois, nesdvois, lercvois, lesdvois, crkedge, indx_crk, xedge4n, xedge3n, stack, sph2sol, stifn, stifr, igrnod, sh4tree, sh3tree, h3d_data, multi_fvm, subset, pskids, tag_skins6, tf, npf, fcont_max, mds_matid, fncontp2, ftcontp2, ibcl, iloadp, lloadp, fac, sensors, tagncont, loadp_hyd_inter, xframe, forc, ar, csefric, csefricg, csefric_stamp, csefricg_stamp, table, iframe, loads, drape_sh4n, drape_sh3n, drapeg, x_c, glob_therm, pblast)
Definition genh3d.F:213
min
#define min(a, b)
Definition macros.h:20
h3d_oned_off
subroutine h3d_oned_off(elbuf_tab, iparg, ixt, ixp, ixr, oned_scalar, id_elem, ity_elem, ipart, ipartt, ipartp, ipartr)
Definition spmd_h3d_oned_off.F:33