diff options
Diffstat (limited to 'contrib/libf2c/libU77/rand_.c')
-rw-r--r-- | contrib/libf2c/libU77/rand_.c | 27 |
1 files changed, 12 insertions, 15 deletions
diff --git a/contrib/libf2c/libU77/rand_.c b/contrib/libf2c/libU77/rand_.c index 165aee1..1592dc5 100644 --- a/contrib/libf2c/libU77/rand_.c +++ b/contrib/libf2c/libU77/rand_.c @@ -34,21 +34,18 @@ Boston, MA 02111-1307, USA. */ /* Note this is per SunOS -- other s may have no arg. */ -#ifdef KR_headers -double G77_rand_0 (flag) - integer *flag; -#else -double G77_rand_0 (integer *flag) -#endif +double +G77_rand_0 (integer * flag) { - switch (*flag) { - case 0: - break; - case 1: - srand (0); /* Arbitrary choice of initialiser. */ - break; - default: - srand (*flag); - } + switch (*flag) + { + case 0: + break; + case 1: + srand (0); /* Arbitrary choice of initialiser. */ + break; + default: + srand (*flag); + } return (float) rand () / RAND_MAX; } |