Sources Esope | Cast3M

perm25
C PERM25    SOURCE    BP208322  16/06/27    21:16:23     8990           
c
      SUBROUTINE PERM25(N,F,J,FB,RC)
C
C ASSIGNMENT OF COLUMN  J .
C
      INTEGER N,I,J,JJ
      INTEGER F(N)
      INTEGER FB(N),RC(N)
   1  I = RC(J)
      FB(J) = I
      JJ = F(I)
      F(I) = J
      J = JJ
      IF ( J .GT. 0 ) GO TO 1
      RETURN
      END