/* STARTUP PROCEDURE FOR UNIX FORTRAN PROGRAMS */
int sigfdie(), sigidie();
signal(SIGFPE
, sigfdie
); /* ignore underflow, enable overflow */
sigdie("Floating Exception");
/* print error message, then clear buffers */
fprintf(stderr
, "%s\n", s
);