Doxygen Source Code Documentation
s_stop.c File Reference
#include "stdlib.h"#include "stdio.h"#include "f2c.h"Go to the source code of this file.
Functions | |
| void | f_exit (void) |
| int | s_stop (char *s, ftnlen n) |
Function Documentation
|
|
Definition at line 71 of file close.c.
|
|
||||||||||||
|
Definition at line 18 of file s_stop.c. Referenced by ff_().
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; /* NOT REACHED */
00036 }
00037 #endif
00038 }
|