time_util_fatal__()

int time_util_fatal__	(	char *	caller,
		char *	text,
		ftnlen	caller_len,
		ftnlen	text_len
	)

Definition at line 37 of file ctime_util_fatal.c.

{
    int i;
    fputs("ERROR (", stderr);
    for (i=0; i<caller_len; i++) { fputc((int)*(caller++), stderr); }
    fputs("): ",stderr);
    for (i=0; i<text_len; i++) { fputc((int)*(text++), stderr); }
    fputc('\n', stderr);
    abort();
} /* time_util_fatal__ */