Télécharger la plaquette Cast3M


fr en

Télécharger mutu3.eso

Retour à la liste

Numérotation des lignes : 

mutu3

  1. C MUTU3     SOURCE    CB215821  24/04/12    21:16:48     11897          
  2.       SUBROUTINE MUTU3(NEF,IMAIL,IPMODE,IPCHEL,IPMAIL,IXMATR,
  3.      $  ICPR,ICPR2)
  4. ************************************************************************
  5. *
  6. *                             M U T U 3
  7. *                             ---------
  8. *
  9. * FONCTION:
  10. * ---------
  11. *     CALCUL DE LA MATRICE DE MUTUELLE, ON SE DIRIGE VERS LES
  12. *     SECTEURS SPECIFIQUES SUIVANT LA FORMULATION ET LE TYPE DES
  13. *     ELEMENTS FINIS
  14. *
  15. * MODULES UTILISES:
  16. * -----------------
  17. *
  18.       IMPLICIT INTEGER(I-N)
  19.  
  20. -INC PPARAM
  21. -INC CCOPTIO
  22. -INC SMMODEL
  23. *
  24. * PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)
  25. * -----------
  26. *
  27. *     NEF     (E)  NUMERO DE L'ELEMENT FINI DANS NOMTP (VOIR CCHAMP)
  28. *     IMAIL   (E)  NUMERO DU MAILLAGE ELEMENTAIRE CONSIDERE,DANS
  29. *                  L'OBJET MODELE
  30. *     IPMODE  (E)  POINTEUR SUR UN SEGMENT IMODEL
  31. *                  DE CARACTERISTIQUES
  32. *     IPCHEL  (E)  POINTEUR SUR LE CHAMELEM DE CARACTERISTIQUES
  33. *     IPMAIL  (E)  POINTEUR SUR LE MAILLAGE SUPPORT DES COURANTS DE FOUCAULT
  34. *     IPRIGI (E/S) POINTEUR SUR L'OBJET RESULTAT,DE TYPE RIGIDITE
  35. *
  36. * AUTEUR,DATE DE CREATION:
  37. * ------------------------
  38. *
  39. *     YANN STEPHAN, LE 28 FEVRIER 1997 (COPIE DE RESI3).
  40. *
  41. * LANGAGE:
  42. * --------
  43. *
  44. *             FORTRAN77+ESOPE
  45. *
  46. ************************************************************************
  47. *
  48.       IMODEL=IPMODE
  49.       SEGACT,IMODEL
  50.       NF1=FORMOD(/2)
  51.       CALL PLACE(FORMOD,NF1,IF1,'MAGNETODYNAMIQUE')
  52.       IF (IF1.EQ.0) THEN
  53.          CALL ERREUR(251)
  54.          RETURN
  55.       ENDIF
  56. *
  57. *     CAS DE LA FORMULATION MAGNETODYNAMIQUE
  58. *
  59.       IF (NEF.EQ.128) THEN
  60. *
  61. *       CAS DE L'ELEMENT ROT3
  62. *
  63.         CALL ROT3M(NEF,IMAIL,IPMODE,IPCHEL,IPMAIL,IXMATR,ICPR,ICPR2)
  64.         IF(IERR.NE.0) RETURN
  65. *
  66.       ELSE
  67. *
  68. *       OPTION INDISPONIBLE
  69. *
  70.         CALL ERREUR(19)
  71.       ENDIF
  72.       RETURN
  73.       END
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  

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