Télécharger la plaquette Cast3M


fr en

Télécharger manur1.eso

Retour à la liste

Numérotation des lignes : 

manur1

  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