xerhlt.c

Go to the documentation of this file.

#include <setjmp.h>
#include <string.h>
#include "stack-c.h"

jmp_buf slatec_jmp_env; 

void C2F(xerhlt) (char *messg, unsigned long l);

void C2F(xerhlt) (char *messg, unsigned long l)
{
  longjmp(slatec_jmp_env,1); 
}

---