Go to the source code of this file.
|
subroutine | tractpressloaddef (R_ex, numnp, InterfaceNumElems, InterfaceNumNodes, InterfaceElemConn, MapNode, LwrBnd, UppBnd, coor, Disp, MapSFElVolEl, ElConnVol, iElType, NumElVol, TractPress) |
|
subroutine tractpressloaddef |
( |
real*8, dimension(1:3*numnp) |
R_ex, |
|
|
integer |
numnp, |
|
|
integer |
InterfaceNumElems, |
|
|
integer |
InterfaceNumNodes, |
|
|
integer, dimension(1:uppbnd,1:interfacenumelems) |
InterfaceElemConn, |
|
|
integer, dimension(1:interfacenumnodes) |
MapNode, |
|
|
integer |
LwrBnd, |
|
|
integer |
UppBnd, |
|
|
real*8, dimension(1:3,1:numnp) |
coor, |
|
|
real*8, dimension(1:3*numnp) |
Disp, |
|
|
integer, dimension(1:numelvol) |
MapSFElVolEl, |
|
|
integer, dimension(1:ieltype,1:numelvol) |
ElConnVol, |
|
|
integer |
iElType, |
|
|
integer |
NumElVol, |
|
|
real*8 |
TractPress |
|
) |
| |