C KSIGMA    SOURCE    FANDEUR   10/12/14    21:17:23     6812           
      SUBROUTINE KSIGMA                                                         
C_______________________________________________________________________        
C                                                                               
C     OPERATEUR KSIGMA                                                          
C                                                                               
C     Construction de la matrice de raideur geometrique @ partir d'un           
C     MCHAML de contraintes                                                     
C                                                                               
C     Nouvelle syntaxe:                                                         
C     _________________                                                         
C                                                                               
C       RIG1 =KSIG MOD1 SIG1 ( CAR1 ) 'FLAM';                                   
C                                                                               
C       MOD1=OBJET DE TYPE MMODEL
C       SIG1=MCHAML de CONTRAINTES                                              
C       CAR1=MCHAML de CARACTERISTIQUES                                         
C                                                                               
C       RIG1=Matrice KSIGMA de sous type RIGIDITE                               
C                                                                               
C       Passage aux nouveaux MCHAMLs par I.Monnier le 14.06.90                  
C                                                                               
C_______________________________________________________________________        
C                                                                               
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  
C                                                                               
-INC CCOPTIO                                                                    
C                                                                               
      IPCHA1=0                                                                  
      IPCHA2=0                                                                  
      IPCHE1=0                                                                  
      IPCHE2=0                                                                  
      IFLAM=0                                                                   
C                                                                               
      CALL LIRMOT('FLAM',1,IFLAM,0)                                             
      IF (IERR.NE.0) RETURN                                                     
C                                                                               
      CALL LIROBJ('MMODEL',IPMODL,1,IRT1)                                       
      IF (IERR.NE.0) RETURN                                                     
C                                                                               
        CALL LIROBJ('MCHAML',IPCHA1,1,IRT1)                                    
        IF (IERR.NE.0) RETURN                                                   
C                                                                               
        CALL LIROBJ('MCHAML',IPCHA2,0,IRT1)                                     
        IF (IERR.NE.0) RETURN                                                   
C                                                                               
        CALL RNGCHA(IPCHA1,IPCHA2,'CONTRAINTES',                                
     1              'CARACTERISTIQUES',IPCHE1,IPCHE2)                           
C                                                                               
        IF(IPCHE1.EQ.0)THEN
          MOTERR(1:16)='CONTRAINTES'
          CALL ERREUR(565)
          RETURN                                                           
        ENDIF                                                               
C                                                                               
      CALL KSIGMP(IPMODL,IPCHE1,IPCHE2,IFLAM,IPRIGG)                            
C                                                                               
      IF (IERR.EQ.0.AND.IPRIGG.NE.0) CALL ECROBJ('RIGIDITE',IPRIGG)             
C                                                                               
      RETURN                                                                    
      END