Esope source files

   1 : C QUEVAL    SOURCE    CHAT      06/03/16    21:25:10     5336           
   2 :       SUBROUTINE QUEVAL(IRAN,CTYPE,IERT,IVAL,XVAL,CHAVAL,LOGVAL,IOBVAL)   
   3 :       IMPLICIT INTEGER(I-N)
   4 : -INC CCOPTIO                                                              
   5 : -INC CCNOYAU
   6 : -INC CCASSIS                                                              
   7 :       LOGICAL LOGVAL                                                      
   8 :       CHARACTER*(*) CTYPE,CHAVAL                                          
   9 :       REAL*8 XVAL                                                         
  10 :       IERT=0                                                              
  11 :       IF(IRAN.LE.0.AND.CTYPE.NE.'ENTIER  ') THEN                          
  12 :          IERT=1                                                           
  13 :          RETURN                                                           
  14 :       ENDIF 
  15 :       if(nbesc.ne.0) segact ipiloc                                        
  16 :       IF(CTYPE.EQ.'ENTIER   ') THEN                                       
  17 :          IVAL=IRAN                                                        
  18 : *         RETURN                                                          
  19 :       ELSEIF(CTYPE.EQ.'FLOTTANT') THEN                                    
  20 :          IF(IRAN.GT.LMNREE) THEN                                          
  21 :              IERT=1                                                       
  22 :              RETURN                                                       
  23 :           ENDIF                                                           
  24 :           XVAL=XIFLOT(IRAN)                                               
  25 : *          RETURN                                                         
  26 :       ELSEIF(CTYPE.EQ.'MOT     ') THEN                                    
  27 :           IF(IRAN.GT.LMNCHA) THEN                                         
  28 :              IERT=1                                                       
  29 :              RETURN                                                       
  30 :           ENDIF                                                           
  31 :           ID=IPCHAR(IRAN)                                       
  32 :           IFI=IPCHAR(IRAN+1)                                              
  33 :           IL=MIN(IFI-ID,LEN(CHAVAL))                                      
  34 :           CHAVAL=' '                                                      
  35 :           IVAL=IL                                                         
  36 :           CHAVAL(1:IL)=ICHARA(ID:IFI-1)                                   
  37 : *          RETURN                                                         
  38 :        ELSEIF(CTYPE.EQ.'LOGIQUE ') THEN                                   
  39 :           IF(IRAN.GT.LMNLOG) THEN                                         
  40 :              IERT=1                                                       
  41 :              RETURN                                                       
  42 :           ENDIF                                                           
  43 :           LOGVAL=IPLOGI(IRAN)                                             
  44 : *          RETURN                                                         
  45 :        ELSE                                                               
  46 :            IOBVAL=IRAN                                                    
  47 : *           RETURN                                                        
  48 :        ENDIF
  49 :       if(nbesc.ne.0) segdes ipiloc 
  50 :       return                                                              
  51 :        END           
  52 :