C         SUBROUTINE TO INITIALIZE LINKS AND RAC
C  NEW = 1 ZERO LINKS AND RAC; NEW = 0 ZERO RAC ONLY.
C
          SUBROUTINE INITL(NEW)
          COMMON/LINKIT/ISTRT,LINKS(6,15)
          COMMON/ACCUM/RAC(3,3,15)
C
      IF(NEW.NE.1)GO TO 50
          DO 96 I=1,15
          DO 96 J=1,6
96        LINKS(J,I)=0
C
50    CONTINUE
      DO 69 I=1,15
          DO 69 J=1,3
          DO 69 K=1,3
          RAC(K,J,I)=0.
          IF(K.EQ.J)RAC(K,J,I)=1.
69        CONTINUE
          RETURN
          END
