src/libs/ck-libs/TMRC2D/refinef.h

   1        external REFINE2D_Get_Split
   2
   3        interface
   4        subroutine REFINE2D_Init()
   5        end subroutine
   6        subroutine REFINE2D_NewMesh(nEl,nGhost,conn,gid)
   7          integer, intent(in) :: nEl,nGhost
   8          integer, intent(in) :: conn(3,nGhost)
   9          integer, intent(in) :: gid(2,nGhost)
  10        end subroutine
  11        subroutine REFINE2D_Split(nNode,coord,nEl,desiredArea)
  12          integer, intent(in) :: nNode,nEl
  13          double precision, intent(in) :: coord(2,nNode)
  14          double precision, intent(in) :: desiredArea(nEl)
  15        end subroutine
  16        function REFINE2D_Get_Split_Length()
  17           integer  :: REFINE2D_Get_Split_Length
  18        end function REFINE2D_Get_Split_Length
  19 !       subroutine REFINE2D_Get_Split(splitNo,conn,tri,A,B,C,frac)
  20 !          integer, intent(in) :: splitNo
  21 !          integer, intent(in) :: conn(:,:)
  22 !          integer, intent(out) :: tri
  23 !          integer, intent(out) :: A
  24 !          integer, intent(out) :: B
  25 !          integer, intent(out) :: C
  26 !          double precision, intent(out) :: frac
  27 !          !real, intent(out) :: frac
  28 !       end subroutine
  29        subroutine REFINE2D_Check(nEl,conn,nNode)
  30           integer, intent(in) :: nEl,nNode
  31           integer, intent(in) :: conn(3,nEl)
  32        end subroutine
  33        end interface