2015-12-14 19:40:44 +00:00
|
|
|
#include "init_random_seed.h"
|
2015-12-06 04:37:14 +00:00
|
|
|
|
2015-12-15 01:36:05 +00:00
|
|
|
/* Fortran wrapper to seed the C library rand */
|
|
|
|
void sgran_(void)
|
2015-12-06 04:37:14 +00:00
|
|
|
{
|
2015-12-14 19:40:44 +00:00
|
|
|
init_random_seed();
|
2015-12-06 04:37:14 +00:00
|
|
|
}
|