      SUBROUTINE LCLEAR(N,A)
      LOGICAL A(1)
      DO 10 I=1,N
   10 A(I)=.FALSE.
      RETURN
      END
