Télécharger resi3.eso

Retour à la liste

Numérotation des lignes :

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

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