[unix-history] / lib / libF77 / s_stop.c

#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
#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");
	}
f_exit();
exit(0);
#ifdef __cplusplus
return 0; /* NOT REACHED */
}
#endif
}
Commit	Line	Data
547779a8 WH	1	#include "stdio.h"
	2	#include "f2c.h"
	3
	4	#ifdef KR_headers
	5	extern void f_exit();
	6	VOID s_stop(s, n) char *s; ftnlen n;
	7	#else
	8	#undef abs
	9	#include "stdlib.h"
	10	#ifdef __cplusplus
	11	extern "C" {
	12	#endif
	13	void f_exit(void);
	14
	15	int s_stop(char *s, ftnlen n)
	16	#endif
	17	{
	18	int i;
	19
	20	if(n > 0)
	21	{
	22	fprintf(stderr, "STOP ");
	23	for(i = 0; i<n ; ++i)
	24	putc(*s++, stderr);
	25	fprintf(stderr, " statement executed\n");
	26	}
	27	f_exit();
	28	exit(0);
	29	#ifdef __cplusplus
	30	return 0; /* NOT REACHED */
	31	}
	32	#endif
	33	}