*
* $Id: iall1s.inc,v 1.1.1.1 1996/02/15 17:54:10 mclareni Exp $
*
* $Log: iall1s.inc,v $
* Revision 1.1.1.1  1996/02/15 17:54:10  mclareni
* Kernlib
*
*
*     set a word of all ones
*
* iall1s.inc
*
      PARAMETER   (IALL11 = .NOT. 0)