[u/mrichter/AliRoot.git] / HERWIG / src / hwuats.f


CDECK  ID>, HWUATS.

*CMZ :-        -07/07/99  17.42.00  by  Kosuke Odagiri

*-- Author :    Kosuke Odagiri

C-----------------------------------------------------------------------

      SUBROUTINE HWUATS

C-----------------------------------------------------------------------

C     Replaces all &'s in TXNAME by \'s

C-----------------------------------------------------------------------

      INCLUDE 'HERWIG61.INC'

      INTEGER I,J,L

      CHARACTER*1 Z

      Z=CHAR(92)

      L=LEN(TXNAME(1,1))

      DO 1 I=0,NMXRES

        DO 2 J=1,L

          IF (TXNAME(1,I)(J:J).EQ.'&') TXNAME(1,I)(J:J)=Z

 2      CONTINUE

 1    CONTINUE

      END
Commit	Line	Data
3820ca8e	1
	2	CDECK ID>, HWUATS.
	3
	4	*CMZ :- -07/07/99 17.42.00 by Kosuke Odagiri
	5
	6	*-- Author : Kosuke Odagiri
	7
	8	C-----------------------------------------------------------------------
	9
	10	SUBROUTINE HWUATS
	11
	12	C-----------------------------------------------------------------------
	13
	14	C Replaces all &'s in TXNAME by \'s
	15
	16	C-----------------------------------------------------------------------
	17
	18	INCLUDE 'HERWIG61.INC'
	19
	20	INTEGER I,J,L
	21
	22	CHARACTER*1 Z
	23
	24	Z=CHAR(92)
	25
	26	L=LEN(TXNAME(1,1))
	27
	28	DO 1 I=0,NMXRES
	29
	30	DO 2 J=1,L
	31
	32	IF (TXNAME(1,I)(J:J).EQ.'&') TXNAME(1,I)(J:J)=Z
	33
	34	2 CONTINUE
	35
	36	1 CONTINUE
	37
	38	END