#ifndef SLATE_INC
#define SLATE_INC
*
*
* slate.inc is used by raninit.F
*
      INTEGER ISL(40)
      COMMON /SLATE/ ISL

#endif