OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
dnwals.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!|| dnwals ../starter/source/output/anim/dnwals.F
25!||--- called by ------------------------------------------------------
26!|| dsecnor ../starter/source/output/anim/dsecnor.F
27!||--- calls -----------------------------------------------------
28!||====================================================================
29 SUBROUTINE dnwals(X ,RWL ,MSR )
30C-----------------------------------------------
31C I m p l i c i t T y p e s
32C-----------------------------------------------
33#include "implicit_f.inc"
34C-----------------------------------------------
35C D u m m y A r g u m e n t s
36C-----------------------------------------------
37 INTEGER MSR
38C REAL
39 my_real
40 . x(3,*), rwl(*)
41C-----------------------------------------------
42C L o c a l V a r i a b l e s
43C-----------------------------------------------
44 INTEGER I,J,L
45 my_real
46 . xwl, ywl, zwl,xn,yn,zn,d,dx,dy,dz,xx,yy,zz,xx0,yy0,zz0,
47 . x0(6),y0(6),z0(6),dx0(6),dy0(6),dz0(6),dx1(6),dy1(6),dz1(6)
48 REAL R4
49 DATA dx0/ 0., 0., 0., 0., 0., 0./
50 DATA dy0/ 1.,-1., 0., 0., 0., 0./
51 DATA dz0/ 0., 0.,-1., 1., 1.,-1./
52 DATA dx1/ 1., 1., 1., 1., 0., 0./
53 DATA dy1/ 0., 0., 0., 0., 1., 1./
54 DATA dz1/ 0., 0., 0., 0., 0., 0./
55 DATA x0 /-3.,-3.,-3.,-3.,-3., 3./
56 DATA y0 /-3., 3.,-3., 3.,-3.,-3./
57 DATA z0 /-3., 3., 3.,-3.,-3., 3./
58C-----------------------------------------------
59C
60 xn =rwl(1)
61 yn =rwl(2)
62 zn =rwl(3)
63 IF(msr==0)THEN
64 xwl=rwl(4)
65 ywl=rwl(5)
66 zwl=rwl(6)
67 ELSE
68 xwl=x(1,msr)
69 ywl=x(2,msr)
70 zwl=x(3,msr)
71 ENDIF
72C
73 DO i = 1,6
74 xx0 = x0(i)
75 yy0 = y0(i)
76 zz0 = z0(i)
77 DO j = 1,7
78 xx = xx0
79 yy = yy0
80 zz = zz0
81 DO l = 1,7
82 d = three1000/sqrt(xx*xx+yy*yy+zz*zz)
83 CALL write_s_c(nint(xx*d),1)
84 CALL write_s_c(nint(yy*d),1)
85 CALL write_s_c(nint(zz*d),1)
86 xx = xx + dx0(i)
87 yy = yy + dy0(i)
88 zz = zz + dz0(i)
89 ENDDO
90 xx0 = xx0 + dx1(i)
91 yy0 = yy0 + dy1(i)
92 zz0 = zz0 + dz1(i)
93 ENDDO
94 ENDDO
95C
96 RETURN
97 END
my_real
#define my_real
Definition cppsort.cpp:32
dnwals
subroutine dnwals(x, rwl, msr)
Definition dnwals.F:30
write_s_c
void write_s_c(int *w, int *len)
Definition write_routtines.c:687