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

Go to the source code of this file.

Functions/Subroutines

subroutine ig3dderishap (i, nctrl, r, drdxi, detjac, n, b, det)

Function/Subroutine Documentation

◆ ig3dderishap()

subroutine ig3dderishap ( integer i,
integer nctrl,
dimension(nctrl) r,
dimension(nctrl,3) drdxi,
detjac,
dimension(nctrl,mvsiz) n,
dimension(3*nctrl,mvsiz) b,
dimension(mvsiz) det )

Definition at line 28 of file ig3dderishap.F.

30C-----------------------------------------------
31C I m p l i c i t T y p e s
32C-----------------------------------------------
33#include "implicit_f.inc"
34C-----------------------------------------------
35C G l o b a l P a r a m e t e r s
36C-----------------------------------------------
37#include "mvsiz_p.inc"
38C-----------------------------------------------
39C D u m m y A r g u m e n t s
40C-----------------------------------------------
41 INTEGER I, NCTRL
42 my_real,
43 . DIMENSION(NCTRL,3) :: drdxi
44 my_real,
45 . DIMENSION(NCTRL) :: r
47 . detjac
48 my_real,
49 . DIMENSION(NCTRL,MVSIZ) :: n
50 my_real,
51 . DIMENSION(3*NCTRL,MVSIZ) :: b
52 my_real,
53 . DIMENSION(MVSIZ) :: det
54C-----------------------------------------------
55C L o c a l V a r i a b l e s
56C-----------------------------------------------
57 INTEGER J, INCTRL
58C-----------------------------------------------
59C
60C i,j,k,...., NCTRL
61C
62C NEL NEL
63C /-----------\ /--------------------\ !
64C [N] = [Ni Nk .. ] \ N [B] = [dNi/dx dNk/dx .. ] \ 3
65C [Ni Nl .. ] | C [dNi/dy dNk/dy .. ] | *
66C [Nk Nm .. ] | T [dNi/dz dNk/dz .. ] | N
67C [.. .. .. ] | R [dNj/dx dNl/dx .. ] | C
68C [.. .. .. ] / L [dNj/dy dNl/dy .. ] | T
69C [dNj/dz dNl/dz .. ] | R
70C [ .. .. .. ] / L
71
72 det(i)=detjac
73
74 DO j=1,nctrl
75 inctrl = (j-1)*3
76 n(j,i)=r(j)
77 b(inctrl+1,i) = drdxi(j,1)
78 b(inctrl+2,i) = drdxi(j,2)
79 b(inctrl+3,i) = drdxi(j,3)
80 ENDDO
81
82C-----------
83 RETURN
#define my_real
Definition cppsort.cpp:32