3d/operators/opcombl.f

c     =====================================================
      subroutine opcombl(gc)
c     =====================================================
c     
c     Create and initialize common-blocks for grid-operators
c
      implicit none
      common /ghosts/ mbc
      integer gc, mbc

      mbc = gc

      return
      end