Télécharger nurenu.eso

Retour à la liste

Numérotation des lignes :

  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