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