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 } |