C LIRCHA    SOURCE    PV        11/04/08    21:16:08     6934           
      SUBROUTINE LIRCHA(ITYP , ICODE , IRETOU )                          
C                                                                        
C   EN RETOUR IRETOU EST NUL SI PAS DE MOT TROUVE SINON C'EST LA LONGUEU 
C   DU MOT                                                               
C                                                                        
      IMPLICIT INTEGER(I-N)
-INC CCNOYAU                                                             
-INC CCOPTIO                                                             
-INC CCASSIS
      external long
      CHARACTER*(*) ITYP                                                 
      CHARACTER*(8)  ICHA                                                
      ICHA='MOT'                                                         
      CALL LIRABJ(ICHA,IRAT,ICODE,IRETOU)                                
      IF(IERR.NE.0) RETURN                                               
      IF(IRETOU.EQ.0) RETURN 
*  initialisation de lotesc
      lotesc=.false.
      ith=0
      if (nbesc.ne.0) call ooonth(ith)
      if (ith.ne.0) lotesc=.true.
*     write (6,*) ' dans lircha ',ith
       if (.not. lotesc) then
          if(nbesc.ne.0) segact ipiloc
          IL=LEN(ITYP)                                                   
          JF=IPCHAR(IRAT+1)                                              
          ID=IPCHAR(IRAT)                                       
          ILO=MIN(IL,JF-ID)                                              
          ITYP=ICHARA(ID:JF-1)                                           
          IRETOU=ILO 
          if(nbesc.ne.0) segdes ipiloc                                   
       else
          mescla=imescl(ith)
          ityp=esopch(irat)
          iretou=long(ityp)
       endif
      RETURN                                                             
      END