1/* This gives the effect of
2
3	subroutine exit(rc)
4	integer*4 rc
5	stop
6	end
7
8 * with the added side effect of supplying rc as the program's exit code.
9 */
10
11#include "f2c.h"
12#undef abs
13#undef min
14#undef max
15#ifndef KR_headers
16#include <stdlib.h>
17#ifdef __cplusplus
18extern "C" {
19#endif
20extern void f_exit(void);
21#endif
22
23 void
24#ifdef KR_headers
25G77_exit_0 (rc) integer *rc;
26#else
27G77_exit_0 (integer *rc)
28#endif
29{
30#ifdef NO_ONEXIT
31	f_exit();
32#endif
33	exit(*rc);
34	}
35#ifdef __cplusplus
36}
37#endif
38