Télécharger mutu3.eso

Retour à la liste

Numérotation des lignes :

  1. C MUTU3 SOURCE CHAT 11/03/16 21:28:33 6902
  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. -INC CCOPTIO
  20. -INC SMMODEL
  21. *
  22. * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN)
  23. * -----------
  24. *
  25. * NEF (E) NUMERO DE L'ELEMENT FINI DANS NOMTP (VOIR CCHAMP)
  26. * IMAIL (E) NUMERO DU MAILLAGE ELEMENTAIRE CONSIDERE,DANS
  27. * L'OBJET MODELE
  28. * IPMODE (E) POINTEUR SUR UN SEGMENT IMODEL
  29. * DE CARACTERISTIQUES
  30. * IPCHEL (E) POINTEUR SUR LE CHAMELEM DE CARACTERISTIQUES
  31. * IPMAIL (E) POINTEUR SUR LE MAILLAGE SUPPORT DES COURANTS DE FOUCAULT
  32. * IPRIGI (E/S) POINTEUR SUR L'OBJET RESULTAT,DE TYPE RIGIDITE
  33. *
  34. * AUTEUR,DATE DE CREATION:
  35. * ------------------------
  36. *
  37. * YANN STEPHAN, LE 28 FEVRIER 1997 (COPIE DE RESI3).
  38. *
  39. * LANGAGE:
  40. * --------
  41. *
  42. * FORTRAN77+ESOPE
  43. *
  44. ************************************************************************
  45. *
  46. IMODEL=IPMODE
  47. SEGACT,IMODEL
  48. NF1=FORMOD(/2)
  49. CALL PLACE(FORMOD,NF1,IF1,'MAGNETODYNAMIQUE')
  50. IF (IF1.EQ.0) THEN
  51. CALL ERREUR(251)
  52. RETURN
  53. ENDIF
  54. *
  55. * CAS DE LA FORMULATION MAGNETODYNAMIQUE
  56. *
  57. IF (NEF.EQ.128) THEN
  58. *
  59. * CAS DE L'ELEMENT ROT3
  60. *
  61. CALL ROT3M(NEF,IMAIL,IPMODE,IPCHEL,IPMAIL,IXMATR,ICPR,ICPR2)
  62. IF(IERR.NE.0) RETURN
  63. *
  64. ELSE
  65. *
  66. * OPTION INDISPONIBLE
  67. *
  68. CALL ERREUR(19)
  69. ENDIF
  70. RETURN
  71. END
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  

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