00001 interface
00002 subroutine FEM_REFINE2D_Init()
00003 end subroutine FEM_REFINE2D_Init
00004 subroutine FEM_REFINE2D_NewMesh(meshID,nodeID,elemID,nodeBoundary)
00005 integer, intent(in) :: meshID,nodeID,elemID,nodeBoundary
00006 end subroutine FEM_REFINE2D_NewMesh
00007 subroutine FEM_REFINE2D_Split(mID,nID,coord,eID,areas)
00008 integer, intent(in) :: mID,nID,eID
00009 double precision, intent(in) :: coord(:)
00010 double precision, intent(in) :: areas(:)
00011 end subroutine FEM_REFINE2D_Split
00012 end interface
00013 integer,parameter :: FEM_VALID=(FEM_ATTRIB_TAG_MAX-1)
1.5.5