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-----------------------------------------------
42C-----------------------------------------------
43C S o u r c e L i n e s
44C-----------------------------------------------
45 IF(in(4) /= in(3))THEN
46 nod_normal(1,in(1))=nod_normal(1,in(1))+nx
47 nod_normal(2,in(1))=nod_normal(2,in(1))+ny
48 nod_normal(3,in(1))=nod_normal(3,in(1))+nz
49
50 nod_normal(1,in(2))=nod_normal(1,in(2))+nx
51 nod_normal(2,in(2))=nod_normal(2,in(2))+ny
52 nod_normal(3,in(2))=nod_normal(3,in(2))+nz
53
54 nod_normal(1,in(3))=nod_normal(1,in(3))+nx
55 nod_normal(2,in(3))=nod_normal(2,in(3))+ny
56 nod_normal(3,in(3))=nod_normal(3,in(3))+nz
57
58 nod_normal(1,in(4))=nod_normal(1,in(4))+nx
59 nod_normal(2,in(4))=nod_normal(2,in(4))+ny
60 nod_normal(3,in(4))=nod_normal(3,in(4))+nz
61 ELSE
62 nod_normal(1,in(1))=nod_normal(1,in(1))+nx
63 nod_normal(2,in(1))=nod_normal(2,in(1))+ny
64 nod_normal(3,in(1))=nod_normal(3,in(1))+nz
65
66 nod_normal(1,in(2))=nod_normal(1,in(2))+nx
67 nod_normal(2,in(2))=nod_normal(2,in(2))+ny
68 nod_normal(3,in(2))=nod_normal(3,in(2))+nz
69
70 nod_normal(1,in(3))=nod_normal(1,in(3))+nx
71 nod_normal(2,in(3))=nod_normal(2,in(3))+ny
72 nod_normal(3,in(3))=nod_normal(3,in(3))+nz
73 ENDIF
74C-----------------------------------------------
75 RETURN
76 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