Esope source files

   1 : C OPEREX    SOURCE    BP208322  12/07/10    21:15:21     7432           
   2 : C   DONNE L'EXPONENTIELLE D'UN NOMBRE                                           
   3 : C                                                                               
   4 :       SUBROUTINE OPEREX                                                         
   5 : C                                                                               
   6 :       IMPLICIT INTEGER(I-N)
   7 :       IMPLICIT REAL*8(A-H,O-Z)
   8 : C                                                                               
   9 : -INC CCOPTIO                                                                    
  10 : C                                                                               
  11 : C     CHPOINT                                                                   
  12 : C                                                                               
  12 :       CALL LIROBJ('CHPOINT ',IPO1,0,IRETOU)                                     
  13 :       IF (IRETOU.EQ.0) GOTO 10                                                  
  13 :       CALL OPCHPO(IPO1,7,IPO2)                                                  
  13 :       CALL ECROBJ('CHPOINT ',IPO2)                                              
  14 :       RETURN                                                                    
  15 : C                                                                               
  16 : C     MCHAML                                                                    
  17 : C                                                                               
  18 :   10  CONTINUE                                                                  
  18 :       CALL LIROBJ('MCHAML',IPO1,0,IRETOU)                                       
  19 :       IF (IRETOU.EQ.0) GOTO 20                                                  
  19 :       CALL OPCHEL(IPO1,7,IPO2)                                                  
  19 :       CALL ECROBJ('MCHAML',IPO2)                                                
  20 :       RETURN                                                                    
  21 : C                                                                               
  22 : C     LISTREEL                                                                  
  23 : C                                                                               
  24 :   20  CONTINUE                                                                  
  24 :       CALL LIROBJ('LISTREEL',IPO1,0,IRETOU)                                     
  25 :       IF (IRETOU.EQ.0) GOTO 30                                                  
  25 :       CALL OPLREE(IPO1,7,IPO2)                                                  
  25 :       CALL ECROBJ('LISTREEL',IPO2)                                              
  26 :       RETURN                                                                    
  27 : C                                                                               
  28 :   30  CONTINUE                                                                  
  29 : C                                                                               
  30 : C     FLOTTANT                                                                  
  31 : C                                                                               
  31 :       CALL LIRREE(X1,0,IRETOU)                                                  
  32 :       IF (IRETOU.EQ.0) GO TO 40                                                 
  33 :       X2=EXP(X1)                                                                
  33 :       CALL ECRREE(X2)                                                           
  34 :       RETURN                                                                    
  35 : C                                                                               
  36 : C     EVOLUTION                                                                  
  37 : C                                                                               
  38 :   40  CONTINUE                                                                  
  38 :       CALL LIROBJ('EVOLUTIO',IPO1,0,IRETOU)                                     
  39 :       IF (IRETOU.EQ.0) GO TO 50                                                 
  39 :       CALL OPEVOL(IPO1,7,IPO2)                                                  
  39 :       CALL ECROBJ('EVOLUTIO',IPO2)                                              
  40 :       RETURN                                                                    
  41 : C                                                                               
  42 : C     
  43 : C    PAS D OPERANDE CORRECTE TROUVE
  44 : C     
  44 :  50   CALL QUETYP(MOTERR(1:8),0,IRETOU)
  45 :       IF(IRETOU.NE.0) THEN                                                      
  45 :          CALL ERREUR (39)                                                       
  46 :       ELSE                                                                      
  46 :          CALL ERREUR(533)                                                       
  47 :       ENDIF                                                                     
  48 :       RETURN                                                                    
  49 :       END                                                                       
  50 : 
  51 :  
  52 :