diff options
Diffstat (limited to 'contrib/libf2c/libU77/irand_.c')
| -rw-r--r-- | contrib/libf2c/libU77/irand_.c | 33 |
1 files changed, 12 insertions, 21 deletions
diff --git a/contrib/libf2c/libU77/irand_.c b/contrib/libf2c/libU77/irand_.c index 2bf14cc..a905431 100644 --- a/contrib/libf2c/libU77/irand_.c +++ b/contrib/libf2c/libU77/irand_.c @@ -31,27 +31,18 @@ Boston, MA 02111-1307, USA. */ /* Note this is per SunOS -- other s may have no arg. */ -#ifdef KR_headers -integer G77_irand_0 (flag) - integer *flag; -#else -integer G77_irand_0 (integer *flag) -#endif +integer +G77_irand_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 rand (); } - - - - - - |
