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