Esope source files

   1 : C SPCOMP    SOURCE    CHAT      06/03/29    21:34:37     5360           
   2 :       SUBROUTINE SPCOMP(TAB,NBCOL,NBLIG,NUM,NBNUM,iarr)
   3 : C     **********************************************************************
   4 : C     OBJET : RENUMEROTE LES ELEMENTS D'UN TABLEAU POUR LES COMPACTER
   5 : C            EN DEBUT : DE 1 A "NBNUM"
   6 : C     EN ENTREE:
   7 : C      NUM     :   NUM(I) EST NUMERO DE L'ELEMENT QUI DOIT ETRE MIS EN I
   8 : C                  ATTENTION !! NUM DOIT ETRE TRIE AVEC ENSTRI
   9 : C      NBNUM   :   NOMBRE D'ELEMENTS A RENUMEROTER
  10 : C     EN SORTIE:
  11 : C     COMPLEXITE : O(NBNUM)
  12 : C     PRINCIPE     : LES PERMUTATIONS FONCTIONNENT SI NUM(I)>I
  13 : C                    C.A.D. L'ANCIENNE POSITION > A LA NOUVELLE
  14 : C                    ON EST DANS CE CAS SI NUM EST TRIE PAR ORDRE CROISS.
  15 : C     **********************************************************************
  16 : 
  17 :       IMPLICIT INTEGER(I-N)
  18 :       REAL*8       TAB(*)
  19 :       INTEGER    NBCOL,NBLIG
  20 :       INTEGER    NUM(*),NBNUM,iarr
  21 : C
  22 :       INTEGER I
  23 : C
  24 :       DO 10 I=1,NBNUM
  24 :         CALL SPPERM(TAB,NBCOL,NBLIG,NUM(I),I,iarr)
  25 :    10 CONTINUE
  26 :       END
  27 :  
  28 :  
  29 :