Esope source files

   1 : C SORTI2    SOURCE    CHAT      05/01/13    03:22:56     5004           
   2 : C****************************************************************************
   3 : C****************************************************************************
   4 : C*************SORTID....SORTIe des Donnees***********************************
   5 : C****************************************************************************
   6 : C****************************************************************************
   7 : 
   8 : 
   9 : 
  10 : C Cette procedure affiche les resultats sous forme de maillage dont les 
  11 : C  noeuds sont numerotes dans l'ordre d'elimination
  12 : 
  13 : 
  14 : 
  15 : 
  16 :         SUBROUTINE SORTI2(IPOS,JNT,NODES)
  17 : 
  18 : 
  19 :       IMPLICIT INTEGER(I-N)
  20 :         SEGMENT IPOS(0)
  21 : 
  22 :         INTEGER MPOS
  23 :         SEGMENT IORDRE(NODES*3)
  24 :         SEGMENT JNT(0)
  25 :         LOGICAL BOOL
  26 :         
  27 :         SEGINI IORDRE
  28 :         MPOS=0
  29 : 
  30 :         DO 10 I=1,NODES
  31 :                 IORDRE(I)=I
  32 :                 IORDRE(I+NODES)=-IPOS(IPOS(I+NODES)+1)
  33 :                 IORDRE(I+2*NODES)=-IPOS(I+2*NODES)
  34 : 10      CONTINUE
  35 : 
  35 :         CALL TRIFU2(IORDRE,NODES)
  36 : 
  37 :         DO 5 I=1,NODES
  38 :                 JNT(IORDRE(I))=I
  39 : 5       CONTINUE
  40 : 
  41 :         SEGSUP IORDRE
  42 :         RETURN
  43 :         END
  44 :  
  45 :  
  46 :