Mercurial > hg > qm-dsp

annotate ext/clapack/src/exit_.c @ 495:1bea13b8f951

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Style fixes in constant-Q: avoid unsigned, reuse our Window class, fix comments
author Chris Cannam <cannam@all-day-breakfast.com>
date Fri, 31 May 2019 18:25:31 +0100
parents 905e45637745
children
rev   line source
c@427 1 /* This gives the effect of
c@427 2
c@427 3 subroutine exit(rc)
c@427 4 integer*4 rc
c@427 5 stop
c@427 6 end
c@427 7
c@427 8 * with the added side effect of supplying rc as the program's exit code.
c@427 9 */
c@427 10
c@427 11 #include "f2c.h"
c@427 12 #undef abs
c@427 13 #undef min
c@427 14 #undef max
c@427 15 #ifndef KR_headers
c@427 16 #include "stdlib.h"
c@427 17 #ifdef __cplusplus
c@427 18 extern "C" {
c@427 19 #endif
c@427 20 #ifdef __cplusplus
c@427 21 extern "C" {
c@427 22 #endif
c@427 23 extern void f_exit(void);
c@427 24 #endif
c@427 25
c@427 26 void
c@427 27 #ifdef KR_headers
c@427 28 exit_(rc) integer *rc;
c@427 29 #else
c@427 30 exit_(integer *rc)
c@427 31 #endif
c@427 32 {
c@427 33 #ifdef NO_ONEXIT
c@427 34 f_exit();
c@427 35 #endif
c@427 36 exit(*rc);
c@427 37 }
c@427 38 #ifdef __cplusplus
c@427 39 }
c@427 40 #endif
c@427 41 #ifdef __cplusplus
c@427 42 }
c@427 43 #endif