module f90_kind
    integer, parameter ::  single = kind(1.0), &
                           double = kind(1d0)
end module f90_kind