Télécharger manur1.eso

Retour à la liste

Numérotation des lignes :

  1. C MANUR1 SOURCE CHAT 05/01/13 01:30:00 5004
  2. SUBROUTINE MANUR1 (LETYPE,IPELEM,IINCO,IDUAL,MTEMP4,IPRIGI,IANTI)
  3. ************************************************************************
  4. *
  5. * M A N U R 1
  6. * -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. * CREATION D'UNE 'RIGIDITE' (VOIR "MANURI").
  12. *
  13. * FONCTION LOCALE: REPARTITION DE LA TACHE SELON LA FORME DU SUPPORT
  14. * GEOMETRIQUE DE LA 'RIGIDITE' A CREER.
  15. *
  16. * MODE D'APPEL:
  17. * -------------
  18. *
  19. * CALL MANUR1 (LETYPE,IPELEM,IINCO,IDUAL,MTEMP4,IPRIGI,IANTI)
  20. *
  21. * PARAMETRES: (E)=ENTREE (S)=SORTIE
  22. * -----------
  23. *
  24. * IPELEM ENTIER (E) POINTEUR SUR LE SUPPORT GEOMETRIQUE DE LA
  25. * 'RIGIDITE' A CREER (OBJET 'MAILLAGE').
  26. * IPRIGI ENTIER (S) POINTEUR SUR LA 'RIGIDITE' CREEE.
  27. * IANTI ENTIER (E) type de la matrice élémentaire
  28. * IANTI = 0 : matrice symétrique
  29. * IANTI = 1 : matrice antisymétrique
  30. * IANTI = 2 : matrice asymétrique
  31. *
  32. * LES AUTRES PARAMETRES SONT SIMPLEMENT TRANSMIS DU SOUS-PROGRAMME
  33. * APPELANT "MANUR1" A CEUX APPELES PAR "MANUR1".
  34. *
  35. * SOUS-PROGRAMMES APPELES:
  36. * ------------------------
  37. *
  38. * ERREUR, MANUR2.
  39. *
  40. * AUTEUR, DATE DE CREATION:
  41. * -------------------------
  42. *
  43. * PASCAL MANIGOT 19 FEVRIER 1985
  44. * Lionel VIVAN 12 juin 1991, ajout de IANTI
  45. *
  46. * LANGAGE:
  47. * --------
  48. *
  49. * ESOPE + FORTRAN77
  50. *
  51. ************************************************************************
  52. *
  53. IMPLICIT INTEGER(I-N)
  54. -INC SMELEME
  55. *
  56. CHARACTER*8 LETYPE
  57. *
  58. MELEME = IPELEM
  59. SEGACT,MELEME
  60. NBSOUS = LISOUS(/1)
  61. SEGDES,MELEME
  62. *
  63. IF (NBSOUS .EQ. 0) THEN
  64. *
  65. CALL MANUR2 (LETYPE,IPELEM,IINCO,IDUAL,MTEMP4,IPRIGI,IANTI)
  66. *
  67. ELSE
  68. *
  69. * RQ: POSSIBILITE D'INTRODUIRE ICI LA CREATION DE "RIGIDITE" POUR
  70. * UN OBJET "MAILLAGE" HETEROGENE.
  71. *
  72. NUMERR = 75
  73. CALL ERREUR (NUMERR)
  74. *
  75. END IF
  76. *
  77. END
  78.  
  79.  
  80.  

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