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

Go to the source code of this file.

Functions/Subroutines

subroutine rotos4 (jft, jlt, sigxx, sigyy, sigxy, sigyx, dir, nel)

Function/Subroutine Documentation

◆ rotos4()

subroutine rotos4 ( integer, intent(in) jft,
integer, intent(in) jlt,
dimension(nel), intent(inout) sigxx,
dimension(nel), intent(inout) sigyy,
dimension(nel), intent(inout) sigxy,
dimension(nel), intent(inout) sigyx,
dimension(nel,2), intent(in) dir,
integer, intent(in) nel )

Definition at line 28 of file rotos4.F.

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) :: JFT, JLT,NEL
37 my_real,INTENT(INOUT) :: sigxx(nel),sigyy(nel),sigxy(nel),sigyx(nel)
38 my_real,INTENT(IN) :: dir(nel,2)
39C-----------------------------------------------
40C L o c a l V a r i a b l e s
41C-----------------------------------------------
42 INTEGER I
43 my_real s1, s2, s3, s4,s5
44C-----------------------------------------------
45C S o u r c e L i n e s
46C-----------------------------------------------
47 DO i=jft,jlt
48 s1 = dir(i,1)*dir(i,1)*sigxx(i) + dir(i,2)*dir(i,2)*sigyy(i) + dir(i,1)*dir(i,2)*(sigxy(i)+sigyx(i))
49 s2 = dir(i,2)*dir(i,2)*sigxx(i) + dir(i,1)*dir(i,1)*sigyy(i) - dir(i,2)*dir(i,1)*(sigxy(i)+sigyx(i))
50 s5 = -dir(i,1)*dir(i,2)*sigxx(i) + dir(i,2)*dir(i,1)*sigyy(i)
51 s3 = s5+dir(i,1)*dir(i,1)*sigxy(i) - dir(i,2)*dir(i,2)*sigyx(i)
52 s4 = s5+dir(i,1)*dir(i,1)*sigyx(i) - dir(i,2)*dir(i,2)*sigxy(i)
53 sigxx(i)=s1
54 sigyy(i)=s2
55 sigxy(i)=s3
56 sigyx(i)=s4
57 ENDDO
58c-----------
59 RETURN
#define my_real
Definition cppsort.cpp:32