	program call_c_routine
	implicit none

	double precision pi

	pi = 4*atan(1D0)

	call print("The value of pi is ", pi)
	end

