[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / tq / tzacw.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/03/06 10:47:27  mclareni
* Zebra
*
*
#include "zebra/pilot.h"
      SUBROUTINE TZACW (TEXT)

C-    Krack  A[n][C][W]  for TZINIT and TZFREE

#include "zebra/zmach.inc"
#include "zebra/tzc1.inc"
C--------------    END CDE                             -----------------
      COMMON /SLATE/ NDSLAT,NESLAT,NFSLAT,NGSLAT,DUMMY(36)
      CHARACTER    TEXT*(*)
      DIMENSION    IFLHOL(2)
      EQUIVALENCE (IFLHOL(1),IFLHC)


      JE = LEN (TEXT)
      IF (JE.EQ.1)  THEN
          NCHPW = IQCHAW
          RETURN
        ENDIF

      NCHPW = ICDECI (TEXT,2,JE)
      JA    = NESLAT
      IF (NCHPW.EQ.0)  NCHPW = IQCHAW
      NCHPW = MIN (NCHPW,IQCHAW)
      IF (JA.GT.JE)                RETURN
      CALL CLTOU (TEXT)

   24 J = INDEX('CW',TEXT(JA:JA))
      IF (J.EQ.0)                  GO TO 92
      IFLHOL(J) = 1
      JA = JA + 1
      IF (JA.GT.JE)                RETURN
      GO TO 24

C--       Trouble

   92 NCHPW = -JA
      RETURN
      END
Commit	Line	Data
fe4da5cc	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