gpamela/gptrd/xtrinteg.F

*
* $Id$
*
* $Log$
*
*CMZ :  3.00/00 28/01/2002  20.40.04  by  Unknown
*-- Author :    Marialuigia Ambriola   05/04/2001
      REAL FUNCTION XTRINTEG(X,Y,SS,N)
*********************************************
* Integrates the spectrum absorbed in Xe-CO2
* called by GPUSTEP
*********************************************
      INTEGER N,I
      REAL X(N),Y(N),SS(N),S
C
      S=0.
      SS(1)=0.
      XTRINTEG=0.
      DO I=2,N
         S=S+(X(I)-X(I-1))*(Y(I)+Y(I-1))/2.
         SS(I)=S
      ENDDO
      XTRINTEG=S
c      PRINT*,'XTRINTEG=',XTRINTEG
      RETURN
      END
1	cafagna	3.1	*
2			* $Id$
3			*
4			* $Log$
5			*
6			*CMZ : 3.00/00 28/01/2002 20.40.04 by Unknown
7			*-- Author : Marialuigia Ambriola 05/04/2001
8			REAL FUNCTION XTRINTEG(X,Y,SS,N)
9			*********************************************
10			* Integrates the spectrum absorbed in Xe-CO2
11			* called by GPUSTEP
12			*********************************************
13			INTEGER N,I
14			REAL X(N),Y(N),SS(N),S
15			C
16			S=0.
17			SS(1)=0.
18			XTRINTEG=0.
19			DO I=2,N
20			S=S+(X(I)-X(I-1))*(Y(I)+Y(I-1))/2.
21			SS(I)=S
22			ENDDO
23			XTRINTEG=S
24			c PRINT*,'XTRINTEG=',XTRINTEG
25			RETURN
26			END