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	*
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