!&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
      Subroutine Bocov2(h,im,jm)
!     ******************************************************************
!     *                                                                *
!     *  Boundary Conditions for sqv on v Points on Octacon            *
!     *                                                                *
!     ******************************************************************
      implicit none
      integer,Parameter::nm=14
      integer::im,jm,lm,imp1,jmp1,im1,jm1,l,k
!-----------------------------------------------------------------------
       real,Dimension(-5:im+6,-5:jm+6,nm)::h
!-----------------------------------------------------------------------
        lm=im

        imp1=im
        jmp1=jm

        im1=im-1
        jm1=jm-1

      do k=-5,0
!
! Domain 1
!
      Do l=1,lm
        h(l   ,k   , 1)=H(imp1-l,1-k , 7)
        H(l   ,jmp1-k, 1)=H(l     ,1-k , 3)
        H(k   ,l   , 1)=H(l     ,1-k , 8)
        H(imp1-k,l   , 1)=H(imp1-l,1-k , 6)
      End Do
        H(k   ,k   , 1)=0.
        H(imp1-k,k   , 1)=0.
        H(k   ,jmp1-k, 1)=H(im1+k,1-k , 2)
        H(imp1-k,jmp1-k, 1)=H(1-k ,1-k , 4)
!
! Domain 2
!
      Do l=1,lm
        H(l   ,k   , 2)=H(im1+k,jmp1-l, 8)
        H(l   ,jmp1-k, 2)=H(im1+k,l     ,14)
        H(k   ,l   , 2)=H(im1+k,l     ,11)
        H(imp1-k,l   , 2)=H(1-k ,l     , 3)
      End Do
        H(k   ,k   , 2)=0.
        H(imp1-k,k   , 2)=H(1-k ,jm1+k, 1)
        H(k   ,jmp1-k, 2)=0.
        H(imp1-k,jmp1-k, 2)=H(1-k ,1-k , 5)
!
! Domain 3
!
      Do l=1,lm
        H(l   ,k   , 3)=H(l  ,jm1+k, 1)
        H(l   ,jmp1-k, 3)=H(l  ,1-k , 5)
        H(k   ,l   , 3)=H(im1+k,l  , 2)
        H(imp1-k,l   , 3)=H(1-k ,l  , 4)
      End Do
        H(k   ,k   , 3)=H(im1+k,1-k , 8)
        H(imp1-k,k   , 3)=H(1-k ,1-k , 6)
        H(k   ,jmp1-k, 3)=H(im1+k,jm1+k,14)
        H(imp1-k,jmp1-k, 3)=H(1-k ,jm1+k,12)
!
! Domain 4
!
      Do l=1,lm
        H(l   ,k   , 4)=H(1-k ,l     , 6)
        H(l   ,jmp1-k, 4)=H(1-k ,jmp1-l,12)
        H(k   ,l   , 4)=H(im1+k,l     , 3)
        H(imp1-k,l   , 4)=H(1-k ,l     , 9)
      End Do
        H(k   ,k   , 4)=H(im1+k,jm1+k, 1)
        H(imp1-k,k   , 4)=0.
        H(k   ,jmp1-k, 4)=H(im1+k,1-k , 5)
        H(imp1-k,jmp1-k, 4)=0.
!
! Domain 5
!
      Do l=1,lm
        H(l   ,k   , 5)=H(l     ,jm1+k, 3)
        H(l   ,jmp1-k, 5)=H(imp1-l,jm1+k,13)
        H(k   ,l   , 5)=H(imp1-l,jm1+k,14)
        H(imp1-k,l   , 5)=H(l     ,jm1+k,12)
      End Do
        H(k   ,k   , 5)=H(im1+k,jm1+k, 2)
        H(imp1-k,k   , 5)=H(1-k ,jm1+k, 4)
        H(k   ,jmp1-k, 5)=0.
        H(imp1-k,jmp1-k, 5)=0.
!
! Domain 6
!
      Do l=1,lm
        H(l   ,k   , 6)=H(im1+k,jmp1-l, 1)
        H(l   ,jmp1-k, 6)=H(l  ,1-k , 9)
        H(k   ,l   , 6)=H(l  ,1-k , 4)
        H(imp1-k,l   , 6)=H(1-k ,l     , 7)
      End Do
        H(k   ,k   , 6)=H(im1+k,1-k , 3)
        H(imp1-k,k   , 6)=0.
        H(k   ,jmp1-k, 6)=0.
        H(imp1-k,jmp1-k, 6)=H(1-k ,1-k ,10)
!
! Domain 7
!
      Do l=1,lm
        H(l   ,k   , 7)=H(imp1-l,1-k , 1)
        H(l   ,jmp1-k, 7)=H(l     ,1-k ,10)
        H(k   ,l   , 7)=H(im1+k   ,l, 6)
        H(imp1-k,l   , 7)=H(1-k ,l, 8)
      End Do
        H(k   ,k   , 7)=0.
        H(imp1-k,k   , 7)=0.
        H(k   ,jmp1-k, 7)=H(im1+k,1-k , 9)
        H(imp1-k,jmp1-k, 7)=H(1-k ,1-k ,11)
!
! Domain 8
!
      Do l=1,lm
        H(l   ,k   , 8)=H(1-k ,l, 1)
        H(l   ,jmp1-k, 8)=H(l     ,1-k ,11)
        H(k   ,l   , 8)=H(im1+k   ,l, 7)
        H(imp1-k,l   , 8)=H(imp1-l,1-k , 2)
      End Do
        H(k   ,k   , 8)=0
        H(imp1-k,k   , 8)=H(1-k ,1-k , 3)
        H(k   ,jmp1-k, 8)=H(im1+k,1-k ,10)
        H(imp1-k,jmp1-k, 8)=0.
!
! Domain 9
!
      Do l=1,lm
        H(l   ,k   , 9)=H(l  ,jm1+k, 6)
        H(l   ,jmp1-k, 9)=H(l  ,1-k ,12)
        H(k   ,l   , 9)=H(im1+k,l  , 4)
        H(imp1-k,l   , 9)=H(1-k ,l  ,10)
      End Do
        H(k   ,k   , 9)=0
        H(imp1-k,k   , 9)=H(1-k ,jm1+k, 7)
        H(k   ,jmp1-k, 9)=0.
        H(imp1-k,jmp1-k, 9)=H(1-k ,1-k ,13)
!
! Domain 10
!
      Do l=1,lm
        H(l   ,k   ,10)=H(l  ,jm1+k, 7)
        H(l   ,jmp1-k,10)=H(l  ,1-k ,13)
        H(k   ,l   ,10)=H(im1+k,l  , 9)
        H(imp1-k,l   ,10)=H(1-k ,l  ,11)
      End Do
        H(k   ,k   ,10)=H(im1+k,jm1+k, 6)
        H(imp1-k,k   ,10)=H(1-k ,jm1+k, 8)
        H(k   ,jmp1-k,10)=H(im1+k,1-k ,12)
        H(imp1-k,jmp1-k,10)=H(1-k ,1-k ,14)
!
! Domain 11
!
      Do l=1,lm
        H(l   ,k   ,11)=H(l  ,jm1+k, 8)
        H(l   ,jmp1-k,11)=H(l  ,1-k ,14)
        H(k   ,l   ,11)=H(im1+k,l  ,10)
        H(imp1-k,l   ,11)=H(1-k ,l  , 2)
      End Do
        H(k   ,k   ,11)=H(im1+k,jm1+k, 7)
        H(imp1-k,k   ,11)=0.
        H(k   ,jmp1-k,11)=H(im1+k,1-k ,13)
        H(imp1-k,jmp1-k,11)=0.
!
! Domain 12
!
      Do l=1,lm
        H(l   ,k   ,12)=H(l  ,jm1+k, 9)
        H(l   ,jmp1-k,12)=H(im1+k,l  , 5)
        H(k   ,l   ,12)=H(imp1-l,jm1+k, 4)
        H(imp1-k,l   ,12)=H(1-k ,l  ,13)
      End Do
        H(k   ,k   ,12)=0.
        H(imp1-k,k   ,12)=H(1-k ,jm1+k,10)
        H(k   ,jmp1-k,12)=H(im1+k,im1+k, 3)
        H(imp1-k,jmp1-k,12)=0.
!
! Domain 13
!
      Do l=1,lm
        H(l   ,k   ,13)=H(l     ,jm1+k,10)
        H(l   ,jmp1-k,13)=H(imp1-l,jm1+k, 5)
        H(k   ,l   ,13)=H(im1+k ,l  ,12)
        H(imp1-k,l   ,13)=H(1-k ,l  ,14)
      End Do
        H(k   ,k   ,13)=H(im1+k,jm1+k, 9)
        H(imp1-k,k   ,13)=H(1-k ,jm1+k,11)
        H(k   ,jmp1-k,13)=0.
        H(imp1-k,jmp1-k,13)=0.
!
! Domain 14
!
      Do l=1,lm
        H(l   ,k   ,14)=H(l     ,jm1+k,11)
        H(l   ,jmp1-k,14)=H(1-k ,jmp1-l, 5)
        H(k   ,l   ,14)=H(im1+k ,l  ,13)
        H(imp1-k,l   ,14)=H(l     ,jm1+k, 2)
      End Do
        H(k   ,k   ,14)=H(im1+k,jm1+k,10)
        H(imp1-k,k   ,14)=0.
        H(k   ,jmp1-k,14)=0.
        H(imp1-k,jmp1-k,14)=H(1-k ,jm1+k, 3)
      End Do
!-----------------------------------------------------------------------
                            Return
                            End
