OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
surface_buffer.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!|| surface_buffer ../starter/source/model/sets/surface_buffer.F
25!||--- called by ------------------------------------------------------
26!|| create_surface_from_element ../starter/source/model/sets/create_surface_from_element.F
27!||--- calls -----------------------------------------------------
28!|| quad_surface_buffer ../starter/source/model/sets/quad_surface_buffer.F
29!|| shell_surface_buffer ../starter/source/model/sets/shell_surface_buffer.F
30!|| shell_surface_buffer_remesh ../starter/source/model/sets/shell_surface_buffer_remesh.F
31!|| solid_surface_buffer ../starter/source/model/sets/solid_surface_buffer.F
32!||--- uses -----------------------------------------------------
33!||====================================================================
34 SUBROUTINE surface_buffer(
35 . IXS ,IXS10 ,IXC ,SH4TREE ,SH3TREE ,
36 . IXTG ,KNOD2ELS ,NOD2ELS ,KNOD2ELC ,NOD2ELC ,
37 . KNOD2ELTG ,NOD2ELTG ,NSEG ,IEXT ,IPARTC ,
38 . IPARTS ,IPARTG ,CLAUSE ,BUFTMPSURF,IAD_SURF ,
39 . OPT_O ,IPART ,KNOD2ELQ ,NOD2ELQ ,X ,
40 . IXQ ,KEYSET ,IPARTQ)
41C-----------------------------------------------
42C M o d u l e s
43C-----------------------------------------------
44 USE setdef_mod
45 USE names_and_titles_mod , ONLY : ncharfield
46 use element_mod , only : nixs,nixq,nixc,nixtg
47C-----------------------------------------------
48C I m p l i c i t T y p e s
49C-----------------------------------------------
50#include "implicit_f.inc"
51#include "com04_c.inc"
52#include "param_c.inc"
53#include "scr17_c.inc"
54#include "remesh_c.inc"
55C-----------------------------------------------
56C D u m m y A r g u m e n t s
57C-----------------------------------------------
58 INTEGER IXS(NIXS,*),KNOD2ELS(*),NOD2ELS(*),IXS10(6,*),
59 . KNOD2ELC(*),NOD2ELC(*),KNOD2ELTG(*),NOD2ELTG(*),
60 . IXC(NIXC,*),IXTG(NIXTG,*),IPARTC(*),IPARTG(*),
61 . BUFTMPSURF(*),IPARTS(*),SH4TREE(*),SH3TREE(*),
62 . IPART(LIPART1,*),KNOD2ELQ(*),NOD2ELQ(*),IXQ(NIXQ,*),IPARTQ(NUMELQ)
63 INTEGER IEXT,NSEG,IAD_SURF,OPT_O
64 CHARACTER(LEN=NCHARFIELD) :: KEYSET
65 my_real X(3,*)
66!
67 TYPE (SET_) :: CLAUSE
68C-----------------------------------------------
69C L o c a l V a r i a b l e s
70C-----------------------------------------------
71C=======================================================================
72!------------------
73! counting / buffering clause surface segments from elems( ext / all )
74!---
75!
76! --- solid ---
77 IF ( clause%NB_SOLID > 0 ) CALL solid_surface_buffer(
78 . ixs ,ixs10 ,ixc ,ixtg ,clause ,
79 . knod2els ,nod2els ,knod2elc ,nod2elc ,knod2eltg,
80 . nod2eltg ,nseg ,iext ,buftmpsurf,iparts ,
81 . iad_surf ,keyset)
82!
83! --- shell + sh3n ---
84!
85 IF (nadmesh == 0) THEN
86 IF ( clause%NB_SH4N > 0 ) CALL shell_surface_buffer(
87 . ixc ,nixc ,2 ,5 ,3 ,
88 . nseg ,iad_surf ,opt_o ,buftmpsurf,clause)
89 IF ( clause%NB_SH3N > 0 .AND. numeltria == 0)
90 . CALL shell_surface_buffer(
91 . ixtg ,nixtg ,2 ,4 ,7 ,
92 . nseg ,iad_surf ,opt_o ,buftmpsurf,clause)
93 ELSE
94 IF ( clause%NB_SH4N > 0 ) CALL shell_surface_buffer_remesh(
95 . ixc ,nixc ,2 ,5 ,3 ,
96 . nseg ,iad_surf ,buftmpsurf,clause ,ipartc ,
97 . ipart ,ksh4tree ,sh4tree )
98 IF ( clause%NB_SH3N > 0 .AND. numeltria == 0)
99 . CALL shell_surface_buffer_remesh(
100 . ixtg ,nixtg ,2 ,4 ,7 ,
101 . nseg ,iad_surf ,buftmpsurf,clause ,ipartg,
102 . ipart ,ksh3tree ,sh3tree )
103 ENDIF ! IF (NADMESH == 0)
104!
105! --- quad --- external surface only ( EXT )
106!
107 IF ( CLAUSE%NB_QUAD > 0 ) CALL QUAD_SURFACE_BUFFER(
108 . IXQ ,IAD_SURF ,BUFTMPSURF ,NSEG ,KNOD2ELQ ,
109 . nod2elq ,iext ,x ,clause,ipartq)
110!---
111 RETURN
112 END
names_and_titles_mod
Definition names_and_titles_mod.F:1002
names_and_titles_mod::ncharfield
integer, parameter ncharfield
Definition names_and_titles_mod.F:1010
setdef_mod
Definition setdef_mod.F:107
shell_surface_buffer
subroutine shell_surface_buffer(ix, nix, nix1, nix2, ieltyp, nseg, iad_surf, opt_o, buftmpsurf, clause)
Definition shell_surface_buffer.F:32
shell_surface_buffer_remesh
subroutine shell_surface_buffer_remesh(ix, nix, nix1, nix2, ieltyp, nseg, iad_surf, buftmpsurf, clause, iparte, ipart, kshtree, shtree)
Definition shell_surface_buffer_remesh.F:33
solid_surface_buffer
subroutine solid_surface_buffer(ixs, ixs10, ixc, ixtg, clause, knod2els, nod2els, knod2elc, nod2elc, knod2eltg, nod2eltg, nseg, iext, buftmpsurf, iparts, iad_surf, keyset)
Definition solid_surface_buffer.F:36
surface_buffer
subroutine surface_buffer(ixs, ixs10, ixc, sh4tree, sh3tree, ixtg, knod2els, nod2els, knod2elc, nod2elc, knod2eltg, nod2eltg, nseg, iext, ipartc, iparts, ipartg, clause, buftmpsurf, iad_surf, opt_o, ipart, knod2elq, nod2elq, x, ixq, keyset, ipartq)
Definition surface_buffer.F:41