Esope source files

   1 : C INVARI    SOURCE    FANDEUR   10/12/14    21:17:08     6812           
   2 : *                                                                               
   3 :       SUBROUTINE INVARI                                                         
   4 : *                                                                               
   5 : *---------------------------------------------------------------------          
   6 : *                                                                               
   7 : *         CALCUL DES 3 INVARIANTS D'UN TENSEUR D'ORDRE 2                        
   8 : *                                                                               
   9 : *   SYNTAXE :                                                                   
  10 : *   ---------                                                                   
  11 : *                                                                               
  12 : *     CH1 CH2 CH3  = INVA  MOD CHEL (CAR) ( MOT );                              
  13 : *                                                                               
  14 : *           MOD   MODELE DE CALCUL, TYPE MMODEL                                 
  15 : *           CHEL  OBJET DE TYPE MCHAML DE SOUS TYPE CONTRAINTES                 
  16 : *                 OU DEFORMATIONS                                               
  17 : *           CAR   OBJET DE TYPE MCHAML DE SOUS TYPE CARACTERISTIQUES            
  18 : *           MOT   MOT QUI INDIQUE POUR LES COQUES OU ON CALCULE LES             
  19 : *                 CONTRAINTES                                                   
  20 : *           CH1   OBJET DE TYPE MCHAML DE SOUS TYPE STRESSES                    
  21 : *           CH2   OBJET DE TYPE MCHAML DE SOUS TYPE STRESSES                    
  22 : *           CH3   OBJET DE TYPE MCHAML DE SOUS TYPE STRESSES                    
  23 : *                                                                               
  24 : *     PASSAGE AUX NOUVEAU CHAMELEM PAR JM CAMPENON LE 12/90                     
  25 : *                                                                               
  26 : *--------------------------------------------------------------------           
  27 : *                                                                               
  28 :       IMPLICIT INTEGER(I-N)
  29 :       IMPLICIT REAL*8(A-H,O-Z)
  30 : 
  31 : -INC CCOPTIO                                                                    
  32 : 
  33 :       CHARACTER*4 MOCLE(3)                                                      
  34 :       DATA MOCLE/'SUPE','MOYE','INFE'/                                          
  35 : *                                                                               
  36 :       IPCHE1=0                                                                  
  37 :       IPCHE2=0                                                                  
  38 : *                                                                               
  38 :       CALL LIROBJ('MMODEL',IPMODL,1,IRET)                                       
  39 :       IF(IERR.NE.0) RETURN                                                      
  40 : *                                                                               
  40 :       CALL LIROBJ('MCHAML',IPCHE1,1,IRET)                                       
  41 :       IF(IERR.NE.0) RETURN                                                      
  42 : *                                                                               
  42 :       CALL LIROBJ('MCHAML',IPCHE2,0,IRET)                                       
  43 :       IF (IERR.NE.0) RETURN                                                     
  44 : *                                                                               
  45 : *     LECTURE D'UN MOT SI NECESSAIRE                                            
  46 : *                                                                               
  47 :       IMIL=0                                                                    
  47 :       CALL LIRMOT(MOCLE,3,IMOT,0)                                               
  48 :       IF (IMOT.EQ.1) IMIL=1                                                     
  49 :       IF (IMOT.EQ.3) IMIL=-1                                                    
  50 : *                                                                               
  50 :       CALL INVACA(IPMODL,IPCHE1,IPCHS1,IPCHS2,IPCHS3,IPCHE2,IMIL,IRET)          
  51 : *                                                                               
  52 :       IF (IRET.EQ.0) RETURN                                                     
  53 : *                                                                               
  53 :       CALL ECROBJ('MCHAML',IPCHS3)                                              
  53 :       CALL ECROBJ('MCHAML',IPCHS2)                                              
  53 :       CALL ECROBJ('MCHAML',IPCHS1)                                              
  54 : *                                                                               
  55 :       RETURN                                                                    
  56 :       END                                                                       
  57 : 
  58 :