swiftnav: exit_.c Source File

Go to the documentation of this file.
00001 /* This gives the effect of
00002 
00003         subroutine exit(rc)
00004         integer*4 rc
00005         stop
00006         end
00007 
00008  * with the added side effect of supplying rc as the program's exit code.
00009  */
00010 
00011 #include "f2c.h"
00012 #undef abs
00013 #undef min
00014 #undef max
00015 #ifndef KR_headers
00016 #include "stdlib.h"
00017 #ifdef __cplusplus
00018 extern "C" {
00019 #endif
00020 #ifdef __cplusplus
00021 extern "C" {
00022 #endif
00023 extern void f_exit(void);
00024 #endif
00025 
00026  void
00027 #ifdef KR_headers
00028 exit_(rc) integer *rc;
00029 #else
00030 exit_(integer *rc)
00031 #endif
00032 {
00033 #ifdef NO_ONEXIT
00034         f_exit();
00035 #endif
00036         exit(*rc);
00037         }
00038 #ifdef __cplusplus
00039 }
00040 #endif
00041 #ifdef __cplusplus
00042 }
00043 #endif