*
* $Id: bkiscm.F,v 1.9 2000/01/12 11:04:15 mclareni Exp $
*
* $Log: bkiscm.F,v $
* Revision 1.9  2000/01/12 11:04:15  mclareni
* Version 7.48 from author, plus modified Imakefiles
*
*
#include "sys/CERNLIB_machine.h"
#include "_isajet/pilot.h"
      SUBROUTINE BKISCM(ND,LISCM)
C----------------------------------------------------------------------
C-
C-   Purpose and Methods : Book the Bank ISCM
C-
C-   Inputs  : ND    = NUMBER OF WORDS IN ISCM
C-   Outputs : LISCM  = Link of Booked ISCM Bank
C-   Controls: None
C-
C-   Created  13-DEC-1989 10:20:16.28  Chip Stewart
C-
C----------------------------------------------------------------------
#if defined(CERNLIB_IMPNONE)
      IMPLICIT NONE
#endif
      INTEGER LISCM
      INTEGER IXIO
      INTEGER ND
C
C--   ZEBRA BANKS
#include "zebcom.inc"
#include "iziscm.inc"
C
      LOGICAL FIRST
      DATA FIRST/.TRUE./
C
C----------------------------------------------------------------------
C
C--   INITIALIZE
C
      LISCM = 0
      IF(FIRST)THEN
        CALL MZFORM('ISCM','-H',IXIO)        ! Describe Bank format
      ENDIF
C
      CALL MZBOOK
     &  (IXMAIN,LISCM,LISAB,-IZISCM,'ISCM',1,1,ND,IXIO,0)
C
  999 RETURN
      END