*
* $Id$
*
* $Log$
*
*CMZ :  3.00/00 09/04/2001  15.36.47  by  Marialuigia Ambriola
*-- Author :    Marialuigia Ambriola   09/04/2001
      SUBROUTINE XESCAPE(X,YI,Y0,N0)
*****************************************************************
*
*
*
*
*****************************************************************
      INTEGER N0
      REAL X(N0),YI(N0),Y0(N0),W,XX
*
      DO I=1,N0
	 XX=X(I)
         W=1.
         IF(XX.GT.4.9) W=0.85
* da verificare:
         Y0(I)=W*YI(I)+0.15*XTRINTER(XX+4.,X,YI,N0)
*         PRINT*,'YI,Y0,I,XX=',YI(I),Y0(I),I,XX
      ENDDO
      RETURN
      END