######################################################################### ####### ####### ####### + (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) ####### #########################################################################
######################################################################### ####### (8) +----------(15)------------+ (7) ####### ####### (16) /! (14) /! ####### ####### / ! (20) (6) / ! (19) ####### ####### (5) +--!-------(13)------------+ ! ####### ####### ! ! ! ! ####### ####### (17)! +----------(11)--------!--+ (3) ####### ####### (12)! / (4) (18) ! / (10) ####### ####### !/ !/ ####### ####### (1) +----------(9)------------+ (2) ####### #########################################################################
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(ShapeFunction_), | intent(inout) | :: | obj |