#include <stdio.h> | |
#include "f2c.h" | |
#ifdef KR_headers | |
extern void f_exit(); | |
VOID s_stop(s, n) char *s; ftnlen n; | |
#else | |
#undef abs | |
#undef min | |
#undef max | |
#include <stdlib.h> | |
#ifdef __cplusplus | |
extern "C" { | |
#endif | |
void f_exit(void); | |
int s_stop(char *s, ftnlen n) | |
#endif | |
{ | |
int i; | |
if(n > 0) | |
{ | |
fprintf(stderr, "STOP "); | |
for(i = 0; i<n ; ++i) | |
putc(*s++, stderr); | |
fprintf(stderr, " statement executed\n"); | |
} | |
#ifdef NO_ONEXIT | |
f_exit(); | |
#endif | |
exit(0); | |
#ifdef __cplusplus | |
return 0; /* NOT REACHED */ | |
} | |
#endif | |
} |