c*******************************************************************************
c ... initializations

	subroutine init

	IMPLICIT NONE

	include 'parameter.par'
	include 'common.com' 

	double precision pi, tpi
c-------------------------------------------------------------------------------

	pi   = 4.0*atan(1.0d0)
	tpi  = 2.0*pi

c-------------------------------------------------------------------------------

	return
	end