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

Go to the source code of this file.

Functions/Subroutines

subroutine a4momtn3 (rho, vol, vis, r, s, t, deltax, vmx, vmy, vmz, dxx, dxy, dxz, dyx, dyy, dyz, dzx, dzy, dzz, px, py, pz, vdx, vdy, vdz, fx, fy, fz, nel)

Function/Subroutine Documentation

◆ a4momtn3()

subroutine a4momtn3 ( rho,
vol,
vis,
r,
s,
t,
deltax,
vmx,
vmy,
vmz,
dxx,
dxy,
dxz,
dyx,
dyy,
dyz,
dzx,
dzy,
dzz,
px,
py,
pz,
vdx,
vdy,
vdz,
fx,
fy,
fz,
integer, intent(in) nel )

Definition at line 30 of file a4momtn3.F.

39C-----------------------------------------------
40C I m p l i c i t T y p e s
41C-----------------------------------------------
42#include "implicit_f.inc"
43C-----------------------------------------------
44C G l o b a l P a r a m e t e r s
45C-----------------------------------------------
46#include "mvsiz_p.inc"
47C-----------------------------------------------
48C C o m m o n B l o c k s
49C-----------------------------------------------
50C-----------------------------------------------
51C D u m m y A r g u m e n t s
52C-----------------------------------------------
53 INTEGER, INTENT(IN) :: NEL
55 . rho(*),vol(*),vis(*),vdx(*),vdy(*),vdz(*),vmx(*),vmy(*),vmz(*),
56 . r(mvsiz,3),s(mvsiz,3),t(mvsiz,3),deltax(*),px(*),py(*),pz(*),
57 . fx(*),fy(*),fz(*),
58 . dxx(*),dxy(*),dxz(*),
59 . dyx(*),dyy(*),dyz(*),
60 . dzx(*),dzy(*),dzz(*)
61C-----------------------------------------------
62C L o c a l V a r i a b l e s
63C-----------------------------------------------
64 INTEGER :: I
65 my_real :: a(mvsiz),gam(mvsiz)
66C-----------------------------------------------
67C S o u r c e C o d e
68C-----------------------------------------------
69 CALL upwind4(
70 1 rho, vis, vdx, vdy,
71 2 vdz, r, s, t,
72 3 gam, nel)
73 DO i=1,nel
74 a(i)=fourth*rho(i)*vol(i)*(one+four*gam(i)*( px(i)*vdx(i)+py(i)*vdy(i)+pz(i)*vdz(i)))
75 fx(i)=fx(i)-a(i)*(vdx(i)*dxx(i)+vdy(i)*dxy(i)+vdz(i)*dxz(i))
76 fy(i)=fy(i)-a(i)*(vdx(i)*dyx(i)+vdy(i)*dyy(i)+vdz(i)*dyz(i))
77 fz(i)=fz(i)-a(i)*(vdx(i)*dzx(i)+vdy(i)*dzy(i)+vdz(i)*dzz(i))
78 ENDDO
79 RETURN
#define my_real
Definition cppsort.cpp:32
subroutine upwind4(rho, vis, vdx, vdy, vdz, r, s, t, gam, nel)
Definition upwind4.F:35