double sl_nrandom() /* sl_proto, sl_func sl_nrandom */ { double r[2] = { 0, 0 }; #if defined(HAVE_ESSL_H) /* printf("dnrand\n");*/ dnrand(&sl_nrandom_seed, 2, r, NULL, 0); #elif defined(HAVE_T4C_H) /* printf("t4c_dnrand\n");*/ t4c_dnrand(r); #endif /* printf("sl_nrandom: %f\n", r[0]);*/ return r[0]; }
double z_nrandom() /* z_proto, z_func z_nrandom */ { double r[2] = { 0, 0 }; #if defined(HAVE_ESSL_H) /* printf("dnrand\n");*/ dnrand(&z_nrandom_seed_essl, 2, r, NULL, 0); #elif defined(HAVE_T4C_H) /* printf("t4c_dnrand\n");*/ t4c_dnrand(r); #endif /* printf("z_nrandom: %f\n", r[0]);*/ return r[0]; }