OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
mean_node_norm2.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!|| mean_node_norm2 ../starter/source/initial_conditions/inivol/mean_node_norm2.F
25!||--- called by ------------------------------------------------------
26!|| getphase ../starter/source/initial_conditions/inivol/getphase.F
27!||====================================================================
28 SUBROUTINE mean_node_norm2(IN,NOD_NORMAL,NX,NY,NZ)
29C-----------------------------------------------
30C I m p l i c i t T y p e s
31C-----------------------------------------------
32#include "implicit_f.inc"
33C-----------------------------------------------
34C D u m m y A r g u m e n t s
35C-----------------------------------------------
36 INTEGER,INTENT(IN) :: IN(4)
37 my_real,INTENT(IN) :: nx,ny,nz
38 my_real,INTENT(INOUT) :: nod_normal(3,*)
39C-----------------------------------------------
40C L o c a l V a r i a b l e s
41C-----------------------------------------------
42 INTEGER r,NBNOD
43 my_real aaa, x0,y0,z0
44 my_real x01,y01,z01, x02,y02,z02, x03,y03,z03, x04,y04,z04
45 my_real xn1,yn1,zn1, xn2,yn2,zn2, xn3,yn3,zn3, xn4,yn4,zn4
46C-----------------------------------------------
47C S o u r c e L i n e s
48C-----------------------------------------------
49 IF(in(4) /= in(3))THEN
50 nod_normal(1,in(1))=nod_normal(1,in(1))+nx
51 nod_normal(2,in(1))=nod_normal(2,in(1))+ny
52 nod_normal(3,in(1))=nod_normal(3,in(1))+nz
53
54 nod_normal(1,in(2))=nod_normal(1,in(2))+nx
55 nod_normal(2,in(2))=nod_normal(2,in(2))+ny
56 nod_normal(3,in(2))=nod_normal(3,in(2))+nz
57
58 nod_normal(1,in(3))=nod_normal(1,in(3))+nx
59 nod_normal(2,in(3))=nod_normal(2,in(3))+ny
60 nod_normal(3,in(3))=nod_normal(3,in(3))+nz
61
62 nod_normal(1,in(4))=nod_normal(1,in(4))+nx
63 nod_normal(2,in(4))=nod_normal(2,in(4))+ny
64 nod_normal(3,in(4))=nod_normal(3,in(4))+nz
65 ELSE
66 nod_normal(1,in(1))=nod_normal(1,in(1))+nx
67 nod_normal(2,in(1))=nod_normal(2,in(1))+ny
68 nod_normal(3,in(1))=nod_normal(3,in(1))+nz
69
70 nod_normal(1,in(2))=nod_normal(1,in(2))+nx
71 nod_normal(2,in(2))=nod_normal(2,in(2))+ny
72 nod_normal(3,in(2))=nod_normal(3,in(2))+nz
73
74 nod_normal(1,in(3))=nod_normal(1,in(3))+nx
75 nod_normal(2,in(3))=nod_normal(2,in(3))+ny
76 nod_normal(3,in(3))=nod_normal(3,in(3))+nz
77 ENDIF
78C-----------------------------------------------
79 RETURN
80 END
my_real
#define my_real
Definition cppsort.cpp:32
mean_node_norm2
subroutine mean_node_norm2(in, nod_normal, nx, ny, nz)
Definition mean_node_norm2.F:29