integer, parameter, public funcphys::krealfp =kind_phys