Télécharger sortid.eso

Retour à la liste

Numérotation des lignes :

sortid
  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.  
  46.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales