Esope source files

   1 : C QUENOM    SOURCE    CHAT      06/03/16    21:24:59     5336           
   2 :       SUBROUTINE QUENOM(ICHA)                                         
   3 :       IMPLICIT INTEGER(I-N)
   4 : -INC CCNOYAU                                                          
   5 : -INC CCOPTIO
   6 : -INC CCASSIS                                                          
   7 :       CHARACTER*(*) ICHA                                              
   8 :           IF(JPOOB2(IMOTLU).EQ.0) THEN                                
   9 : C  PAS DE NOM A LA DERNIERE DONNEE LUE                                
  10 :           ICHA='        '                                             
  11 :           RETURN                                                      
  12 :           ENDIF
  13 :           if(nbesc.ne.0) segact ipiloc 
  14 :           IP= INOOB1(JPOOB2(IMOTLU))
  15 :           IDEBCH=IPCHAR(IP)
  16 :           IFINCH= IPCHAR(IP+1)-1                                      
  17 :           ICHA=ICHARA(IDEBCH:IFINCH)
  18 :           if(nbesc.ne.0) segdes ipiloc                                
  19 :       END 
  20 :