Télécharger la plaquette Cast3M


fr en

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