Esope source files

   1 : C OPERLO    SOURCE    BP208322  12/07/10    21:15:23     7432           
   2 : C   DONNE LE LOGARITHME NATUREL D'UN NOMBRE                                     
   3 : C                                                                               
   4 :       SUBROUTINE OPERLO                                                         
   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,8,IPO2)                                                  
  14 :       IF(IPO2.EQ.0) RETURN                                                      
  14 :       CALL ECROBJ('CHPOINT ',IPO2)                                              
  15 :       RETURN                                                                    
  16 : C                                                                               
  17 : C     MCHAML                                                                    
  18 : C                                                                               
  19 :   10  CONTINUE                                                                  
  19 :       CALL LIROBJ('MCHAML',IPO1,0,IRETOU)                                       
  20 :       IF (IRETOU.EQ.0) GOTO 20                                                  
  20 :       CALL OPCHEL(IPO1,8,IPO2)                                                  
  20 :       CALL ECROBJ('MCHAML',IPO2)                                                
  21 :       RETURN                                                                    
  22 : C                                                                               
  23 : C     LISTREEL                                                                  
  24 : C                                                                               
  25 :   20  CONTINUE                                                                  
  25 :       CALL LIROBJ('LISTREEL',IPO1,0,IRETOU)                                     
  26 :       IF (IRETOU.EQ.0) GOTO 30                                                  
  26 :       CALL OPLREE(IPO1,8,IPO2)                                                  
  27 :       IF (IERR .NE. 0) RETURN                                                   
  27 :       CALL ECROBJ('LISTREEL',IPO2)                                              
  28 :       RETURN                                                                    
  29 : C                                                                               
  30 :   30  CONTINUE                                                                  
  31 : C                                                                               
  32 : C     FLOTTANT                                                                  
  33 : C                                                                               
  33 :       CALL LIRREE(X1,0,IRETOU)                                                  
  34 :       IF(IRETOU.EQ.0) GO TO 40                                                  
  34 :       IF (X1.LE.0.) CALL ERREUR(36)                                             
  35 :       IF (IERR.NE.0) RETURN                                                     
  36 :       X2=LOG(X1)                                                                
  36 :       CALL ECRREE(X2)                                                           
  37 :       RETURN                                                                    
  38 : C                                                                               
  39 : C     EVOLUTION                                                                  
  40 : C                                                                               
  41 :   40  CONTINUE                                                                  
  41 :       CALL LIROBJ('EVOLUTIO',IPO1,0,IRETOU)                                     
  42 :       IF (IRETOU.EQ.0) GO TO 50                                                 
  42 :       CALL OPEVOL(IPO1,8,IPO2)                                                  
  42 :       CALL ECROBJ('EVOLUTIO',IPO2)                                              
  43 :       RETURN                                                                    
  44 : C                                                                               
  45 : C     
  46 : C    PAS D OPERANDE CORRECTE TROUVE
  47 : C     
  47 :  50   CALL QUETYP(MOTERR(1:8),0,IRETOU)
  48 :       IF(IRETOU.NE.0) THEN                                                      
  48 :          CALL ERREUR (39)                                                       
  49 :       ELSE                                                                      
  49 :          CALL ERREUR(533)                                                       
  50 :       ENDIF                                                                     
  51 :       RETURN                                                                    
  52 :       END                                                                       
  53 :  
  54 :  
  55 :