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