Chris@202: /* This gives the effect of
Chris@202: 
Chris@202: 	subroutine exit(rc)
Chris@202: 	integer*4 rc
Chris@202: 	stop
Chris@202: 	end
Chris@202: 
Chris@202:  * with the added side effect of supplying rc as the program's exit code.
Chris@202:  */
Chris@202: 
Chris@202: #include "f2c.h"
Chris@202: #undef abs
Chris@202: #undef min
Chris@202: #undef max
Chris@202: #ifndef KR_headers
Chris@202: #include "stdlib.h"
Chris@202: #ifdef __cplusplus
Chris@202: extern "C" {
Chris@202: #endif
Chris@202: #ifdef __cplusplus
Chris@202: extern "C" {
Chris@202: #endif
Chris@202: extern void f_exit(void);
Chris@202: #endif
Chris@202: 
Chris@202:  void
Chris@202: #ifdef KR_headers
Chris@202: exit_(rc) integer *rc;
Chris@202: #else
Chris@202: exit_(integer *rc)
Chris@202: #endif
Chris@202: {
Chris@202: #ifdef NO_ONEXIT
Chris@202: 	f_exit();
Chris@202: #endif
Chris@202: 	exit(*rc);
Chris@202: 	}
Chris@202: #ifdef __cplusplus
Chris@202: }
Chris@202: #endif
Chris@202: #ifdef __cplusplus
Chris@202: }
Chris@202: #endif