Télécharger resi.eso

Retour à la liste

Numérotation des lignes :

  1. C RESI SOURCE CB215821 16/12/05 22:04:32 9237
  2. SUBROUTINE RESI
  3. *
  4. *_______________________________________________________________________
  5. *
  6. * OPERATEUR RESI
  7. *
  8. * ELEMENTS FINIS :
  9. * ==============
  10. *
  11. * SYNTAXE :
  12. * -----------
  13. *
  14. * RIG1=RESI MOD1 | CAR1
  15. *
  16. * MOD1 MODELE DE CALCUL, TYPE MMODEL
  17. * CAR1 CHAMP PAR ELEMENT DE CARACTERISTIQUES
  18. * GEOMETRIQUES ET MATERIELLES, TYPE MCHAML
  19. *
  20. *-----------------------------------------------------------------------
  21. * Y. STEPHAN (JANVIER 97)
  22. *_______________________________________________________________________
  23. IMPLICIT INTEGER(I-N)
  24. IMPLICIT REAL*8(A-H,O-Z)
  25. *
  26. -INC CCOPTIO
  27. C
  28. C LECTURE DU MODELE
  29. C
  30. IPMODL=0
  31. IPCHE1=0
  32. IPRESI=0
  33. C
  34. MOTERR(1:8)=' MODELE '
  35. CALL MESLIR(-137)
  36. CALL LIROBJ('MMODEL',IPMODL,1,IRT1)
  37. IF(IERR.NE.0) RETURN
  38. C_______________________________________________________________________
  39. C LECTURE DU 1 IER MCHAML
  40. C
  41. MOTERR(1:8)=' MCHAML '
  42. CALL MESLIR(-137)
  43. CALL LIROBJ('MCHAML',IPIN,1,IRT2)
  44. IF(IERR.NE.0) RETURN
  45. CALL REDUAF(IPIN,IPMODL,IPCHE1,0,IR,KER)
  46. IF(IR .NE. 1) CALL ERREUR(KER)
  47. IF(IERR .NE. 0) RETURN
  48. C
  49. C CALCUL DE LA MATRICE DE RESISTANCE
  50. CALL RESI1(IPMODL,IPCHE1,IPRESI)
  51. IF(IERR.NE.0) RETURN
  52. C
  53. C ECRITURE DU RESULTAT
  54. CALL ECROBJ('RIGIDITE',IPRESI)
  55. C
  56. RETURN
  57. END
  58.  
  59.  
  60.  

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