Esope source files

   1 : C ECROBJ    SOURCE    PV        11/04/08    21:15:40     6934           
   2 :       SUBROUTINE ECROBJ( MCH,IRET)                                              
   3 :       IMPLICIT INTEGER(I-N)
   4 : -INC CCASSIS
   5 :       CHARACTER*(*) MCH                                                         
   6 :       CHARACTER*8 MTEM                                                          
   7 :       DIMENSION ITEMP(2)                                                        
   8 :       ith=0
   8 :       if (nbesc.ne.0) call ooonth(ith)
   9 :       if (ith.eq.0) then
  10 :       MTEM=MCH                                                                  
  11 :       ITEMP(2)=0                                                                
  12 : C                                                                               
  13 : C LA VALEUR EXISTE-T-ELLE DEJA DANS LA PILE                                     
  14 : C                                                                               
  15 :       ITEMP(1)=IRET                                                             
  15 :       CALL ECPI(ITEMP,MTEM)
  16 :       RETURN                                                                    
  17 :       else
  18 : *  cas de l'esclave
  19 :       mescla=imescl(ith)
  19 :       call ecresc(i)
  20 :       esoplu(i)=.false.
  21 :       esopty(i)=mch
  22 :       esopva(i)=iret
  23 :       endif
  24 :       END                                                                       
  25 :  
  26 :  
  27 :  
  28 :  
  29 :  
  30 :