MINICERN/packlib/zebra/mq/mzpaw.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:17  mclareni
   6 * Zebra
   7 *
   8 *
   9 #include "zebra/pilot.h"
  10       SUBROUTINE MZPAW (NWORDS,CHOPT)
  11
  12 C-    Initialize the store /PAWC/ of at least 10000 words;
  13 C-    if NWORDS > 10000  it is assumed by MZPAW that the user
  14 C-    has dimensioned it with  COMMON/PAWC/PAW(NWORDS)
  15 C-    The M options causes a CALL MZEBRA (-1).
  16 C-    Called by <USER> ,HBOOK,KU,HIGZ
  17
  18       COMMON /PAWC/  NWPAW,IXPAWC,IHBOOK,IXHIGZ,IXKU,IFENCE(5)
  19      +,              LMAIN, IPAW(9989)
  20 C--------------------------------------------------------------------
  21       CHARACTER    *(*) CHOPT
  22
  23       CALL UOPTC (CHOPT,'M',IPAW)
  24
  25       IF (IPAW(1).NE.0)   CALL MZEBRA(-1)
  26
  27       NW = MAX (NWORDS,10000)
  28       CALL MZSTOR (IXPAWC,'/PAWC/',' ',IFENCE,LMAIN,IPAW(1),IPAW(1),
  29      +            IPAW(5000),IPAW(NW-11))
  30       NWPAW  = NW
  31       IHBOOK = 0
  32       IXHIGZ = 0
  33       IXKU   = 0
  34       RETURN
  35       END
  36 *      ==================================================
  37 #include "zebra/qcardl.inc"