C SIGTAB    SOURCE    FANDEUR   10/12/14    21:19:35     6812           
C*AV    SUBROUTINE SIGTAB(TYPE,IBAS,IPCHE1,IPCHE2,IMAT,IPMODL)                    
      SUBROUTINE SIGTAB(TYPE,IBAS,IPCHA1,IPCHE1,IPCHE2,ICONV,                   
     1                  IMAT,IPMODL)                                            

      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  

*_____________________________________________________________________          
*                                                                    *          
*     Calcule les contraintes.                                       *          
*                                                                    *          
*     Entr{es:                                                       *          
*     ________                                                       *          
*                                                                    *          
*       TYPE   indique le type de la table                           *          
*       IBAS   table repr{sentant une base modale,ou les pseudo_modes*          
*       IPCHE1 pointeur sur le MCHAML de CARACTERISTIQUES            *          
*       IPCHE2 pointeur sur le MCHAML de HOOKE                       *          
*       IMAT   flag de mar{riau                                      *          
*       IMAT   Pointeur sur un MMODEL                                *          
*                                                                    *          
*     Sorties:                                                       *          
*     ________                                                       *          
*                                                                    *          
*       IBAS   table repr{sentant une base modale,ou les pseudo_modes*          
*                                                                    *          
*     Auteur, date de cr{ation:                                      *          
*                                                                    *          
*     Lionel VIVAN, le 25 avril 1990.                                *          
*                                                                    *          
*--------------------------------------------------------------------*          
*                                                                               
-INC CCOPTIO                                                                    
-INC SMCHPOI                                                                    
*                                                                               
      LOGICAL L0,L1                                                             
      CHARACTER*4 TYPE                                                          
      CHARACTER*8 TYPRET,CHARRE                                                 
      CHARACTER*72 CTEXT                                                        
*                                                                               
      IMODE = 0                                                                 
 10   CONTINUE                                                                  
      IMODE = IMODE + 1                                                         
      TYPRET = ' '                                                              
      CALL ACCTAB(IBAS,'ENTIER',IMODE,X0,' ',L0,IP0,                            
     &                   TYPRET,I1,X1,CHARRE,L1,ITBMOD)                         
      IF (ITBMOD.NE.0 .AND. TYPRET.EQ.'TABLE   ') THEN                          
         IF (TYPE.EQ.'MODE') THEN                                               
            CALL ACCTAB(ITBMOD,'MOT',I0,X0,'DEFORMEE_MODALE',L0,IP0,            
     &                     'CHPOINT',I1,X1,' ',L1,ICDM)                         
         ELSE IF (TYPE.EQ.'PSMO') THEN                                          
            CALL ACCTAB(ITBMOD,'MOT',I0,X0,'DEPLACEMENT',L0,IP0,                
     &                     'CHPOINT',I1,X1,' ',L1,ICDM)                         
         ELSE                                                                   
           RETURN                                                               
         ENDIF                                                                  
         IPOI1 = ICDM                                                           
         MCHPOI = IPOI1                                                         
         SEGACT MCHPOI                                                          
         CTEXT = MOCHDE                                                         
         SEGDES MCHPOI                                                    
C*AV     CALL SIGMAP(0,IPMODL,IPOI1,IPCHE1,IPCHE2,IMAT,IPOI8,IRET)        
         CALL SIGMAP(0,IPMODL,IPOI1,IPCHE1,IPCHE2,ICONV,IMAT,IPOI8,IRET)        
         IF (IRET.NE.0) THEN                                                    
              IF (TYPE.EQ.'MODE') THEN                                          
                 CALL ECCTAB(ITBMOD,'MOT',I0,X0,'CONTRAINTE_MODALE',L0,         
     &                       IP0,'MCHAML',I1,X1,' ',L1,IPOI8)                   
              ELSE IF (TYPE.EQ.'PSMO') THEN                                     
                 CALL ECCTAB(ITBMOD,'MOT',I0,X0,'CONTRAINTE',L0,IP0,            
     &                       'MCHAML',I1,X1,' ',L1,IPOI8)                       
              ELSE                                                              
                RETURN                                                          
              ENDIF                                                             
         ENDIF                                                                  
         GOTO 10                                                                
      ENDIF                                                                     
*                                                                               
      RETURN
      END