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