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