SUBROUTINE SCLRPA(IRPA)
C
C THIS ROUTINE TAKES THE RPA SETTINGS THAT ARE IN IRPA AND REPLACES
C IT WITH AN INDEX FROM 1 TO 32.
C WRITTEN BY J.L.GREEN 11/1/81
C LAST MODS JFEJ 25 JUL 82 UPDATES TO LKURPA TABLE
      INTEGER IRPA(32)
      INTEGER LKURPA(32)
C THE VALUES CONTAINED IN LKURPA (LOOKUP-RPA) ARRAY ARE RPA SETTINGS
C THESE SETTINGS CORESPOND TO THE FOLLOWING RPA VALUES
C       0.00  0.10  0.15  0.20  0.25  0.35  0.45  0.55
C       0.75  1.00  1.25  1.60  2.00  2.50  3.25  4.25
C       5.25  6.50  8.50  11.0  12.5  14.0  16.0  18.0
C       20.5  23.0  26.5  30.0  34.5  39.0  44.5  50.0
C      DATA LKURPA/  0,   2,   3,   4,   5,   7,   9,  11,
C    1               15,  20,  25,  32,  40,  50,  65,  85,
C    2              105, 130, 170, 220, 250, 280, 320, 360,
C    3              410, 460, 530, 600, 690, 780, 890,1000/
C NEW TABLE
      DATA LKURPA/  0,   1,   2,   2,   3,   4,   5,
     1                6,   7,   9,  11,  13,  17,  21,  25,
     2               32,  39,  49,  60,  75,  93, 115, 143,
     3              178, 220, 274, 338, 422, 522, 648, 806,1000/
C
C LET'S DO THE LOOKUP
C
c      type *, 'sclrpa:irpa = ', (irpa(iii), iii = 1,32)
      DO 4000 J=1,32
         JVAL=IRPA(J)
         IF( JVAL.NE.1023 ) GO TO 2000
         IRPA(J)=-1
         GO TO 4000
 2000    CONTINUE
         DO 3000 K=1,32
            KDWN=33-K
            IF( LKURPA(KDWN).LE.JVAL )  GO TO 3500
 3000    CONTINUE
 3500    CONTINUE
         IRPA(J)=KDWN
c         type *, 'sclrpa: jval, kdwn = ', jval, kdwn
 4000 CONTINUE
c      type *, 'sclrpa:irpa = ', (irpa(iii), iii = 1,32)
c      type *, ' '
      RETURN
      END