Sources Esope | Cast3M

lircha
C LIRCHA    SOURCE    PV        18/10/17    11:50:38     9965
      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 PPARAM
-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) ith=oothrd
      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
      END