C SIGTAB    SOURCE    CB215821  20/11/25    13:39:51     10792          

      SUBROUTINE SIGTAB(TYPE,IBAS,IPCHE1,IPCHE2,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                                      *
*       IPODL  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 PPARAM
-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
         CALL ACTOBJ('CHPOINT ',IPOI1,1)
         MCHPOI = IPOI1
         CTEXT = MOCHDE
         inoer=0
         CALL SIGMAP(0,IPMODL,IPOI1,IPCHE1,IPCHE2,IMAT,IPOI8,IRET,inoer)
         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
      END