!====================================================================
!
      subroutine xyz_intp_cf_vc
     &    (f,d0f,orderi,orderb,
     &     biL, biR, bjL, bjR, bkL, bkR,
     &     fiL, fiR, fjL, fjR, fkL, fkR,
     &     iiL, iiR, ijL, ijR, ikL, ikR,
     &     dfiL,dfiR,dfjL,dfjR,dfkL,dfkR,
     &     iperx,ipery,iperz,ierror,error,
     &     corner)
!
      include 'der0_3D_cf_vc_include.h'
!
      call der0_3D_cf_vc_pre( ierror, error,
     &   xbegin,xend,ybegin,yend,zbegin,zend,
     &   bnd4I, bnd6I, bnd8I, bnd10I,
!
     &   bnd4AAA, bnd4AAB, bnd4ABB,
!
     &   bnd6AAA, bnd6AAB, bnd6AAC,
     &   bnd6ABB, bnd6ABC, bnd6ACC,
     &   bnd6BBB, bnd6BBC, bnd6BCC,
!
     &   bnd8AAA, bnd8AAB, bnd8AAC,
     &   bnd8AAD, bnd8ABB, bnd8ABC,
     &   bnd8ABD, bnd8ACC, bnd8ACD,
     &   bnd8ADD, bnd8BBB, bnd8BBC,
     &   bnd8BBD, bnd8BCC, bnd8BCD,
     &   bnd8BDD, bnd8CCC, bnd8CCD,
     &   bnd8CDD,
!
     &   iperx,ipery,iperz, orderi, orderb,
     &   biL, biR, bjL, bjR, bkL, bkR,
     &   fiL, fiR, fjL, fjR, fkL, fkR,
     &   iiL, iiR, ijL, ijR, ikL, ikR,
     &   piL, piR, pjL, pjR, pkL, pkR,
     &   dfiL,dfiR,dfjL,dfjR,dfkL,dfkR,
     &   nproLx,nproRx,nproLy,nproRy,nproLz,nproRz,
     &   proL,proR,promax,width)
!
      if((width .gt. (piR-piL+1)) .or. (width .gt. (pjR-pjL+1)) .or.
     &   (width .gt. (pkR-pkL+1))) then
        ierror = -100
        error = 'DER_0_3D: Stencil is wider than the f domain'
        return
      endif
!
! Zero-out interpolant
!
      do k = ikL, ikR-1
        do j = ijL, ijR-1
          do i = iiL, iiR-1
            d0f(i,j,k) = 0.0
          end do
        end do
      end do
!
! Set protrusion variable for corners
!
      nproLxC = nproLx
      nproLyC = nproLy
      nproLzC = nproLz
      nproRxC = nproRx
      nproRyC = nproRy
      nproRzC = nproRz
!
! Written by Chris Kennedy in Feb. 2002 (Initial draft)
!
!========================================================================
! CENTERED DIFFERENCE OPERATORS
!
!-----------------------------
!  2nd-order explicit: (2-2E-2)
!
      if ( orderi .eq. 2 ) then
!
        aa1  =  1.d0/ 8.d0
!
!  Internal nodes:
!
        do k = zbegin, zend
          do j = ybegin, yend
            do i = xbegin, xend
              d0f(i,j,k) = aa1 *( f(i+0,j+1,k+1)+f(i+1,j+1,k+1)
     &                   +        f(i+0,j+1,k+0)+f(i+1,j+1,k+0)
     &                   +        f(i+0,j+0,k+1)+f(i+1,j+0,k+1)
     &                   +        f(i+0,j+0,k+0)+f(i+1,j+0,k+0) )
            end do   
          end do
        end do
!
      end if
!
!-----------------------------
!  4th order explicit: (4,4-4E-4,4)
!
      if ( orderi .eq. 4 ) then
!
!  Internal nodes:
!
        do k = zbegin, zend
          do j = ybegin, yend
            do i = xbegin, xend
             sum = 0.d0
             do ii = 1, 4
             do jj = 1, 4
             do kk = 1, 4
               sum = sum + bnd4I(ii,jj,kk)* f(i-2+ii,j+jj-2,k+kk-2)
             enddo
             enddo
             enddo
             d0f(i,j,k) = sum
           enddo
         enddo
       enddo
!
! Boundary nodes:
!
!
!   Solve for all 1D-Corners (ABB) - 6 planes
!   =========================================
!
! 4th-order
! =========
!
        if( orderb .eq. 4) then
!
! Left YZ-plane
!==============
!
         if ( nproLx .eq. 1 ) then
!
          i = (xbegin - 1)
!
          do k = zbegin, zend
           do j = ybegin, yend
!
            do kk = 1, 4
              do jj = 1, 4
                do ii = 1, 4
!
                  iii = i + kk - 1
                  jjj = j + jj - 2
                  kkk = k + ii - 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd4ABB(ii,jj,kk)*f(iii,jjj,kkk)
!
                end do
              end do
            end do
           end do
          end do
         endif
!
! Right YZ-plane
!===============
         if ( nproRx .eq. 1 ) then
!
          i = (xend + 1)
!
          do k = zbegin, zend
           do j = ybegin, yend
!
            do kk = 1, 4
              do jj = 1, 4
                do ii = 1, 4
!
                  iii = i - kk + 2
                  jjj = j + jj - 2
                  kkk = k + ii - 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd4ABB(ii,jj,kk)*f(iii,jjj,kkk)
!
                end do
              end do
            end do
           end do
          end do
         endif
!
! Left ZX-plane
!==============
         if ( nproLy .eq. 1 ) then
!
          j = (ybegin - 1)
!
          do k = zbegin, zend
           do i = xbegin, xend
!
            do kk = 1, 4
              do jj = 1, 4
                do ii = 1, 4
!
                  iii = i + ii - 2
                  jjj = j + kk - 1
                  kkk = k + jj - 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd4ABB(ii,jj,kk)*f(iii,jjj,kkk)
!
                end do
              end do
            end do
           end do
          end do
         endif
!
! Right ZX-plane
!===============
         if ( nproRy .eq. 1 ) then
!
          j = (yend + 1)
!
          do k = zbegin, zend
           do i = xbegin, xend
!
            do kk = 1, 4
              do jj = 1, 4
                do ii = 1, 4
!
                  iii = i + ii - 2
                  jjj = j - kk + 2
                  kkk = k + jj - 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd4ABB(ii,jj,kk)*f(iii,jjj,kkk)
!
                end do
              end do
            end do
           end do
          end do
         endif

!
! Left XY-plane
!==============
         if ( nproLz .eq. 1 ) then
!
          k = (zbegin - 1)
!
          do j = ybegin, yend
           do i = xbegin, xend
!
            do kk = 1, 4
              do jj = 1, 4
                do ii = 1, 4
!
                  iii = i + ii - 2
                  jjj = j + jj - 2
                  kkk = k + kk - 1
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd4ABB(ii,jj,kk)*f(iii,jjj,kkk)
!
                end do
              end do
            end do
           end do
          end do
         endif
!
! Right XY-plane
!===============
         if ( nproRz .eq. 1 ) then
!
          k = (zend + 1)
!
          do j = ybegin, yend
           do i = xbegin, xend
!
            do kk = 1, 4
              do jj = 1, 4
                do ii = 1, 4
!
                  iii = i + ii - 2
                  jjj = j + jj - 2
                  kkk = k - kk + 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd4ABB(ii,jj,kk)*f(iii,jjj,kkk)
!
                end do
              end do
            end do
           end do
          end do
         endif
! end orderb
       endif
!
!
      if ( .not. corner ) then
!
        nproLxC = 1
        nproLyC = 1
        nproLzC = 1
        nproRxC = 1
        nproRyC = 1
        nproRzC = 1
      else
        nproLxC = nproLx
        nproLyC = nproLy
        nproLzC = nproLz
        nproRxC = nproRx
        nproRyC = nproRy
        nproRzC = nproRz
! 
      endif
!
!   Solve for all 2D-Corners (AAB) - 12 edges
!   =========================================
!
! 4th-order
! =========
!
! X-lines/edges
!==============
        if( orderb .eq. 4) then
! XLL
         if ( ( nproLyC .eq. 1 ) .and.
     &        ( nproLzC .eq. 1 )) then
!
          j = (ybegin - 1)
          k = (zbegin - 1)
!
          do i = xbegin, xend
            do kk = 1, 4
              do jj = 1, 4
                do ii = 1, 4
!
                  iii = i + ii - 2
                  jjj = j + jj - 1
                  kkk = k + kk - 1
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd4AAB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
! XRL
         if ( ( nproRyC .eq. 1 ) .and.
     &        ( nproLzC .eq. 1 )) then
!
          j = (yend + 1)
          k = (zbegin - 1)
!
          do i = xbegin, xend
            do kk = 1, 4
              do jj = 1, 4
                do ii = 1, 4
!
                  iii = i + ii - 2
                  jjj = j - jj + 2
                  kkk = k + kk - 1
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd4AAB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
! XLR
         if ( ( nproLyC .eq. 1 ) .and.
     &        ( nproRzC .eq. 1 )) then
!
          j = (ybegin - 1)
          k = (zend + 1)
!
          do i = xbegin, xend
            do kk = 1, 4
              do jj = 1, 4
                do ii = 1, 4
!
                  iii = i + ii - 2
                  jjj = j + jj - 1
                  kkk = k - kk + 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd4AAB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
! XRR
         if ( ( nproRyC .eq. 1 ) .and.
     &        ( nproRzC .eq. 1 )) then
!
          j = (yend + 1)
          k = (zend + 1)
!
          do i = xbegin, xend
            do kk = 1, 4
              do jj = 1, 4
                do ii = 1, 4
!
                  iii = i + ii - 2
                  jjj = j - jj + 2
                  kkk = k - kk + 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd4AAB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
! Y-lines/edges
!==============
! YLL
         if ( ( nproLxC .eq. 1 ) .and.
     &        ( nproLzC .eq. 1 )) then
!
          i = (xbegin - 1)
          k = (zbegin - 1)
!
          do j = ybegin, yend
            do kk = 1, 4
              do jj = 1, 4
                do ii = 1, 4
!
                  iii = i + jj - 1
                  jjj = j + ii - 2
                  kkk = k + kk - 1
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd4AAB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
! YRL
         if ( ( nproRxC .eq. 1 ) .and.
     &        ( nproLzC .eq. 1 )) then
!
          i = (xend + 1)
          k = (zbegin - 1)
!
          do j = ybegin, yend
            do kk = 1, 4
              do jj = 1, 4
                do ii = 1, 4
!
                  iii = i - jj + 2
                  jjj = j + ii - 2
                  kkk = k + kk - 1
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd4AAB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
! YLR
         if ( ( nproLxC .eq. 1 ) .and.
     &        ( nproRzC .eq. 1 )) then
!
          i = (xbegin - 1)
          k = (zend + 1)
!
          do j = ybegin, yend
            do kk = 1, 4
              do jj = 1, 4
                do ii = 1, 4
!
                  iii = i + jj - 1
                  jjj = j + ii - 2
                  kkk = k - kk + 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd4AAB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
! YRR
         if ( ( nproRxC .eq. 1 ) .and.
     &        ( nproRzC .eq. 1 )) then
!
          i = (xend + 1)
          k = (zend + 1)
!
          do j = ybegin, yend
            do kk = 1, 4
              do jj = 1, 4
                do ii = 1, 4
!
                  iii = i - jj + 2
                  jjj = j + ii - 2
                  kkk = k - kk + 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd4AAB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
! Z-lines/edges
!==============
!
! ZLL
         if ( ( nproLxC .eq. 1 ) .and.
     &        ( nproLyC .eq. 1 )) then
!
          i = (xbegin - 1)
          j = (ybegin - 1)
!
          do k = zbegin, zend
            do kk = 1, 4
              do jj = 1, 4
                do ii = 1, 4
!
                  iii = i + kk - 1
                  jjj = j + jj - 1
                  kkk = k + ii - 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd4AAB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
! ZRL
         if ( ( nproRxC .eq. 1 ) .and.
     &        ( nproLyC .eq. 1 )) then
!
          i = (xend + 1)
          j = (ybegin - 1)
!
          do k = zbegin, zend
            do kk = 1, 4
              do jj = 1, 4
                do ii = 1, 4
!
                  iii = i - kk + 2
                  jjj = j + jj - 1
                  kkk = k + ii - 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd4AAB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
! ZLR
         if ( ( nproLxC .eq. 1 ) .and.
     &        ( nproRyC .eq. 1 )) then
!
          i = (xbegin - 1)
          j = (yend + 1)
!
          do k = zbegin, zend
            do kk = 1, 4
              do jj = 1, 4
                do ii = 1, 4
!
                  iii = i + kk - 1
                  jjj = j - jj + 2
                  kkk = k + ii - 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd4AAB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
! ZRR
         if ( ( nproRxC .eq. 1 ) .and.
     &        ( nproRyC .eq. 1 )) then
!
          i = (xend + 1)
          j = (yend + 1)
!
          do k = zbegin, zend
            do kk = 1, 4
              do jj = 1, 4
                do ii = 1, 4
!
                  iii = i - kk + 2
                  jjj = j - jj + 2
                  kkk = k + ii - 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd4AAB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
! end orderb
        end if
!
!
!   Solve for all 3D-Corners (AAA) - 8
!   ==================================
!
! 4th-order
! =========
!
        if( orderb .eq. 4) then
! LLL
         if ( ( nproLxC .eq. 1 ) .and. 
     &        ( nproLyC .eq. 1 ) .and. 
     &        ( nproLzC .eq. 1 )) then
!
          i = (xbegin - 1)
          j = (ybegin - 1)
          k = (zbegin - 1)
!
          do kk = 1, 4
            do jj = 1, 4 
              do ii = 1, 4
