topol_mod.F90

Go to the documentation of this file.

module topol
  use size_m
  implicit none

  integer :: nomlis(2,3),nmlinv(6),group(6),skpdat(6,6), eface(6),eface1(6)

  integer :: eskip(-12:12,3), nedg(3), ncmp &
    ,ixcn(8),noffst(3,0:ldimt1) &
    ,maxmlt,nspmax(0:ldimt1) &
    ,ngspcn(0:ldimt1),ngsped(3,0:ldimt1), ngcomm(2,0:ldimt1)

  integer, allocatable :: numscn(:,:),numsed(:,:) 
  integer, allocatable :: gcnnum(:,:,:), lcnnum(:,:,:)
  integer, allocatable :: gednum(:,:,:), lednum(:,:,:)
  integer, allocatable :: gedtyp(:,:,:) 

  integer :: iedge(20),iedgef(2,4,6,0:1) &
    ,icedg(3,16),iedgfc(4,6),icface(4,10) &
    ,indx(8),invedg(27)

    DATA    iedgfc /  5,7,9,11,  6,8,10,12, &
    &                   1,3,9,10,  2,4,11,12, &
    &                   1,2,5,6,   3,4,7,8    /
    DATA    icedg / 1,2,1,   3,4,1,   5,6,1,   7,8,1, &
    &                 1,3,2,   2,4,2,   5,7,2,   6,8,2, &
    &                 1,5,3,   2,6,3,   3,7,3,   4,8,3, &
!      -2D-
    &                 1,2,1,   3,4,1,   1,3,2,   2,4,2 /
    DATA    icface/ 1,3,5,7, 2,4,6,8, &
    &                 1,2,5,6, 3,4,7,8, &
    &                 1,2,3,4, 5,6,7,8, &
!      -2D-
    &                 1,3,0,0, 2,4,0,0, &
    &                 1,2,0,0, 3,4,0,0  /



  contains

  subroutine init_topol()
    use size_m
    implicit none
#if 0
     allocate(numscn(lelt,0:ldimt1),numsed(lelt,0:ldimt1) &
    ,gcnnum( 8,lelt,0:ldimt1),lcnnum( 8,lelt,0:ldimt1) &
    ,gednum(12,lelt,0:ldimt1),lednum(12,lelt,0:ldimt1) &
    ,gedtyp(12,lelt,0:ldimt1))
#endif

  end subroutine init_topol

end module topol