MINICERN/packlib/zebra/tq/tzacw.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:27  mclareni
   6 * Zebra
   7 *
   8 *
   9 #include "zebra/pilot.h"
  10       SUBROUTINE TZACW (TEXT)
  11
  12 C-    Krack  A[n][C][W]  for TZINIT and TZFREE
  13
  14 #include "zebra/zmach.inc"
  15 #include "zebra/tzc1.inc"
  16 C--------------    END CDE                             -----------------
  17       COMMON /SLATE/ NDSLAT,NESLAT,NFSLAT,NGSLAT,DUMMY(36)
  18       CHARACTER    TEXT*(*)
  19       DIMENSION    IFLHOL(2)
  20       EQUIVALENCE (IFLHOL(1),IFLHC)
  21
  22
  23       JE = LEN (TEXT)
  24       IF (JE.EQ.1)  THEN
  25           NCHPW = IQCHAW
  26           RETURN
  27         ENDIF
  28
  29       NCHPW = ICDECI (TEXT,2,JE)
  30       JA    = NESLAT
  31       IF (NCHPW.EQ.0)  NCHPW = IQCHAW
  32       NCHPW = MIN (NCHPW,IQCHAW)
  33       IF (JA.GT.JE)                RETURN
  34       CALL CLTOU (TEXT)
  35
  36    24 J = INDEX('CW',TEXT(JA:JA))
  37       IF (J.EQ.0)                  GO TO 92
  38       IFLHOL(J) = 1
  39       JA = JA + 1
  40       IF (JA.GT.JE)                RETURN
  41       GO TO 24
  42
  43 C--       Trouble
  44
  45    92 NCHPW = -JA
  46       RETURN
  47       END