Télécharger la plaquette Cast3M


fr en

Télécharger nurenu.eso

Retour à la liste

Numérotation des lignes : 

nurenu

  1. C NURENU    SOURCE    CHAT      06/03/29    21:28:46     5360
  2. C
  3.       SUBROUTINE NURENU(IDE,ITRNOE,NBNMAX,ITRTRI,NBCMAX,NOETRI,
  4.      >                   NOEMAX,NBE,NUM,ITRAMA,iarr)
  5. C     *****************************************************************
  6. C     OBJET : RENUMEROTE LES ELEMENTS D'UN MAILLAGE
  7. C     EN ENTREE:
  8. C      IDE    :  (1..3) DIMENSION DES ELEMENTS
  9. C      ITRNOE:  LES NOEUDS DES ELEMENTS
  10. C      NBNMAX :  (2..8) NOMBRE DE NOEUDS MAXIMUM DES ELEMENTS
  11. C      ITRTRI:  LES VOISINS DES ELEMENTS
  12. C      NBCMAX :  (2..6) NOMBRE DE COTES MAXIMUM DES ELEMENTS
  13. C      NOEMAX: SI NOEMAX = 0 ALORS NOETRI N'EST PAS CONSIDERE
  14. C      NBE    :  NOMBRE D'ELEMENTS DU MAILLAGE
  15. C       NUM    : NUM(I) EST NUMERO DE ELEMENTS QUI DOIT ETRE MIS EN I
  16. C       ITRAMA        : "    "   "    "  DE TAILLE = NBE
  17. C     EN SORTIE:
  18. C       ITRNOE: MIS A JOUR
  19. C       ITRTRI: MIS A JOUR
  20. C       NOETRI : MIS A JOUR
  21. C     CONDITION D'APPLICATION : TOUT MAILLAGE
  22. C     REMARQUE : COPIE DE IORDRE DE S.M. TIJANI
  23. C     *****************************************************************
  24.       IMPLICIT INTEGER(I-N)
  25.       INTEGER    IDE,ITRNOE(*),NBNMAX,ITRTRI(*),NBCMAX,NOETRI(*),NBE
  26.       INTEGER    NOEMAX, NUM(*), ITRAMA(*), iarr
  27. C
  28. C     ---- COPIE DE IORDRE (S.M.TIJANI )----
  29. C
  30.       INTEGER I,LI,MI
  31. C
  32. C     ON N'A RIEN A FAIRE
  33. C
  34.       iarr = 0
  35.       IF(NBE.LE.1) GOTO 9999
  36. C
  37. C     PERMUTATION M INVERSE DE L :
  38. C
  39.       DO 10 I=1,NBE
  40.         ITRAMA(NUM(I))=I
  41.    10 CONTINUE
  42. C
  43. C     IMPOSER A NARG L'ORDRE DEFINI PAR L.
  44. C     LES TABLEAUX L ET M SONT CASSES.
  45. C
  46.       DO 20 I=1,NBE
  47.         LI=NUM(I)
  48.         MI=ITRAMA(I)
  49.         CALL NUPERM(IDE,ITRNOE,NBNMAX,ITRTRI,NBCMAX,NOETRI,
  50.      >                NOEMAX,NBE,I,LI,iarr)
  51.         IF( iarr .LT. 0 )GO TO 9999
  52.         NUM(MI)=LI
  53.         ITRAMA(LI)=MI
  54.    20 CONTINUE
  55. C
  56. C     RESTAURATION DES TABLEAUX L (INITIAL) ET M (SON INVERSE).
  57. C
  58.       DO 30 I=1,NBE
  59.         LI=NUM(I)
  60.         MI=ITRAMA(I)
  61.         NUM(MI)=I
  62.         ITRAMA(LI)=I
  63.    30 CONTINUE
  64.  9999 END
  65.  
  66.  
  67.  
  68.  

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