Télécharger mutu.eso

Retour à la liste

Numérotation des lignes :

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

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