Esope source files

   1 : C RESI      SOURCE    CHAT      06/08/24    22:04:33     5529           
   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 : -INC CCOPTIO                                                                    
  27 : C                                                                               
  28 : C     LECTURE DU MODELE                                                         
  29 : C                                                                               
  30 :       IPMODL=0
  31 :       IPCHE1=0                                                                  
  32 :       IPRESI=0
  33 : C                                                                               
  34 :       MOTERR(1:8)=' MODELE '
  34 :       CALL MESLIR(-137)
  34 :       CALL LIROBJ('MMODEL',IPMODL,1,IRT1)                                       
  35 :       IF(IERR.NE.0) RETURN
  36 : C_______________________________________________________________________        
  37 : C     LECTURE DU 1 IER MCHAML                                                
  38 : C                                                                               
  39 :       MOTERR(1:8)=' MCHAML '
  39 :       CALL MESLIR(-137)
  39 :       CALL LIROBJ('MCHAML',IPCHE1,1,IRT2)                                    
  40 :       IF(IERR.NE.0) RETURN
  41 : C                                                                               
  42 : C     CALCUL DE LA MATRICE DE RESISTANCE   
  42 :       CALL RESI1(IPMODL,IPCHE1,IPRESI)                             
  43 :       IF(IERR.NE.0) RETURN
  44 : C                                                                               
  45 : C     ECRITURE DU RESULTAT                                                      
  45 :       CALL ECROBJ('RIGIDITE',IPRESI)                                      
  46 : C                                                                               
  47 :       RETURN                                                                    
  48 :       END                                                                       
  49 :  
  50 :  
  51 :