1      SUBROUTINE CAMB(RX2,RTX,NUM)
2      DIMENSION RX2(NUM,NUM),RTX(NUM,NUM)
3      DO I=1,NUM
4        DO J=1,I
5          DO M=1,NUM
6            RX2(I,J)=RX2(I,J)+RTX(M,I)
7          END DO
8        END DO
9      END DO
10      IF (RX2(I,1).LE.EIGCT2) THEN
11      RTX(I,1)=4.0D+00
12      END IF
13      END
14