Sources Esope | Cast3M

perm15
C PERM15    SOURCE    BP208322  16/06/27    21:16:21     8990           
c
      SUBROUTINE PERM15(N,F,J,FB,RC)
C
C ASSIGNMENT OF COLUMN  J .
C
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      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