Sources Esope | Cast3M

ecrent
C ECRENT    SOURCE    PV        18/10/18    11:48:54     9969           
      SUBROUTINE ECRENT( IRET )
      IMPLICIT INTEGER(I-N)
-INC CCASSIS
      DIMENSION ITEMP(2)
      ith=0
      if (nbesc.ne.0) ith=oothrd
      if (ith.eq.0) then
C  POUR INHIBER LA LECTURE DE CARTES
      ITEMP(2)=0
C
      ITEMP(1)=IRET
  60  CALL ECPI(ITEMP,'ENTIER  ')
      RETURN
      else
*  cas de l'esclave
      ith=oothrd
      mescla=imescl(ith)
      call ecresc(i)
      esoplu(i)=.false.
      esopty(i)='ENTIER'
      esopva(i)=iret
      endif
      END