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

	subroutine init

	include 'parameter.par'
#include "precision.com"
	include 'common.com' 

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

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

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

	return
	end