GetShapeFunction Subroutine

public subroutine GetShapeFunction(obj)

######################################################################### ####### ####### ####### + (1) ####### ####### ####### ####### ####### ######################################################################### ######################################################################### ####### ####### ####### +-----------------------+ ####### ####### (1) (2) ####### ####### ####### #########################################################################

######################################################################### ####### ####### ####### +-----------+-------------+ ####### ####### (1) (2) (3) ####### ####### ####### ######################################################################### allocate(obj%Nmat(obj%NumOfNode,obj%NumOfDim) )

obj%Nmat(1,1)=0.50d0( 1.0d0-gzi(1)) obj%Nmat(1,2)=0.50d0(-1.0d0+gzi(1)) obj%Nmat(1,3)=0.50d0*( 1.0d0-gzi(1))

obj%ErrorMsg="Succeed::GetShapeFunction " obj%ierr=0 ######################################################################### ####### ####### ####### (1) +-------------------------+ ####### ####### \ / (3) ####### ####### \ / ####### ####### \ / ####### ####### \ / ####### ####### \ / ####### ####### \ / #######
####### (2) + #######
#########################################################################

######################################################################### ####### ####### ####### +-------+---------+-------+ ####### ####### (1) (2) (3) (4) ####### ####### ####### ######################################################################### obj%ErrorMsg="Succeed::GetShapeFunction " obj%ierr=0 ######################################################################### ####### ####### ####### (1) +-------------------------+ (4) ####### ####### ! ! ####### ####### ! ! ####### ####### ! ! ####### ####### ! ! ####### ####### ! ! ####### ####### ! ! #######
####### (2) +-------------------------+ (3) #######
#########################################################################

######################################################################### ####### (4) + ####### ####### / \ ####### ####### / \ ####### ####### / \ ####### ####### / + (3) ####### ####### / ---- \ ####### ####### (1) + - \ ####### ####### -----____ \ #######
####### ----- + (2) #######
#########################################################################

######################################################################### ####### (8) +-------------------------+ (7) ####### ####### /! /! ####### ####### / ! (6) / ! ####### ####### (5) +--!----------------------+ ! ####### ####### ! ! ! ! ####### ####### ! +----------------------!--+ (3) ####### ####### ! / (4) ! / ####### ####### !/ !/ #######
####### (1) +-------------------------+ (2) #######
#########################################################################

Arguments

Type	Intent	Optional	Attributes		Name
class(ShapeFunction_),	intent(inout)			::	obj

Contents

None