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