Generate a random number from the module-level mt19937_type instance
function grnd () implicit none real :: grnd grnd = module_mt19937%generate() end function grnd