C SENSI0    SOURCE    CHAT      05/01/13    03:13:37     5004
*
*     OPERATEUR SENS
*
*     a)  sensibilite
*
*        SOUSTRACTION DE 2 CHPS/ELMTS + MOYENNE
*        LECTURE DES CHAMPS DERIVEES
*        EXTRAIT DE OPERAD.ESO
*
*        LELEU DIDIER HAZE FREDERIC
*        03/03/93
*
*     b)  sens ( trigonometrique)
*
*
*
      SUBROUTINE SENSI0
*
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)

-INC PPARAM
-INC CCOPTIO
      CHARACTER*8 CHA1
*
*
*
      CALL QUETYP(CHA1,1,IRETOU)
      IF ( CHA1 .EQ. 'MCHAML' ) THEN
c       cas ou sens signifie senibilite
c
        CALL LIROBJ('MCHAML',IPCHE1,1,IRETOU)
        CALL LIROBJ('MCHAML',IPCHE2,1,IRETOU)
        CALL SENSI1(IPCHE1,IPCHE2,MTAB1)
        IF (MTAB1.EQ.0) RETURN
        CALL ECROBJ('TABLE',MTAB1)
        RETURN
      ELSE IF (CHA1 .EQ. 'TABLE' ) THEN
c        sens signifie sens
c
         CALL SENS1
         RETURN
      ENDIF
      END