Esope source files

   1 : C SORTID    SOURCE    PV        11/03/07    21:18:23     6885           
   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 SORTID(IADJ,IVOIS,IORDRE,NUMERO,NODES,NBENS,JNT)
  17 :       IMPLICIT INTEGER(I-N)
  18 :         
  19 :         
  20 :         
  21 :         SEGMENT IADJ(0)
  22 :         SEGMENT IVOIS(0)
  23 :         SEGMENT IPOS(0)
  24 :         SEGMENT NUMERO(0)
  25 :         SEGMENT IORDRE(0)
  26 :         SEGMENT JNT(0)
  27 :         INTEGER NODES,NBENS
  28 : 
  29 : C       on lit chaque noeud des qu'il appartient a l'ensemble considere
  30 : C       on le numerote.
  31 :         ICOMPT=1
  32 :         DO 100 I=1,NBENS
  33 :                 DO 120 J=1,NODES
  34 :                         IF(IORDRE(NUMERO(J)+NBENS).EQ.I) THEN 
  35 :                                 JNT(J)=ICOMPT
  36 :                                 ICOMPT=ICOMPT+1
  37 :                         ENDIF
  38 : 120             CONTINUE
  39 : 100     CONTINUE
  40 :         
  41 : 
  42 :         RETURN
  43 :         END
  44 :  
  45 :