*
* $Id: isawbg.F,v 1.9 2000/01/12 11:04:39 mclareni Exp $
*
* $Log: isawbg.F,v $
* Revision 1.9  2000/01/12 11:04:39  mclareni
* Version 7.48 from author, plus modified Imakefiles
*
*
#include "sys/CERNLIB_machine.h"
#include "_isajet/pilot.h"
       SUBROUTINE ISAWBG
C------------------------------------------------------------------
C-
C-     subroutine ISAWBG writes beginning record (1001)
C-
C-     WRITTEN BY SDP 12/85, rev. Sept.86
C-
C------------------------------------------------------------------
#if defined(CERNLIB_IMPNONE)
      IMPLICIT NONE
#endif
#include "isaunt.inc"
#include "zebcom.inc"
C----------------------------------------------------------------------
C
      CALL ISABFL          ! fill ISAB bank
C
C  write out beginning record
      CALL FZOUT(ISUNIT,IXMAIN,LISAB,1,' ',1,0,0)
      CALL MZWIPE(0)
       RETURN
       END