Esope source files

   1 : C SENSI0    SOURCE    CHAT      05/01/13    03:13:37     5004           
   2 : *                                           
   3 : *     OPERATEUR SENS
   4 : *
   5 : *     a)  sensibilite   
   6 : *                                                                               
   7 : *        SOUSTRACTION DE 2 CHPS/ELMTS + MOYENNE 
   8 : *        LECTURE DES CHAMPS DERIVEES
   9 : *        EXTRAIT DE OPERAD.ESO
  10 : *                                             
  11 : *        LELEU DIDIER HAZE FREDERIC
  12 : *        03/03/93
  13 : *
  14 : *     b)  sens ( trigonometrique) 
  15 : *
  16 : *
  17 : *                      
  18 :       SUBROUTINE SENSI0                     
  19 : *              
  20 :       IMPLICIT INTEGER(I-N)
  21 :       IMPLICIT REAL*8 (A-H,O-Z)                                                                 
  22 : -INC CCOPTIO                                        
  23 :       CHARACTER*8 CHA1
  24 : *  
  25 : *   
  26 : *           
  26 :       CALL QUETYP(CHA1,1,IRETOU)
  27 :       IF ( CHA1 .EQ. 'MCHAML' ) THEN   
  28 : c       cas ou sens signifie senibilite      
  29 : c                                                           
  29 :         CALL LIROBJ('MCHAML',IPCHE1,1,IRETOU)                        
  29 :         CALL LIROBJ('MCHAML',IPCHE2,1,IRETOU)                                                          
  29 :         CALL SENSI1(IPCHE1,IPCHE2,MTAB1)                   
  30 :         IF (MTAB1.EQ.0) RETURN                                                                   
  30 :         CALL ECROBJ('TABLE',MTAB1)                       
  31 :         RETURN
  32 :       ELSE IF (CHA1 .EQ. 'TABLE' ) THEN
  33 : c        sens signifie sens
  34 : c
  34 :          CALL SENS1
  35 :          RETURN
  36 :       ENDIF                                               
  37 :       END                                                                       
  38 :