!
                iii = i + ii - 1
                jjj = j + jj - 1
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) + 
     &                       bnd4AAA(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
! RLL
         if ( ( nproRxC .eq. 1 ) .and.
     &        ( nproLyC .eq. 1 ) .and.
     &        ( nproLzC .eq. 1 )) then
!
          i = (xend + 1)
          j = (ybegin - 1)
          k = (zbegin - 1)
!
          do kk = 1, 4
            do jj = 1, 4
              do ii = 1, 4
!
                iii = i - ii + 2
                jjj = j + jj - 1
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd4AAA(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
! LRL
         if ( ( nproLxC .eq. 1 ) .and.
     &        ( nproRyC .eq. 1 ) .and.
     &        ( nproLzC .eq. 1 )) then
!
          i = (xbegin - 1)
          j = (yend + 1)
          k = (zbegin - 1)
!
          do kk = 1, 4
            do jj = 1, 4
              do ii = 1, 4
!
                iii = i + ii - 1
                jjj = j - jj + 2
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd4AAA(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
! RRL
         if ( ( nproRxC .eq. 1 ) .and.
     &        ( nproRyC .eq. 1 ) .and.
     &        ( nproLzC .eq. 1 )) then
!
          i = (xend + 1)
          j = (yend + 1)
          k = (zbegin - 1)
!
          do kk = 1, 4
            do jj = 1, 4
              do ii = 1, 4
!
                iii = i - ii + 2
                jjj = j - jj + 2
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd4AAA(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
! LLR
         if ( ( nproLxC .eq. 1 ) .and. 
     &        ( nproLyC .eq. 1 ) .and. 
     &        ( nproRzC .eq. 1 )) then
!
          i = (xbegin - 1)
          j = (ybegin - 1)
          k = (zend + 1)
!
          do kk = 1, 4
            do jj = 1, 4 
              do ii = 1, 4
!
                iii = i + ii - 1
                jjj = j + jj - 1
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) + 
     &                       bnd4AAA(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
! RLR
         if ( ( nproRxC .eq. 1 ) .and.
     &        ( nproLyC .eq. 1 ) .and.
     &        ( nproRzC .eq. 1 )) then
!
          i = (xend + 1)
          j = (ybegin - 1)
          k = (zend + 1)
!
          do kk = 1, 4
            do jj = 1, 4
              do ii = 1, 4
!
                iii = i - ii + 2
                jjj = j + jj - 1
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd4AAA(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
! LRR
         if ( ( nproLxC .eq. 1 ) .and.
     &        ( nproRyC .eq. 1 ) .and.
     &        ( nproRzC .eq. 1 )) then
!
          i = (xbegin - 1)
          j = (yend + 1)
          k = (zend + 1)
!
          do kk = 1, 4
            do jj = 1, 4
              do ii = 1, 4
!
                iii = i + ii - 1
                jjj = j - jj + 2
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd4AAA(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
! RRR
         if ( ( nproRxC .eq. 1 ) .and.
     &        ( nproRyC .eq. 1 ) .and.
     &        ( nproRzC .eq. 1 )) then
!
          i = (xend + 1)
          j = (yend + 1)
          k = (zend + 1)
!
          do kk = 1, 4
            do jj = 1, 4
              do ii = 1, 4
!
                iii = i - ii + 2
                jjj = j - jj + 2
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd4AAA(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
! end orderb
        endif
! end orderi
      endif
!
!====================================================================
!
!  6th order explicit: (6,6,6-6E-6,6,6)
!
      if ( orderi .eq. 6 ) then
!
!  Internal nodes:
!
        do k = zbegin, zend
          do j = ybegin, yend
            do i = xbegin, xend
             sum = 0.d0
             do ii = 1, 6
             do jj = 1, 6
             do kk = 1, 6
               sum = sum + bnd6I(ii,jj,kk)* f(i-3+ii,j+jj-3,k+kk-3)
             enddo
             enddo
             enddo
             d0f(i,j,k) = sum
           enddo
         enddo
       enddo
!
      endif    
!
! Boundary nodes:
!
!
!   Solve for all 1D-Corners (ACC,BCC) - 6 planes
!   =============================================
!
! 6th-order
! =========
!
!
        if( orderb .eq. 6) then
!
! Left YZ-plane
!==============
!
         if ( nproLx .ge. 1 ) then
!
          i = (xbegin - 1)
!
          do k = zbegin, zend
           do j = ybegin, yend
!
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + kk - 2
                  jjj = j + jj - 3
                  kkk = k + ii - 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6BCC(ii,jj,kk)*f(iii,jjj,kkk)
!
                end do
              end do
            end do
           end do
          end do
         endif
!
         if ( nproLx .eq. 2 ) then
!
          i = (xbegin - 2)
!
          do k = zbegin, zend
           do j = ybegin, yend
!
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + kk - 1
                  jjj = j + jj - 3
                  kkk = k + ii - 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6ACC(ii,jj,kk)*f(iii,jjj,kkk)
!
                end do
              end do
            end do
           end do
          end do
         endif

!
! Right YZ-plane
!===============
!
         if ( nproRx .ge. 1 ) then
!
          i = (xend + 1)
!
          do k = zbegin, zend
           do j = ybegin, yend
!
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i - kk + 3
                  jjj = j + jj - 3
                  kkk = k + ii - 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6BCC(ii,jj,kk)*f(iii,jjj,kkk)
!
                end do
              end do
            end do
           end do
          end do
         endif
!
         if ( nproRx .eq. 2 ) then
!
          i = (xend + 2)
!
          do k = zbegin, zend
           do j = ybegin, yend
!
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i - kk + 2
                  jjj = j + jj - 3
                  kkk = k + ii - 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6ACC(ii,jj,kk)*f(iii,jjj,kkk)
!
                end do
              end do
            end do
           end do
          end do
         endif

!
! Left ZX-plane
!==============
         if ( nproLy .ge. 1 ) then
!
          j = (ybegin - 1)
!
          do k = zbegin, zend
           do i = xbegin, xend
!
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + ii - 3
                  jjj = j + kk - 2
                  kkk = k + jj - 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6BCC(ii,jj,kk)*f(iii,jjj,kkk)
!
                end do
              end do
            end do
           end do
          end do
         endif
!
         if ( nproLy .eq. 2 ) then
!
          j = (ybegin - 2)
!
          do k = zbegin, zend
           do i = xbegin, xend
!
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + ii - 3
                  jjj = j + kk - 1
                  kkk = k + jj - 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6ACC(ii,jj,kk)*f(iii,jjj,kkk)
!
                end do
              end do
            end do
           end do
          end do
         endif
!
! Right ZX-plane
!===============
         if ( nproRy .ge. 1 ) then
!
          j = (yend + 1)
!
          do k = zbegin, zend
           do i = xbegin, xend
!
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + ii - 3
                  jjj = j - kk + 3
                  kkk = k + jj - 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6BCC(ii,jj,kk)*f(iii,jjj,kkk)
!
                end do
              end do
            end do
           end do
          end do
         endif
!
         if ( nproRy .eq. 2 ) then
!
          j = (yend + 2)
!
          do k = zbegin, zend
           do i = xbegin, xend
!
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + ii - 3
                  jjj = j - kk + 2
                  kkk = k + jj - 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6ACC(ii,jj,kk)*f(iii,jjj,kkk)
!
                end do
              end do
            end do
           end do
          end do
         endif
!
! Left XY-plane
!==============
         if ( nproLz .ge. 1 ) then
!
          k = (zbegin - 1)
!
          do j = ybegin, yend
           do i = xbegin, xend
!
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + ii - 3
                  jjj = j + jj - 3
                  kkk = k + kk - 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6BCC(ii,jj,kk)*f(iii,jjj,kkk)
!
                end do
              end do
            end do
           end do
          end do
         endif
!
         if ( nproLz .eq. 2 ) then
!
          k = (zbegin - 2)
!
          do j = ybegin, yend
           do i = xbegin, xend
!
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + ii - 3
                  jjj = j + jj - 3
                  kkk = k + kk - 1
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6ACC(ii,jj,kk)*f(iii,jjj,kkk)
!
                end do
              end do
            end do
           end do
          end do
         endif
!
! Right XY-plane
!===============
         if ( nproRz .ge. 1 ) then
!
          k = (zend + 1)
!
          do j = ybegin, yend
           do i = xbegin, xend
!
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + ii - 3
                  jjj = j + jj - 3
                  kkk = k - kk + 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6BCC(ii,jj,kk)*f(iii,jjj,kkk)
!
                end do
              end do
            end do
           end do
          end do
         endif
!
         if ( nproRz .eq. 2 ) then
!
          k = (zend + 2)
!
          do j = ybegin, yend
           do i = xbegin, xend
!
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + ii - 3
                  jjj = j + jj - 3
                  kkk = k - kk + 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6ACC(ii,jj,kk)*f(iii,jjj,kkk)
!
                end do
              end do
            end do
           end do
          end do
         endif
!
      if ( .not. corner ) then
!
        nproLxC = 2
        nproLyC = 2
        nproLzC = 2
        nproRxC = 2
        nproRyC = 2
        nproRzC = 2
      else
        nproLxC = nproLx
        nproLyC = nproLy
        nproLzC = nproLz
        nproRxC = nproRx
        nproRyC = nproRy
        nproRzC = nproRz
!
      endif
!
!   Solve for all 2D-Corners (AAC, ABC, BBC) - 12 edges
!   ===================================================
!
! 6th-order
! =========
!
! X-lines/edges
!==============
! XLL
         if ( ( nproLyC .ge. 1 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          j = (ybegin - 1)
          k = (zbegin - 1)
!
          do i = xbegin, xend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + ii - 3
                  jjj = j + jj - 2
                  kkk = k + kk - 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6BBC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLyC .eq. 2 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          j = (ybegin - 2)
          k = (zbegin - 1)
!
          do i = xbegin, xend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + ii - 3
                  jjj = j + jj - 1
                  kkk = k + kk - 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6ABC(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLyC .ge. 1 ) .and.
     &        ( nproLzC .eq. 2 )) then
!
          j = (ybegin - 1)
          k = (zbegin - 2)
!
          do i = xbegin, xend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + ii - 3
                  jjj = j + jj - 2
                  kkk = k + kk - 1
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6ABC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLyC .eq. 2 ) .and.
     &        ( nproLzC .eq. 2 )) then
!
          j = (ybegin - 2)
          k = (zbegin - 2)
!
          do i = xbegin, xend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + ii - 3
                  jjj = j + jj - 1
                  kkk = k + kk - 1
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6AAC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
! XRL
         if ( ( nproRyC .ge. 1 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          j = (yend + 1)
          k = (zbegin - 1)
!
          do i = xbegin, xend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + ii - 3
                  jjj = j - jj + 3
                  kkk = k + kk - 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6BBC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRyC .eq. 2 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          j = (yend + 2)
          k = (zbegin - 1)
!
          do i = xbegin, xend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + ii - 3
                  jjj = j - jj + 2
                  kkk = k + kk - 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6ABC(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRyC .ge. 1 ) .and.
     &        ( nproLzC .eq. 2 )) then
!
          j = (yend + 1)
          k = (zbegin - 2)
!
          do i = xbegin, xend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + ii - 3
                  jjj = j - jj + 3
                  kkk = k + kk - 1
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6ABC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRyC .eq. 2 ) .and.
     &        ( nproLzC .eq. 2 )) then
!
          j = (yend + 2)
          k = (zbegin - 2)
!
          do i = xbegin, xend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + ii - 3
                  jjj = j - jj + 2
                  kkk = k + kk - 1
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6AAC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
! XLR
         if ( ( nproLyC .ge. 1 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          j = (ybegin - 1)
          k = (zend + 1)
!
          do i = xbegin, xend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + ii - 3
                  jjj = j + jj - 2
                  kkk = k - kk + 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6BBC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLyC .eq. 2 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          j = (ybegin - 2)
          k = (zend + 1)
!
          do i = xbegin, xend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + ii - 3
                  jjj = j + jj - 1
                  kkk = k - kk + 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6ABC(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLyC .ge. 1 ) .and.
     &        ( nproRzC .eq. 2 )) then
!
          j = (ybegin - 1)
          k = (zend + 2)
!
          do i = xbegin, xend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + ii - 3
                  jjj = j + jj - 2
                  kkk = k - kk + 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6ABC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLyC .eq. 2 ) .and.
     &        ( nproRzC .eq. 2 )) then
!
          j = (ybegin - 2)
          k = (zend + 2)
!
          do i = xbegin, xend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + ii - 3
                  jjj = j + jj - 1
                  kkk = k - kk + 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6AAC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
! XRR
         if ( ( nproRyC .ge. 1 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          j = (yend + 1)
          k = (zend + 1)
!
          do i = xbegin, xend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + ii - 3
                  jjj = j - jj + 3
                  kkk = k - kk + 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6BBC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRyC .eq. 2 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          j = (yend + 2)
          k = (zend + 1)
!
          do i = xbegin, xend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + ii - 3
                  jjj = j - jj + 2
                  kkk = k - kk + 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6ABC(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRyC .ge. 1 ) .and.
     &        ( nproRzC .eq. 2 )) then
!
          j = (yend + 1)
          k = (zend + 2)
!
          do i = xbegin, xend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + ii - 3
                  jjj = j - jj + 3
                  kkk = k - kk + 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6ABC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRyC .eq. 2 ) .and.
     &        ( nproRzC .eq. 2 )) then
!
          j = (yend + 2)
          k = (zend + 2)
!
          do i = xbegin, xend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + ii - 3
                  jjj = j - jj + 2
                  kkk = k - kk + 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6AAC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
! Y-lines/edges
!==============
! YLL
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xbegin - 1)
          k = (zbegin - 1)
!
          do j = ybegin, yend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + jj - 2
                  jjj = j + ii - 3
                  kkk = k + kk - 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6BBC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .eq. 2 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xbegin - 2)
          k = (zbegin - 1)
!
          do j = ybegin, yend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + jj - 1
                  jjj = j + ii - 3
                  kkk = k + kk - 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6ABC(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproLzC .eq. 2 )) then
!
          i = (xbegin - 1)
          k = (zbegin - 2)
!
          do j = ybegin, yend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + jj - 2
                  jjj = j + ii - 3
                  kkk = k + kk - 1
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6ABC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .eq. 2 ) .and.
     &        ( nproLzC .eq. 2 )) then
!
          i = (xbegin - 2)
          k = (zbegin - 2)
!
          do j = ybegin, yend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + jj - 1
                  jjj = j + ii - 3
                  kkk = k + kk - 1
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6AAC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
! YRL
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xend + 1)
          k = (zbegin - 1)
!
          do j = ybegin, yend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i - jj + 3
                  jjj = j + ii - 3
                  kkk = k + kk - 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6BBC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .eq. 2 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xend + 2)
          k = (zbegin - 1)
