TractLoadDef.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	tractloaddef (R_ex, numnp, InterfaceSFElemTract, InterfaceSFNumElems, InterfaceSFNumNodes, InterfaceSFElemConn, MapNodeSF, LwrBnd, UppBnd, coor, Disp)

Function/Subroutine Documentation

subroutine tractloaddef	(	real*8, dimension(1:3*numnp)	R_ex,
		integer	numnp,
		real*8, dimension(1:3, 1:interfacesfnumelems)	InterfaceSFElemTract,
		integer	InterfaceSFNumElems,
		integer	InterfaceSFNumNodes,
		integer, dimension(1:uppbnd,1:interfacesfnumelems)	InterfaceSFElemConn,
		integer, dimension(1:interfacesfnumnodes)	MapNodeSF,
		integer	LwrBnd,
		integer	UppBnd,
		real*8, dimension(1:3,1:numnp)	coor,
		real*8, dimension(1:3*numnp)	Disp
	)

Definition at line 53 of file TractLoadDef.f90.

References Window::Pointer_descriptor::at(), i, j, and sqrt().

Here is the call graph for this function: