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

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