!
          do j = ybegin, yend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i - jj + 2
                  jjj = j + ii - 3
                  kkk = k + kk - 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6ABC(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproLzC .eq. 2 )) then
!
          i = (xend + 1)
          k = (zbegin - 2)
!
          do j = ybegin, yend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i - jj + 3
                  jjj = j + ii - 3
                  kkk = k + kk - 1
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6ABC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .eq. 2 ) .and.
     &        ( nproLzC .eq. 2 )) then
!
          i = (xend + 2)
          k = (zbegin - 2)
!
          do j = ybegin, yend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i - jj + 2
                  jjj = j + ii - 3
                  kkk = k + kk - 1
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6AAC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
! YLR
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xbegin - 1)
          k = (zend + 1)
!
          do j = ybegin, yend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + jj - 2
                  jjj = j + ii - 3
                  kkk = k - kk + 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6BBC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .eq. 2 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xbegin - 2)
          k = (zend + 1)
!
          do j = ybegin, yend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + jj - 1
                  jjj = j + ii - 3
                  kkk = k - kk + 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6ABC(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproRzC .eq. 2 )) then
!
          i = (xbegin - 1)
          k = (zend + 2)
!
          do j = ybegin, yend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + jj - 2
                  jjj = j + ii - 3
                  kkk = k - kk + 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6ABC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .eq. 2 ) .and.
     &        ( nproRzC .eq. 2 )) then
!
          i = (xbegin - 2)
          k = (zend + 2)
!
          do j = ybegin, yend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + jj - 1
                  jjj = j + ii - 3
                  kkk = k - kk + 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6AAC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
! YRR
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xend + 1)
          k = (zend + 1)
!
          do j = ybegin, yend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i - jj + 3
                  jjj = j + ii - 3
                  kkk = k - kk + 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6BBC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .eq. 2 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xend + 2)
          k = (zend + 1)
!
          do j = ybegin, yend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i - jj + 2
                  jjj = j + ii - 3
                  kkk = k - kk + 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6ABC(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproRzC .eq. 2 )) then
!
          i = (xend + 1)
          k = (zend + 2)
!
          do j = ybegin, yend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i - jj + 3
                  jjj = j + ii - 3
                  kkk = k - kk + 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6ABC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .eq. 2 ) .and.
     &        ( nproRzC .eq. 2 )) then
!
          i = (xend + 2)
          k = (zend + 2)
!
          do j = ybegin, yend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i - jj + 2
                  jjj = j + ii - 3
                  kkk = k - kk + 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6AAC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
! Z-lines/edges
!==============
!
! ZLL
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproLyC .ge. 1 )) then
!
          i = (xbegin - 1)
          j = (ybegin - 1)
!
          do k = zbegin, zend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + kk - 2
                  jjj = j + jj - 2
                  kkk = k + ii - 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6BBC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .eq. 2 ) .and.
     &        ( nproLyC .ge. 1 )) then
!
          i = (xbegin - 2)
          j = (ybegin - 1)
!
          do k = zbegin, zend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + kk - 1
                  jjj = j + jj - 2
                  kkk = k + ii - 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6ABC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproLyC .eq. 2 )) then
!
          i = (xbegin - 1)
          j = (ybegin - 2)
!
          do k = zbegin, zend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + kk - 2
                  jjj = j + jj - 1
                  kkk = k + ii - 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6ABC(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .eq. 2 ) .and.
     &        ( nproLyC .eq. 2 )) then
!
          i = (xbegin - 2)
          j = (ybegin - 2)
!
          do k = zbegin, zend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + kk - 1
                  jjj = j + jj - 1
                  kkk = k + ii - 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6AAC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
! ZRL
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproLyC .ge. 1 )) then
!
          i = (xend + 1)
          j = (ybegin - 1)
!
          do k = zbegin, zend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i - kk + 3
                  jjj = j + jj - 2
                  kkk = k + ii - 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6BBC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .eq. 2 ) .and.
     &        ( nproLyC .ge. 1 )) then
!
          i = (xend + 2)
          j = (ybegin - 1)
!
          do k = zbegin, zend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i - kk + 2
                  jjj = j + jj - 2
                  kkk = k + ii - 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6ABC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproLyC .eq. 2 )) then
!
          i = (xend + 1)
          j = (ybegin - 2)
!
          do k = zbegin, zend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i - kk + 3
                  jjj = j + jj - 1
                  kkk = k + ii - 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6ABC(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .eq. 2 ) .and.
     &        ( nproLyC .eq. 2 )) then
!
          i = (xend + 2)
          j = (ybegin - 2)
!
          do k = zbegin, zend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i - kk + 2
                  jjj = j + jj - 1
                  kkk = k + ii - 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6AAC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
! ZLR
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproRyC .ge. 1 )) then
!
          i = (xbegin - 1)
          j = (yend + 1)
!
          do k = zbegin, zend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + kk - 2
                  jjj = j - jj + 3
                  kkk = k + ii - 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6BBC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .eq. 2 ) .and.
     &        ( nproRyC .ge. 1 )) then
!
          i = (xbegin - 2)
          j = (yend + 1)
!
          do k = zbegin, zend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + kk - 1
                  jjj = j - jj + 3
                  kkk = k + ii - 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6ABC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproRyC .eq. 2 )) then
!
          i = (xbegin - 1)
          j = (yend + 2)
!
          do k = zbegin, zend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + kk - 2
                  jjj = j - jj + 2
                  kkk = k + ii - 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6ABC(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .eq. 2 ) .and.
     &        ( nproRyC .eq. 2 )) then
!
          i = (xbegin - 2)
          j = (yend + 2)
!
          do k = zbegin, zend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i + kk - 1
                  jjj = j - jj + 2
                  kkk = k + ii - 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6AAC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
! ZRR
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproRyC .ge. 1 )) then
!
          i = (xend + 1)
          j = (yend + 1)
!
          do k = zbegin, zend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i - kk + 3
                  jjj = j - jj + 3
                  kkk = k + ii - 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6BBC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .eq. 2 ) .and.
     &        ( nproRyC .ge. 1 )) then
!
          i = (xend + 2)
          j = (yend + 1)
!
          do k = zbegin, zend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i - kk + 2
                  jjj = j - jj + 3
                  kkk = k + ii - 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6ABC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproRyC .eq. 2 )) then
!
          i = (xend + 1)
          j = (yend + 2)
!
          do k = zbegin, zend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i - kk + 3
                  jjj = j - jj + 2
                  kkk = k + ii - 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6ABC(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .eq. 2 ) .and.
     &        ( nproRyC .eq. 2 )) then
!
          i = (xend + 2)
          j = (yend + 2)
!
          do k = zbegin, zend
            do kk = 1, 6
              do jj = 1, 6
                do ii = 1, 6
!
                  iii = i - kk + 2
                  jjj = j - jj + 2
                  kkk = k + ii - 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd6AAC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
!   Solve for all 3D-Corners (AAA, AAB, ABB, BBB) - 8
!   =================================================
!
! 6th-order
! =========
!
        if( orderb .eq. 6) then
! LLL
         if ( ( nproLxC .ge. 1 ) .and. 
     &        ( nproLyC .ge. 1 ) .and. 
     &        ( nproLzC .ge. 1 )) then
!
          i = (xbegin - 1)
          j = (ybegin - 1)
          k = (zbegin - 1)
!
          do kk = 1, 6
            do jj = 1, 6 
              do ii = 1, 6
!
                iii = i + ii - 2
                jjj = j + jj - 2
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) + 
     &                       bnd6BBB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 2 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xbegin - 2)
          j = (ybegin - 1)
          k = (zbegin - 1)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i + ii - 1
                jjj = j + jj - 2
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6ABB(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproLyC .eq. 2 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xbegin - 1)
          j = (ybegin - 2)
          k = (zbegin - 1)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i + ii - 2
                jjj = j + jj - 1
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6ABB(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproLzC .eq. 2 )) then
!
          i = (xbegin - 1)
          j = (ybegin - 1)
          k = (zbegin - 2)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i + ii - 2
                jjj = j + jj - 2
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6ABB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 2 ) .and.
     &        ( nproLyC .eq. 2 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xbegin - 2)
          j = (ybegin - 2)
          k = (zbegin - 1)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i + ii - 1
                jjj = j + jj - 1
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6AAB(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproLyC .eq. 2 ) .and.
     &        ( nproLzC .eq. 2 )) then
!
          i = (xbegin - 1)
          j = (ybegin - 2)
          k = (zbegin - 2)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i + ii - 2
                jjj = j + jj - 1
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6AAB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 2 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproLzC .eq. 2 )) then
!
          i = (xbegin - 2)
          j = (ybegin - 1)
          k = (zbegin - 2)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i + ii - 1
                jjj = j + jj - 2
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6AAB(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 2 ) .and.
     &        ( nproLyC .eq. 2 ) .and.
     &        ( nproLzC .eq. 2 )) then
!
          i = (xbegin - 2)
          j = (ybegin - 2)
          k = (zbegin - 2)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i + ii - 1
                jjj = j + jj - 1
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6AAA(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
! RLL
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xend + 1)
          j = (ybegin - 1)
          k = (zbegin - 1)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i - ii + 3
                jjj = j + jj - 2
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6BBB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 2 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xend + 2)
          j = (ybegin - 1)
          k = (zbegin - 1)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i - ii + 2
                jjj = j + jj - 2
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6ABB(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproLyC .eq. 2 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xend + 1)
          j = (ybegin - 2)
          k = (zbegin - 1)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i - ii + 3
                jjj = j + jj - 1
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6ABB(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproLzC .eq. 2 )) then
!
          i = (xend + 1)
          j = (ybegin - 1)
          k = (zbegin - 2)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i - ii + 3
                jjj = j + jj - 2
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6ABB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 2 ) .and.
     &        ( nproLyC .eq. 2 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xend + 2)
          j = (ybegin - 2)
          k = (zbegin - 1)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i - ii + 2
                jjj = j + jj - 1
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6AAB(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproLyC .eq. 2 ) .and.
     &        ( nproLzC .eq. 2 )) then
!
          i = (xend + 1)
          j = (ybegin - 2)
          k = (zbegin - 2)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i - ii + 3
                jjj = j + jj - 1
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6AAB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 2 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproLzC .eq. 2 )) then
!
          i = (xend + 2)
          j = (ybegin - 1)
          k = (zbegin - 2)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i - ii + 2
                jjj = j + jj - 2
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6AAB(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 2 ) .and.
     &        ( nproLyC .eq. 2 ) .and.
     &        ( nproLzC .eq. 2 )) then
!
          i = (xend + 2)
          j = (ybegin - 2)
          k = (zbegin - 2)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i - ii + 2
                jjj = j + jj - 1
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6AAA(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
! LRL
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xbegin - 1)
          j = (yend + 1)
          k = (zbegin - 1)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i + ii - 2
                jjj = j - jj + 3
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6BBB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 2 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xbegin - 2)
          j = (yend + 1)
          k = (zbegin - 1)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i + ii - 1
                jjj = j - jj + 3
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6ABB(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproRyC .eq. 2 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xbegin - 1)
          j = (yend + 2)
          k = (zbegin - 1)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i + ii - 2
                jjj = j - jj + 2
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6ABB(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproLzC .eq. 2 )) then
!
          i = (xbegin - 1)
          j = (yend + 1)
          k = (zbegin - 2)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i + ii - 2
                jjj = j - jj + 3
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6ABB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 2 ) .and.
     &        ( nproRyC .eq. 2 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xbegin - 2)
          j = (yend + 2)
          k = (zbegin - 1)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i + ii - 1
                jjj = j - jj + 2
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6AAB(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproRyC .eq. 2 ) .and.
     &        ( nproLzC .eq. 2 )) then
!
          i = (xbegin - 1)
          j = (yend + 2)
          k = (zbegin - 2)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i + ii - 2
                jjj = j - jj + 2
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6AAB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 2 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproLzC .eq. 2 )) then
!
          i = (xbegin - 2)
          j = (yend + 1)
          k = (zbegin - 2)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i + ii - 1
                jjj = j - jj + 3
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6AAB(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 2 ) .and.
     &        ( nproRyC .eq. 2 ) .and.
     &        ( nproLzC .eq. 2 )) then
!
          i = (xbegin - 2)
          j = (yend + 2)
          k = (zbegin - 2)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i + ii - 1
                jjj = j - jj + 2
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6AAA(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
! RRL
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xend + 1)
          j = (yend + 1)
          k = (zbegin - 1)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i - ii + 3
                jjj = j - jj + 3
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6BBB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 2 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xend + 2)
          j = (yend + 1)
          k = (zbegin - 1)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i - ii + 2
                jjj = j - jj + 3
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6ABB(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproRyC .eq. 2 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xend + 1)
          j = (yend + 2)
          k = (zbegin - 1)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i - ii + 3
                jjj = j - jj + 2
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6ABB(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproLzC .eq. 2 )) then
!
          i = (xend + 1)
          j = (yend + 1)
          k = (zbegin - 2)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i - ii + 3
                jjj = j - jj + 3
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6ABB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 2 ) .and.
     &        ( nproRyC .eq. 2 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xend + 2)
          j = (yend + 2)
          k = (zbegin - 1)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i - ii + 2
                jjj = j - jj + 2
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6AAB(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproRyC .eq. 2 ) .and.
     &        ( nproLzC .eq. 2 )) then
!
          i = (xend + 1)
          j = (yend + 2)
          k = (zbegin - 2)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i - ii + 3
                jjj = j - jj + 2
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6AAB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 2 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproLzC .eq. 2 )) then
!
          i = (xend + 2)
          j = (yend + 1)
          k = (zbegin - 2)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i - ii + 2
                jjj = j - jj + 3
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6AAB(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 2 ) .and.
     &        ( nproRyC .eq. 2 ) .and.
     &        ( nproLzC .eq. 2 )) then
