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

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