Télécharger ameli1.eso

Retour à la liste

Numérotation des lignes :

  1. C AMELI1 SOURCE CHAT 05/01/12 21:21:11 5004
  2. SUBROUTINE AMELI1 (MELEME,SAUV,NGRAND,NDEB,NUMNP,NUMELG)
  3. ************************************************************************
  4. *
  5. * A M E L I 1
  6. * -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. * AMELIORATION DE LA QUALITE DES ELEMENTS DANS L'ESPACE GEOMETRIQUE.
  12. *
  13. * MODULES UTILISES:
  14. * -----------------
  15. *
  16. IMPLICIT INTEGER(I-N)
  17. -INC CCOPTIO
  18. -INC SMCOORD
  19. -INC SMELEME
  20. *
  21. * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN)
  22. * -----------
  23. *
  24. * MELEME E/S POINTEUR SUR LA SURFACE MAILLEE EN ELEMENTS
  25. * LINEAIRES, DE FACON NON CONVENTIONNELLE:
  26. * - MELANGE DES "QUA4" ET "TRI3" DANS LE MEME TABLEAU,
  27. * - TABLEAU SURDIMENSIONNE,
  28. * - NUMEROTATION DES NOEUDS LOCALE A L'OPERATEUR.
  29. * SAUV (E) SEGMENT CONTENANT LE TABLEAU "NSA" DE CORRESPONDANCE
  30. * ENTRE NUMEROS LOCAUX ET GLOBAUX SUR LE CONTOUR.
  31. * (S) TABLEAU "NSA" ETENDU AUX NOEUDS INTERIEURS CREES.
  32. * NGRAND (E) PLUS GRAND NUMERO DE NOEUD CREE.
  33. * (NUMEROTATION GLOBALE)
  34. * NDEB (E) NUMERO LOCAL DU 1ER NOEUD INTERIEUR DE LA SURFACE.
  35. * NUMNP (E) NOMBRE DE NOEUDS DU MAILLAGE.
  36. * NUMELG E/S NOMBRE D'ELEMENTS DU MAILLAGE.
  37. * +IDIM (E) VOIR LE COMMUN "CCOPTIO".
  38. * +MCOORD (E)
  39. *
  40. SEGMENT/SAUV/(NSA(LSA))
  41. *
  42. * VARIABLES:
  43. * ----------
  44. *
  45. SEGMENT,MVOIS
  46. INTEGER NBVOIS(NUMNP),KON(MAXVOI,NUMNP)
  47. ENDSEGMENT
  48. *
  49. * AUTEUR, DATE DE CREATION:
  50. * -------------------------
  51. *
  52. * PASCAL MANIGOT 9 OCTOBRE 1990
  53. *
  54. * LANGAGE:
  55. * --------
  56. *
  57. * ESOPE + FORTRAN77
  58. *
  59. ************************************************************************
  60. *
  61. SEGACT,MCOORD
  62. SEGACT,MELEME
  63. NBNN = NUM(/1)
  64. *
  65. * IL FAUT ENREGISTRER LES VERITABLES NUMEROS DES NOEUDS INTERIEURS,
  66. * PAR COMPLETION DU TABLEAU "NSA":
  67. SEGACT,SAUV
  68. LSA = NUMNP
  69. SEGADJ,SAUV
  70. IDEC = NGRAND - NDEB + 1
  71. DO 50 IANC=NDEB,NUMNP
  72. NSA(IANC) = IANC + IDEC
  73. 50 CONTINUE
  74. * END DO
  75. *
  76. MAXVOI = 12
  77. * (ON EST OBLIGE DE PRENDRE BEAUCOUP TOUT DE SUITE CAR ON N'EST PAS
  78. * A L'ABRI D'UNE AUGMENTATION DU NOMBRE DE VOISINS DANS L'OPERATION
  79. * D'AMELIORATION DE MAILLAGE)
  80. SEGINI,MVOIS
  81. CALL AMELI2 (NUM,NSA,NBNN,NUMELG,NUMNP,NBVOIS,MAXVOI,KON)
  82. *
  83. SEGSUP,MVOIS
  84. * IL N'EST PROBABLEMENT PAS PRUDENT DE DESACTIVER "MELEME" ET "SAUV"
  85. *
  86. END
  87.  
  88.  

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