!
          i = (xend + 2)
          j = (yend + 2)
          k = (zbegin - 2)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i - ii + 2
                jjj = j - jj + 2
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6AAA(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
! LLR
         if ( ( nproLxC .ge. 1 ) .and. 
     &        ( nproLyC .ge. 1 ) .and. 
     &        ( nproRzC .ge. 1 )) then
!
          i = (xbegin - 1)
          j = (ybegin - 1)
          k = (zend + 1)
!
          do kk = 1, 6
            do jj = 1, 6 
              do ii = 1, 6
!
                iii = i + ii - 2
                jjj = j + jj - 2
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) + 
     &                       bnd6BBB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 2 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xbegin - 2)
          j = (ybegin - 1)
          k = (zend + 1)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i + ii - 1
                jjj = j + jj - 2
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6ABB(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproLyC .eq. 2 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xbegin - 1)
          j = (ybegin - 2)
          k = (zend + 1)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i + ii - 2
                jjj = j + jj - 1
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6ABB(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproRzC .eq. 2 )) then
!
          i = (xbegin - 1)
          j = (ybegin - 1)
          k = (zend + 2)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i + ii - 2
                jjj = j + jj - 2
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6ABB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 2 ) .and.
     &        ( nproLyC .eq. 2 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xbegin - 2)
          j = (ybegin - 2)
          k = (zend + 1)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i + ii - 1
                jjj = j + jj - 1
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6AAB(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproLyC .eq. 2 ) .and.
     &        ( nproRzC .eq. 2 )) then
!
          i = (xbegin - 1)
          j = (ybegin - 2)
          k = (zend + 2)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i + ii - 2
                jjj = j + jj - 1
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6AAB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 2 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproRzC .eq. 2 )) then
!
          i = (xbegin - 2)
          j = (ybegin - 1)
          k = (zend + 2)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i + ii - 1
                jjj = j + jj - 2
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6AAB(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 2 ) .and.
     &        ( nproLyC .eq. 2 ) .and.
     &        ( nproRzC .eq. 2 )) then
!
          i = (xbegin - 2)
          j = (ybegin - 2)
          k = (zend + 2)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i + ii - 1
                jjj = j + jj - 1
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6AAA(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
! RLR
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xend + 1)
          j = (ybegin - 1)
          k = (zend + 1)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i - ii + 3
                jjj = j + jj - 2
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6BBB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 2 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xend + 2)
          j = (ybegin - 1)
          k = (zend + 1)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i - ii + 2
                jjj = j + jj - 2
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6ABB(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproLyC .eq. 2 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xend + 1)
          j = (ybegin - 2)
          k = (zend + 1)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i - ii + 3
                jjj = j + jj - 1
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6ABB(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproRzC .eq. 2 )) then
!
          i = (xend + 1)
          j = (ybegin - 1)
          k = (zend + 2)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i - ii + 3
                jjj = j + jj - 2
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6ABB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 2 ) .and.
     &        ( nproLyC .eq. 2 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xend + 2)
          j = (ybegin - 2)
          k = (zend + 1)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i - ii + 2
                jjj = j + jj - 1
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6AAB(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproLyC .eq. 2 ) .and.
     &        ( nproRzC .eq. 2 )) then
!
          i = (xend + 1)
          j = (ybegin - 2)
          k = (zend + 2)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i - ii + 3
                jjj = j + jj - 1
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6AAB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 2 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproRzC .eq. 2 )) then
!
          i = (xend + 2)
          j = (ybegin - 1)
          k = (zend + 2)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i - ii + 2
                jjj = j + jj - 2
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6AAB(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 2 ) .and.
     &        ( nproLyC .eq. 2 ) .and.
     &        ( nproRzC .eq. 2 )) then
!
          i = (xend + 2)
          j = (ybegin - 2)
          k = (zend + 2)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i - ii + 2
                jjj = j + jj - 1
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6AAA(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
! LRR
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xbegin - 1)
          j = (yend + 1)
          k = (zend + 1)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i + ii - 2
                jjj = j - jj + 3
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6BBB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 2 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xbegin - 2)
          j = (yend + 1)
          k = (zend + 1)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i + ii - 1
                jjj = j - jj + 3
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6ABB(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproRyC .eq. 2 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xbegin - 1)
          j = (yend + 2)
          k = (zend + 1)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i + ii - 2
                jjj = j - jj + 2
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6ABB(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproRzC .eq. 2 )) then
!
          i = (xbegin - 1)
          j = (yend + 1)
          k = (zend + 2)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i + ii - 2
                jjj = j - jj + 3
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6ABB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 2 ) .and.
     &        ( nproRyC .eq. 2 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xbegin - 2)
          j = (yend + 2)
          k = (zend + 1)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i + ii - 1
                jjj = j - jj + 2
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6AAB(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproRyC .eq. 2 ) .and.
     &        ( nproRzC .eq. 2 )) then
!
          i = (xbegin - 1)
          j = (yend + 2)
          k = (zend + 2)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i + ii - 2
                jjj = j - jj + 2
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6AAB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 2 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproRzC .eq. 2 )) then
!
          i = (xbegin - 2)
          j = (yend + 1)
          k = (zend + 2)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i + ii - 1
                jjj = j - jj + 3
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6AAB(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 2 ) .and.
     &        ( nproRyC .eq. 2 ) .and.
     &        ( nproRzC .eq. 2 )) then
!
          i = (xbegin - 2)
          j = (yend + 2)
          k = (zend + 2)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i + ii - 1
                jjj = j - jj + 2
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6AAA(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
! RRR
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xend + 1)
          j = (yend + 1)
          k = (zend + 1)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i - ii + 3
                jjj = j - jj + 3
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6BBB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 2 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xend + 2)
          j = (yend + 1)
          k = (zend + 1)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i - ii + 2
                jjj = j - jj + 3
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6ABB(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproRyC .eq. 2 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xend + 1)
          j = (yend + 2)
          k = (zend + 1)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i - ii + 3
                jjj = j - jj + 2
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6ABB(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproRzC .eq. 2 )) then
!
          i = (xend + 1)
          j = (yend + 1)
          k = (zend + 2)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i - ii + 3
                jjj = j - jj + 3
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6ABB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 2 ) .and.
     &        ( nproRyC .eq. 2 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xend + 2)
          j = (yend + 2)
          k = (zend + 1)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i - ii + 2
                jjj = j - jj + 2
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6AAB(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproRyC .eq. 2 ) .and.
     &        ( nproRzC .eq. 2 )) then
!
          i = (xend + 1)
          j = (yend + 2)
          k = (zend + 2)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i - ii + 3
                jjj = j - jj + 2
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6AAB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 2 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproRzC .eq. 2 )) then
!
          i = (xend + 2)
          j = (yend + 1)
          k = (zend + 2)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i - ii + 2
                jjj = j - jj + 3
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6AAB(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 2 ) .and.
     &        ( nproRyC .eq. 2 ) .and.
     &        ( nproRzC .eq. 2 )) then
!
          i = (xend + 2)
          j = (yend + 2)
          k = (zend + 2)
!
          do kk = 1, 6
            do jj = 1, 6
              do ii = 1, 6
