Télécharger la plaquette Cast3M


fr en

Télécharger mutu.eso

Retour à la liste

Numérotation des lignes : 

mutu

  1. C MUTU      SOURCE    CB215821  18/09/21    21:16:16     9930           
  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 PPARAM
  28. -INC CCOPTIO
  29. -INC SMRIGID
  30. C
  31. C     LECTURE DU MODELE
  32. C
  33.       IPMODL=0
  34.       IPCHEL=0
  35.       IPGEOM=0
  36.       IPMUTU=0
  37. C
  38.       MOTERR(1:8)=' MODELE '
  39.       CALL MESLIR(-137)
  40.       CALL LIROBJ('MMODEL',IPMODL,1,IRT1)
  41.       IF(IERR.NE.0) RETURN
  42.       CALL ACTOBJ('MMODEL  ',IPMODL,1)
  43. C_______________________________________________________________________
  44. C     LECTURE DU 1 IER MCHAML
  45. C
  46.       MOTERR(1:8)=' MCHAML '
  47.       CALL MESLIR(-137)
  48.       CALL LIROBJ('MCHAML',IPIN,1,IRT2)
  49.       IF(IERR.NE.0) RETURN
  50.       CALL ACTOBJ('MCHAML  ',IPIN,1)
  51.       CALL REDUAF(IPIN,IPMODL,IPCHEL,0,IR,KER)
  52.       IF(IR   .NE. 1) CALL ERREUR(KER)
  53.       IF(IERR .NE. 0) RETURN
  54. C
  55. C_______________________________________________________________________
  56. C     LECTURE DU MAILLAGE
  57. C
  58.       MOTERR(1:8)=' MAILLAGE '
  59.       CALL MESLIR(-137)
  60.       IPGEOM=0
  61.       CALL LIROBJ('MAILLAGE',IPGEOM,0,IRT3)
  62.       IF(IERR.NE.0) RETURN
  63. C
  64. C     CALCUL DE LA MATRICE DE MUTUELLE
  65.       CALL MUTU1(IPMODL,IPCHEL,IPGEOM,IPMUTU)
  66.       IF(IERR.NE.0) RETURN
  67. C
  68. C     ECRITURE DU RESULTAT
  69.       CALL ECROBJ('RIGIDITE',IPMUTU)
  70. C
  71.       RETURN
  72.       END
  73.  
  74.  
  75.  
  76.  

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