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