!
                iii = i - ii + 2
                jjj = j - jj + 2
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd6AAA(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
! end orderb
        endif
! end orderi
      endif
!
!====================================================================
!
!  8th order explicit: (8E)
!
      if ( orderi .eq. 8 ) then
!
!  Internal nodes:
!
        do k = zbegin, zend
          do j = ybegin, yend
            do i = xbegin, xend
             d0f(i,j,k) = 0.d0
             do ii = 1, 8
             do jj = 1, 8
             do kk = 1, 8
               d0f(i,j,k) = d0f(i,j,k) + 
     &                      bnd8I(ii,jj,kk)*f(i+ii-4,j+jj-4,k+kk-4)
             enddo
             enddo
             enddo
           enddo
         enddo
       enddo
!
! Boundary nodes:
!
!
!   Solve for all 1D-Corners (ADD,BDD,CDD) - 6 planes
!   =================================================
!
! 8th-order
! =========
!
!
        if( orderb .eq. 8) then
!
! Left YZ-plane
!==============
!
         if ( nproLx .ge. 1 ) then
!
          i = (xbegin - 1)
!
          do k = zbegin, zend
           do j = ybegin, yend
!
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 3
                  jjj = j + jj - 4
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8CDD(ii,jj,kk)*f(iii,jjj,kkk)
!
                end do
              end do
            end do
           end do
          end do
         endif
!
         if ( nproLx .ge. 2 ) then
!
          i = (xbegin - 2)
!
          do k = zbegin, zend
           do j = ybegin, yend
!
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 2
                  jjj = j + jj - 4
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BDD(ii,jj,kk)*f(iii,jjj,kkk)
!
                end do
              end do
            end do
           end do
          end do
         endif
!
         if ( nproLx .eq. 3 ) then
!
          i = (xbegin - 3)
!
          do k = zbegin, zend
           do j = ybegin, yend
!
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 1
                  jjj = j + jj - 4
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ADD(ii,jj,kk)*f(iii,jjj,kkk)
!
                end do
              end do
            end do
           end do
          end do
         endif
!
! Right YZ-plane
!===============
!
         if ( nproRx .ge. 1 ) then
!
          i = (xend + 1)
!
          do k = zbegin, zend
           do j = ybegin, yend
!
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i - ii + 4
                  jjj = j + jj - 4
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8CDD(ii,jj,kk)*f(iii,jjj,kkk)
!
                end do
              end do
            end do
           end do
          end do
         endif
!
         if ( nproRx .ge. 2 ) then
!
          i = (xend + 2)
!
          do k = zbegin, zend
           do j = ybegin, yend
!
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i - ii + 3
                  jjj = j + jj - 4
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BDD(ii,jj,kk)*f(iii,jjj,kkk)
!
                end do
              end do
            end do
           end do
          end do
         endif
!
         if ( nproRx .eq. 3 ) then
!
          i = (xend + 3)
!
          do k = zbegin, zend
           do j = ybegin, yend
!
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i - ii + 2
                  jjj = j + jj - 4
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ADD(ii,jj,kk)*f(iii,jjj,kkk)
!
                end do
              end do
            end do
           end do
          end do
         endif
!
! Left ZX-plane
!==============
         if ( nproLy .ge. 1 ) then
!
          j = (ybegin - 1)
!
          do k = zbegin, zend
           do i = xbegin, xend
!
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j + jj - 3
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8CDD(jj,ii,kk)*f(iii,jjj,kkk)
!
                end do
              end do
            end do
           end do
          end do
         endif
!
         if ( nproLy .ge. 2 ) then
!
          j = (ybegin - 2)
!
          do k = zbegin, zend
           do i = xbegin, xend
!
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j + jj - 2
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BDD(jj,ii,kk)*f(iii,jjj,kkk)
!
                end do
              end do
            end do
           end do
          end do
         endif
!
         if ( nproLy .eq. 3 ) then
!
          j = (ybegin - 3)
!
          do k = zbegin, zend
           do i = xbegin, xend
!
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j + jj - 1
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ADD(jj,ii,kk)*f(iii,jjj,kkk)
!
                end do
              end do
            end do
           end do
          end do
         endif
!
! Right ZX-plane
!===============
         if ( nproRy .ge. 1 ) then
!
          j = (yend + 1)
!
          do k = zbegin, zend
           do i = xbegin, xend
!
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j - jj + 4
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8CDD(jj,ii,kk)*f(iii,jjj,kkk)
!
                end do
              end do
            end do
           end do
          end do
         endif
!
         if ( nproRy .ge. 2 ) then
!
          j = (yend + 2)
!
          do k = zbegin, zend
           do i = xbegin, xend
!
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j - jj + 3
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BDD(jj,ii,kk)*f(iii,jjj,kkk)
!
                end do
              end do
            end do
           end do
          end do
         endif
!
         if ( nproRy .eq. 3 ) then
!
          j = (yend + 3)
!
          do k = zbegin, zend
           do i = xbegin, xend
!
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j - jj + 2
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ADD(jj,ii,kk)*f(iii,jjj,kkk)
!
                end do
              end do
            end do
           end do
          end do
         endif
!
! Left XY-plane
!==============
         if ( nproLz .ge. 1 ) then
!
          k = (zbegin - 1)
!
          do j = ybegin, yend
           do i = xbegin, xend
!
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j + jj - 4
                  kkk = k + kk - 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8CDD(kk,jj,ii)*f(iii,jjj,kkk)
!
                end do
              end do
            end do
           end do
          end do
         endif
!
         if ( nproLz .ge. 2 ) then
!
          k = (zbegin - 2)
!
          do j = ybegin, yend
           do i = xbegin, xend
!
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j + jj - 4
                  kkk = k + kk - 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BDD(kk,jj,ii)*f(iii,jjj,kkk)
!
                end do
              end do
            end do
           end do
          end do
         endif
!
         if ( nproLz .eq. 3 ) then
!
          k = (zbegin - 3)
!
          do j = ybegin, yend
           do i = xbegin, xend
!
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j + jj - 4
                  kkk = k + kk - 1
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ADD(kk,jj,ii)*f(iii,jjj,kkk)
!
                end do
              end do
            end do
           end do
          end do
         endif
!
! Right XY-plane
!===============
         if ( nproRz .ge. 1 ) then
!
          k = (zend + 1)
!
          do j = ybegin, yend
           do i = xbegin, xend
!
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j + jj - 4
                  kkk = k - kk + 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8CDD(kk,jj,ii)*f(iii,jjj,kkk)
!
                end do
              end do
            end do
           end do
          end do
         endif
!
         if ( nproRz .ge. 2 ) then
!
          k = (zend + 2)
!
          do j = ybegin, yend
           do i = xbegin, xend
!
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j + jj - 4
                  kkk = k - kk + 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BDD(kk,jj,ii)*f(iii,jjj,kkk)
!
                end do
              end do
            end do
           end do
          end do
         endif
!
         if ( nproRz .eq. 3 ) then
!
          k = (zend + 3)
!
          do j = ybegin, yend
           do i = xbegin, xend
!
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j + jj - 4
                  kkk = k - kk + 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ADD(kk,jj,ii)*f(iii,jjj,kkk)
!
                end do
              end do
            end do
           end do
          end do
         endif
!
      if ( .not. corner ) then
!
        nproLxC = 3
        nproLyC = 3
        nproLzC = 3
        nproRxC = 3
        nproRyC = 3
        nproRzC = 3
      else
        nproLxC = nproLx
        nproLyC = nproLy
        nproLzC = nproLz
        nproRxC = nproRx
        nproRyC = nproRy
        nproRzC = nproRz
! 
      endif
!
!   Solve for all 2D-Corners (CCD, BCD, BBD, ACD, ABD, AAD) - 12 edges
!   ==================================================================
!
! 8th-order
! =========
!
! X-lines/edges
!==============
! XLL
         if ( ( nproLyC .ge. 1 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          j = (ybegin - 1)
          k = (zbegin - 1)
!
          do i = xbegin, xend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j + jj - 3
                  kkk = k + kk - 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8CCD(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLyC .ge. 2 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          j = (ybegin - 2)
          k = (zbegin - 1)
!
          do i = xbegin, xend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j + jj - 2
                  kkk = k + kk - 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BCD(jj,kk,ii)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLyC .ge. 1 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          j = (ybegin - 1)
          k = (zbegin - 2)
!
          do i = xbegin, xend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j + jj - 3
                  kkk = k + kk - 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BCD(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLyC .ge. 2 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          j = (ybegin - 2)
          k = (zbegin - 2)
!
          do i = xbegin, xend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j + jj - 2
                  kkk = k + kk - 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BBD(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLyC .eq. 3 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          j = (ybegin - 3)
          k = (zbegin - 1)
!
          do i = xbegin, xend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j + jj - 1
                  kkk = k + kk - 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ACD(jj,kk,ii)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLyC .ge. 1 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          j = (ybegin - 1)
          k = (zbegin - 3)
!
          do i = xbegin, xend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j + jj - 3
                  kkk = k + kk - 1
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ACD(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLyC .eq. 3 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          j = (ybegin - 3)
          k = (zbegin - 2)
!
          do i = xbegin, xend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j + jj - 1
                  kkk = k + kk - 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ABD(jj,kk,ii)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLyC .ge. 2 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          j = (ybegin - 2)
          k = (zbegin - 3)
!
          do i = xbegin, xend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j + jj - 2
                  kkk = k + kk - 1
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ABD(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLyC .eq. 3 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          j = (ybegin - 3)
          k = (zbegin - 3)
!
          do i = xbegin, xend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j + jj - 1
                  kkk = k + kk - 1
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8AAD(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
!
! XRL
         if ( ( nproRyC .ge. 1 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          j = (yend + 1)
          k = (zbegin - 1)
!
          do i = xbegin, xend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j - jj + 4
                  kkk = k + kk - 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8CCD(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRyC .ge. 2 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          j = (yend + 2)
          k = (zbegin - 1)
!
          do i = xbegin, xend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j - jj + 3
                  kkk = k + kk - 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BCD(jj,kk,ii)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRyC .ge. 1 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          j = (yend + 1)
          k = (zbegin - 2)
!
          do i = xbegin, xend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j - jj + 4
                  kkk = k + kk - 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BCD(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRyC .ge. 2 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          j = (yend + 2)
          k = (zbegin - 2)
!
          do i = xbegin, xend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j - jj + 3
                  kkk = k + kk - 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BBD(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRyC .eq. 3 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          j = (yend + 3)
          k = (zbegin - 1)
!
          do i = xbegin, xend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j - jj + 2
                  kkk = k + kk - 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ACD(jj,kk,ii)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRyC .ge. 1 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          j = (yend + 1)
          k = (zbegin - 3)
!
          do i = xbegin, xend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j - jj + 4
                  kkk = k + kk - 1
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ACD(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
!
         if ( ( nproRyC .eq. 3 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          j = (yend + 3)
          k = (zbegin - 2)
!
          do i = xbegin, xend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j - jj + 2
                  kkk = k + kk - 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ABD(jj,kk,ii)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRyC .ge. 2 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          j = (yend + 2)
          k = (zbegin - 3)
!
          do i = xbegin, xend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j - jj + 3
                  kkk = k + kk - 1
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ABD(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
!
         if ( ( nproRyC .eq. 3 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          j = (yend + 3)
          k = (zbegin - 3)
!
          do i = xbegin, xend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j - jj + 2
                  kkk = k + kk - 1
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8AAD(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
! XLR
         if ( ( nproLyC .ge. 1 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          j = (ybegin - 1)
          k = (zend + 1)
!
          do i = xbegin, xend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j + jj - 3
                  kkk = k - kk + 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8CCD(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLyC .ge. 2 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          j = (ybegin - 2)
          k = (zend + 1)
!
          do i = xbegin, xend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j + jj - 2
                  kkk = k - kk + 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BCD(jj,kk,ii)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLyC .ge. 1 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          j = (ybegin - 1)
          k = (zend + 2)
!
          do i = xbegin, xend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j + jj - 3
                  kkk = k - kk + 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BCD(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLyC .ge. 2 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          j = (ybegin - 2)
          k = (zend + 2)
!
          do i = xbegin, xend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j + jj - 2
                  kkk = k - kk + 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BBD(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLyC .eq. 3 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          j = (ybegin - 3)
          k = (zend + 1)
!
          do i = xbegin, xend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j + jj - 1
                  kkk = k - kk + 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ACD(jj,kk,ii)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLyC .ge. 1 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          j = (ybegin - 1)
          k = (zend + 3)
!
          do i = xbegin, xend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j + jj - 3
                  kkk = k - kk + 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ACD(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
!
         if ( ( nproLyC .eq. 3 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          j = (ybegin - 3)
          k = (zend + 2)
!
          do i = xbegin, xend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j + jj - 1
                  kkk = k - kk + 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ABD(jj,kk,ii)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLyC .ge. 2 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          j = (ybegin - 2)
          k = (zend + 3)
!
          do i = xbegin, xend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j + jj - 2
                  kkk = k - kk + 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ABD(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
!
         if ( ( nproLyC .eq. 3 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          j = (ybegin - 3)
          k = (zend + 3)
!
          do i = xbegin, xend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j + jj - 1
                  kkk = k - kk + 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8AAD(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
! XRR
         if ( ( nproRyC .ge. 1 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          j = (yend + 1)
          k = (zend + 1)
!
          do i = xbegin, xend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j - jj + 4
                  kkk = k - kk + 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8CCD(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRyC .ge. 2 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          j = (yend + 2)
          k = (zend + 1)
!
          do i = xbegin, xend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j - jj + 3
                  kkk = k - kk + 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BCD(jj,kk,ii)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRyC .ge. 1 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          j = (yend + 1)
          k = (zend + 2)
!
          do i = xbegin, xend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j - jj + 4
                  kkk = k - kk + 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BCD(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRyC .ge. 2 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          j = (yend + 2)
          k = (zend + 2)
!
          do i = xbegin, xend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j - jj + 3
                  kkk = k - kk + 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BBD(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRyC .eq. 3 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          j = (yend + 3)
          k = (zend + 1)
!
          do i = xbegin, xend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j - jj + 2
                  kkk = k - kk + 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ACD(jj,kk,ii)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRyC .ge. 1 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          j = (yend + 1)
          k = (zend + 3)
!
          do i = xbegin, xend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j - jj + 4
                  kkk = k - kk + 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ACD(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRyC .eq. 3 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          j = (yend + 3)
          k = (zend + 2)
!
          do i = xbegin, xend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j - jj + 2
                  kkk = k - kk + 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ABD(jj,kk,ii)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRyC .ge. 2 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          j = (yend + 2)
          k = (zend + 3)
!
          do i = xbegin, xend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j - jj + 3
                  kkk = k - kk + 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ABD(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRyC .eq. 3 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          j = (yend + 3)
          k = (zend + 3)
!
          do i = xbegin, xend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 4
                  jjj = j - jj + 2
                  kkk = k - kk + 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8AAD(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
!
! Y-lines/edges
!==============
! YLL
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xbegin - 1)
          k = (zbegin - 1)
!
          do j = ybegin, yend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 3
                  jjj = j + jj - 4
                  kkk = k + kk - 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8CCD(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xbegin - 2)
          k = (zbegin - 1)
!
          do j = ybegin, yend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 2
                  jjj = j + jj - 4
                  kkk = k + kk - 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BCD(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xbegin - 1)
          k = (zbegin - 2)
!
          do j = ybegin, yend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 3
                  jjj = j + jj - 4
                  kkk = k + kk - 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BCD(kk,ii,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xbegin - 2)
          k = (zbegin - 2)
!
          do j = ybegin, yend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 2
                  jjj = j + jj - 4
                  kkk = k + kk - 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BBD(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xbegin - 3)
          k = (zbegin - 1)
!
          do j = ybegin, yend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 1
                  jjj = j + jj - 4
                  kkk = k + kk - 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ACD(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xbegin - 1)
          k = (zbegin - 3)
!
          do j = ybegin, yend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 3
                  jjj = j + jj - 4
                  kkk = k + kk - 1
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ACD(kk,ii,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xbegin - 3)
          k = (zbegin - 2)
!
          do j = ybegin, yend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 1
                  jjj = j + jj - 4
                  kkk = k + kk - 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ABD(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xbegin - 2)
          k = (zbegin - 3)
!
          do j = ybegin, yend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 2
                  jjj = j + jj - 4
                  kkk = k + kk - 1
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ABD(kk,ii,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xbegin - 3)
          k = (zbegin - 3)
!
          do j = ybegin, yend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 1
                  jjj = j + jj - 4
                  kkk = k + kk - 1
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8AAD(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
! YRL
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xend + 1)
          k = (zbegin - 1)
!
          do j = ybegin, yend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i - ii + 4
                  jjj = j + jj - 4
                  kkk = k + kk - 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8CCD(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xend + 2)
          k = (zbegin - 1)
!
          do j = ybegin, yend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i - ii + 3
                  jjj = j + jj - 4
                  kkk = k + kk - 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BCD(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xend + 1)
          k = (zbegin - 2)
!
          do j = ybegin, yend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i - ii + 4
                  jjj = j + jj - 4
                  kkk = k + kk - 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BCD(kk,ii,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xend + 2)
          k = (zbegin - 2)
!
          do j = ybegin, yend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i - ii + 3
                  jjj = j + jj - 4
                  kkk = k + kk - 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BBD(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xend + 3)
          k = (zbegin - 1)
!
          do j = ybegin, yend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i - ii + 2
                  jjj = j + jj - 4
                  kkk = k + kk - 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ACD(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xend + 1)
          k = (zbegin - 3)
!
          do j = ybegin, yend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i - ii + 4
                  jjj = j + jj - 4
                  kkk = k + kk - 1
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ACD(kk,ii,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xend + 3)
          k = (zbegin - 2)
!
          do j = ybegin, yend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i - ii + 2
                  jjj = j + jj - 4
                  kkk = k + kk - 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ABD(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xend + 2)
          k = (zbegin - 3)
!
          do j = ybegin, yend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i - ii + 3
                  jjj = j + jj - 4
                  kkk = k + kk - 1
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ABD(kk,ii,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xend + 3)
          k = (zbegin - 3)
!
          do j = ybegin, yend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i - ii + 2
                  jjj = j + jj - 4
                  kkk = k + kk - 1
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8AAD(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
! YLR
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xbegin - 1)
          k = (zend + 1)
!
          do j = ybegin, yend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 3
                  jjj = j + jj - 4
                  kkk = k - kk + 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8CCD(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xbegin - 2)
          k = (zend + 1)
!
          do j = ybegin, yend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 2
                  jjj = j + jj - 4
                  kkk = k - kk + 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BCD(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xbegin - 1)
          k = (zend + 2)
!
          do j = ybegin, yend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 3
                  jjj = j + jj - 4
                  kkk = k - kk + 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BCD(kk,ii,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xbegin - 2)
          k = (zend + 2)
!
          do j = ybegin, yend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 2
                  jjj = j + jj - 4
                  kkk = k - kk + 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BBD(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xbegin - 3)
          k = (zend + 1)
!
          do j = ybegin, yend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 1
                  jjj = j + jj - 4
                  kkk = k - kk + 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ACD(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xbegin - 1)
          k = (zend + 3)
!
          do j = ybegin, yend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 3
                  jjj = j + jj - 4
                  kkk = k - kk + 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ACD(kk,ii,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xbegin - 3)
          k = (zend + 2)
!
          do j = ybegin, yend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 1
                  jjj = j + jj - 4
                  kkk = k - kk + 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ABD(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xbegin - 2)
          k = (zend + 3)
!
          do j = ybegin, yend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 2
                  jjj = j + jj - 4
                  kkk = k - kk + 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ABD(kk,ii,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xbegin - 3)
          k = (zend + 3)
!
          do j = ybegin, yend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 1
                  jjj = j + jj - 4
                  kkk = k - kk + 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8AAD(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
! YRR
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xend + 1)
          k = (zend + 1)
!
          do j = ybegin, yend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i - ii + 4
                  jjj = j + jj - 4
                  kkk = k - kk + 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8CCD(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xend + 2)
          k = (zend + 1)
!
          do j = ybegin, yend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i - ii + 3
                  jjj = j + jj - 4
                  kkk = k - kk + 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BCD(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xend + 1)
          k = (zend + 2)
!
          do j = ybegin, yend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i - ii + 4
                  jjj = j + jj - 4
                  kkk = k - kk + 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BCD(kk,ii,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xend + 2)
          k = (zend + 2)
!
          do j = ybegin, yend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i - ii + 3
                  jjj = j + jj - 4
                  kkk = k - kk + 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BBD(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xend + 3)
          k = (zend + 1)
!
          do j = ybegin, yend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i - ii + 2
                  jjj = j + jj - 4
                  kkk = k - kk + 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ACD(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xend + 1)
          k = (zend + 3)
!
          do j = ybegin, yend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i - ii + 4
                  jjj = j + jj - 4
                  kkk = k - kk + 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ACD(kk,ii,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xend + 3)
          k = (zend + 2)
!
          do j = ybegin, yend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i - ii + 2
                  jjj = j + jj - 4
                  kkk = k - kk + 3
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ABD(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xend + 2)
          k = (zend + 3)
!
          do j = ybegin, yend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i - ii + 3
                  jjj = j + jj - 4
                  kkk = k - kk + 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ABD(kk,ii,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xend + 3)
          k = (zend + 3)
!
          do j = ybegin, yend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i - ii + 2
                  jjj = j + jj - 4
                  kkk = k - kk + 2
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8AAD(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
! Z-lines/edges
!==============
!
! ZLL
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproLyC .ge. 1 )) then
!
          i = (xbegin - 1)
          j = (ybegin - 1)
!
          do k = zbegin, zend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 3
                  jjj = j + jj - 3
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8CCD(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproLyC .ge. 1 )) then
!
          i = (xbegin - 2)
          j = (ybegin - 1)
!
          do k = zbegin, zend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 2
                  jjj = j + jj - 3
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BCD(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproLyC .ge. 2 )) then
!
          i = (xbegin - 1)
          j = (ybegin - 2)
!
          do k = zbegin, zend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 3
                  jjj = j + jj - 2
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BCD(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproLyC .ge. 2 )) then
!
          i = (xbegin - 2)
          j = (ybegin - 2)
!
          do k = zbegin, zend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 2
                  jjj = j + jj - 2
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BBD(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproLyC .ge. 1 )) then
!
          i = (xbegin - 3)
          j = (ybegin - 1)
!
          do k = zbegin, zend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 1
                  jjj = j + jj - 3
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ACD(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproLyC .eq. 3 )) then
!
          i = (xbegin - 1)
          j = (ybegin - 3)
!
          do k = zbegin, zend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 3
                  jjj = j + jj - 1
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ACD(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproLyC .ge. 2 )) then
!
          i = (xbegin - 3)
          j = (ybegin - 2)
!
          do k = zbegin, zend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 1
                  jjj = j + jj - 2
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ABD(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproLyC .eq. 3 )) then
!
          i = (xbegin - 2)
          j = (ybegin - 3)
!
          do k = zbegin, zend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 2
                  jjj = j + jj - 1
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ABD(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproLyC .eq. 3 )) then
!
          i = (xbegin - 3)
          j = (ybegin - 3)
!
          do k = zbegin, zend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 1
                  jjj = j + jj - 1
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8AAD(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
! ZRL
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproLyC .ge. 1 )) then
!
          i = (xend + 1)
          j = (ybegin - 1)
!
          do k = zbegin, zend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i - ii + 4
                  jjj = j + jj - 3
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8CCD(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproLyC .ge. 1 )) then
!
          i = (xend + 2)
          j = (ybegin - 1)
!
          do k = zbegin, zend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i - ii + 3
                  jjj = j + jj - 3
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BCD(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproLyC .ge. 2 )) then
!
          i = (xend + 1)
          j = (ybegin - 2)
!
          do k = zbegin, zend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i - ii + 4
                  jjj = j + jj - 2
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BCD(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproLyC .ge. 2 )) then
!
          i = (xend + 2)
          j = (ybegin - 2)
!
          do k = zbegin, zend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i - ii + 3
                  jjj = j + jj - 2
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BBD(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproLyC .ge. 1 )) then
!
          i = (xend + 3)
          j = (ybegin - 1)
!
          do k = zbegin, zend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i - ii + 2
                  jjj = j + jj - 3
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ACD(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproLyC .eq. 3 )) then
!
          i = (xend + 1)
          j = (ybegin - 3)
!
          do k = zbegin, zend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i - ii + 4
                  jjj = j + jj - 1
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ACD(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproLyC .ge. 2 )) then
!
          i = (xend + 3)
          j = (ybegin - 2)
!
          do k = zbegin, zend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i - ii + 2
                  jjj = j + jj - 2
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ABD(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproLyC .eq. 3 )) then
!
          i = (xend + 2)
          j = (ybegin - 3)
!
          do k = zbegin, zend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i - ii + 3
                  jjj = j + jj - 1
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ABD(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproLyC .eq. 3 )) then
!
          i = (xend + 3)
          j = (ybegin - 3)
!
          do k = zbegin, zend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i - ii + 2
                  jjj = j + jj - 1
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8AAD(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
! ZLR
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproRyC .ge. 1 )) then
!
          i = (xbegin - 1)
          j = (yend + 1)
!
          do k = zbegin, zend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 3
                  jjj = j - jj + 4
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8CCD(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproRyC .ge. 1 )) then
!
          i = (xbegin - 2)
          j = (yend + 1)
!
          do k = zbegin, zend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 2
                  jjj = j - jj + 4
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BCD(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproRyC .ge. 2 )) then
!
          i = (xbegin - 1)
          j = (yend + 2)
!
          do k = zbegin, zend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 3
                  jjj = j - jj + 3
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BCD(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproRyC .ge. 2 )) then
!
          i = (xbegin - 2)
          j = (yend + 2)
!
          do k = zbegin, zend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 2
                  jjj = j - jj + 3
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BBD(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproRyC .ge. 1 )) then
!
          i = (xbegin - 3)
          j = (yend + 1)
!
          do k = zbegin, zend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 1
                  jjj = j - jj + 4
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ACD(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproRyC .eq. 3 )) then
!
          i = (xbegin - 1)
          j = (yend + 3)
!
          do k = zbegin, zend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 3
                  jjj = j - jj + 2
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ACD(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproRyC .ge. 2 )) then
!
          i = (xbegin - 3)
          j = (yend + 2)
!
          do k = zbegin, zend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 1
                  jjj = j - jj + 3
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ABD(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproRyC .eq. 3 )) then
!
          i = (xbegin - 2)
          j = (yend + 3)
!
          do k = zbegin, zend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 2
                  jjj = j - jj + 2
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ABD(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproRyC .eq. 3 )) then
!
          i = (xbegin - 3)
          j = (yend + 3)
!
          do k = zbegin, zend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i + ii - 1
                  jjj = j - jj + 2
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8AAD(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
! ZRR
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproRyC .ge. 1 )) then
!
          i = (xend + 1)
          j = (yend + 1)
!
          do k = zbegin, zend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i - ii + 4
                  jjj = j - jj + 4
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8CCD(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproRyC .ge. 1 )) then
!
          i = (xend + 2)
          j = (yend + 1)
!
          do k = zbegin, zend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i - ii + 3
                  jjj = j - jj + 4
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BCD(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproRyC .ge. 2 )) then
!
          i = (xend + 1)
          j = (yend + 2)
!
          do k = zbegin, zend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i - ii + 4
                  jjj = j - jj + 3
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BCD(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproRyC .ge. 2 )) then
!
          i = (xend + 2)
          j = (yend + 2)
!
          do k = zbegin, zend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i - ii + 3
                  jjj = j - jj + 3
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8BBD(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproRyC .ge. 1 )) then
!
          i = (xend + 3)
          j = (yend + 1)
!
          do k = zbegin, zend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i - ii + 2
                  jjj = j - jj + 4
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ACD(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproRyC .eq. 3 )) then
!
          i = (xend + 1)
          j = (yend + 3)
!
          do k = zbegin, zend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i - ii + 4
                  jjj = j - jj + 2
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ACD(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproRyC .ge. 2 )) then
!
          i = (xend + 3)
          j = (yend + 2)
!
          do k = zbegin, zend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i - ii + 2
                  jjj = j - jj + 3
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ABD(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproRyC .eq. 3 )) then
!
          i = (xend + 2)
          j = (yend + 3)
!
          do k = zbegin, zend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i - ii + 3
                  jjj = j - jj + 2
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8ABD(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproRyC .eq. 3 )) then
!
          i = (xend + 3)
          j = (yend + 3)
!
          do k = zbegin, zend
            do kk = 1, 8
              do jj = 1, 8
                do ii = 1, 8
!
                  iii = i - ii + 2
                  jjj = j - jj + 2
                  kkk = k + kk - 4
                  d0f(i,j,k) = d0f(i,j,k) +
     &                         bnd8AAD(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
           end do
          end do
        end if
!
!
!   Solve for all 3D-Corners (AAA, AAB, AAC, ABB, ABC, ACC, BBB, BBC, BCC, CCC) - 8
!   ===============================================================================
!
! 8th-order
! =========
!
! LLL
!
         if ( ( nproLxC .ge. 1 ) .and. 
     &        ( nproLyC .ge. 1 ) .and. 
     &        ( nproLzC .ge. 1 )) then
!
          i = (xbegin - 1)
          j = (ybegin - 1)
          k = (zbegin - 1)
!
          do kk = 1, 8
            do jj = 1, 8 
              do ii = 1, 8
!
                iii = i + ii - 3
                jjj = j + jj - 3
                kkk = k + kk - 3
                d0f(i,j,k) = d0f(i,j,k) + 
     &                       bnd8CCC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xbegin - 2)
          j = (ybegin - 1)
          k = (zbegin - 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 2
                jjj = j + jj - 3
                kkk = k + kk - 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BCC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproLyC .ge. 2 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xbegin - 1)
          j = (ybegin - 2)
          k = (zbegin - 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 3
                jjj = j + jj - 2
                kkk = k + kk - 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BCC(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xbegin - 1)
          j = (ybegin - 1)
          k = (zbegin - 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 3
                jjj = j + jj - 3
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BCC(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproLyC .ge. 2 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xbegin - 2)
          j = (ybegin - 2)
          k = (zbegin - 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 2
                jjj = j + jj - 2
                kkk = k + kk - 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BBC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproLyC .ge. 2 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xbegin - 1)
          j = (ybegin - 2)
          k = (zbegin - 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 3
                jjj = j + jj - 2
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BBC(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xbegin - 2)
          j = (ybegin - 1)
          k = (zbegin - 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 2
                jjj = j + jj - 3
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BBC(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproLyC .ge. 2 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xbegin - 2)
          j = (ybegin - 2)
          k = (zbegin - 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 2
                jjj = j + jj - 2
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BBB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xbegin - 3)
          j = (ybegin - 1)
          k = (zbegin - 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 1
                jjj = j + jj - 3
                kkk = k + kk - 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ACC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproLyC .eq. 3 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xbegin - 1)
          j = (ybegin - 3)
          k = (zbegin - 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 3
                jjj = j + jj - 1
                kkk = k + kk - 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ACC(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xbegin - 1)
          j = (ybegin - 1)
          k = (zbegin - 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 3
                jjj = j + jj - 3
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ACC(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproLyC .ge. 2 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xbegin - 3)
          j = (ybegin - 2)
          k = (zbegin - 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 1
                jjj = j + jj - 2
                kkk = k + kk - 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xbegin - 3)
          j = (ybegin - 1)
          k = (zbegin - 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 1
                jjj = j + jj - 3
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproLyC .eq. 3 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xbegin - 1)
          j = (ybegin - 3)
          k = (zbegin - 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 3
                jjj = j + jj - 1
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(jj,kk,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproLyC .eq. 3 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xbegin - 2)
          j = (ybegin - 3)
          k = (zbegin - 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 2
                jjj = j + jj - 1
                kkk = k + kk - 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xbegin - 2)
          j = (ybegin - 1)
          k = (zbegin - 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 2
                jjj = j + jj - 3
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(kk,ii,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproLyC .ge. 2 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xbegin - 1)
          j = (ybegin - 2)
          k = (zbegin - 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 3
                jjj = j + jj - 2
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproLyC .ge. 2 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xbegin - 3)
          j = (ybegin - 2)
          k = (zbegin - 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 1
                jjj = j + jj - 2
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproLyC .eq. 3 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xbegin - 2)
          j = (ybegin - 3)
          k = (zbegin - 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 2
                jjj = j + jj - 1
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABB(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproLyC .ge. 2 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xbegin - 2)
          j = (ybegin - 2)
          k = (zbegin - 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 2
                jjj = j + jj - 2
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABB(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproLyC .eq. 3 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xbegin - 3)
          j = (ybegin - 3)
          k = (zbegin - 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 1
                jjj = j + jj - 1
                kkk = k + kk - 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproLyC .eq. 3 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xbegin - 1)
          j = (ybegin - 3)
          k = (zbegin - 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 3
                jjj = j + jj - 1
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAC(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xbegin - 3)
          j = (ybegin - 1)
          k = (zbegin - 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 1
                jjj = j + jj - 3
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAC(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproLyC .eq. 3 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xbegin - 3)
          j = (ybegin - 3)
          k = (zbegin - 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 1
                jjj = j + jj - 1
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproLyC .eq. 3 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xbegin - 2)
          j = (ybegin - 3)
          k = (zbegin - 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 2
                jjj = j + jj - 1
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAB(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproLyC .ge. 2 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xbegin - 3)
          j = (ybegin - 2)
          k = (zbegin - 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 1
                jjj = j + jj - 2
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAB(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproLyC .eq. 3 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xbegin - 3)
          j = (ybegin - 3)
          k = (zbegin - 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 1
                jjj = j + jj - 1
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAA(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
!
! RLL
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xend + 1)
          j = (ybegin - 1)
          k = (zbegin - 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 4
                jjj = j + jj - 3
                kkk = k + kk - 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8CCC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xend + 2)
          j = (ybegin - 1)
          k = (zbegin - 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 3
                jjj = j + jj - 3
                kkk = k + kk - 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BCC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproLyC .ge. 2 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xend + 1)
          j = (ybegin - 2)
          k = (zbegin - 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 4
                jjj = j + jj - 2
                kkk = k + kk - 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BCC(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xend + 1)
          j = (ybegin - 1)
          k = (zbegin - 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 4
                jjj = j + jj - 3
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BCC(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproLyC .ge. 2 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xend + 2)
          j = (ybegin - 2)
          k = (zbegin - 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 3
                jjj = j + jj - 2
                kkk = k + kk - 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BBC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproLyC .ge. 2 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xend + 1)
          j = (ybegin - 2)
          k = (zbegin - 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 4
                jjj = j + jj - 2
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BBC(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xend + 2)
          j = (ybegin - 1)
          k = (zbegin - 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 3
                jjj = j + jj - 3
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BBC(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproLyC .ge. 2 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xend + 2)
          j = (ybegin - 2)
          k = (zbegin - 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 3
                jjj = j + jj - 2
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BBB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xend + 3)
          j = (ybegin - 1)
          k = (zbegin - 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 2
                jjj = j + jj - 3
                kkk = k + kk - 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ACC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproLyC .eq. 3 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xend + 1)
          j = (ybegin - 3)
          k = (zbegin - 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 4
                jjj = j + jj - 1
                kkk = k + kk - 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ACC(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xend + 1)
          j = (ybegin - 1)
          k = (zbegin - 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 4
                jjj = j + jj - 3
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ACC(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproLyC .ge. 2 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xend + 3)
          j = (ybegin - 2)
          k = (zbegin - 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 2
                jjj = j + jj - 2
                kkk = k + kk - 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xend + 3)
          j = (ybegin - 1)
          k = (zbegin - 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 2
                jjj = j + jj - 3
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproLyC .eq. 3 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xend + 1)
          j = (ybegin - 3)
          k = (zbegin - 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 4
                jjj = j + jj - 1
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(jj,kk,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproLyC .eq. 3 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xend + 2)
          j = (ybegin - 3)
          k = (zbegin - 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 3
                jjj = j + jj - 1
                kkk = k + kk - 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xend + 2)
          j = (ybegin - 1)
          k = (zbegin - 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 3
                jjj = j + jj - 3
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(kk,ii,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproLyC .ge. 2 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xend + 1)
          j = (ybegin - 2)
          k = (zbegin - 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 4
                jjj = j + jj - 2
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproLyC .ge. 2 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xend + 3)
          j = (ybegin - 2)
          k = (zbegin - 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 2
                jjj = j + jj - 2
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproLyC .eq. 3 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xend + 2)
          j = (ybegin - 3)
          k = (zbegin - 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 3
                jjj = j + jj - 1
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABB(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproLyC .ge. 2 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xend + 2)
          j = (ybegin - 2)
          k = (zbegin - 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 3
                jjj = j + jj - 2
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABB(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproLyC .eq. 3 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xend + 3)
          j = (ybegin - 3)
          k = (zbegin - 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 2
                jjj = j + jj - 1
                kkk = k + kk - 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproLyC .eq. 3 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xend + 1)
          j = (ybegin - 3)
          k = (zbegin - 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 4
                jjj = j + jj - 1
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAC(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xend + 3)
          j = (ybegin - 1)
          k = (zbegin - 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 2
                jjj = j + jj - 3
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAC(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproLyC .eq. 3 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xend + 3)
          j = (ybegin - 3)
          k = (zbegin - 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 2
                jjj = j + jj - 1
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproLyC .eq. 3 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xend + 2)
          j = (ybegin - 3)
          k = (zbegin - 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 3
                jjj = j + jj - 1
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAB(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproLyC .ge. 2 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xend + 3)
          j = (ybegin - 2)
          k = (zbegin - 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 2
                jjj = j + jj - 2
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAB(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproLyC .eq. 3 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xend + 3)
          j = (ybegin - 3)
          k = (zbegin - 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 2
                jjj = j + jj - 1
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAA(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
! LRL
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xbegin - 1)
          j = (yend + 1)
          k = (zbegin - 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 3
                jjj = j - jj + 4
                kkk = k + kk - 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8CCC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xbegin - 2)
          j = (yend + 1)
          k = (zbegin - 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 2
                jjj = j - jj + 4
                kkk = k + kk - 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BCC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproRyC .ge. 2 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xbegin - 1)
          j = (yend + 2)
          k = (zbegin - 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 3
                jjj = j - jj + 3
                kkk = k + kk - 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BCC(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xbegin - 1)
          j = (yend + 1)
          k = (zbegin - 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 3
                jjj = j - jj + 4
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BCC(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproRyC .ge. 2 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xbegin - 2)
          j = (yend + 2)
          k = (zbegin - 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 2
                jjj = j - jj + 3
                kkk = k + kk - 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BBC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproRyC .ge. 2 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xbegin - 1)
          j = (yend + 2)
          k = (zbegin - 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 3
                jjj = j - jj + 3
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BBC(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xbegin - 2)
          j = (yend + 1)
          k = (zbegin - 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 2
                jjj = j - jj + 4
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BBC(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproRyC .ge. 2 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xbegin - 2)
          j = (yend + 2)
          k = (zbegin - 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 2
                jjj = j - jj + 3
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BBB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xbegin - 3)
          j = (yend + 1)
          k = (zbegin - 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 1
                jjj = j - jj + 4
                kkk = k + kk - 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ACC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproRyC .eq. 3 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xbegin - 1)
          j = (yend + 3)
          k = (zbegin - 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 3
                jjj = j - jj + 2
                kkk = k + kk - 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ACC(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xbegin - 1)
          j = (yend + 1)
          k = (zbegin - 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 3
                jjj = j - jj + 4
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ACC(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproRyC .ge. 2 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xbegin - 3)
          j = (yend + 2)
          k = (zbegin - 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 1
                jjj = j - jj + 3
                kkk = k + kk - 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xbegin - 3)
          j = (yend + 1)
          k = (zbegin - 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 1
                jjj = j - jj + 4
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproRyC .eq. 3 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xbegin - 1)
          j = (yend + 3)
          k = (zbegin - 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 3
                jjj = j - jj + 2
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(jj,kk,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproRyC .eq. 3 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xbegin - 2)
          j = (yend + 3)
          k = (zbegin - 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 2
                jjj = j - jj + 2
                kkk = k + kk - 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xbegin - 2)
          j = (yend + 1)
          k = (zbegin - 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 2
                jjj = j - jj + 4
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(kk,ii,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproRyC .ge. 2 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xbegin - 1)
          j = (yend + 2)
          k = (zbegin - 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 3
                jjj = j - jj + 3
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproRyC .ge. 2 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xbegin - 3)
          j = (yend + 2)
          k = (zbegin - 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 1
                jjj = j - jj + 3
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproRyC .eq. 3 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xbegin - 2)
          j = (yend + 3)
          k = (zbegin - 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 2
                jjj = j - jj + 2
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABB(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproRyC .ge. 2 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xbegin - 2)
          j = (yend + 2)
          k = (zbegin - 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 2
                jjj = j - jj + 3
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABB(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproRyC .eq. 3 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xbegin - 3)
          j = (yend + 3)
          k = (zbegin - 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 1
                jjj = j - jj + 2
                kkk = k + kk - 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproRyC .eq. 3 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xbegin - 1)
          j = (yend + 3)
          k = (zbegin - 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 3
                jjj = j - jj + 2
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAC(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xbegin - 3)
          j = (yend + 1)
          k = (zbegin - 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 1
                jjj = j - jj + 4
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAC(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproRyC .eq. 3 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xbegin - 3)
          j = (yend + 3)
          k = (zbegin - 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 1
                jjj = j - jj + 2
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproRyC .eq. 3 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xbegin - 2)
          j = (yend + 3)
          k = (zbegin - 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 2
                jjj = j - jj + 2
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAB(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproRyC .ge. 2 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xbegin - 3)
          j = (yend + 2)
          k = (zbegin - 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 1
                jjj = j - jj + 3
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAB(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproRyC .eq. 3 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xbegin - 3)
          j = (yend + 3)
          k = (zbegin - 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 1
                jjj = j - jj + 2
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAA(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
! RRL
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xend + 1)
          j = (yend + 1)
          k = (zbegin - 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 4
                jjj = j - jj + 4
                kkk = k + kk - 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8CCC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xend + 2)
          j = (yend + 1)
          k = (zbegin - 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 3
                jjj = j - jj + 4
                kkk = k + kk - 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BCC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproRyC .ge. 2 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xend + 1)
          j = (yend + 2)
          k = (zbegin - 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 4
                jjj = j - jj + 3
                kkk = k + kk - 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BCC(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xend + 1)
          j = (yend + 1)
          k = (zbegin - 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 4
                jjj = j - jj + 4
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BCC(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproRyC .ge. 2 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xend + 2)
          j = (yend + 2)
          k = (zbegin - 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 3
                jjj = j - jj + 3
                kkk = k + kk - 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BBC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproRyC .ge. 2 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xend + 1)
          j = (yend + 2)
          k = (zbegin - 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 4
                jjj = j - jj + 3
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BBC(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xend + 2)
          j = (yend + 1)
          k = (zbegin - 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 3
                jjj = j - jj + 4
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BBC(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproRyC .ge. 2 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xend + 2)
          j = (yend + 2)
          k = (zbegin - 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 3
                jjj = j - jj + 3
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BBB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xend + 3)
          j = (yend + 1)
          k = (zbegin - 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 2
                jjj = j - jj + 4
                kkk = k + kk - 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ACC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproRyC .eq. 3 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xend + 1)
          j = (yend + 3)
          k = (zbegin - 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 4
                jjj = j - jj + 2
                kkk = k + kk - 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ACC(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xend + 1)
          j = (yend + 1)
          k = (zbegin - 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 4
                jjj = j - jj + 4
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ACC(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproRyC .ge. 2 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xend + 3)
          j = (yend + 2)
          k = (zbegin - 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 2
                jjj = j - jj + 3
                kkk = k + kk - 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xend + 3)
          j = (yend + 1)
          k = (zbegin - 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 2
                jjj = j - jj + 4
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproRyC .eq. 3 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xend + 1)
          j = (yend + 3)
          k = (zbegin - 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 4
                jjj = j - jj + 2
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(jj,kk,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproRyC .eq. 3 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xend + 2)
          j = (yend + 3)
          k = (zbegin - 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 3
                jjj = j - jj + 2
                kkk = k + kk - 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xend + 2)
          j = (yend + 1)
          k = (zbegin - 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 3
                jjj = j - jj + 4
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(kk,ii,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproRyC .ge. 2 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xend + 1)
          j = (yend + 2)
          k = (zbegin - 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 4
                jjj = j - jj + 3
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproRyC .ge. 2 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xend + 3)
          j = (yend + 2)
          k = (zbegin - 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 2
                jjj = j - jj + 3
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproRyC .eq. 3 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xend + 2)
          j = (yend + 3)
          k = (zbegin - 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 3
                jjj = j - jj + 2
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABB(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproRyC .ge. 2 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xend + 2)
          j = (yend + 2)
          k = (zbegin - 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 3
                jjj = j - jj + 3
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABB(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproRyC .eq. 3 ) .and.
     &        ( nproLzC .ge. 1 )) then
!
          i = (xend + 3)
          j = (yend + 3)
          k = (zbegin - 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 2
                jjj = j - jj + 2
                kkk = k + kk - 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproRyC .eq. 3 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xend + 1)
          j = (yend + 3)
          k = (zbegin - 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 4
                jjj = j - jj + 2
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAC(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xend + 3)
          j = (yend + 1)
          k = (zbegin - 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 2
                jjj = j - jj + 4
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAC(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproRyC .eq. 3 ) .and.
     &        ( nproLzC .ge. 2 )) then
!
          i = (xend + 3)
          j = (yend + 3)
          k = (zbegin - 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 2
                jjj = j - jj + 2
                kkk = k + kk - 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproRyC .eq. 3 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xend + 2)
          j = (yend + 3)
          k = (zbegin - 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 3
                jjj = j - jj + 2
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAB(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproRyC .ge. 2 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xend + 3)
          j = (yend + 2)
          k = (zbegin - 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 2
                jjj = j - jj + 3
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAB(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproRyC .eq. 3 ) .and.
     &        ( nproLzC .eq. 3 )) then
!
          i = (xend + 3)
          j = (yend + 3)
          k = (zbegin - 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 2
                jjj = j - jj + 2
                kkk = k + kk - 1
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAA(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
! 
! LLR
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xbegin - 1)
          j = (ybegin - 1)
          k = (zend + 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 3
                jjj = j + jj - 3
                kkk = k - kk + 4
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8CCC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xbegin - 2)
          j = (ybegin - 1)
          k = (zend + 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 2
                jjj = j + jj - 3
                kkk = k - kk + 4
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BCC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproLyC .ge. 2 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xbegin - 1)
          j = (ybegin - 2)
          k = (zend + 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 3
                jjj = j + jj - 2
                kkk = k - kk + 4
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BCC(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xbegin - 1)
          j = (ybegin - 1)
          k = (zend + 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 3
                jjj = j + jj - 3
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BCC(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproLyC .ge. 2 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xbegin - 2)
          j = (ybegin - 2)
          k = (zend + 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 2
                jjj = j + jj - 2
                kkk = k - kk + 4
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BBC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproLyC .ge. 2 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xbegin - 1)
          j = (ybegin - 2)
          k = (zend + 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 3
                jjj = j + jj - 2
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BBC(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xbegin - 2)
          j = (ybegin - 1)
          k = (zend + 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 2
                jjj = j + jj - 3
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BBC(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproLyC .ge. 2 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xbegin - 2)
          j = (ybegin - 2)
          k = (zend + 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 2
                jjj = j + jj - 2
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BBB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xbegin - 3)
          j = (ybegin - 1)
          k = (zend + 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 1
                jjj = j + jj - 3
                kkk = k - kk + 4
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ACC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproLyC .eq. 3 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xbegin - 1)
          j = (ybegin - 3)
          k = (zend + 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 3
                jjj = j + jj - 1
                kkk = k - kk + 4
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ACC(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xbegin - 1)
          j = (ybegin - 1)
          k = (zend + 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 3
                jjj = j + jj - 3
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ACC(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproLyC .ge. 2 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xbegin - 3)
          j = (ybegin - 2)
          k = (zend + 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 1
                jjj = j + jj - 2
                kkk = k - kk + 4
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xbegin - 3)
          j = (ybegin - 1)
          k = (zend + 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 1
                jjj = j + jj - 3
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproLyC .eq. 3 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xbegin - 1)
          j = (ybegin - 3)
          k = (zend + 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 3
                jjj = j + jj - 1
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(jj,kk,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproLyC .eq. 3 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xbegin - 2)
          j = (ybegin - 3)
          k = (zend + 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 2
                jjj = j + jj - 1
                kkk = k - kk + 4
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xbegin - 2)
          j = (ybegin - 1)
          k = (zend + 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 2
                jjj = j + jj - 3
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(kk,ii,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproLyC .ge. 2 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xbegin - 1)
          j = (ybegin - 2)
          k = (zend + 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 3
                jjj = j + jj - 2
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproLyC .ge. 2 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xbegin - 3)
          j = (ybegin - 2)
          k = (zend + 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 1
                jjj = j + jj - 2
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproLyC .eq. 3 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xbegin - 2)
          j = (ybegin - 3)
          k = (zend + 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 2
                jjj = j + jj - 1
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABB(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproLyC .ge. 2 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xbegin - 2)
          j = (ybegin - 2)
          k = (zend + 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 2
                jjj = j + jj - 2
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABB(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproLyC .eq. 3 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xbegin - 3)
          j = (ybegin - 3)
          k = (zend + 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 1
                jjj = j + jj - 1
                kkk = k - kk + 4
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproLyC .eq. 3 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xbegin - 1)
          j = (ybegin - 3)
          k = (zend + 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 3
                jjj = j + jj - 1
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAC(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xbegin - 3)
          j = (ybegin - 1)
          k = (zend + 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 1
                jjj = j + jj - 3
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAC(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproLyC .eq. 3 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xbegin - 3)
          j = (ybegin - 3)
          k = (zend + 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 1
                jjj = j + jj - 1
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproLyC .eq. 3 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xbegin - 2)
          j = (ybegin - 3)
          k = (zend + 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 2
                jjj = j + jj - 1
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAB(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproLyC .ge. 2 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xbegin - 3)
          j = (ybegin - 2)
          k = (zend + 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 1
                jjj = j + jj - 2
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAB(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproLyC .eq. 3 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xbegin - 3)
          j = (ybegin - 3)
          k = (zend + 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 1
                jjj = j + jj - 1
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAA(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
!
! RLR
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xend + 1)
          j = (ybegin - 1)
          k = (zend + 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 4
                jjj = j + jj - 3
                kkk = k - kk + 4
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8CCC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xend + 2)
          j = (ybegin - 1)
          k = (zend + 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 3
                jjj = j + jj - 3
                kkk = k - kk + 4
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BCC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproLyC .ge. 2 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xend + 1)
          j = (ybegin - 2)
          k = (zend + 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 4
                jjj = j + jj - 2
                kkk = k - kk + 4
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BCC(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xend + 1)
          j = (ybegin - 1)
          k = (zend + 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 4
                jjj = j + jj - 3
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BCC(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproLyC .ge. 2 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xend + 2)
          j = (ybegin - 2)
          k = (zend + 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 3
                jjj = j + jj - 2
                kkk = k - kk + 4
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BBC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproLyC .ge. 2 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xend + 1)
          j = (ybegin - 2)
          k = (zend + 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 4
                jjj = j + jj - 2
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BBC(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xend + 2)
          j = (ybegin - 1)
          k = (zend + 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 3
                jjj = j + jj - 3
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BBC(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproLyC .ge. 2 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xend + 2)
          j = (ybegin - 2)
          k = (zend + 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 3
                jjj = j + jj - 2
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BBB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xend + 3)
          j = (ybegin - 1)
          k = (zend + 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 2
                jjj = j + jj - 3
                kkk = k - kk + 4
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ACC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproLyC .eq. 3 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xend + 1)
          j = (ybegin - 3)
          k = (zend + 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 4
                jjj = j + jj - 1
                kkk = k - kk + 4
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ACC(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xend + 1)
          j = (ybegin - 1)
          k = (zend + 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 4
                jjj = j + jj - 3
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ACC(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproLyC .ge. 2 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xend + 3)
          j = (ybegin - 2)
          k = (zend + 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 2
                jjj = j + jj - 2
                kkk = k - kk + 4
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xend + 3)
          j = (ybegin - 1)
          k = (zend + 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 2
                jjj = j + jj - 3
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproLyC .eq. 3 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xend + 1)
          j = (ybegin - 3)
          k = (zend + 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 4
                jjj = j + jj - 1
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(jj,kk,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproLyC .eq. 3 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xend + 2)
          j = (ybegin - 3)
          k = (zend + 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 3
                jjj = j + jj - 1
                kkk = k - kk + 4
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xend + 2)
          j = (ybegin - 1)
          k = (zend + 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 3
                jjj = j + jj - 3
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(kk,ii,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproLyC .ge. 2 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xend + 1)
          j = (ybegin - 2)
          k = (zend + 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 4
                jjj = j + jj - 2
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproLyC .ge. 2 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xend + 3)
          j = (ybegin - 2)
          k = (zend + 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 2
                jjj = j + jj - 2
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproLyC .eq. 3 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xend + 2)
          j = (ybegin - 3)
          k = (zend + 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 3
                jjj = j + jj - 1
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABB(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproLyC .ge. 2 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xend + 2)
          j = (ybegin - 2)
          k = (zend + 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 3
                jjj = j + jj - 2
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABB(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproLyC .eq. 3 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xend + 3)
          j = (ybegin - 3)
          k = (zend + 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 2
                jjj = j + jj - 1
                kkk = k - kk + 4
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproLyC .eq. 3 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xend + 1)
          j = (ybegin - 3)
          k = (zend + 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 4
                jjj = j + jj - 1
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAC(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproLyC .ge. 1 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xend + 3)
          j = (ybegin - 1)
          k = (zend + 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 2
                jjj = j + jj - 3
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAC(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproLyC .eq. 3 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xend + 3)
          j = (ybegin - 3)
          k = (zend + 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 2
                jjj = j + jj - 1
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproLyC .eq. 3 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xend + 2)
          j = (ybegin - 3)
          k = (zend + 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 3
                jjj = j + jj - 1
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAB(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproLyC .ge. 2 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xend + 3)
          j = (ybegin - 2)
          k = (zend + 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 2
                jjj = j + jj - 2
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAB(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproLyC .eq. 3 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xend + 3)
          j = (ybegin - 3)
          k = (zend + 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 2
                jjj = j + jj - 1
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAA(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
!
! LRR
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xbegin - 1)
          j = (yend + 1)
          k = (zend + 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 3
                jjj = j - jj + 4
                kkk = k - kk + 4
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8CCC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xbegin - 2)
          j = (yend + 1)
          k = (zend + 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 2
                jjj = j - jj + 4
                kkk = k - kk + 4
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BCC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproRyC .ge. 2 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xbegin - 1)
          j = (yend + 2)
          k = (zend + 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 3
                jjj = j - jj + 3
                kkk = k - kk + 4
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BCC(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xbegin - 1)
          j = (yend + 1)
          k = (zend + 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 3
                jjj = j - jj + 4
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BCC(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproRyC .ge. 2 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xbegin - 2)
          j = (yend + 2)
          k = (zend + 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 2
                jjj = j - jj + 3
                kkk = k - kk + 4
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BBC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproRyC .ge. 2 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xbegin - 1)
          j = (yend + 2)
          k = (zend + 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 3
                jjj = j - jj + 3
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BBC(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xbegin - 2)
          j = (yend + 1)
          k = (zend + 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 2
                jjj = j - jj + 4
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BBC(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproRyC .ge. 2 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xbegin - 2)
          j = (yend + 2)
          k = (zend + 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 2
                jjj = j - jj + 3
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BBB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xbegin - 3)
          j = (yend + 1)
          k = (zend + 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 1
                jjj = j - jj + 4
                kkk = k - kk + 4
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ACC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproRyC .eq. 3 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xbegin - 1)
          j = (yend + 3)
          k = (zend + 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 3
                jjj = j - jj + 2
                kkk = k - kk + 4
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ACC(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xbegin - 1)
          j = (yend + 1)
          k = (zend + 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 3
                jjj = j - jj + 4
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ACC(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproRyC .ge. 2 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xbegin - 3)
          j = (yend + 2)
          k = (zend + 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 1
                jjj = j - jj + 3
                kkk = k - kk + 4
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xbegin - 3)
          j = (yend + 1)
          k = (zend + 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 1
                jjj = j - jj + 4
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproRyC .eq. 3 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xbegin - 1)
          j = (yend + 3)
          k = (zend + 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 3
                jjj = j - jj + 2
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(jj,kk,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproRyC .eq. 3 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xbegin - 2)
          j = (yend + 3)
          k = (zend + 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 2
                jjj = j - jj + 2
                kkk = k - kk + 4
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xbegin - 2)
          j = (yend + 1)
          k = (zend + 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 2
                jjj = j - jj + 4
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(kk,ii,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproRyC .ge. 2 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xbegin - 1)
          j = (yend + 2)
          k = (zend + 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 3
                jjj = j - jj + 3
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproRyC .ge. 2 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xbegin - 3)
          j = (yend + 2)
          k = (zend + 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 1
                jjj = j - jj + 3
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproRyC .eq. 3 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xbegin - 2)
          j = (yend + 3)
          k = (zend + 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 2
                jjj = j - jj + 2
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABB(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproRyC .ge. 2 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xbegin - 2)
          j = (yend + 2)
          k = (zend + 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 2
                jjj = j - jj + 3
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABB(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproRyC .eq. 3 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xbegin - 3)
          j = (yend + 3)
          k = (zend + 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 1
                jjj = j - jj + 2
                kkk = k - kk + 4
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 1 ) .and.
     &        ( nproRyC .eq. 3 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xbegin - 1)
          j = (yend + 3)
          k = (zend + 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 3
                jjj = j - jj + 2
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAC(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xbegin - 3)
          j = (yend + 1)
          k = (zend + 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 1
                jjj = j - jj + 4
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAC(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproRyC .eq. 3 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xbegin - 3)
          j = (yend + 3)
          k = (zend + 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 1
                jjj = j - jj + 2
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .ge. 2 ) .and.
     &        ( nproRyC .eq. 3 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xbegin - 2)
          j = (yend + 3)
          k = (zend + 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 2
                jjj = j - jj + 2
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAB(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproRyC .ge. 2 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xbegin - 3)
          j = (yend + 2)
          k = (zend + 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 1
                jjj = j - jj + 3
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAB(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproLxC .eq. 3 ) .and.
     &        ( nproRyC .eq. 3 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xbegin - 3)
          j = (yend + 3)
          k = (zend + 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i + ii - 1
                jjj = j - jj + 2
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAA(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
!
! RRR
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xend + 1)
          j = (yend + 1)
          k = (zend + 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 4
                jjj = j - jj + 4
                kkk = k - kk + 4
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8CCC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xend + 2)
          j = (yend + 1)
          k = (zend + 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 3
                jjj = j - jj + 4
                kkk = k - kk + 4
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BCC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproRyC .ge. 2 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xend + 1)
          j = (yend + 2)
          k = (zend + 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 4
                jjj = j - jj + 3
                kkk = k - kk + 4
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BCC(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xend + 1)
          j = (yend + 1)
          k = (zend + 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 4
                jjj = j - jj + 4
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BCC(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproRyC .ge. 2 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xend + 2)
          j = (yend + 2)
          k = (zend + 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 3
                jjj = j - jj + 3
                kkk = k - kk + 4
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BBC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproRyC .ge. 2 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xend + 1)
          j = (yend + 2)
          k = (zend + 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 4
                jjj = j - jj + 3
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BBC(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xend + 2)
          j = (yend + 1)
          k = (zend + 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 3
                jjj = j - jj + 4
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BBC(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproRyC .ge. 2 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xend + 2)
          j = (yend + 2)
          k = (zend + 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 3
                jjj = j - jj + 3
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8BBB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xend + 3)
          j = (yend + 1)
          k = (zend + 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 2
                jjj = j - jj + 4
                kkk = k - kk + 4
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ACC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproRyC .eq. 3 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xend + 1)
          j = (yend + 3)
          k = (zend + 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 4
                jjj = j - jj + 2
                kkk = k - kk + 4
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ACC(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xend + 1)
          j = (yend + 1)
          k = (zend + 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 4
                jjj = j - jj + 4
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ACC(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproRyC .ge. 2 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xend + 3)
          j = (yend + 2)
          k = (zend + 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 2
                jjj = j - jj + 3
                kkk = k - kk + 4
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xend + 3)
          j = (yend + 1)
          k = (zend + 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 2
                jjj = j - jj + 4
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproRyC .eq. 3 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xend + 1)
          j = (yend + 3)
          k = (zend + 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 4
                jjj = j - jj + 2
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(jj,kk,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproRyC .eq. 3 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xend + 2)
          j = (yend + 3)
          k = (zend + 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 3
                jjj = j - jj + 2
                kkk = k - kk + 4
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xend + 2)
          j = (yend + 1)
          k = (zend + 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 3
                jjj = j - jj + 4
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(kk,ii,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproRyC .ge. 2 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xend + 1)
          j = (yend + 2)
          k = (zend + 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 4
                jjj = j - jj + 3
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABC(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproRyC .ge. 2 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xend + 3)
          j = (yend + 2)
          k = (zend + 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 2
                jjj = j - jj + 3
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproRyC .eq. 3 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xend + 2)
          j = (yend + 3)
          k = (zend + 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 3
                jjj = j - jj + 2
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABB(jj,ii,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproRyC .ge. 2 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xend + 2)
          j = (yend + 2)
          k = (zend + 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 3
                jjj = j - jj + 3
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8ABB(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproRyC .eq. 3 ) .and.
     &        ( nproRzC .ge. 1 )) then
!
          i = (xend + 3)
          j = (yend + 3)
          k = (zend + 1)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 2
                jjj = j - jj + 2
                kkk = k - kk + 4
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAC(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 1 ) .and.
     &        ( nproRyC .eq. 3 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xend + 1)
          j = (yend + 3)
          k = (zend + 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 4
                jjj = j - jj + 2
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAC(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproRyC .ge. 1 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xend + 3)
          j = (yend + 1)
          k = (zend + 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 2
                jjj = j - jj + 4
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAC(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproRyC .eq. 3 ) .and.
     &        ( nproRzC .ge. 2 )) then
!
          i = (xend + 3)
          j = (yend + 3)
          k = (zend + 2)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 2
                jjj = j - jj + 2
                kkk = k - kk + 3
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAB(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .ge. 2 ) .and.
     &        ( nproRyC .eq. 3 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xend + 2)
          j = (yend + 3)
          k = (zend + 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 3
                jjj = j - jj + 2
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAB(kk,jj,ii)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproRyC .ge. 2 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xend + 3)
          j = (yend + 2)
          k = (zend + 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 2
                jjj = j - jj + 3
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAB(ii,kk,jj)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
         if ( ( nproRxC .eq. 3 ) .and.
     &        ( nproRyC .eq. 3 ) .and.
     &        ( nproRzC .eq. 3 )) then
!
          i = (xend + 3)
          j = (yend + 3)
          k = (zend + 3)
!
          do kk = 1, 8
            do jj = 1, 8
              do ii = 1, 8
!
                iii = i - ii + 2
                jjj = j - jj + 2
                kkk = k - kk + 2
                d0f(i,j,k) = d0f(i,j,k) +
     &                       bnd8AAA(ii,jj,kk)*f(iii,jjj,kkk)
!
              end do
            end do
          end do
         endif
!
!end orderb
      endif
!end orderi
      endif
!====================================================================
!-----------------------------
!  10th order explicit: (10E)
!
!
      if ( orderi .eq. 10 ) then
!
!  Internal nodes:
!
        do k = zbegin, zend
          do j = ybegin, yend
            do i = xbegin, xend
             sum = 0.d0
             do ii = 1, 10
             do jj = 1, 10
             do kk = 1, 10
               sum = sum + bnd10I(ii,jj,kk)* f(i-5+ii,j+jj-5,k+kk-5)
             enddo
             enddo
             enddo
             d0f(i,j,k) = sum
           enddo
         enddo
       enddo
!
      end if
!
      return
      end
!====================================================================