***************************************************************
*                                                             *
*        variables for RPA routine                            *
*                                                             *
***************************************************************

	PARAMETER (PI=3.141592654)
	
	INTEGER I,J,K,N

	REAL VOLT,DATA
	
	COMMON VOLT(100),DATA(100),N