MINICERN/packlib/zebra/dzebra/dzarea.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:05  mclareni
   6 * Zebra
   7 *
   8 *
   9 *-----------------------------------------------------------
  10 #include "zebra/pilot.h"
  11 #if (defined(CERNLIB_DEBUGON))&&(defined(CERNLIB_VFORT))
  12 #include "zebra/debugvf1.inc"
  13 #endif
  14       SUBROUTINE DZAREA  (CHTEXT,IXSTOR,CLA,LLA,CHOPT)
  15 #include "zebra/quest.inc"
  16 #include "zebra/dzc1.inc"
  17       CHARACTER *(*) CLA,CHOPT,CHTEXT
  18
  19       CHARACTER CHROUT*(*)
  20       PARAMETER (CHROUT = 'DZAREA')
  21
  22       ENTRY      DZLINK  (CHTEXT,IXSTOR,CLA,LLA,CHOPT)
  23 #if (defined(CERNLIB_DEBUGON))&&(defined(CERNLIB_VFORT))
  24 #include "zebra/debugvf2.inc"
  25 #endif
  26
  27       CQSTAK = CHROUT//'/'
  28       IQUEST(1) = 0
  29
  30       CALL DZOPT(CHOPT)
  31
  32       CALL MZSDIV(IXSTOR,-1)
  33
  34       CALL DZARE1(CHTEXT,CLA,LLA,CHOPT)
  35
  36   999 RETURN
  37       END