5 * Revision 1.1.1.1 1995/10/24 10:21:55 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.48 by S.Giani
12 SUBROUTINE CHKZEB(NW,IX)
14 C Check if NW words are available in ZEBRA division IX
16 C ZEBRA user communication common
17 COMMON/ QUEST / IQUEST(100)
19 CALL MZNEED(IX,NW,'G')
20 IF(IQUEST(11).LT.0) THEN
21 PRINT *,'******************************************'
22 PRINT *,'* G C A L O R *'
23 PRINT *,'* NOT enough space available in ZEBRA *'
24 PRINT '('' * division '',I3,'' to store '',I8, '
25 + //' '' words *'')',IX,NW
27 PRINT *,'* INCREASE ZEBRA COMMON SIZE AND RERUN *'
29 PRINT *,'* RUN TERMINATED *'
30 PRINT *,'******************************************'