Télécharger la plaquette Cast3M


fr en

Télécharger resi3.eso

Retour à la liste

Numérotation des lignes : 

resi3

  1. C RESI3     SOURCE    CB215821  24/04/12    21:17:08     11897          
  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.  
  19. -INC PPARAM
  20. -INC CCOPTIO
  21. -INC SMMODEL
  22. *
  23. * PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)
  24. * -----------
  25. *
  26. *     NEF     (E)  NUMERO DE L'ELEMENT FINI DANS NOMTP (VOIR CCHAMP)
  27. *     IMAIL   (E)  NUMERO DU MAILLAGE ELEMENTAIRE CONSIDERE,DANS
  28. *                  L'OBJET MODELE
  29. *     IPMODE  (E)  POINTEUR SUR UN SEGMENT IMODEL
  30. *                  DE CARACTERISTIQUES
  31. *     IPCHEL  (E)  POINTEUR SUR LE CHAMELEM DE CARACTERISTIQUES
  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 JANVIER 1997 (COPIE DE TCOND3).
  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 ROT3R(NEF,IMAIL,IPMODE,IPCHEL,IPRIGI)
  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