Esope source files

   1 : C QUERAN    SOURCE    CHAT      06/03/16    21:25:05     5336           
   2 :       SUBROUTINE QUERAN (IRET,CHAR,IVAL,XVAL,CHARV,LOGI,IOB)    
   3 : C                                                               
   4 : C  **** CE SUB CHERCHE DANS LES PILES QUEL RANG A UNE VALEUR    
   5 : C  ***  SI CETTE VALEUR N'Y EST PAS IL L'Y MET.                 
   6 : C                                                               
   7 : C  **** DANS LE CAS D'UN MOT SI IVAL EST NON NUL IL INDIQUE LA  
   8 : C  **** LONGUEUR DU MOT A PRENDRE EN COMPTE                     
   9 : C                                                               
  10 :       IMPLICIT INTEGER(I-N)
  11 : -INC CCNOYAU                                                    
  12 : -INC CCOPTIO                                                    
  13 :       REAL*8 XVAL                                               
  14 :       CHARACTER*(*)CHAR,CHARV                                   
  15 :       LOGICAL LOGI                                              
  16 :       IF(CHAR.EQ.'ENTIER  ') THEN                               
  17 :          IRET=IVAL                                              
  18 :       ELSEIF(CHAR.EQ.'FLOTTANT') THEN 
  18 :          call posree(xval,iret)                                 
  19 :          RETURN                                                 
  20 :       ELSEIF(CHAR.EQ.'MOT     ')  THEN                          
  21 :          IL=LEN(CHARV)                                          
  22 :          IF(IVAL.NE.0) IL=IVAL                                  
  22 :             CALL POSCHA(CHARV(1:IL),IRET)                       
  23 :          RETURN                                                 
  24 :       ELSEIF(CHAR.EQ.'LOGIQUE ') THEN 
  24 :          call poslog(logi,iret)                                 
  25 :          RETURN                                                 
  26 :       ELSE                                                      
  27 :          IRET=IOB                                               
  28 :          RETURN                                                 
  29 :       ENDIF                                                     
  30 :       END     
  31 :