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

Go to the source code of this file.

Functions/Subroutines

subroutine sordeftb (jft, jlt, mxx, myy, mzz, g1x, g1y, g1z, g2x, g2y, g2z, g3x, g3y, g3z)

Function/Subroutine Documentation

◆ sordeftb()

subroutine sordeftb ( integer jft,
integer jlt,
mxx,
myy,
mzz,
g1x,
g1y,
g1z,
g2x,
g2y,
g2z,
g3x,
g3y,
g3z )

Definition at line 28 of file sordeftb.F.

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 JFT, JLT
38C REAL
40 . mxx(*), myy(*), mzz(*),g1x(*),g1y(*),g1z(*),
41 . g2x(*),g2y(*),g2z(*),g3x(*),g3y(*),g3z(*)
42C-----------------------------------------------
43C L o c a l V a r i a b l e s
44C-----------------------------------------------
45 INTEGER I
46C REAL
48 . sx,sy,sz,fxx,fxy,fxz,fyx,fyy,fyz,fzx,fzy,fzz
49C-----------------------------------------------
50 DO i=jft,jlt
51 fxx = mxx(i)*g1x(i)*g1x(i)+myy(i)*g1y(i)*g1y(i)+mzz(i)*g1z(i)*g1z(i)
52 fyy = mxx(i)*g2x(i)*g2x(i)+myy(i)*g2y(i)*g2y(i)+mzz(i)*g2z(i)*g2z(i)
53 fzz = mxx(i)*g3x(i)*g3x(i)+myy(i)*g3y(i)*g3y(i)+mzz(i)*g3z(i)*g3z(i)
54 mxx(i)=fxx
55 myy(i)=fyy
56 mzz(i)=fzz
57 ENDDO
58C-----------
59 RETURN
#define my_real
Definition cppsort.cpp:32