OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
fvmbags_stub.F File Reference
#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine c_tricall (pnodes, pseg, pholes, ptri, nnp, nseg, nhol, nelp)
subroutine tribox3 (icut, bcenter, bhalfsize, tverts)
subroutine tritri3 (icut, fv0, fv1, fv2, fu0, fu1, fu2)

Function/Subroutine Documentation

◆ c_tricall()

subroutine c_tricall ( pnodes,
integer, dimension(*) pseg,
pholes,
ptri,
integer nnp,
integer nseg,
integer nhol,
integer nelp )

Definition at line 31 of file fvmbags_stub.F.

33C-----------------------------------------------
34C I m p l i c i t T y p e s
35C-----------------------------------------------
36#include "implicit_f.inc"
37C-----------------------------------------------
38C D u m m y A r g u m e n t s
39C-----------------------------------------------
40 my_real :: pnodes(*),pholes(*),ptri(*)
41 INTEGER :: NNP,NSEG,NHOL,NELP,PSEG(*)
42C
43 CALL arret(5)
#define my_real
Definition cppsort.cpp:32
subroutine arret(nn)
Definition arret.F:87

◆ tribox3()

subroutine tribox3 ( integer icut,
bcenter,
bhalfsize,
tverts )

Definition at line 52 of file fvmbags_stub.F.

53C-----------------------------------------------
54C I m p l i c i t T y p e s
55C-----------------------------------------------
56#include "implicit_f.inc"
57C-----------------------------------------------
58C D u m m y A r g u m e n t s
59C-----------------------------------------------
60 INTEGER :: ICUT
61 my_real :: bcenter(3),bhalfsize(3),tverts(9)
62 CALL arret(5)

◆ tritri3()

subroutine tritri3 ( integer icut,
fv0,
fv1,
fv2,
fu0,
fu1,
fu2 )

Definition at line 71 of file fvmbags_stub.F.

72C-----------------------------------------------
73C I m p l i c i t T y p e s
74C-----------------------------------------------
75#include "implicit_f.inc"
76C-----------------------------------------------
77C D u m m y A r g u m e n t s
78C-----------------------------------------------
79 INTEGER :: ICUT
80 my_real :: fv0, fv1, fv2, fu0, fu1, fu2
81 CALL arret(5)