Doxygen Source Code Documentation
Main Page Alphabetical List Data Structures File List Data Fields Globals Search
s_stop.c
Go to the documentation of this file.00001 #include "stdlib.h"
00002 #include "stdio.h"
00003 #include "f2c.h"
00004
00005 #ifdef KR_headers
00006 extern void f_exit();
00007 VOID s_stop(s, n) char *s; ftnlen n;
00008 #else
00009 #undef abs
00010 #undef min
00011 #undef max
00012 #include "stdlib.h"
00013 #ifdef __cplusplus
00014 extern "C" {
00015 #endif
00016 void f_exit(void);
00017
00018 int s_stop(char *s, ftnlen n)
00019 #endif
00020 {
00021 int i;
00022
00023 if(n > 0)
00024 {
00025 fprintf(stderr, "STOP ");
00026 for(i = 0; i<n ; ++i)
00027 putc(*s++, stderr);
00028 fprintf(stderr, " statement executed\n");
00029 }
00030 #ifdef NO_ONEXIT
00031 f_exit();
00032 #endif
00033 exit(0);
00034 #ifdef __cplusplus
00035 return 0;
00036 }
00037 #endif
00038 }
