C**********************************************************************
C**********************************************************************
C
      SUBROUTINE BOUND
     M   ( Q, 
     D     NZ, NZB )
C
C**********************************************************************
      IMPLICIT REAL*8 ( A-H, O-Z )
C**********************************************************************
C
      DIMENSION Q( -2:NZB )
C
C======================================================================
C
      Q(   -1 ) = Q(    0 )
      Q(   -2 ) = Q(    1 )
      Q( NZ   ) = Q( NZ-1 )
      Q( NZ+1 ) = Q( NZ-2 )
      Q( NZ+2 ) = Q( NZ-3 )
C
C====================================================================
C
      RETURN
      E N D
