OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
anioff0.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!|| anioff0 ../starter/source/output/anim/anioff0.f
25!||--- called by ------------------------------------------------------
26!|| genani1 ../starter/source/output/anim/genani1.f
27!||--- calls -----------------------------------------------------
28!||--- uses -----------------------------------------------------
29!||====================================================================
30 SUBROUTINE anioff0(ELBUF_TAB ,IPARG ,IOFF ,EL2FA ,NBF ,
31 3 SIOFF, SPH2SOL)
32C-----------------------------------------------
33C M o d u l e s
34C-----------------------------------------------
35 USE elbufdef_mod
36C-----------------------------------------------
37C I m p l i c i t T y p e s
38C-----------------------------------------------
39#include "implicit_f.inc"
40C-----------------------------------------------
41C C o m m o n B l o c k s
42C-----------------------------------------------
43#include "com01_c.inc"
44#include "sphcom.inc"
45#include "param_c.inc"
46C-----------------------------------------------
47C D u m m y A r g u m e n t s
48C-----------------------------------------------
49 INTEGER IPARG(NPARG,*),EL2FA(*),NBF,IOFF(*),SIOFF,SPH2SOL(*)
50 TYPE (ELBUF_STRUCT_), DIMENSION(NGROUP), TARGET :: ELBUF_TAB
51C-----------------------------------------------
52C L o c a l V a r i a b l e s
53C-----------------------------------------------
54C REAL
55 INTEGER I, NG, NEL, NFT, ITY, LFT,
56 . n, nn1, llt, mlw, ioffbuf(nbf),rbuf,ioff_loc(sioff)
57 TYPE(g_bufel_) ,POINTER :: GBUF
58C---+----1----+----2----+----3----+----4----+----5----+----6----+----7--
59 nn1 = 1
60c
61 DO 490 ng=1,ngroup
62 mlw =iparg(1,ng)
63 nel =iparg(2,ng)
64 ity =iparg(5,ng)
65 nft =iparg(3,ng)
66 lft=1
67 llt=nel
68C-----------------------------------------------
69 IF(ity==51)THEN
70C-----------------------------------------------
71C PARTICULES SPH.
72C-----------------------------------------------
73 IF(mlw==0)THEN
74 DO i=lft,llt
75 n = nft + i
76 ioff(el2fa(nn1+n)) = 0
77 ENDDO
78 ELSEIF (nsphsol/=0) THEN
79C--- sleeping sol2sph particles considered as deleted in anim
80 gbuf => elbuf_tab(ng)%GBUF
81 DO i=lft,llt
82 n = nft + i
83 ioff(el2fa(nn1+n)) = nint(min(gbuf%OFF(i),one))
84 IF (sph2sol(n)==0) THEN
85 ioff_loc(el2fa(nn1+n)) = ioff(el2fa(nn1+n))
86 ELSE
87 ioff_loc(el2fa(nn1+n)) = 0
88 ENDIF
89 ENDDO
90 ELSE
91 gbuf => elbuf_tab(ng)%GBUF
92 DO i=lft,llt
93 n = nft + i
94 ioff(el2fa(nn1+n)) = nint(min(gbuf%OFF(i),one))
95 ioff_loc(el2fa(nn1+n)) = nint(min(gbuf%OFF(i),one))
96 ENDDO
97 ENDIF
98 ELSE
99 ENDIF
100C-----------------------------------------------
101 490 CONTINUE
102C-----------------------------------------------
103 CALL write_c_c(ioff_loc,nbf)
104C
105 RETURN
106 END
genani1
subroutine genani1(x, bufel, ixs, ixq, ixc, ixt, ixp, ixr, ixtg, swaft, iparg, pm, geo, skew, itab, lpby, npby, nstrf, rwbuf, nprw, ipart, iparts, ipartq, ipartc, ipartt, ipartp, ipartr, iparttg, rby, swa4, igrsurf, bufsf, ipartx, kxsp, ixsp, ipartsp, spbuf, ixs10, ixs20, ixs16, ipm, igeo, smater, sel2fa, snfacptx, sixedge, soffx1, snumx1, sxnorm, sinvert, sfunc1, siad, nmanim, d, smas, ms, fxani, mbufel, mdepl, nlevel, elsub, dsanim, nelem, cep, cepsp, nom_opt, ptr_nopt_rwall, ptr_nopt_sect, elbuf_tab, sph2sol, subset)
Definition genani1.F:98
min
#define min(a, b)
Definition macros.h:20
anioff0
subroutine anioff0(elbuf_tab, iparg, ioff, el2fa, nbf, sioff, sph2sol)
Definition anioff0.F:32
starter
program starter
Definition starter.F:39
write_c_c
void write_c_c(int *w, int *len)
Definition write_routtines.c:591