Télécharger la plaquette Cast3M


fr en

Télécharger sorti2.eso

Retour à la liste

Numérotation des lignes : 

sorti2

  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.  
  36.         CALL TRIFU2(IORDRE,NODES)
  37.  
  38.         DO 5 I=1,NODES
  39.                 JNT(IORDRE(I))=I
  40. 5       CONTINUE
  41.  
  42.         SEGSUP IORDRE
  43.         RETURN
  44.         END
  45.  
  46.  
  47.  
  48.  

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