Sources Esope | Cast3M

rsetxi
C RSETXI    SOURCE    CHAT      05/01/13    03:08:05     5004
      SUBROUTINE RSETXI(ITAB,IVAL,N)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
      DIMENSION ITAB(*),IVAL(N)
      DO 1 I=1,N
      ITAB(IVAL(I))=I
 1    CONTINUE
      RETURN
      END