Télécharger la plaquette Cast3M


fr en

Télécharger resi.eso

Retour à la liste

Numérotation des lignes : 

resi

  1. C RESI      SOURCE    CB215821  23/01/25    21:15:32     11573          
  2.       SUBROUTINE RESI
  3. *
  4. *_______________________________________________________________________
  5. *
  6. *            OPERATEUR RESI
  7. *
  8. *  ELEMENTS FINIS :
  9. *  ==============
  10. *
  11. *  SYNTAXE   :
  12. *  -----------
  13. *
  14. *           RIG1=RESI  MOD1  | CAR1
  15. *
  16. *                  MOD1 MODELE DE CALCUL, TYPE MMODEL
  17. *                  CAR1 CHAMP PAR ELEMENT DE CARACTERISTIQUES
  18. *                       GEOMETRIQUES ET MATERIELLES, TYPE MCHAML
  19. *
  20. *-----------------------------------------------------------------------
  21. *    Y. STEPHAN   (JANVIER 97)
  22. *_______________________________________________________________________
  23.       IMPLICIT INTEGER(I-N)
  24.       IMPLICIT REAL*8(A-H,O-Z)
  25. *
  26.  
  27. -INC SMCOORD
  28. -INC PPARAM
  29. -INC CCOPTIO
  30. C
  31. C     LECTURE DU MODELE
  32. C
  33.       IPMODL=0
  34.       IPCHE1=0
  35.       IPRESI=0
  36. C
  37.       MOTERR(1:8)=' MODELE '
  38.       CALL MESLIR(-137)
  39.       CALL LIROBJ('MMODEL  ',IPMODL,1,IRT1)
  40.       CALL ACTOBJ('MMODEL  ',IPMODL,1)
  41.       IF(IERR.NE.0) RETURN
  42. C_______________________________________________________________________
  43. C     LECTURE DU 1 IER MCHAML
  44. C
  45.       MOTERR(1:8)=' MCHAML '
  46.       CALL MESLIR(-137)
  47.       CALL LIROBJ('MCHAML',IPIN,1,IRT2)
  48.       CALL ACTOBJ('MCHAML',IPIN,1)
  49.       IF(IERR.NE.0) RETURN
  50.       CALL REDUAF(IPIN,IPMODL,IPCHE1,0,IR,KER)
  51.       IF(IR   .NE. 1) CALL ERREUR(KER)
  52.       IF(IERR .NE. 0) RETURN
  53. C
  54. C     CALCUL DE LA MATRICE DE RESISTANCE
  55.       SEGACT,MCOORD
  56.       CALL RESI1(IPMODL,IPCHE1,IPRESI)
  57.       SEGDES,MCOORD
  58.       IF(IERR.NE.0) RETURN
  59. C
  60. C     ECRITURE DU RESULTAT
  61.       CALL ACTOBJ('RIGIDITE',IPRESI,0)
  62.       CALL ECROBJ('RIGIDITE',IPRESI)
  63. C
  64.       RETURN
  65.       END
  66.  
  67.  
  68.  
  69.  
  70.  

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