gpamela/gptrd/xescape.F

*
* $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
1	cafagna	3.1	*
2			* $Id$
3			*
4			* $Log$
5			*
6			*CMZ : 3.00/00 09/04/2001 15.36.47 by Marialuigia Ambriola
7			*-- Author : Marialuigia Ambriola 09/04/2001
8			SUBROUTINE XESCAPE(X,YI,Y0,N0)
9			*****************************************************************
10			*
11			*
12			*
13			*
14			*****************************************************************
15			INTEGER N0
16			REAL X(N0),YI(N0),Y0(N0),W,XX
17			*
18			DO I=1,N0
19			XX=X(I)
20			W=1.
21			IF(XX.GT.4.9) W=0.85
22			* da verificare:
23			Y0(I)=WYI(I)+0.15XTRINTER(XX+4.,X,YI,N0)
24			* PRINT*,'YI,Y0,I,XX=',YI(I),Y0(I),I,XX
25			ENDDO
26			RETURN
27			END