Wrapped id_rand.f