double precision, parameter :: pi=3.14159265359d0