| #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); |
| |
| /* We cannot avoid (useless) compiler diagnostics here: */ |
| /* some compilers complain if there is no return statement, */ |
| /* and others complain that this one cannot be reached. */ |
| |
| return 0; /* NOT REACHED */ |
| } |
| #ifdef __cplusplus |
| } |
| #endif |