2 subroutine
FEM_REFINE2D_Init()
3 end subroutine FEM_REFINE2D_Init
4 subroutine
FEM_REFINE2D_NewMesh(meshID
,nodeID
,elemID
,nodeBoundary
)
5 integer
, intent(in
) :: meshID
,nodeID
,elemID
,nodeBoundary
6 end subroutine FEM_REFINE2D_NewMesh
7 subroutine
FEM_REFINE2D_Split(mID
,nID
,coord
,eID
,areas
)
8 integer
, intent(in
) :: mID
,nID
,eID
9 double precision
, intent(in
) :: coord(:)
10 double precision
, intent(in
) :: areas(:)
11 end subroutine FEM_REFINE2D_Split
13 integer
,parameter :: FEM_VALID
=(FEM_ATTRIB_TAG_MAX
-1)
