C**********************************************************************
C**********************************************************************
C
      SUBROUTINE ACLEAR
     M   ( Q,
     D     NXB, NZB, NROT,
     I     IR            )
C
C**********************************************************************
      IMPLICIT REAL*8 ( A-H, O-Z )
C**********************************************************************
C
      DIMENSION Q( -2:NXB, -2:NZB, NROT )
C
C======================================================================
C
      DO 11 IZ = -2, NZB
      DO 11 IX = -2, NXB
         Q ( IX,IZ,IR) = 0.0D0
   11 CONTINUE
C
C====================================================================
C
      RETURN
      E N D
