module const
  real(16) e,p,kang
end module