Exemplo n.º 1
0
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];
}
Exemplo n.º 2
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];
}