Esope source files

   1 : C ECRENT    SOURCE    PV        11/04/08    21:15:30     6934           
   2 :       SUBROUTINE ECRENT( IRET )                                                 
   3 :       IMPLICIT INTEGER(I-N)
   4 : -INC CCASSIS
   5 :       DIMENSION ITEMP(2)                                                        
   6 :       ith=0
   6 :       if (nbesc.ne.0) call ooonth(ith)
   7 :       if (ith.eq.0) then
   8 : C  POUR INHIBER LA LECTURE DE CARTES                                            
   9 :       ITEMP(2)=0                                                                
  10 : C                                                                               
  11 :       ITEMP(1)=IRET                                                             
  11 :   60  CALL ECPI(ITEMP,'ENTIER  ')                                               
  12 :       RETURN                                                                    
  13 :       else
  14 : *  cas de l'esclave
  14 :       call ooonth(ith)
  15 :       mescla=imescl(ith)
  15 :       call ecresc(i)
  16 :       esoplu(i)=.false.
  17 :       esopty(i)='ENTIER'
  18 :       esopva(i)=iret
  19 :       endif
  20 :       END                                                                       
  21 :  
  22 :  
  23 :  
  24 :  
  25 :  
  26 :