File: rand48.c

package info (click to toggle)
suitesparse 1%3A5.12.0%2Bdfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 176,720 kB
  • sloc: ansic: 1,193,914; cpp: 31,704; makefile: 6,638; fortran: 1,927; java: 1,826; csh: 765; ruby: 725; sh: 529; python: 333; perl: 225; sed: 164; awk: 35
file content (24 lines) | stat: -rw-r--r-- 820 bytes parent folder | download | duplicates (11)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
/* ========================================================================== */
/* === MATLAB/rand48.c ====================================================== */
/* ========================================================================== */

/* METIS uses drand48 and srand48, which conform to the SVID standard.  The
 * lcc compiler for Windows shipped with MATLAB does not include the drand48
 * and srand48 routines.  This file is a cheap replacement using the
 * more-common rand and srand instead (which lcc does have).
 *
 * This file is only used when compiling CHOLMOD with the cholmod_make.m,
 * on the PC, with the lcc compiler.
 */

#include <stdlib.h>

double drand48 (void)
{
    return (((double) (rand ( ))) / ((double) RAND_MAX)) ;
}

void srand48 (long int seed)
{
    srand ((unsigned int) seed) ;
}