blob: a54cfc38d98c80999ee9a2cb5c329a3e65452a32 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
#include <stdlib.h>
#define import_spp
#include <iraf.h>
/*
* ZZEXIT.C -- Fortran callable exit procedure. Some systems (e.g. libf2c)
* require this procedure. We implement it as a separate library procedure
* so that it can be replaced by a user exit procedure.
*/
int
exit_ (code)
XINT *code;
{
exit (*code);
return (XOK);
}
|
