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

Go to the source code of this file.

Functions/Subroutines

subroutine tkeg3 (jft, jlt, fx, al, ke11, ke12, ke22)

Function/Subroutine Documentation

◆ tkeg3()

subroutine tkeg3 ( integer jft,
integer jlt,
fx,
al,
ke11,
ke12,
ke22 )

Definition at line 30 of file tkeg3.F.

32C-----------------------------------------------
33C I M P L I C I T T Y P E S
34C-----------------------------------------------
35#include "implicit_f.inc"
36#include "mvsiz_p.inc"
37C-----------------------------------------------
38C D U M M Y A R G U M E N T S
39C-----------------------------------------------
40 INTEGER JFT,JLT
41 my_real
42 . fx(*),al(*),ke11(3,3,*),ke12(3,3,*),ke22(3,3,*)
43C-----------------------------------------------
44C L O C A L V A R I A B L E S
45C-----------------------------------------------
46 INTEGER EP,I,J
47 my_real
48 . h(mvsiz)
49C-----------------------------------------------
50C S o u r c e L i n e s
51C-----------------------------------------------
52 DO ep=jft,jlt
53 h(ep)=fx(ep)/al(ep)
54 IF (h(ep)<zero) h(ep)=em9
55 ENDDO
56 DO i=1,3
57 DO ep=jft,jlt
58 ke11(i,i,ep) = ke11(i,i,ep)+h(ep)
59 ke12(i,i,ep) = ke12(i,i,ep)-h(ep)
60 ke22(i,i,ep) = ke22(i,i,ep)+h(ep)
61 enddo! next EP
62 enddo! next I
63C-----------------------------------------------
64 RETURN
#define my_real
Definition cppsort.cpp:32