Esope source files

   1 : C KSIGMA    SOURCE    FANDEUR   10/12/14    21:17:23     6812           
   2 :       SUBROUTINE KSIGMA                                                         
   3 : C_______________________________________________________________________        
   4 : C                                                                               
   5 : C     OPERATEUR KSIGMA                                                          
   6 : C                                                                               
   7 : C     Construction de la matrice de raideur geometrique @ partir d'un           
   8 : C     MCHAML de contraintes                                                     
   9 : C                                                                               
  10 : C     Nouvelle syntaxe:                                                         
  11 : C     _________________                                                         
  12 : C                                                                               
  13 : C       RIG1 =KSIG MOD1 SIG1 ( CAR1 ) 'FLAM';                                   
  14 : C                                                                               
  15 : C       MOD1=OBJET DE TYPE MMODEL
  16 : C       SIG1=MCHAML de CONTRAINTES                                              
  17 : C       CAR1=MCHAML de CARACTERISTIQUES                                         
  18 : C                                                                               
  19 : C       RIG1=Matrice KSIGMA de sous type RIGIDITE                               
  20 : C                                                                               
  21 : C       Passage aux nouveaux MCHAMLs par I.Monnier le 14.06.90                  
  22 : C                                                                               
  23 : C_______________________________________________________________________        
  24 : C                                                                               
  25 :       IMPLICIT INTEGER(I-N)
  26 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
  27 : C                                                                               
  28 : -INC CCOPTIO                                                                    
  29 : C                                                                               
  30 :       IPCHA1=0                                                                  
  31 :       IPCHA2=0                                                                  
  32 :       IPCHE1=0                                                                  
  33 :       IPCHE2=0                                                                  
  34 :       IFLAM=0                                                                   
  35 : C                                                                               
  35 :       CALL LIRMOT('FLAM',1,IFLAM,0)                                             
  36 :       IF (IERR.NE.0) RETURN                                                     
  37 : C                                                                               
  37 :       CALL LIROBJ('MMODEL',IPMODL,1,IRT1)                                       
  38 :       IF (IERR.NE.0) RETURN                                                     
  39 : C                                                                               
  39 :         CALL LIROBJ('MCHAML',IPCHA1,1,IRT1)                                    
  40 :         IF (IERR.NE.0) RETURN                                                   
  41 : C                                                                               
  41 :         CALL LIROBJ('MCHAML',IPCHA2,0,IRT1)                                     
  42 :         IF (IERR.NE.0) RETURN                                                   
  43 : C                                                                               
  43 :         CALL RNGCHA(IPCHA1,IPCHA2,'CONTRAINTES',                                
  44 :      1              'CARACTERISTIQUES',IPCHE1,IPCHE2)                           
  45 : C                                                                               
  46 :         IF(IPCHE1.EQ.0)THEN
  47 :           MOTERR(1:16)='CONTRAINTES'
  47 :           CALL ERREUR(565)
  48 :           RETURN                                                           
  49 :         ENDIF                                                               
  50 : C                                                                               
  50 :       CALL KSIGMP(IPMODL,IPCHE1,IPCHE2,IFLAM,IPRIGG)                            
  51 : C                                                                               
  51 :       IF (IERR.EQ.0.AND.IPRIGG.NE.0) CALL ECROBJ('RIGIDITE',IPRIGG)             
  52 : C                                                                               
  53 :       RETURN                                                                    
  54 :       END                                                                       
  55 : 
  56 :