Esope source files

   1 : C ECRCHA    SOURCE    PV        11/04/08    21:15:26     6934           
   2 :       SUBROUTINE ECRCHA(MCH)                                                    
   3 :       IMPLICIT INTEGER(I-N)
   4 : -INC CCNOYAU                                                                    
   5 : -INC CCASSIS
   6 :       CHARACTER*(*) MCH                                                         
   7 :       DIMENSION ITEMP(2)                                                        
   8 :       ith=0
   8 :       if (nbesc.ne.0) call ooonth(ith)
   9 :       if (ith.eq.0) then
  10 :       IL=LEN(MCH)                                                               
  11 :       ITEMP(2)=0                                                                
  11 :        CALL POSCHA(MCH,IRET)
  12 :       ITEMP(1)=IRET                               
  13 :    60 CONTINUE                                                                  
  13 :       CALL ECPI(ITEMP,'MOT     ')                                               
  14 :       RETURN                                                                    
  15 :       else
  16 : *  cas de l'esclave
  17 :       mescla=imescl(ith)
  17 :       call ecresc(i)
  18 :       esoplu(i)=.false.
  19 :       esopty(i)='MOT'
  20 :       esopch(i)=mch
  21 :       endif
  22 :       END    
  23 :  
  24 :  
  25 :