diff options
| author | Joseph Hunkeler <jhunkeler@gmail.com> | 2015-07-08 20:46:52 -0400 |
|---|---|---|
| committer | Joseph Hunkeler <jhunkeler@gmail.com> | 2015-07-08 20:46:52 -0400 |
| commit | fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 (patch) | |
| tree | bdda434976bc09c864f2e4fa6f16ba1952b1e555 /unix/hlib/libc | |
| download | iraf-linux-fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4.tar.gz | |
Initial commit
Diffstat (limited to 'unix/hlib/libc')
33 files changed, 7494 insertions, 0 deletions
diff --git a/unix/hlib/libc/README b/unix/hlib/libc/README new file mode 100644 index 00000000..a95c47eb --- /dev/null +++ b/unix/hlib/libc/README @@ -0,0 +1,25 @@ +LIBC (C library) include files + + ctype character classes, conversions + error c_erract actions + finfo c_finfo data structure + fset FIO set/stat parameter + knames external kernel names + libc must be included by all files which use libc + math UNIX math functions + spp SPP language definitions + stdio UNIX standard i/o + xnames SPP external names + xwhen c_xwhen (exception handling) + kernel kernel constants, tables + protect file protection + prtype process types + setjmp non-local goto + zfstat FIO driver file status codes + +The file "iraf.h" is referenced as <iraf.h> in IRAF C source files, and is used +to load all other IRAF/LIBC C header files via "#define import_XXX" defines in +these files. In order for the C compiler to find <iraf.h>, one should either +[1] add the directory $hlib/libc to the list of directories to be searched by +the C compiler for include files, or [2] make a link to, or copy of, +libc/iraf.h in the system directory /usr/include. diff --git a/unix/hlib/libc/alloc.h b/unix/hlib/libc/alloc.h new file mode 100644 index 00000000..e40ca1be --- /dev/null +++ b/unix/hlib/libc/alloc.h @@ -0,0 +1,8 @@ +/* ALLOC.H -- Status returns for ZDVALL, ZDVOWN. + */ +#define DV_DEVFREE 1 /* device is free and can be allocated */ +#define DV_DEVALLOC 2 /* device is already allocated */ +#define DV_DEVINUSE 3 /* device is in use by someone else */ +#define DV_ERROR 9 /* software error from alloc.e */ + +#define D_alloc diff --git a/unix/hlib/libc/ctype.h b/unix/hlib/libc/ctype.h new file mode 100644 index 00000000..e2d3fb59 --- /dev/null +++ b/unix/hlib/libc/ctype.h @@ -0,0 +1,32 @@ +#define _U 01 +#define _L 02 +#define _N 04 +#define _S 010 +#define _P 020 +#define _C 040 +#define _X 0100 + +#ifdef vms +globalvalue vms_ctype_defs; +#endif +extern char u_ctype_[]; + +#define isalpha(c) ((u_ctype_+1)[(unsigned int)(c)]&(_U|_L)) +#define isupper(c) ((u_ctype_+1)[(unsigned int)(c)]&_U) +#define islower(c) ((u_ctype_+1)[(unsigned int)(c)]&_L) +#define isdigit(c) ((u_ctype_+1)[(unsigned int)(c)]&_N) +#define isxdigit(c) ((u_ctype_+1)[(unsigned int)(c)]&(_N|_X)) +#define isspace(c) ((u_ctype_+1)[(unsigned int)(c)]&_S) +#define ispunct(c) ((u_ctype_+1)[(unsigned int)(c)]&_P) +#define isalnum(c) ((u_ctype_+1)[(unsigned int)(c)]&(_U|_L|_N)) +#define isprint(c) ((u_ctype_+1)[(unsigned int)(c)]&(_P|_U|_L|_N)) +#define iscntrl(c) ((u_ctype_+1)[(unsigned int)(c)]&_C) +#define isascii(c) ((unsigned)((int)(c))<=0177) + +#define toupper(c) ((c)-'a'+'A') +#define tolower(c) ((c)-'A'+'a') +#define toascii(c) ((c)&0177) +#define tointeg(c) ((c)-'0') +#define todigit(c) ((c)+'0') + +#define D_ctype diff --git a/unix/hlib/libc/error.h b/unix/hlib/libc/error.h new file mode 100644 index 00000000..c02e7e36 --- /dev/null +++ b/unix/hlib/libc/error.h @@ -0,0 +1,12 @@ +/* Error handling. + */ +#define EA_FATAL 1 +#define EA_ERROR 2 +#define EA_WARN 3 +#define EA_RESTART (-99) + +#define SYS_XACV 501 +#define SYS_XARITH 502 +#define SYS_XINT 503 + +#define D_error diff --git a/unix/hlib/libc/finfo.h b/unix/hlib/libc/finfo.h new file mode 100644 index 00000000..b4c57e70 --- /dev/null +++ b/unix/hlib/libc/finfo.h @@ -0,0 +1,19 @@ +/* File info structure definitions (c_finfo). + */ +#define SZ_OWNERSTR 16 +#define FI_REGULAR 1 /* file types */ +#define FI_DIRECTORY 2 +#define FI_EXECUTABLE 3 +#define FI_SPECIAL 4 + +struct _finfo { + XLONG fi_type; /* file type */ + XLONG fi_size; /* file size, machine bytes */ + XLONG fi_atime; /* time of last access */ + XLONG fi_mtime; /* time of last modify */ + XLONG fi_ctime; /* time of file creation */ + XLONG fi_perm; /* file permission bits */ + char fi_owner[SZ_OWNERSTR*sizeof(XLONG)]; +}; + +#define D_finfo diff --git a/unix/hlib/libc/fpoll.h b/unix/hlib/libc/fpoll.h new file mode 100644 index 00000000..52e6f4d5 --- /dev/null +++ b/unix/hlib/libc/fpoll.h @@ -0,0 +1,59 @@ +/* File poll structure definitions (c_fpoll). + */ +#ifndef D_fpoll +#define D_fpoll + +#define IRAF_POLLIN 0x0001 /* There is data to read */ +#define IRAF_POLLPRI 0x0002 /* There is urgent data to read */ +#define IRAF_POLLOUT 0x0004 /* Writing now will not block */ +#define IRAF_POLLERR 0x0008 /* Error condition */ +#define IRAF_POLLHUP 0x0010 /* Hung up */ +#define IRAF_POLLNVAL 0x0020 /* Invalid request: fd not open */ + +#define SZ_POLLFD 3 /* size of pollfd SPP struct */ +#define MAX_POLL_FD 32 /* max number of polling fds */ +#define INFTIM -1 /* poll indefinitely (block) */ + +struct _fpoll { + XINT fp_fd; /* file type */ + XSHORT fp_events; /* file size, machine bytes */ + XSHORT fp_revents; /* time of last access */ +} poll_fds[MAX_POLL_FD]; + +#ifndef NOLIBCNAMES +#define _IRAF_FPOLL_LIBCNAMES + + +#ifdef POLLIN +#undef POLLIN +#endif +#define POLLIN IRAF_POLLIN + +#ifdef POLLPRI +#undef POLLPRI +#endif + +#define POLLPRI IRAF_POLLPRI +#ifdef POLLOUT +#undef POLLOUT +#endif + +#define POLLOUT IRAF_POLLOUT +#ifdef POLLERR +#undef POLLERR +#endif +#define POLLERR IRAF_POLLERR + +#ifdef POLLHUP +#undef POLLHUP +#endif +#define POLLHUP IRAF_POLLHUP + +#ifdef POLLNVAL +#undef POLLNVAL +#endif +#define POLLNVAL IRAF_POLLNVAL + +#endif /* ! NOLIBCNAMES */ + +#endif diff --git a/unix/hlib/libc/fset.h b/unix/hlib/libc/fset.h new file mode 100644 index 00000000..5d5fb33e --- /dev/null +++ b/unix/hlib/libc/fset.h @@ -0,0 +1,64 @@ +/* + * FSET.H -- FSET/FSTATUS parameters (r = read_only, * = internal to FIO). + * Some of these parameters provide access to the guts of the i/o system and + * should not be used by packages outside FIO, to avoid a dependence on the + * inner workings of FIO. Parameters affecting the file buffer number, types, + * or sizes are read-only after the first i/o to the file. + */ + +#define F_ADVICE 1 /* advice on type of access (rand,seq,def) */ +#define F_ASYNC 2 /* enable asynchronous i/o [y/n] */ +#define F_BLKSIZE 3 /*r device block size, chars */ +#define F_BUFPTR 4 /** install externally created file buffer */ +#define F_BUFSIZE 5 /* file buffer size, chars */ +#define F_BUFTOP 6 /** set pointer to top of buffer */ +#define F_BUFTYPE 7 /* file buffer type (F_LOCAL or F_GLOBAL) */ +#define F_CANCEL 8 /* cancel buffered data */ +#define F_CHANNEL 9 /*r channel number */ +#define F_CLOBBER 10 /* is file clobber enabled [y/n] */ +#define F_CLOSEFD 11 /* close host channel when inactive */ +#define F_DEVCODE 12 /** device driver code (index in devtab) */ +#define F_DEVICE 13 /** address of device read/get routine */ +#define F_EOF 14 /*r is file positioned at EOF [y/n] */ +#define F_FFIOMODE 15 /*r is i/o in progress on channel */ +#define F_FILENAME 16 /*r get file name (fstats) */ +#define F_FILESIZE 17 /*r get file size (fstatl) */ +#define F_FILEWAIT 18 /* is file wait on open enabled [y/n] */ +#define F_FIODES 19 /** struct pointer to file descrip. structure */ +#define F_FIRSTBUFOFF 20 /* file offset of first FIO buf (default=1) */ +#define F_FLUSHNL 21 /* is flush on newline enabled [y/n] */ +#define F_IOMODE 22 /* raw (vs "cooked") mode for terminal i/o */ +#define F_KEEP 23 /* keep file after task completion? */ +#define F_LASTREFFILE 24 /*r get FD of last referenced (active) file */ +#define F_MAXBUFSIZE 25 /*r maximum file buffer size */ +#define F_MODE 26 /*r file access mode (ro,wo,rw) */ +#define F_NBUFS 27 /* number of file buffers */ +#define F_NCHARS 28 /*r nchars last transfer */ +#define F_ONEVERSION 29 /* keep only one version of a file */ +#define F_OPEN 30 /*r is file open */ +#define F_OPTBUFSIZE 31 /*r optimal buffer size for device (chars) */ +#define F_PBBSIZE 32 /* push back buffer size, chars */ +#define F_RAW 33 /*r set/stat raw mode (see F_IOMODE) */ +#define F_READ 34 /*r does file have read access [y/n] */ +#define F_REDIR 35 /*r i/o is redirected */ +#define F_SETREDRAW 36 /*w enable screen redraw code (suspend proc) */ +#define F_SZBBLK 37 /*r size in bytes of last dev block r|w */ +#define F_TYPE 38 /*r file type (text, binary) */ +#define F_UNREAD 39 /*r number of unread chars in FIO buffer */ +#define F_VALIDATE 40 /* validate FIO buffer contents (fseti) */ +#define F_WRITE 41 /*r does file have write access [y/n] */ + +#define F_LOCAL 1 /* allocate local file buffers */ +#define F_GLOBAL 2 /* take file buffers from global pool */ +#define F_GETPROT 2 /* is file protected? */ +#define F_FFIOINACT 0 /* no i/o in progress */ +#define F_FFIOREAD 1 /* read in progress */ +#define F_FFIOWRITE 2 /* write in progress */ + +/* Terminal mode stuff. I/O mode flags maybe combined, e.g., IO_RAW+IO_NDELAY. + */ +#define IO_NORMAL 0 /* "normal" terminal i/o */ +#define IO_RAW 001B /* enables raw mode i/o */ +#define IO_NDELAY 100B /* enables nonblocking i/o */ + +#define D_fset diff --git a/unix/hlib/libc/iraf.h b/unix/hlib/libc/iraf.h new file mode 100644 index 00000000..85c0c60a --- /dev/null +++ b/unix/hlib/libc/iraf.h @@ -0,0 +1,192 @@ +/* + * IRAF.H -- Index to the IRAF/C include files and to the major IRAF + * directories. All directory references in the IRAF system are relative + * to the root directories defined in this file. The UNIX version of IRAF + * scans this file at run time to get the logical directory definitions. + */ + +#ifndef D_iraf +/* ### Start of run time definitions */ +#define HOST "/iraf/iraf/unix/" +#define IRAF "/iraf/iraf/" +#define TMP "/tmp/" +/* ### End of run time definitions */ + +/* Compile time definitions (for C #ifdefs). + */ +/* #define BSDUNIX */ +/* #define SUNOS4 */ + +#define D_iraf +#endif + +/* Include any header files specified in "#define import_XXX" statements + * before we were called. + */ +#ifdef import_libc +#ifndef D_libc +#include "/iraf/iraf/unix/hlib/libc/libc.h" +#endif +#undef import_libc +#endif + +#ifdef import_spp +#ifndef D_spp +#include "/iraf/iraf/unix/hlib/libc/spp.h" +#endif +#undef import_spp +#endif + +#ifdef import_main +#ifndef D_main +#include "/iraf/iraf/unix/hlib/libc/main.h" +#endif +#undef import_main +#endif + +#ifdef import_stdio +#ifndef D_stdio +#include "/iraf/iraf/unix/hlib/libc/stdio.h" +#endif +#undef import_stdio +#endif + +#ifdef import_error +#ifndef D_error +#include "/iraf/iraf/unix/hlib/libc/error.h" +#endif +#undef import_error +#endif + +#ifdef import_ctype +#ifndef D_ctype +#include "/iraf/iraf/unix/hlib/libc/ctype.h" +#endif +#undef import_ctype +#endif + +#ifdef import_finfo +#ifndef D_finfo +#include "/iraf/iraf/unix/hlib/libc/finfo.h" +#endif +#undef import_finfo +#endif + +#ifdef import_fset +#ifndef D_fset +#include "/iraf/iraf/unix/hlib/libc/fset.h" +#endif +#undef import_fset +#endif + +#ifdef import_fpoll +#ifndef D_fpoll +#include "/iraf/iraf/unix/hlib/libc/fpoll.h" +#endif +#undef import_fpoll +#endif + +#ifdef import_kernel +#ifndef D_kernel +#include "/iraf/iraf/unix/hlib/libc/kernel.h" +#endif +#undef import_kernel +#endif + +#ifdef import_xnames +#ifndef D_xnames +#include "/iraf/iraf/unix/hlib/libc/xnames.h" +#endif +#undef import_xnames +#endif + +#ifdef import_knames +#ifndef D_knames +#include "/iraf/iraf/unix/hlib/libc/knames.h" +#endif +#undef import_knames +#endif + +#ifdef import_kproto +#ifndef D_kproto +#include "/iraf/iraf/unix/hlib/libc/kproto.h" +#endif +#undef import_kproto +#endif + +#ifdef import_setjmp +#ifndef D_setjmp +#include "/iraf/iraf/unix/hlib/libc/setjmp.h" +#endif +#undef import_setjmp +#endif + +#ifdef import_xwhen +#ifndef D_xwhen +#include "/iraf/iraf/unix/hlib/libc/xwhen.h" +#endif +#undef import_xwhen +#endif + +#ifdef import_protect +#ifndef D_protect +#include "/iraf/iraf/unix/hlib/libc/protect.h" +#endif +#undef import_protect +#endif + +#ifdef import_prtype +#ifndef D_prtype +#include "/iraf/iraf/unix/hlib/libc/prtype.h" +#endif +#undef import_prtype +#endif + +#ifdef import_zfstat +#ifndef D_zfstat +#include "/iraf/iraf/unix/hlib/libc/zfstat.h" +#endif +#undef import_zfstat +#endif + +#ifdef import_alloc +#ifndef D_alloc +#include "/iraf/iraf/unix/hlib/libc/alloc.h" +#endif +#undef import_alloc +#endif + +#ifdef import_math +#ifndef D_math +#include "/iraf/iraf/unix/hlib/libc/math.h" +#endif +#undef import_math +#endif + +#ifdef import_prstat +#ifndef D_prstat +#include "/iraf/iraf/unix/hlib/libc/prstat.h" +#endif +#undef import_prstat +#endif + +#ifdef import_lexnum +#ifndef D_lexnum +#include "/iraf/iraf/unix/hlib/libc/lexnum.h" +#endif +#undef import_lexnum +#endif + +#ifdef import_ttset +#ifndef D_ttset +#include "/iraf/iraf/unix/hlib/libc/ttset.h" +#endif +#undef import_ttset +#endif + +#ifdef import_stdarg +#ifndef D_stdarg +#include "/iraf/iraf/unix/hlib/libc/stdarg.h" +#endif +#undef import_stdarg +#endif diff --git a/unix/hlib/libc/kernel.h b/unix/hlib/libc/kernel.h new file mode 100644 index 00000000..3b240025 --- /dev/null +++ b/unix/hlib/libc/kernel.h @@ -0,0 +1,107 @@ +/* + * KERNEL.H -- Machine dependent definitions for the 4.1BSD UNIX IRAF Kernel. + * The UNIX include file <stdio.h> must also be loaded by any program which + * references "kernel.h". The companion include file "language.h" defines + * the (generally) machine independent kernel definitions. + */ + +#include <stdlib.h> +#include <unistd.h> +#include <sys/types.h> +#include <string.h> + + + +#ifndef NOKNET +#define NOKNET /* no networking desired in kernel */ +#endif + +/* Tunable kernel parameters. All buffer sizes are in units of bytes. + * Buffer lengths are in units of whatever the buffer contains. + */ +#define SZ_DISKBLOCK 512 /* used in zsttbf if dev block invar. */ +#define FILE_MODEBITS 0666 /* protection bits for new files */ +#define MAXOFILES 256 /* maximum open files (see <stdio.h>) */ +#define MAXPROCS 20 /* maximum subprocesses per process */ +#define SZ_DEFWORKSET 67108864 /* default working set size, bytes */ +#define SZ_MAXWORKSET 268435456 /* maximum working set (max physmem) */ +#define CLKFREQ 60 /* clock frequency (see zgtime.c) */ + +#define TX_OPTBUFSIZE SZ_LINE /* optimum buffer size for text file */ +#define TX_MAXBUFSIZE 0 /* maximum buffer size for text file */ +#define BF_OPTBUFSIZE 65536 /* optimum buffer size for binary file */ +#define BF_MAXBUFSIZE 0 /* maximum buffer size for binary file */ +#define SF_OPTBUFSIZE 65536 /* optimum buffer size for static file */ +#define SF_MAXBUFSIZE 0 /* maximum buffer size for static file */ +#define KS_OPTBUFSIZE 65536 /* optimal buffer size for KS i/o */ +#define KS_MAXBUFSIZE 0 /* maximum buffer size for KS i/o */ +#define PR_OPTBUFSIZE 65536 /* optimal buffer size for IPC i/o */ +#define PR_MAXBUFSIZE 4096 /* maximum buffer size for IPC i/o */ +#define ND_OPTBUFSIZE 65536 /* optimal buffer size for ND i/o */ +#define ND_MAXBUFSIZE 0 /* maximum buffer size for ND i/o */ +#define PL_OPTBUFSIZE 1024 /* optimum buffer size for plotter */ +#define PL_MAXBUFSIZE 0 /* maximum buffer size for plotter */ +#define LP_OPTBUFSIZE 1024 /* optimum buffer size for line printer */ +#define LP_MAXBUFSIZE 0 /* maximum buffer size for line printer */ + +/* ZLOCVA style pointer to address conversions. These macros are used to + * convert host pointer addresses (in bytes) to/from iraf pointer values + * in units of XCHAR. + */ +#define ADDR_TO_LOC(addr) (((XINT)((XCHAR *)(addr)))>>(sizeof(XCHAR)-1)) +#define LOC_TO_ADDR(loc,type) ((type *)((XCHAR *)((loc)<<(sizeof(XCHAR)-1)))) + + +/* Kernel file descriptor for accessing UNIX files. A static array ZFD of + * descriptor structures is used, indexed by UNIX file descriptor numbers + * numbered beginning at 0, the standard input. + */ +struct fiodes { + FILE *fp; /* file pointer if text file */ + long fpos; /* file offset, bytes */ + long filesize; /* file size at open time */ + int nbytes; /* last nbytes r|w */ + int io_flags; /* fcntl flags */ + short flags; /* access mode flags */ + char *port; /* tty port if tty */ +}; +extern struct fiodes zfd[]; /* array of descriptors */ + +#define KF_CHARMODE 01 /* char input mode, text files */ +#define KF_NOSEEK 02 /* seeks are illegal on device */ +#define KF_NOSTTY 04 /* stty,gtty calls illegal */ +#define KF_NDELAY 010 /* nonblocking reads */ +#define KF_DIRECTIO 020 /* use direct (unbuffered) i/o */ +#define TTYNAME "/dev/tty" /* user terminal (for ZFIOTY) */ +#define U_STDIN "unix-stdin" /* special filename for stdin */ +#define U_STDOUT "unix-stdout" /* special filename for stdout */ +#define U_STDERR "unix-stderr" /* special filename for stderr */ +#define LEN_RAWCMD 5 /* nchars in rawcmd string */ +#define RAWOFF "\033-rAw" /* turn raw mode off */ +#define RAWON "\033+rAw" /* turn raw mode on */ +#define LEN_SETREDRAW 6 /* nchars in setredraw string */ +#define SETREDRAW "\033=rDw" /* set/enable screenredraw code */ + + +#ifdef AUX +#define SIGFUNC sigfunc_t +#else +typedef void (*SIGFUNC)(); +#endif + +typedef void (*PFV)(); +#ifdef MACH64 +typedef long (*PFI)(); +#else +typedef int (*PFI)(); +#endif + + +#ifdef SOLARIS +#define bzero(a,n) memset(a,0,n) +#define bcopy(a,b,n) memmove(b,a,n) +#endif + +extern char *irafpath(); + +#define D_kernel diff --git a/unix/hlib/libc/knames.h b/unix/hlib/libc/knames.h new file mode 100644 index 00000000..a67d302b --- /dev/null +++ b/unix/hlib/libc/knames.h @@ -0,0 +1,371 @@ +/* + * KNAMES.H -- External names of the kernel procedures. These are defined + * because the trailing underscore is peculiar to this version of UNIX. + * On some other system the underscore might not be necessary. UNIX uses + * the underscore to avoid name collisions between Fortran names and C/UNIX + * names. If your system does not employ such a convention, delete the _ but + * do not delete the defines - there will probably be name collisions and + * some of the names will have to be changed. To change the external name + * change the define given here. + */ + +#define IRAF_MAIN irafmn_ +#define ZZSETK zzsetk_ +#define USHLIB ushlib_ +#define VSHLIB vshlib_ +#define VSHEND vshend_ +#define VLIBINIT vlibinit_ +#define KI_CONNECT kicont_ +#define KI_GETHOSTS kigets_ +#define KI_SEND kisend_ +#define KI_RECEIVE kirece_ + +#define ZARDBF zardbf_ +#define ZARDGD zardgd_ +#define ZARDKS zardks_ +#define ZARDLP zardlp_ +#define ZARDND zardnd_ +#define ZARDPL zardpl_ +#define ZARDPR zardpr_ +#define ZARDSF zardsf_ +#define ZAWRBF zawrbf_ +#define ZAWRGD zawrgd_ +#define ZAWRKS zawrks_ +#define ZAWRLP zawrlp_ +#define ZAWRND zawrnd_ +#define ZAWRPL zawrpl_ +#define ZAWRPR zawrpr_ +#define ZAWRSF zawrsf_ +#define ZAWSET zawset_ +#define ZAWTBF zawtbf_ +#define ZAWTGD zawtgd_ +#define ZAWTKS zawtks_ +#define ZAWTLP zawtlp_ +#define ZAWTND zawtnd_ +#define ZAWTPL zawtpl_ +#define ZAWTPR zawtpr_ +#define ZAWTSF zawtsf_ +#define ZCALL0 zcall0_ +#define ZCALL1 zcall1_ +#define ZCALL2 zcall2_ +#define ZCALL3 zcall3_ +#define ZCALL4 zcall4_ +#define ZCALL5 zcall5_ +#define ZCALL6 zcall6_ +#define ZCALL7 zcall7_ +#define ZCALL8 zcall8_ +#define ZCALL9 zcall9_ +#define ZCALLA zcalla_ +#define ZCLCPR zclcpr_ +#define ZCLDIR zcldir_ +#define ZCLDPR zcldpr_ +#define ZCLSBF zclsbf_ +#define ZCLSGD zclsgd_ +#define ZCLSKS zclsks_ +#define ZCLSLP zclslp_ +#define ZCLSND zclsnd_ +#define ZCLSPL zclspl_ +#define ZCLSSF zclssf_ +#define ZCLSTX zclstx_ +#define ZCLSTY zclsty_ +#define ZDOJMP zdojmp_ +#define ZDVALL zdvall_ +#define ZDVOWN zdvown_ +#define ZFACSS zfacss_ +#define ZFALOC zfaloc_ +#define ZFCHDR zfchdr_ +#define ZFDELE zfdele_ +#define ZFGCWD zfgcwd_ +#define ZFINFO zfinfo_ +#define ZFLSTX zflstx_ +#define ZFLSTY zflsty_ +#define ZFLINK zflink_ +#define ZFMKCP zfmkcp_ +#define ZFMKDR zfmkdr_ +#define ZFNBRK zfnbrk_ +#define ZFPATH zfpath_ +#define ZFPROT zfprot_ +#define ZFPOLL zfpoll_ +#define ZFREE zfree_ +#define ZFRNAM zfrnam_ +#define ZFRMDR zfrmdr_ +#define ZFSUBD zfsubd_ +#define ZFULNK zfulnk_ +#define ZFUNC0 zfunc0_ +#define ZFUNC1 zfunc1_ +#define ZFUNC2 zfunc2_ +#define ZFUNC3 zfunc3_ +#define ZFUNC4 zfunc4_ +#define ZFUNC5 zfunc5_ +#define ZFUNC6 zfunc6_ +#define ZFUNC7 zfunc7_ +#define ZFUNC8 zfunc8_ +#define ZFUNC9 zfunc9_ +#define ZFUNCA zfunca_ +#define ZFUTIM zfutim_ +#define ZFXDIR zfxdir_ +#define ZGCMDL zgcmdl_ +#define ZGETTT zgettt_ +#define ZGETTX zgettx_ +#define ZGETTY zgetty_ +#define ZGFDIR zgfdir_ +#define ZGHOST zghost_ +#define ZGMTCO zgmtco_ +#define ZGTENV zgtenv_ +#define ZGTIME zgtime_ +#define ZGTPID zgtpid_ +#define ZINTPR zintpr_ +#define ZLOCPR zlocpr_ +#define ZLOCVA zlocva_ +#define ZMALOC zmaloc_ +#define ZMEMCK zmemck_ +#define ZMFREE zmfree_ +#define ZNOTTX znottx_ +#define ZNOTTY znotty_ +#define ZOPCPR zopcpr_ +#define ZOPDIR zopdir_ +#define ZOPDPR zopdpr_ +#define ZOPNBF zopnbf_ +#define ZOPNGD zopngd_ +#define ZOPNKS zopnks_ +#define ZOPNLP zopnlp_ +#define ZOPNND zopnnd_ +#define ZOPNPL zopnpl_ +#define ZOPNSF zopnsf_ +#define ZOPNTX zopntx_ +#define ZOPNTY zopnty_ +#define ZOSCMD zoscmd_ +#define ZPANIC zpanic_ +#define ZPUTTX zputtx_ +#define ZPUTTY zputty_ +#define ZRALOC zraloc_ +#define ZSEKTX zsektx_ +#define ZSEKTY zsekty_ +#define ZSTTBF zsttbf_ +#define ZSTTGD zsttgd_ +#define ZSTTKS zsttks_ +#define ZSTTLP zsttlp_ +#define ZSTTND zsttnd_ +#define ZSTTPL zsttpl_ +#define ZSTTPR zsttpr_ +#define ZSTTSF zsttsf_ +#define ZSTTTX zstttx_ +#define ZSTTTY zsttty_ +#define ZSVJMP zsvjmp_ +#define ZTSLEE ztslee_ +#define ZWMSEC zwmsec_ +#define ZXGMES zxgmes_ +#define ZXWHEN zxwhen_ +#define ZZCLMT zzclmt_ +#define ZZEPRO zzepro_ +#define ZZOPMT zzopmt_ +#define ZZRDMT zzrdmt_ +#define ZZRWMT zzrwmt_ +#define ZZSETK zzsetk_ +#define ZZSTMT zzstmt_ +#define ZZSTOP zzstop_ +#define ZZSTRT zzstrt_ +#define ZZWRMT zzwrmt_ +#define ZZWTMT zzwtmt_ + + + +/* If KNET name mapping is enabled selected machine level kernel names are + * mapped into procedures in the KI (kernel interface) package. This is + * necessary if the high level code is to have networking capabilities. + * Define NOKNET to disable this mapping, e.g., in the kernel itself. + */ + +#ifndef NOKNET + +#define zardnd_ kardnd_ +#define zawrnd_ kawrnd_ +#define zawtnt_ kawtnd_ +#define zclsnd_ kclsnd_ +#define zfchdr_ kfchdr_ +#define zfgcwd_ kfgcwd_ +#define zfpath_ kfpath_ +#define zfsubd_ kfsubd_ +#define zopnnd_ kopnnd_ +#define zsttnd_ ksttnd_ +#define zardbf_ kardbf_ +#define zardlp_ kardlp_ +#define zardpl_ kardpl_ +#define zardpr_ kardpr_ +#define zardsf_ kardsf_ +#define zawrbf_ kawrbf_ +#define zawrlp_ kawrlp_ +#define zawrpl_ kawrpl_ +#define zawrpr_ kawrpr_ +#define zawrsf_ kawrsf_ +#define zawtbf_ kawtbf_ +#define zawtlp_ kawtlp_ +#define zawtpl_ kawtpl_ +#define zawtpr_ kawtpr_ +#define zawtsf_ kawtsf_ +#define zclcpr_ kclcpr_ +#define zcldir_ kcldir_ +#define zcldpr_ kcldpr_ +#define zclsbf_ kclsbf_ +#define zclslp_ kclslp_ +#define zclspl_ kclspl_ +#define zclspr_ kclspr_ +#define zclssf_ kclssf_ +#define zclstx_ kclstx_ +#define zclsty_ kclsty_ +#define zdvall_ kdvall_ +#define zdvown_ kdvown_ +#define zfacss_ kfacss_ +#define zfaloc_ kfaloc_ +#define zfdele_ kfdele_ +#define zfinfo_ kfinfo_ +#define zflstx_ kflstx_ +#define zflsty_ kflsty_ +#define zfmkcp_ kfmkcp_ +#define zfmkdr_ kfmkdr_ +#define zfprot_ kfprot_ +#define zfrnam_ kfrnam_ +#define zfrmdr_ kfrmdr_ +#define zfutim_ kfutim_ +#define zgettx_ kgettx_ +#define zgetty_ kgetty_ +#define zgfdir_ kgfdir_ +#define zintpr_ kintpr_ +#define znottx_ knottx_ +#define znotty_ knotty_ +#define zopcpr_ kopcpr_ +#define zopdir_ kopdir_ +#define zopdpr_ kopdpr_ +#define zopnbf_ kopnbf_ +#define zopnlp_ kopnlp_ +#define zopnpl_ kopnpl_ +#define zopnpr_ kopnpr_ +#define zopnsf_ kopnsf_ +#define zopntx_ kopntx_ +#define zopnty_ kopnty_ +#define zoscmd_ koscmd_ +#define zputtx_ kputtx_ +#define zputty_ kputty_ +#define zsektx_ ksektx_ +#define zsekty_ ksekty_ +#define zsttbf_ ksttbf_ +#define zsttlp_ ksttlp_ +#define zsttpl_ ksttpl_ +#define zsttpr_ ksttpr_ +#define zsttsf_ ksttsf_ +#define zstttx_ kstttx_ +#define zsttty_ ksttty_ +#define zzclmt_ kzclmt_ +#define zzopmt_ kzopmt_ +#define zzrdmt_ kzrdmt_ +#define zzrwmt_ kzrwmt_ +#define zzstmt_ kzstmt_ +#define zzwrmt_ kzwrmt_ +#define zzwtmt_ kzwtmt_ + + +#endif + +/* Procedure names of miscellaneous potentially machine dependent Bit and Byte + * Primitives. + */ +#define ACLRB aclrb_ +#define ANDI andi_ +#define ANDL andl_ +#define ANDS ands_ +#define BITMOV bitmov_ +#define BITPAK bitpak_ +#define BITUPK bitupk_ +#define BSWAP2 bswap2_ +#define BSWAP4 bswap4_ +#define BSWAP8 bswap8_ +#define BYTMOV bytmov_ +#define CHRPAK chrpak_ +#define CHRUPK chrupk_ +#define D1MACH d1mach_ +#define I1MACH i1mach_ +#define MIILEN miilen_ +#define MIIPAK miipak_ +#define MIIUPK miiupk_ +#define NOTI noti_ +#define NOTL notl_ +#define NOTS nots_ +#define ORI ori_ +#define ORL orl_ +#define ORS ors_ +#define R1MACH r1mach_ +#define SHIFTI shifti_ +#define SHIFTS shifts_ +#define SHIFTL shiftl_ +#define STRPAK strpak_ +#define STRUPK strupk_ +#define XORI xori_ +#define XORL xorl_ +#define XORS xors_ +#define I32TO64 i32to4_ +#define I64TO32 i64to2_ +#define IPAK32 ipak32_ +#define IUPK32 iupk32_ +#define IPAK16 ipak16_ +#define IUPK16 iupk16_ +#define IMUL32 imul32_ +#define ISCL32 iscl32_ +#define ISCL64 iscl64_ +#define STRSUM strsum_ + +#define ACLRC aclrc_ +#define ACLRD aclrd_ +#define ACLRI aclri_ +#define ACLRL aclrl_ +#define ACLRR aclrr_ +#define ACLRS aclrs_ +#define AMOVC amovc_ +#define AMOVD amovd_ +#define AMOVI amovi_ +#define AMOVL amovl_ +#define AMOVR amovr_ +#define AMOVS amovs_ + +/* Procedure names for the potentially machine dependent VOPS vector + * primitives. The ACHT stands for change datatype, the B suffix refers + * to primitives which deal with unsigned machine bytes, and the U suffix + * refers to primitives which deal with unsigned short (16 bit) integers. + */ +#define ACHTBB achtbb_ +#define ACHTBC achtbc_ +#define ACHTBD achtbd_ +#define ACHTBI achtbi_ +#define ACHTBL achtbl_ +#define ACHTBR achtbr_ +#define ACHTBS achtbs_ +#define ACHTBU achtbu_ +#define ACHTBX achtbx_ +#define ACHTCB achtcb_ +#define ACHTCU achtcu_ +#define ACHTDB achtdb_ +#define ACHTDU achtdu_ +#define ACHTIB achtib_ +#define ACHTIU achtiu_ +#define ACHTLB achtlb_ +#define ACHTLU achtlu_ +#define ACHTRB achtrb_ +#define ACHTRU achtru_ +#define ACHTSB achtsb_ +#define ACHTSU achtsu_ +#define ACHTUB achtub_ +#define ACHTUC achtuc_ +#define ACHTUD achtud_ +#define ACHTUI achtui_ +#define ACHTUL achtul_ +#define ACHTUR achtur_ +#define ACHTUS achtus_ +#define ACHTUU achtuu_ +#define ACHTUX achtux_ +#define ACHTXB achtxb_ +#define ACHTXU achtxu_ + +/* +#define import_kproto +*/ + +#define D_knames diff --git a/unix/hlib/libc/kproto.h b/unix/hlib/libc/kproto.h new file mode 100644 index 00000000..df300f81 --- /dev/null +++ b/unix/hlib/libc/kproto.h @@ -0,0 +1,496 @@ +/* + * KPROTO.H -- IRAF Kernel prototype definitions. + */ + +#include <stdio.h> +#include <time.h> /* for time_t */ +#include <signal.h> /* for siginfo_t */ + +#ifndef MACH64 + + +/* alloc.c */ +extern int main(int argc, char *argv[]); +extern int alloc(char *argv[], int statonly); +extern int dealloc(char *argv[]); +extern int findsfs(char *argv[]); +/* dio.c */ +extern int directio(int fd, int advice); +/* getproc.c */ +extern int uid_executing(int uid); +/* gmttolst.c */ +extern time_t gmt_to_lst(time_t gmt); +/* irafpath.c */ +extern char *irafpath(char *fname); +/* prwait.c */ +extern void pr_enter(int pid, int inchan, int outchan); +extern int pr_wait(int pid); +extern int pr_getipc(int pid, int *inchan, int *outchan); +extern struct proctable *pr_findpid(int pid); +extern void pr_release(int pid); +/* tape.c */ +extern int main(int argc, char *argv[]); +extern void mtop(int op, int count); +extern char *nextcmd(FILE *in); +extern char *gettok(void); +extern char *prompt(void); +extern void pstatus(void); +extern void output(char *text); +extern void phelp(void); +/* zalloc.c */ +extern int zdvall_(shortint *aliases, int *allflg, int *status); +extern int zdvown_(shortint *device, shortint *owner, int *maxch, int *status); +extern int loggedin(int uid); +/* zawset.c */ +extern int zawset_(int *best_size, int *new_size, int *old_size, int *max_size); +/* zcall.c */ +extern int zcall0_(int *proc); +extern int zcall1_(int *proc, void *arg1); +extern int zcall2_(int *proc, void *arg1, void *arg2); +extern int zcall3_(int *proc, void *arg1, void *arg2, void *arg3); +extern int zcall4_(int *proc, void *arg1, void *arg2, void *arg3, void *arg4); +extern int zcall5_(int *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5); +extern int zcall6_(int *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5, void *arg6); +extern int zcall7_(int *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5, void *arg6, void *arg7); +extern int zcall8_(int *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5, void *arg6, void *arg7, void *arg8); +extern int zcall9_(int *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5, void *arg6, void *arg7, void *arg8, void *arg9); +extern int zcalla_(int *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5, void *arg6, void *arg7, void *arg8, void *arg9, void *arg10); +/* zdojmp.c */ +extern void zdojmp_(int *jmpbuf, int *status); +/* zfacss.c */ +extern int zfacss_(shortint *fname, int *mode, int *type, int *status); +/* zfaloc.c */ +extern int zfaloc_(shortint *fname, int *nbytes, int *status); +/* zfchdr.c */ +extern int zfchdr_(shortint *newdir, int *status); +/* zfdele.c */ +extern int zfdele_(shortint *fname, int *status); +/* zfgcwd.c */ +extern int zfgcwd_(shortint *outstr, int *maxch, int *status); +/* zfinfo.c */ +extern int zfinfo_(shortint *fname, int *finfo_struct, int *status); +/* zfiobf.c */ +extern int zopnbf_(shortint *osfn, int *mode, int *chan); +extern int zclsbf_(int *fd, int *status); +extern int zardbf_(int *chan, shortint *buf, int *maxbytes, int *offset); +extern int zawrbf_(int *chan, shortint *buf, int *nbytes, int *offset); +extern int zawtbf_(int *fd, int *status); +extern int zsttbf_(int *fd, int *param, int *lvalue); +extern int _u_fmode(int mode); +extern int vm_access(char *fname, int mode); +extern int vm_delete(char *fname, int force); +extern int vm_reservespace(long nbytes); +extern int vm_largefile(long nbytes); +extern int vm_directio(int fd, int flag); +/* zfioks.c */ +extern int zopnks_(shortint *x_server, int *mode, int *chan); +extern int zclsks_(int *chan, int *status); +extern int zardks_(int *chan, shortint *buf, int *totbytes, int *loffset); +extern int zawrks_(int *chan, shortint *buf, int *totbytes, int *loffset); +extern int zawtks_(int *chan, int *status); +extern int zsttks_(int *chan, int *param, int *lvalue); +extern void pr_mask(char *str); +/* zfiolp.c */ +extern int zopnlp_(shortint *printer, int *mode, int *chan); +extern int zclslp_(int *chan, int *status); +extern int zardlp_(int *chan, shortint *buf, int *maxbytes, int *offset); +extern int zawrlp_(int *chan, shortint *buf, int *nbytes, int *offset); +extern int zawtlp_(int *chan, int *status); +extern int zsttlp_(int *chan, int *param, int *lvalue); +/* zfiomt.c */ +extern int zzopmt_(shortint *device, int *acmode, shortint *devcap, int *devpos, int *newfile, int *chan); +extern int zzclmt_(int *chan, int *devpos, int *o_status); +extern int zzrdmt_(int *chan, shortint *buf, int *maxbytes, int *offset); +extern int zzwrmt_(int *chan, shortint *buf, int *nbytes, int *offset); +extern int zzwtmt_(int *chan, int *devpos, int *o_status); +extern int zzstmt_(int *chan, int *param, int *lvalue); +extern int zzrwmt_(shortint *device, shortint *devcap, int *o_status); +/* zfiond.c */ +extern int zopnnd_(shortint *pk_osfn, int *mode, int *chan); +extern int zclsnd_(int *fd, int *status); +extern int zardnd_(int *chan, shortint *buf, int *maxbytes, int *offset); +extern int zawrnd_(int *chan, shortint *buf, int *nbytes, int *offset); +extern int zawtnd_(int *fd, int *status); +extern int zsttnd_(int *fd, int *param, int *lvalue); +/* zfiopl.c */ +extern int zopnpl_(shortint *plotter, int *mode, int *chan); +extern int zclspl_(int *chan, int *status); +extern int zardpl_(int *chan, shortint *buf, int *maxbytes, int *offset); +extern int zawrpl_(int *chan, shortint *buf, int *nbytes, int *offset); +extern int zawtpl_(int *chan, int *status); +extern int zsttpl_(int *chan, int *param, int *lvalue); +/* zfiopr.c */ +extern int zopcpr_(shortint *osfn, int *inchan, int *outchan, int *pid); +extern int zclcpr_(int *pid, int *exit_status); +extern int zardpr_(int *chan, shortint *buf, int *maxbytes, int *loffset); +extern int zawrpr_(int *chan, shortint *buf, int *nbytes, int *loffset); +extern int zawtpr_(int *chan, int *status); +extern int zsttpr_(int *chan, int *param, int *lvalue); +/* zfiosf.c */ +extern int zopnsf_(shortint *osfn, int *mode, int *chan); +extern int zclssf_(int *fd, int *status); +extern int zardsf_(int *chan, shortint *buf, int *maxbytes, int *offset); +extern int zawrsf_(int *chan, shortint *buf, int *nbytes, int *offset); +extern int zawtsf_(int *fd, int *status); +extern int zsttsf_(int *fd, int *param, int *lvalue); +/* zfiotx.c */ +extern int zopntx_(shortint *osfn, int *mode, int *chan); +extern int zclstx_(int *fd, int *status); +extern int zflstx_(int *fd, int *status); +extern int zgettx_(int *fd, shortint *buf, int *maxchars, int *status); +extern int znottx_(int *fd, int *offset); +extern int zputtx_(int *fd, shortint *buf, int *nchars, int *status); +extern int zsektx_(int *fd, int *znottx_offset, int *status); +extern int zstttx_(int *fd, int *param, int *value); +/* zfioty.c */ +extern int zopnty_(shortint *osfn, int *mode, int *chan); +extern int zclsty_(int *fd, int *status); +extern int zflsty_(int *fd, int *status); +extern int zgetty_(int *fd, shortint *buf, int *maxchars, int *status); +extern int znotty_(int *fd, int *offset); +extern int zputty_(int *fd, shortint *buf, int *nchars, int *status); +extern int zsekty_(int *fd, int *znotty_offset, int *status); +extern int zsttty_(int *fd, int *param, int *value); +/* zfmkcp.c */ +extern int zfmkcp_(shortint *osfn, shortint *new_osfn, int *status); +/* zfmkdr.c */ +extern int zfmkdr_(shortint *newdir, int *status); +/* zfnbrk.c */ +extern int zfnbrk_(shortint *vfn, int *uroot_offset, int *uextn_offset); +/* zfpath.c */ +extern int zfpath_(shortint *osfn, shortint *pathname, int *maxch, int *nchars); +/* zfpoll.c */ +extern int zfpoll_(int *pfds, int *nfds, int *timeout, int *npoll, int *status); +/* zfprot.c */ +extern int zfprot_(shortint *fname, int *action, int *status); +/* zfrnam.c */ +extern int zfrnam_(shortint *oldname, shortint *newname, int *status); +/* zfrmdr.c */ +extern int zfrmdr_(shortint *dir, int *status); +/* zfsubd.c */ +extern int zfsubd_(shortint *osdir, int *maxch, shortint *subdir, int *nchars); +/* zfunc.c */ +extern int zfunc0_(int *proc); +extern int zfunc1_(int *proc, void *arg1); +extern int zfunc2_(int *proc, void *arg1, void *arg2); +extern int zfunc3_(int *proc, void *arg1, void *arg2, void *arg3); +extern int zfunc4_(int *proc, void *arg1, void *arg2, void *arg3, void *arg4); +extern int zfunc5_(int *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5); +extern int zfunc6_(int *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5, void *arg6); +extern int zfunc7_(int *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5, void *arg6, void *arg7); +extern int zfunc8_(int *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5, void *arg6, void *arg7, void *arg8); +extern int zfunc9_(int *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5, void *arg6, void *arg7, void *arg8, void *arg9); +extern int zfunca_(int *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5, void *arg6, void *arg7, void *arg8, void *arg9, void *arg10); +/* zfutim.c */ +extern int zfutim_(shortint *fname, int *atime, int *mtime, int *status); +/* zfxdir.c */ +extern int zfxdir_(shortint *osfn, shortint *osdir, int *maxch, int *nchars); +/* zgcmdl.c */ +extern int zgcmdl_(shortint *cmd, int *maxch, int *status); +/* zghost.c */ +extern int zghost_(shortint *outstr, int *maxch); +/* zglobl.c */ +/* zgmtco.c */ +extern int zgmtco_(int *gmtcor); +/* zgtenv.c */ +extern int zgtenv_(shortint *envvar, shortint *outstr, int *maxch, int *status); +/* zgtime.c */ +extern int zgtime_(int *clock_time, int *cpu_time); +/* zgtpid.c */ +extern int zgtpid_(int *pid); +/* zintpr.c */ +extern int zintpr_(int *pid, int *exception, int *status); +/* zlocpr.c +extern int zlocpr_(PFI proc, int *o_epa); +*/ +/* zlocva.c */ +extern int zlocva_(shortint *variable, int *location); +/* zmain.c */ +extern int main(int argc, char *argv[]); +/* zmaloc.c */ +extern int zmaloc_(int *buf, int *nbytes, int *status); +/* zmfree.c */ +extern int zmfree_(int *buf, int *status); +/* zopdir.c */ +extern int zopdir_(shortint *fname, int *chan); +extern int zcldir_(int *chan, int *status); +extern int zgfdir_(int *chan, shortint *outstr, int *maxch, int *status); +/* zopdpr.c */ +extern int zopdpr_(shortint *osfn, shortint *bkgfile, shortint *queue, int *jobcode); +extern int zcldpr_(int *jobcode, int *killflag, int *exit_status); +/* zoscmd.c */ +extern int zoscmd_(shortint *oscmd, shortint *stdin_file, shortint *stdout_file, shortint *stderr_file, int *status); +extern int pr_onint(int usig, int *hwcode, int *scp); +/* zpanic.c */ +extern int zpanic_(int *errcode, shortint *errmsg); +extern int kernel_panic(char *errmsg); +/* zraloc.c */ +extern int zraloc_(int *buf, int *nbytes, int *status); +/* zshlib.c */ +extern void vlibinit_(void); +/* zwmsec.c */ +extern int zwmsec_(int *msec); +/* zxwhen.c */ +extern int zxwhen_(int *sig_code, int *epa, int *old_epa); +extern void ex_handler(int unix_signal, siginfo_t *info, void *ucp); +extern int zxgmes_(int *os_exception, shortint *errmsg, int *maxch); +/* zzepro.c */ +extern int zzepro_(void); +/* zzexit.c */ +extern int exit_(int *code); +/* zzpstr.c */ +extern int spp_debug(void); +extern int zzpstr_(shortint *s1, shortint *s2); +extern int zzlstr_(shortint *s1, shortint *s2); +extern void spp_printstr(shortint *s); +extern void spp_printmemc(int memc_ptr); +/* zzsetk.c */ +extern int zzsetk_(char *ospn, char *osbfn, int prtype, int isatty, int in, int out); +/* zzstrt.c */ +extern int zzstrt_(void); +extern int zzstop_(void); +extern void ready_(void); +extern void mdump_(int *buf, int *nbytes); + + + +#else + + + +/* dio.c */ +extern int directio(int fd, int advice); +/* getproc.c */ +extern int uid_executing(int uid); +/* gmttolst.c */ +extern time_t gmt_to_lst(time_t gmt); +/* irafpath.c */ +extern char *irafpath(char *fname); +/* prwait.c */ +extern void pr_enter(int pid, int inchan, int outchan); +extern int pr_wait(int pid); +extern int pr_getipc(int pid, int *inchan, int *outchan); +extern struct proctable *pr_findpid(int pid); +extern void pr_release(int pid); +/* zalloc.c */ +extern int zdvall_(shortint *aliases, long *allflg, long *status); +extern int zdvown_(shortint *device, shortint *owner, long *maxch, long *status); +extern int loggedin(int uid); +/* zawset.c */ +extern int zawset_(long *best_size, long *new_size, long *old_size, long *max_size); +/* zcall.c */ +/* +extern int zcall0_(long *proc); +extern int zcall1_(long *proc, void *arg1); +extern int zcall2_(long *proc, void *arg1, void *arg2); +extern int zcall3_(long *proc, void *arg1, void *arg2, void *arg3); +extern int zcall4_(long *proc, void *arg1, void *arg2, void *arg3, void *arg4); +extern int zcall5_(long *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5); +extern int zcall6_(long *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5, void *arg6); +extern int zcall7_(long *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5, void *arg6, void *arg7); +extern int zcall8_(long *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5, void *arg6, void *arg7, void *arg8); +extern int zcall9_(long *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5, void *arg6, void *arg7, void *arg8, void *arg9); +extern int zcalla_(long *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5, void *arg6, void *arg7, void *arg8, void *arg9, void *arg10); +*/ +/* zdojmp.c */ +extern void zdojmp_(long *jmpbuf, long *status); +/* zfacss.c */ +extern int zfacss_(shortint *fname, long *mode, long *type, long *status); +/* zfaloc.c */ +extern int zfaloc_(shortint *fname, long *nbytes, long *status); +/* zfchdr.c */ +extern int zfchdr_(shortint *newdir, long *status); +/* zfdele.c */ +extern int zfdele_(shortint *fname, long *status); +/* zfgcwd.c */ +extern int zfgcwd_(shortint *outstr, long *maxch, long *status); +/* zfinfo.c */ +extern int zfinfo_(shortint *fname, long *finfo_struct, long *status); +/* zfiobf.c */ +extern int zopnbf_(shortint *osfn, long *mode, long *chan); +extern int zclsbf_(long *fd, long *status); +extern int zardbf_(long *chan, shortint *buf, long *maxbytes, long *offset); +extern int zawrbf_(long *chan, shortint *buf, long *nbytes, long *offset); +extern int zawtbf_(long *fd, long *status); +extern int zsttbf_(long *fd, long *param, long *lvalue); +extern int _u_fmode(int mode); +extern int vm_access(char *fname, int mode); +extern int vm_delete(char *fname, int force); +extern int vm_reservespace(long nbytes); +extern int vm_largefile(long nbytes); +extern int vm_directio(int fd, int flag); +/* zfioks.c */ +extern int zopnks_(shortint *x_server, long *mode, long *chan); +extern int zclsks_(long *chan, long *status); +extern int zardks_(long *chan, shortint *buf, long *totbytes, long *loffset); +extern int zawrks_(long *chan, shortint *buf, long *totbytes, long *loffset); +extern int zawtks_(long *chan, long *status); +extern int zsttks_(long *chan, long *param, long *lvalue); +extern void pr_mask(char *str); +/* zfiolp.c */ +extern int zopnlp_(shortint *printer, long *mode, long *chan); +extern int zclslp_(long *chan, long *status); +extern int zardlp_(long *chan, shortint *buf, long *maxbytes, long *offset); +extern int zawrlp_(long *chan, shortint *buf, long *nbytes, long *offset); +extern int zawtlp_(long *chan, long *status); +extern int zsttlp_(long *chan, long *param, long *lvalue); +/* zfiomt.c */ +extern int zzopmt_(shortint *device, long *acmode, shortint *devcap, long *devpos, long *newfile, long *chan); +extern int zzclmt_(long *chan, long *devpos, long *o_status); +extern int zzrdmt_(long *chan, shortint *buf, long *maxbytes, long *offset); +extern int zzwrmt_(long *chan, shortint *buf, long *nbytes, long *offset); +extern int zzwtmt_(long *chan, long *devpos, long *o_status); +extern int zzstmt_(long *chan, long *param, long *lvalue); +extern int zzrwmt_(shortint *device, shortint *devcap, long *o_status); +/* zfiond.c */ +extern int zopnnd_(shortint *pk_osfn, long *mode, long *chan); +extern int zclsnd_(long *fd, long *status); +extern int zardnd_(long *chan, shortint *buf, long *maxbytes, long *offset); +extern int zawrnd_(long *chan, shortint *buf, long *nbytes, long *offset); +extern int zawtnd_(long *fd, long *status); +extern int zsttnd_(long *fd, long *param, long *lvalue); +/* zfiopl.c */ +extern int zopnpl_(shortint *plotter, long *mode, long *chan); +extern int zclspl_(long *chan, long *status); +extern int zardpl_(long *chan, shortint *buf, long *maxbytes, long *offset); +extern int zawrpl_(long *chan, shortint *buf, long *nbytes, long *offset); +extern int zawtpl_(long *chan, long *status); +extern int zsttpl_(long *chan, long *param, long *lvalue); +/* zfiopr.c */ +extern int zopcpr_(shortint *osfn, long *inchan, long *outchan, long *pid); +extern int zclcpr_(long *pid, long *exit_status); +extern int zardpr_(long *chan, shortint *buf, long *maxbytes, long *loffset); +extern int zawrpr_(long *chan, shortint *buf, long *nbytes, long *loffset); +extern int zawtpr_(long *chan, long *status); +extern int zsttpr_(long *chan, long *param, long *lvalue); +/* zfiosf.c */ +extern int zopnsf_(shortint *osfn, long *mode, long *chan); +extern int zclssf_(long *fd, long *status); +extern int zardsf_(long *chan, shortint *buf, long *maxbytes, long *offset); +extern int zawrsf_(long *chan, shortint *buf, long *nbytes, long *offset); +extern int zawtsf_(long *fd, long *status); +extern int zsttsf_(long *fd, long *param, long *lvalue); +/* zfiotx.c */ +extern int zopntx_(shortint *osfn, long *mode, long *chan); +extern int zclstx_(long *fd, long *status); +extern int zflstx_(long *fd, long *status); +extern int zgettx_(long *fd, shortint *buf, long *maxchars, long *status); +extern int znottx_(long *fd, long *offset); +extern int zputtx_(long *fd, shortint *buf, long *nchars, long *status); +extern int zsektx_(long *fd, long *znottx_offset, long *status); +extern int zstttx_(long *fd, long *param, long *value); +/* zfioty.c */ +extern int zopnty_(shortint *osfn, long *mode, long *chan); +extern int zclsty_(long *fd, long *status); +extern int zflsty_(long *fd, long *status); +extern int zgetty_(long *fd, shortint *buf, long *maxchars, long *status); +extern int znotty_(long *fd, long *offset); +extern int zputty_(long *fd, shortint *buf, long *nchars, long *status); +extern int zsekty_(long *fd, long *znotty_offset, long *status); +extern int zsttty_(long *fd, long *param, long *value); +/* zfmkcp.c */ +extern int zfmkcp_(shortint *osfn, shortint *new_osfn, long *status); +/* zfmkdr.c */ +extern int zfmkdr_(shortint *newdir, long *status); +/* zfnbrk.c */ +extern int zfnbrk_(shortint *vfn, long *uroot_offset, long *uextn_offset); +/* zfpath.c */ +extern int zfpath_(shortint *osfn, shortint *pathname, long *maxch, long *nchars); +/* zfpoll.c */ +extern int zfpoll_(long *pfds, long *nfds, long *timeout, long *npoll, long *status); +/* zfprot.c */ +extern int zfprot_(shortint *fname, long *action, long *status); +/* zfrnam.c */ +extern int zfrnam_(shortint *oldname, shortint *newname, long *status); +/* zfsubd.c */ +extern int zfsubd_(shortint *osdir, long *maxch, shortint *subdir, long *nchars); +/* zfunc.c */ +extern long zfunc0_(long *proc); +extern long zfunc1_(long *proc, void *arg1); +extern long zfunc2_(long *proc, void *arg1, void *arg2); +extern long zfunc3_(long *proc, void *arg1, void *arg2, void *arg3); +extern long zfunc4_(long *proc, void *arg1, void *arg2, void *arg3, void *arg4); +extern long zfunc5_(long *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5); +extern long zfunc6_(long *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5, void *arg6); +extern long zfunc7_(long *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5, void *arg6, void *arg7); +extern long zfunc8_(long *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5, void *arg6, void *arg7, void *arg8); +extern long zfunc9_(long *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5, void *arg6, void *arg7, void *arg8, void *arg9); +extern long zfunca_(long *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5, void *arg6, void *arg7, void *arg8, void *arg9, void *arg10); +/* zfutim.c */ +extern int zfutim_(shortint *fname, long *atime, long *mtime, long *status); +/* zfxdir.c */ +extern int zfxdir_(shortint *osfn, shortint *osdir, long *maxch, long *nchars); +/* zgcmdl.c */ +extern int zgcmdl_(shortint *cmd, long *maxch, long *status); +/* zghost.c */ +extern int zghost_(shortint *outstr, long *maxch); +/* zglobl.c */ +/* zgmtco.c */ +extern int zgmtco_(long *gmtcor); +/* zgtenv.c */ +extern int zgtenv_(shortint *envvar, shortint *outstr, long *maxch, long *status); +/* zgtime.c */ +extern int zgtime_(long *clock_time, long *cpu_time); +/* zgtpid.c */ +extern int zgtpid_(long *pid); +/* zintpr.c */ +extern int zintpr_(long *pid, long *exception, long *status); +/* zlocpr.c */ +/* +extern int zlocpr_(PFI proc, long *o_epa); +*/ +/* zlocva.c */ +extern int zlocva_(shortint *variable, long *location); +/* zmain.c */ +extern int main(int argc, char *argv[]); +/* zmaloc.c */ +extern int zmaloc_(long *buf, long *nbytes, long *status); +/* zmfree.c */ +extern int zmfree_(long *buf, long *status); +/* zopdir.c */ +extern int zopdir_(shortint *fname, long *chan); +extern int zcldir_(long *chan, long *status); +extern int zgfdir_(long *chan, shortint *outstr, long *maxch, long *status); +/* zopdpr.c */ +extern int zopdpr_(shortint *osfn, shortint *bkgfile, shortint *queue, long *jobcode); +extern int zcldpr_(long *jobcode, long *killflag, long *exit_status); +/* zoscmd.c */ +extern int zoscmd_(shortint *oscmd, shortint *stdin_file, shortint *stdout_file, shortint *stderr_file, long *status); +extern int pr_onint(int usig, int *hwcode, int *scp); +/* zpanic.c */ +extern int zpanic_(long *errcode, shortint *errmsg); +extern int kernel_panic(char *errmsg); +/* zraloc.c */ +extern int zraloc_(long *buf, long *nbytes, long *status); +/* zshlib.c */ +extern void vlibinit_(void); +/* zwmsec.c */ +extern int zwmsec_(long *msec); +/* zxwhen.c */ +extern int zxwhen_(long *sig_code, long *epa, long *old_epa); +extern void ex_handler(int unix_signal, siginfo_t *info, void *ucp); +extern int zxgmes_(long *os_exception, shortint *errmsg, long *maxch); +extern int gfpucw_(long *xcw); +extern int sfpucw_(long *xcw); +/* zzepro.c */ +/* +extern int zzepro_(void); +*/ +/* zzexit.c */ +extern int exit_(long *code); +/* zzpstr.c */ +extern int spp_debug(void); +extern int zzpstr_(shortint *s1, shortint *s2); +extern int zzlstr_(shortint *s1, shortint *s2); +extern void spp_printstr(shortint *s); +extern void spp_printmemc(int memc_ptr); +/* zzsetk.c */ +extern int zzsetk_(char *ospn, char *osbfn, int prtype, int isatty, int in, int out); +/* zzstrt.c */ +extern int zzstrt_(void); +extern int zzstop_(void); +extern void ready_(void); +extern void mdump_(long *buf, long *nbytes); + + +#endif diff --git a/unix/hlib/libc/kproto.h.bak b/unix/hlib/libc/kproto.h.bak new file mode 100644 index 00000000..adde5ecd --- /dev/null +++ b/unix/hlib/libc/kproto.h.bak @@ -0,0 +1,494 @@ +/* + * KPROTO.H -- IRAF Kernel prototype definitions. + */ + +#include <stdio.h> +#include <time.h> /* for time_t */ +#include <signal.h> /* for siginfo_t */ + +#ifndef MACH64 + + +/* alloc.c */ +extern int main(int argc, char *argv[]); +extern int alloc(char *argv[], int statonly); +extern int dealloc(char *argv[]); +extern int findsfs(char *argv[]); +/* dio.c */ +extern int directio(int fd, int advice); +/* getproc.c */ +extern int uid_executing(int uid); +/* gmttolst.c */ +extern time_t gmt_to_lst(time_t gmt); +/* irafpath.c */ +extern char *irafpath(char *fname); +/* prwait.c */ +extern void pr_enter(int pid, int inchan, int outchan); +extern int pr_wait(int pid); +extern int pr_getipc(int pid, int *inchan, int *outchan); +extern struct proctable *pr_findpid(int pid); +extern void pr_release(int pid); +/* tape.c */ +extern int main(int argc, char *argv[]); +extern void mtop(int op, int count); +extern char *nextcmd(FILE *in); +extern char *gettok(void); +extern char *prompt(void); +extern void pstatus(void); +extern void output(char *text); +extern void phelp(void); +/* zalloc.c */ +extern int zdvall_(short *aliases, int *allflg, int *status); +extern int zdvown_(short *device, short *owner, int *maxch, int *status); +extern int loggedin(int uid); +/* zawset.c */ +extern int zawset_(int *best_size, int *new_size, int *old_size, int *max_size); +/* zcall.c */ +extern int zcall0_(int *proc); +extern int zcall1_(int *proc, void *arg1); +extern int zcall2_(int *proc, void *arg1, void *arg2); +extern int zcall3_(int *proc, void *arg1, void *arg2, void *arg3); +extern int zcall4_(int *proc, void *arg1, void *arg2, void *arg3, void *arg4); +extern int zcall5_(int *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5); +extern int zcall6_(int *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5, void *arg6); +extern int zcall7_(int *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5, void *arg6, void *arg7); +extern int zcall8_(int *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5, void *arg6, void *arg7, void *arg8); +extern int zcall9_(int *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5, void *arg6, void *arg7, void *arg8, void *arg9); +extern int zcalla_(int *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5, void *arg6, void *arg7, void *arg8, void *arg9, void *arg10); +/* zdojmp.c */ +extern void zdojmp_(int *jmpbuf, int *status); +/* zfacss.c */ +extern int zfacss_(short *fname, int *mode, int *type, int *status); +/* zfaloc.c */ +extern int zfaloc_(short *fname, int *nbytes, int *status); +/* zfchdr.c */ +extern int zfchdr_(short *newdir, int *status); +/* zfdele.c */ +extern int zfdele_(short *fname, int *status); +/* zfgcwd.c */ +extern int zfgcwd_(short *outstr, int *maxch, int *status); +/* zfinfo.c */ +extern int zfinfo_(short *fname, int *finfo_struct, int *status); +/* zfiobf.c */ +extern int zopnbf_(short *osfn, int *mode, int *chan); +extern int zclsbf_(int *fd, int *status); +extern int zardbf_(int *chan, short *buf, int *maxbytes, int *offset); +extern int zawrbf_(int *chan, short *buf, int *nbytes, int *offset); +extern int zawtbf_(int *fd, int *status); +extern int zsttbf_(int *fd, int *param, int *lvalue); +extern int _u_fmode(int mode); +extern int vm_access(char *fname, int mode); +extern int vm_delete(char *fname, int force); +extern int vm_reservespace(long nbytes); +extern int vm_largefile(long nbytes); +extern int vm_directio(int fd, int flag); +/* zfioks.c */ +extern int zopnks_(short *x_server, int *mode, int *chan); +extern int zclsks_(int *chan, int *status); +extern int zardks_(int *chan, short *buf, int *totbytes, int *loffset); +extern int zawrks_(int *chan, short *buf, int *totbytes, int *loffset); +extern int zawtks_(int *chan, int *status); +extern int zsttks_(int *chan, int *param, int *lvalue); +extern void pr_mask(char *str); +/* zfiolp.c */ +extern int zopnlp_(short *printer, int *mode, int *chan); +extern int zclslp_(int *chan, int *status); +extern int zardlp_(int *chan, short *buf, int *maxbytes, int *offset); +extern int zawrlp_(int *chan, short *buf, int *nbytes, int *offset); +extern int zawtlp_(int *chan, int *status); +extern int zsttlp_(int *chan, int *param, int *lvalue); +/* zfiomt.c */ +extern int zzopmt_(short *device, int *acmode, short *devcap, int *devpos, int *newfile, int *chan); +extern int zzclmt_(int *chan, int *devpos, int *o_status); +extern int zzrdmt_(int *chan, short *buf, int *maxbytes, int *offset); +extern int zzwrmt_(int *chan, short *buf, int *nbytes, int *offset); +extern int zzwtmt_(int *chan, int *devpos, int *o_status); +extern int zzstmt_(int *chan, int *param, int *lvalue); +extern int zzrwmt_(short *device, short *devcap, int *o_status); +/* zfiond.c */ +extern int zopnnd_(short *pk_osfn, int *mode, int *chan); +extern int zclsnd_(int *fd, int *status); +extern int zardnd_(int *chan, short *buf, int *maxbytes, int *offset); +extern int zawrnd_(int *chan, short *buf, int *nbytes, int *offset); +extern int zawtnd_(int *fd, int *status); +extern int zsttnd_(int *fd, int *param, int *lvalue); +/* zfiopl.c */ +extern int zopnpl_(short *plotter, int *mode, int *chan); +extern int zclspl_(int *chan, int *status); +extern int zardpl_(int *chan, short *buf, int *maxbytes, int *offset); +extern int zawrpl_(int *chan, short *buf, int *nbytes, int *offset); +extern int zawtpl_(int *chan, int *status); +extern int zsttpl_(int *chan, int *param, int *lvalue); +/* zfiopr.c */ +extern int zopcpr_(short *osfn, int *inchan, int *outchan, int *pid); +extern int zclcpr_(int *pid, int *exit_status); +extern int zardpr_(int *chan, short *buf, int *maxbytes, int *loffset); +extern int zawrpr_(int *chan, short *buf, int *nbytes, int *loffset); +extern int zawtpr_(int *chan, int *status); +extern int zsttpr_(int *chan, int *param, int *lvalue); +/* zfiosf.c */ +extern int zopnsf_(short *osfn, int *mode, int *chan); +extern int zclssf_(int *fd, int *status); +extern int zardsf_(int *chan, short *buf, int *maxbytes, int *offset); +extern int zawrsf_(int *chan, short *buf, int *nbytes, int *offset); +extern int zawtsf_(int *fd, int *status); +extern int zsttsf_(int *fd, int *param, int *lvalue); +/* zfiotx.c */ +extern int zopntx_(short *osfn, int *mode, int *chan); +extern int zclstx_(int *fd, int *status); +extern int zflstx_(int *fd, int *status); +extern int zgettx_(int *fd, short *buf, int *maxchars, int *status); +extern int znottx_(int *fd, int *offset); +extern int zputtx_(int *fd, short *buf, int *nchars, int *status); +extern int zsektx_(int *fd, int *znottx_offset, int *status); +extern int zstttx_(int *fd, int *param, int *value); +/* zfioty.c */ +extern int zopnty_(short *osfn, int *mode, int *chan); +extern int zclsty_(int *fd, int *status); +extern int zflsty_(int *fd, int *status); +extern int zgetty_(int *fd, short *buf, int *maxchars, int *status); +extern int znotty_(int *fd, int *offset); +extern int zputty_(int *fd, short *buf, int *nchars, int *status); +extern int zsekty_(int *fd, int *znotty_offset, int *status); +extern int zsttty_(int *fd, int *param, int *value); +/* zfmkcp.c */ +extern int zfmkcp_(short *osfn, short *new_osfn, int *status); +/* zfmkdr.c */ +extern int zfmkdr_(short *newdir, int *status); +/* zfnbrk.c */ +extern int zfnbrk_(short *vfn, int *uroot_offset, int *uextn_offset); +/* zfpath.c */ +extern int zfpath_(short *osfn, short *pathname, int *maxch, int *nchars); +/* zfpoll.c */ +extern int zfpoll_(int *pfds, int *nfds, int *timeout, int *npoll, int *status); +/* zfprot.c */ +extern int zfprot_(short *fname, int *action, int *status); +/* zfrnam.c */ +extern int zfrnam_(short *oldname, short *newname, int *status); +/* zfsubd.c */ +extern int zfsubd_(short *osdir, int *maxch, short *subdir, int *nchars); +/* zfunc.c */ +extern int zfunc0_(int *proc); +extern int zfunc1_(int *proc, void *arg1); +extern int zfunc2_(int *proc, void *arg1, void *arg2); +extern int zfunc3_(int *proc, void *arg1, void *arg2, void *arg3); +extern int zfunc4_(int *proc, void *arg1, void *arg2, void *arg3, void *arg4); +extern int zfunc5_(int *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5); +extern int zfunc6_(int *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5, void *arg6); +extern int zfunc7_(int *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5, void *arg6, void *arg7); +extern int zfunc8_(int *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5, void *arg6, void *arg7, void *arg8); +extern int zfunc9_(int *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5, void *arg6, void *arg7, void *arg8, void *arg9); +extern int zfunca_(int *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5, void *arg6, void *arg7, void *arg8, void *arg9, void *arg10); +/* zfutim.c */ +extern int zfutim_(short *fname, int *atime, int *mtime, int *status); +/* zfxdir.c */ +extern int zfxdir_(short *osfn, short *osdir, int *maxch, int *nchars); +/* zgcmdl.c */ +extern int zgcmdl_(short *cmd, int *maxch, int *status); +/* zghost.c */ +extern int zghost_(short *outstr, int *maxch); +/* zglobl.c */ +/* zgmtco.c */ +extern int zgmtco_(int *gmtcor); +/* zgtenv.c */ +extern int zgtenv_(short *envvar, short *outstr, int *maxch, int *status); +/* zgtime.c */ +extern int zgtime_(int *clock_time, int *cpu_time); +/* zgtpid.c */ +extern int zgtpid_(int *pid); +/* zintpr.c */ +extern int zintpr_(int *pid, int *exception, int *status); +/* zlocpr.c +extern int zlocpr_(PFI proc, int *o_epa); +*/ +/* zlocva.c */ +extern int zlocva_(short *variable, int *location); +/* zmain.c */ +extern int main(int argc, char *argv[]); +/* zmaloc.c */ +extern int zmaloc_(int *buf, int *nbytes, int *status); +/* zmfree.c */ +extern int zmfree_(int *buf, int *status); +/* zopdir.c */ +extern int zopdir_(short *fname, int *chan); +extern int zcldir_(int *chan, int *status); +extern int zgfdir_(int *chan, short *outstr, int *maxch, int *status); +/* zopdpr.c */ +extern int zopdpr_(short *osfn, short *bkgfile, short *queue, int *jobcode); +extern int zcldpr_(int *jobcode, int *killflag, int *exit_status); +/* zoscmd.c */ +extern int zoscmd_(short *oscmd, short *stdin_file, short *stdout_file, short *stderr_file, int *status); +extern int pr_onint(int usig, int *hwcode, int *scp); +/* zpanic.c */ +extern int zpanic_(int *errcode, short *errmsg); +extern int kernel_panic(char *errmsg); +/* zraloc.c */ +extern int zraloc_(int *buf, int *nbytes, int *status); +/* zshlib.c */ +extern void vlibinit_(void); +/* zwmsec.c */ +extern int zwmsec_(int *msec); +/* zxwhen.c */ +extern int zxwhen_(int *sig_code, int *epa, int *old_epa); +extern void ex_handler(int unix_signal, siginfo_t *info, void *ucp); +extern int zxgmes_(int *os_exception, short *errmsg, int *maxch); +/* zzepro.c */ +extern int zzepro_(void); +/* zzexit.c */ +extern int exit_(int *code); +/* zzpstr.c */ +extern int spp_debug(void); +extern int zzpstr_(short *s1, short *s2); +extern int zzlstr_(short *s1, short *s2); +extern void spp_printstr(short *s); +extern void spp_printmemc(int memc_ptr); +/* zzsetk.c */ +extern int zzsetk_(char *ospn, char *osbfn, int prtype, int isatty, int in, int out); +/* zzstrt.c */ +extern int zzstrt_(void); +extern int zzstop_(void); +extern void ready_(void); +extern void mdump_(int *buf, int *nbytes); + + + +#else + + + +/* dio.c */ +extern int directio(int fd, int advice); +/* getproc.c */ +extern int uid_executing(int uid); +/* gmttolst.c */ +extern time_t gmt_to_lst(time_t gmt); +/* irafpath.c */ +extern char *irafpath(char *fname); +/* prwait.c */ +extern void pr_enter(int pid, int inchan, int outchan); +extern int pr_wait(int pid); +extern int pr_getipc(int pid, int *inchan, int *outchan); +extern struct proctable *pr_findpid(int pid); +extern void pr_release(int pid); +/* zalloc.c */ +extern int zdvall_(short *aliases, long *allflg, long *status); +extern int zdvown_(short *device, short *owner, long *maxch, long *status); +extern int loggedin(int uid); +/* zawset.c */ +extern int zawset_(long *best_size, long *new_size, long *old_size, long *max_size); +/* zcall.c */ +/* +extern int zcall0_(long *proc); +extern int zcall1_(long *proc, void *arg1); +extern int zcall2_(long *proc, void *arg1, void *arg2); +extern int zcall3_(long *proc, void *arg1, void *arg2, void *arg3); +extern int zcall4_(long *proc, void *arg1, void *arg2, void *arg3, void *arg4); +extern int zcall5_(long *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5); +extern int zcall6_(long *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5, void *arg6); +extern int zcall7_(long *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5, void *arg6, void *arg7); +extern int zcall8_(long *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5, void *arg6, void *arg7, void *arg8); +extern int zcall9_(long *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5, void *arg6, void *arg7, void *arg8, void *arg9); +extern int zcalla_(long *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5, void *arg6, void *arg7, void *arg8, void *arg9, void *arg10); +*/ +/* zdojmp.c */ +extern void zdojmp_(long *jmpbuf, long *status); +/* zfacss.c */ +extern int zfacss_(short *fname, long *mode, long *type, long *status); +/* zfaloc.c */ +extern int zfaloc_(short *fname, long *nbytes, long *status); +/* zfchdr.c */ +extern int zfchdr_(short *newdir, long *status); +/* zfdele.c */ +extern int zfdele_(short *fname, long *status); +/* zfgcwd.c */ +extern int zfgcwd_(short *outstr, long *maxch, long *status); +/* zfinfo.c */ +extern int zfinfo_(short *fname, long *finfo_struct, long *status); +/* zfiobf.c */ +extern int zopnbf_(short *osfn, long *mode, long *chan); +extern int zclsbf_(long *fd, long *status); +extern int zardbf_(long *chan, short *buf, long *maxbytes, long *offset); +extern int zawrbf_(long *chan, short *buf, long *nbytes, long *offset); +extern int zawtbf_(long *fd, long *status); +extern int zsttbf_(long *fd, long *param, long *lvalue); +extern int _u_fmode(int mode); +extern int vm_access(char *fname, int mode); +extern int vm_delete(char *fname, int force); +extern int vm_reservespace(long nbytes); +extern int vm_largefile(long nbytes); +extern int vm_directio(int fd, int flag); +/* zfioks.c */ +extern int zopnks_(short *x_server, long *mode, long *chan); +extern int zclsks_(long *chan, long *status); +extern int zardks_(long *chan, short *buf, long *totbytes, long *loffset); +extern int zawrks_(long *chan, short *buf, long *totbytes, long *loffset); +extern int zawtks_(long *chan, long *status); +extern int zsttks_(long *chan, long *param, long *lvalue); +extern void pr_mask(char *str); +/* zfiolp.c */ +extern int zopnlp_(short *printer, long *mode, long *chan); +extern int zclslp_(long *chan, long *status); +extern int zardlp_(long *chan, short *buf, long *maxbytes, long *offset); +extern int zawrlp_(long *chan, short *buf, long *nbytes, long *offset); +extern int zawtlp_(long *chan, long *status); +extern int zsttlp_(long *chan, long *param, long *lvalue); +/* zfiomt.c */ +extern int zzopmt_(short *device, long *acmode, short *devcap, long *devpos, long *newfile, long *chan); +extern int zzclmt_(long *chan, long *devpos, long *o_status); +extern int zzrdmt_(long *chan, short *buf, long *maxbytes, long *offset); +extern int zzwrmt_(long *chan, short *buf, long *nbytes, long *offset); +extern int zzwtmt_(long *chan, long *devpos, long *o_status); +extern int zzstmt_(long *chan, long *param, long *lvalue); +extern int zzrwmt_(short *device, short *devcap, long *o_status); +/* zfiond.c */ +extern int zopnnd_(short *pk_osfn, long *mode, long *chan); +extern int zclsnd_(long *fd, long *status); +extern int zardnd_(long *chan, short *buf, long *maxbytes, long *offset); +extern int zawrnd_(long *chan, short *buf, long *nbytes, long *offset); +extern int zawtnd_(long *fd, long *status); +extern int zsttnd_(long *fd, long *param, long *lvalue); +/* zfiopl.c */ +extern int zopnpl_(short *plotter, long *mode, long *chan); +extern int zclspl_(long *chan, long *status); +extern int zardpl_(long *chan, short *buf, long *maxbytes, long *offset); +extern int zawrpl_(long *chan, short *buf, long *nbytes, long *offset); +extern int zawtpl_(long *chan, long *status); +extern int zsttpl_(long *chan, long *param, long *lvalue); +/* zfiopr.c */ +extern int zopcpr_(short *osfn, long *inchan, long *outchan, long *pid); +extern int zclcpr_(long *pid, long *exit_status); +extern int zardpr_(long *chan, short *buf, long *maxbytes, long *loffset); +extern int zawrpr_(long *chan, short *buf, long *nbytes, long *loffset); +extern int zawtpr_(long *chan, long *status); +extern int zsttpr_(long *chan, long *param, long *lvalue); +/* zfiosf.c */ +extern int zopnsf_(short *osfn, long *mode, long *chan); +extern int zclssf_(long *fd, long *status); +extern int zardsf_(long *chan, short *buf, long *maxbytes, long *offset); +extern int zawrsf_(long *chan, short *buf, long *nbytes, long *offset); +extern int zawtsf_(long *fd, long *status); +extern int zsttsf_(long *fd, long *param, long *lvalue); +/* zfiotx.c */ +extern int zopntx_(short *osfn, long *mode, long *chan); +extern int zclstx_(long *fd, long *status); +extern int zflstx_(long *fd, long *status); +extern int zgettx_(long *fd, short *buf, long *maxchars, long *status); +extern int znottx_(long *fd, long *offset); +extern int zputtx_(long *fd, short *buf, long *nchars, long *status); +extern int zsektx_(long *fd, long *znottx_offset, long *status); +extern int zstttx_(long *fd, long *param, long *value); +/* zfioty.c */ +extern int zopnty_(short *osfn, long *mode, long *chan); +extern int zclsty_(long *fd, long *status); +extern int zflsty_(long *fd, long *status); +extern int zgetty_(long *fd, short *buf, long *maxchars, long *status); +extern int znotty_(long *fd, long *offset); +extern int zputty_(long *fd, short *buf, long *nchars, long *status); +extern int zsekty_(long *fd, long *znotty_offset, long *status); +extern int zsttty_(long *fd, long *param, long *value); +/* zfmkcp.c */ +extern int zfmkcp_(short *osfn, short *new_osfn, long *status); +/* zfmkdr.c */ +extern int zfmkdr_(short *newdir, long *status); +/* zfnbrk.c */ +extern int zfnbrk_(short *vfn, long *uroot_offset, long *uextn_offset); +/* zfpath.c */ +extern int zfpath_(short *osfn, short *pathname, long *maxch, long *nchars); +/* zfpoll.c */ +extern int zfpoll_(long *pfds, long *nfds, long *timeout, long *npoll, long *status); +/* zfprot.c */ +extern int zfprot_(short *fname, long *action, long *status); +/* zfrnam.c */ +extern int zfrnam_(short *oldname, short *newname, long *status); +/* zfsubd.c */ +extern int zfsubd_(short *osdir, long *maxch, short *subdir, long *nchars); +/* zfunc.c */ +extern long zfunc0_(long *proc); +extern long zfunc1_(long *proc, void *arg1); +extern long zfunc2_(long *proc, void *arg1, void *arg2); +extern long zfunc3_(long *proc, void *arg1, void *arg2, void *arg3); +extern long zfunc4_(long *proc, void *arg1, void *arg2, void *arg3, void *arg4); +extern long zfunc5_(long *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5); +extern long zfunc6_(long *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5, void *arg6); +extern long zfunc7_(long *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5, void *arg6, void *arg7); +extern long zfunc8_(long *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5, void *arg6, void *arg7, void *arg8); +extern long zfunc9_(long *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5, void *arg6, void *arg7, void *arg8, void *arg9); +extern long zfunca_(long *proc, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5, void *arg6, void *arg7, void *arg8, void *arg9, void *arg10); +/* zfutim.c */ +extern int zfutim_(short *fname, long *atime, long *mtime, long *status); +/* zfxdir.c */ +extern int zfxdir_(short *osfn, short *osdir, long *maxch, long *nchars); +/* zgcmdl.c */ +extern int zgcmdl_(short *cmd, long *maxch, long *status); +/* zghost.c */ +extern int zghost_(short *outstr, long *maxch); +/* zglobl.c */ +/* zgmtco.c */ +extern int zgmtco_(long *gmtcor); +/* zgtenv.c */ +extern int zgtenv_(short *envvar, short *outstr, long *maxch, long *status); +/* zgtime.c */ +extern int zgtime_(long *clock_time, long *cpu_time); +/* zgtpid.c */ +extern int zgtpid_(long *pid); +/* zintpr.c */ +extern int zintpr_(long *pid, long *exception, long *status); +/* zlocpr.c */ +/* +extern int zlocpr_(PFI proc, long *o_epa); +*/ +/* zlocva.c */ +extern int zlocva_(short *variable, long *location); +/* zmain.c */ +extern int main(int argc, char *argv[]); +/* zmaloc.c */ +extern int zmaloc_(long *buf, long *nbytes, long *status); +/* zmfree.c */ +extern int zmfree_(long *buf, long *status); +/* zopdir.c */ +extern int zopdir_(short *fname, long *chan); +extern int zcldir_(long *chan, long *status); +extern int zgfdir_(long *chan, short *outstr, long *maxch, long *status); +/* zopdpr.c */ +extern int zopdpr_(short *osfn, short *bkgfile, short *queue, long *jobcode); +extern int zcldpr_(long *jobcode, long *killflag, long *exit_status); +/* zoscmd.c */ +extern int zoscmd_(short *oscmd, short *stdin_file, short *stdout_file, short *stderr_file, long *status); +extern int pr_onint(int usig, int *hwcode, int *scp); +/* zpanic.c */ +extern int zpanic_(long *errcode, short *errmsg); +extern int kernel_panic(char *errmsg); +/* zraloc.c */ +extern int zraloc_(long *buf, long *nbytes, long *status); +/* zshlib.c */ +extern void vlibinit_(void); +/* zwmsec.c */ +extern int zwmsec_(long *msec); +/* zxwhen.c */ +extern int zxwhen_(long *sig_code, long *epa, long *old_epa); +extern void ex_handler(int unix_signal, siginfo_t *info, void *ucp); +extern int zxgmes_(long *os_exception, short *errmsg, long *maxch); +extern int gfpucw_(long *xcw); +extern int sfpucw_(long *xcw); +/* zzepro.c */ +/* +extern int zzepro_(void); +*/ +/* zzexit.c */ +extern int exit_(long *code); +/* zzpstr.c */ +extern int spp_debug(void); +extern int zzpstr_(short *s1, short *s2); +extern int zzlstr_(short *s1, short *s2); +extern void spp_printstr(short *s); +extern void spp_printmemc(int memc_ptr); +/* zzsetk.c */ +extern int zzsetk_(char *ospn, char *osbfn, int prtype, int isatty, int in, int out); +/* zzstrt.c */ +extern int zzstrt_(void); +extern int zzstop_(void); +extern void ready_(void); +extern void mdump_(long *buf, long *nbytes); + + +#endif diff --git a/unix/hlib/libc/lexnum.h b/unix/hlib/libc/lexnum.h new file mode 100644 index 00000000..d83ef138 --- /dev/null +++ b/unix/hlib/libc/lexnum.h @@ -0,0 +1,9 @@ +/* Lexnum.h + */ +#define LEX_OCTAL (-4) +#define LEX_DECIMAL (-3) +#define LEX_HEX (-2) +#define LEX_REAL (-1) +#define LEX_NONNUM 0 + +#define D_lexnum diff --git a/unix/hlib/libc/libc.h b/unix/hlib/libc/libc.h new file mode 100644 index 00000000..83c2f136 --- /dev/null +++ b/unix/hlib/libc/libc.h @@ -0,0 +1,330 @@ +/* + * LIBC.H -- Definitions which should be included by all C source files which + * use the IRAF runtime C library. + */ + +#ifndef D_libc +#ifndef D_spp +#ifndef import_spp +#include "spp.h" +#endif +#endif + +#define XCHAR short +#ifdef MACH64 +#define XINT long +#define XLONG long +#else +#define XINT int +#define XLONG int +#endif +#define SZ_DEFIOBUF 1024 +#define FIO_MAXFD 4096 + +#define FIOCOM fiocom_ /* [MACHDEP] */ +#define MEMCOM mem_ +#define XERPSH xerpsh_ +#define XERPOP xerpop_ +#define XERPOPI xerpoi_ +#define c_main cmain_ + +/* Error handling. + */ +#define iferr(stmt) {XERPSH();stmt;}if(XERPOPI()) + +/* SPP/C pointer conversions. + */ +extern char MEMCOM[]; +#define Memc (((XCHAR *)MEMCOM)-1) +#define Memi (((XINT *)MEMCOM)-1) +#define Memcptr(addr) ((XCHAR *)(addr) - Memc) +#define Memiptr(addr) ((XINT *)(addr) - Memi) + +/* External names. + */ +#ifndef NOLIBCNAMES + +#define getenv envget +#define sys_nerr u_sysnerr +#define sys_errlist u_syserrlist + +#define atof u_atof +#define atoi u_atoi +#define atol u_atol +#define calloc u_calloc +#define envget u_envget +#define eprintf u_eprintf +#define fclose u_fclose +#define fdopen u_fdopen +#define fflush u_fflush +#define fgetc u_fgetc +#define fgets u_fgets +#define fopen u_fopen +#define fprintf u_fprintf +#define fputc u_fputc +#define fputs u_fputs +#define fread u_fread +#define freadline u_readline +#define free u_free +#define freopen u_freopen +#define fscanf u_fscanf +#define fseek u_fseek +#define ftell u_ftell +#define fwrite u_fwrite +#define gets u_gets +#define getw u_getw +#define index u_index +#define isatty u_isatty +#define malloc u_malloc +#define mktemp u_mktemp +#define perror u_perror +#define printf u_printf +#define puts u_puts +#define putw u_putw +#define qsort u_qsort +#define realloc u_realloc +#define rewind u_rewind +#define rindex u_rindex +#define scanf u_scanf +#define setbuf u_setbuf +#define setbuffer u_setfbf /* collision */ +#define setlinebuf u_setlinebuf +#define sprintf u_sprintf +#define sscanf u_sscanf +#define strcat u_strcat +#define strchr u_index +#define strcmp u_strcmp +#define strdup u_strdup +#define strcpy u_strcpy +#define strlen u_strlen +#define strncat u_strnt /* collision */ +#define strncmp u_strnp /* collision */ +#define strncpy u_strny /* collision */ +#define strrchr u_rindex +#define system u_system +#define ungetc u_ungetc + +/* C_SPP names not unique in the first seven characters. + */ +#define c_envgetb c_envgb +#define c_envgeti c_envgi +#define c_envgets c_envgs +#define c_ttyclear c_ttycr +#define c_ttyclearln c_ttycn +#define c_ttygetb c_ttygb +#define c_ttygeti c_ttygi +#define c_ttygetr c_ttygr +#define c_ttygets c_ttygs +#define c_ttyputline c_ttype +#define c_ttyputs c_ttyps +#define c_ungetc c_ungec +#define c_ungetstr c_unges + + +/* + * Prototype definitions for the IRAF runtime C library. + */ + +/*extern long XERPSH(), XERPOPI();*/ /* standard for iferr use */ + +extern struct _iobuf *fdopen (XINT fd, char *mode); +extern struct _iobuf *fopen (char *fname, char *modestr); +extern struct _iobuf *freopen (char *fname, char *modestr, struct _iobuf *fp); +extern char *c_cnvdate (long clktime, char *outstr, int maxch); +extern char *c_cnvtime (long clktime, char *outstr, int maxch); +extern char *c_getuid (char *outstr, int maxch); +extern char *c_salloc (unsigned nbytes); +extern char *c_strpak (short *sppstr, char *cstr, int maxch); +extern char *calloc (unsigned int nelems, unsigned int elsize); +extern char *envget (char *var); +extern char *fgets (char *buf, int maxch, struct _iobuf *fp); +extern char *gets (char *buf); +extern char *index (char *str, int ch); +extern char *malloc (unsigned nbytes); +extern char *mktemp (char *template); +extern char *freadline (char *prompt); +extern char *realloc (char *buf, unsigned newsize); +extern char *rindex (char *str, int ch); +extern char *sprintf (char *str, char *format, ...); +extern char *strcat (char *s1, char *s2); +extern char *strdup (char *str); +extern char *strcpy (char *s1, char *s2); +extern char *strncat (char *s1, char *s2, int n); +extern char *strncpy (char *s1, char *s2, int n); +extern int strncmp (char *s1, char *s2, int n); + +extern double atof (char *str); +extern float c_ttygr (XINT tty, char *cap); +extern int atoi (char *str); +extern int c_access (char *fname, int mode, int type); +extern int c_allocate (char *device); +extern int c_close (XINT fd); +extern int c_deallocate (char *device, int rewind); +extern int c_delete (char *fname); +extern int c_devowner (char *device, char *owner, int maxch); +extern int c_envfind (char *var, char *outstr, int maxch); +extern int c_envfree (int envp, int userfcn); +extern int c_envgb (char *var); +extern int c_envgi (char *var); +extern int c_envgs (char *var, char *outstr, int maxch); +extern int c_envscan (char *input_source); +extern int c_errcode (void); +extern int c_errget (char *outstr, int maxch); +extern int c_fchdir (char *newdir); +extern int c_filbuf (struct _iobuf *fp); +extern int c_flsbuf (unsigned int ch, struct _iobuf *fp); +extern int c_fmapfn (char *vfn, char *osfn, int maxch); +extern int c_fmkdir (char *newdir); +extern int c_fnextn (char *vfn, char *extn, int maxch); +extern int c_fnldir (char *vfn, char *ldir, int maxch); +extern int c_fnroot (char *vfn, char *root, int maxch); +extern int c_fpathname (char *vfn, char *osfn, int maxch); +extern int c_fprintf (XINT fd, char *format); +extern int c_fredir (XINT fd, char *fname, int mode, int type); +extern int c_frediro (XINT fd, XINT newfd); +extern int c_fstati (XINT fd, int param); +extern int c_getpid (void); +extern int c_imaccess (char *imname, int mode); +extern int c_imdrcur (char *device, float *x, float *y, int *wcs, + int *key, char *strval, int maxch, int d_wcs, int pause); +extern int c_kimapchan (int chan, char *nodename, int maxch); +extern int c_lexnum (char *str, int *toklen); +extern int c_mktemp (char *root, char *temp_filename, int maxch); +extern int c_ndopen (char *fname, int mode); +extern int c_open (char *fname, int mode, int type); +extern int c_oscmd (char *cmd, char *infile, char *outfile, char *errfile); +extern int c_poll (XINT fds, int nfds, int timeout); +extern int c_poll_get_nfds (XINT fds); +extern XINT c_poll_open (void); +extern int c_poll_test (XINT fds, XINT fd, int type); +extern int c_prchdir (int pid, char *newdir); +extern int c_prcldpr (unsigned job); +extern int c_prclose (unsigned int pid); +extern int c_prdone (unsigned job); +extern int c_prenvfree (int pid, int envp); +extern int c_prenvset (int pid, char *envvar, char *value); +extern int c_printf (char *format); +extern int c_prkill (unsigned job); +extern int c_prredir (unsigned pid, int stream, int new_fd); +extern int c_prsignal (unsigned pid, int signal); +extern int c_prstati (int pid, int param); +extern int c_rcursor (int fd, char *outstr, int maxch); +extern int c_rdukey (char *obuf, int maxch); +extern int c_read (XINT fd, char *buf, int maxbytes); +extern int c_rename (char *old_fname, char *new_fname); +extern int c_reopen (XINT fd, int mode); +extern int c_seek (XINT fd, long offset); +extern int c_stggetline (XINT fd, char *buf, int maxch); +extern int c_stgputline (XINT fd, char *buf); +extern int c_stropen (short *obuf, int maxch, int mode); +extern int c_ttstati (XINT fd, int param); +extern int c_ttstats (XINT fd, int param, char *outstr, int maxch); +extern int c_ttyctrl (XINT fd, XINT tty, char *cap, int afflncnt); +extern int c_ttygb (XINT tty, char *cap); +extern XINT c_ttygi (XINT tty, char *cap); +extern int c_ttygs (XINT tty, char *cap, char *outstr, int maxch); +extern XINT c_ttyodes (char *ttyname); +extern int c_ttyps (XINT fd, XINT tty, char *cap, int afflncnt); +extern XINT c_ttystati (XINT tty, int param); +extern int c_ungec (XINT fd, int ch); +extern int c_ungetline (XINT fd, char *str); +extern int c_write (XINT fd, char *buf, int nbytes); +extern int fclose (struct _iobuf *fp); +extern int fflush (struct _iobuf *fp); +extern int fgetc (struct _iobuf *fp); +extern int fputc (char ch, struct _iobuf *fp); +extern int fread (char *bp, int szelem, int nelem, struct _iobuf *fp); +extern int fscanf (struct _iobuf *fp, char *format, ...); +extern int fseek (struct _iobuf *fp, long offset, int mode); +extern int fwrite (char *bp, int szelem, int nelem, struct _iobuf *fp); +extern int getw (struct _iobuf *fp); +extern int isatty (XINT fd); +extern int puts (char *str); +extern int putw (int word, struct _iobuf *fp); +extern int scanf (char *format, ...); +extern int spf_open (char *buf, int maxch); +extern int sscanf (char *str, char *format, ...); +extern int strcmp (char *s1, char *s2); +extern int strlen (char *s); +extern int system (char *cmd); +extern int ungetc (int ch, struct _iobuf *fp); +extern long atol (char *str); +extern long c_clktime (long reftime); +extern long c_cputime (long reftime); +extern long c_note (XINT fd); +extern long ftell (struct _iobuf *fp); +extern long rewind (struct _iobuf *fp); +extern short *c_sppstr (char *str); +extern short *c_strupk (char *str, short *outstr, int maxch); +extern unsigned int c_propdpr (char *process, char *bkgfile, char *bkgmsg); +extern unsigned int c_propen (char *process, int *in, int *out); +extern void c_devstatus (char *device, int out); +extern void c_envlist (XINT fd, char *prefix, int show_redefs); +extern void c_envmark (XINT *envp); +extern void c_envputs (char *var, char *value); +extern void c_envreset (char *var, char *value); +extern void c_erract (int action); +extern void c_error (int errcode, char *errmsg); +extern void c_flush (XINT fd); +extern void c_fseti (XINT fd, int param, int value); +extern void c_gflush (int stream); +extern void c_pargb (int ival); +extern void c_pargc (int ival); +extern void c_pargd (double dval); +extern void c_pargi (int ival); +extern void c_pargl (long lval); +extern void c_pargr (float rval); +extern void c_pargs (short sval); +extern void c_pargstr (char *strval); +extern void c_poll_clear (XINT fds, XINT fd, int type); +extern void c_poll_close (XINT fds); +extern void c_poll_print (XINT fds); +extern void c_poll_set (XINT fds, XINT fd, int type); +extern void c_poll_zero (XINT fds); +extern void c_sfree (int sp); +extern void c_smark (int *sp); +extern void c_sttyco (char *args, XINT ttin, XINT ttout, XINT outfd); +extern void c_tsleep (int nseconds); +extern void c_ttseti (XINT fd, int param, int value); +extern void c_ttsets (XINT fd, int param, char *value); +extern void c_ttycdes (XINT tty); +extern void c_ttycn (XINT fd, XINT tty); +extern void c_ttycr (XINT fd, XINT tty); +extern void c_ttygoto (XINT fd, XINT tty, int col, int line); +extern void c_ttyinit (XINT fd, XINT tty); +extern void c_ttype (XINT fd, XINT tty, char *line, int map_cc); +extern void c_ttyseti (XINT tty, int param, int value); +extern void c_ttyso (XINT fd, XINT tty, int onoff); +extern void c_vfnbrk (char *vfn, int *root, int *extn); +extern void c_wmsec (int msec); +extern void c_xgmes (int *oscode, char *oserrmsg, int maxch); +extern void c_xonerr (int errcode); +extern void c_xttysize (int *ncols, int *nlines); +extern void eprintf (char *format, ...); +extern void fprintf (struct _iobuf *fp, char *format, ...); +extern void fputs (char *str, struct _iobuf *fp); +extern void free (char *buf); +extern void perror (char *prefix); +extern void printf (char *format, ...); +extern void qsort (char *base, int n, int size, int (*compar) (void)); +extern void setbuf (struct _iobuf *fp, char *buf); +extern void setfbf (struct _iobuf *fp, char *buf, int size); +extern void setlinebuf (struct _iobuf *fp); +extern void spf_close (XINT fd); + +/* The following have conflicts because of the order in which the +** include files are done in iraf.h. Commented out for now. +extern int c_finfo (char *fname, struct _finfo *fi); +extern void c_xwhen (int exception, PFI new_handler, PFI *old_handler); +*/ + +#endif + +/* +*/ +#include "/iraf/iraf/unix/bin/f2c.h" +#include "/iraf/iraf/unix/hlib/libc/vosproto.h" + +#define D_libc +#define D_libc_proto +#endif diff --git a/unix/hlib/libc/main.h b/unix/hlib/libc/main.h new file mode 100644 index 00000000..ad5fe71e --- /dev/null +++ b/unix/hlib/libc/main.h @@ -0,0 +1,6 @@ +/* MAIN.H -- For files which have a c_main. + */ +#define PR_NOEXIT 0 /* run interpreter */ +#define PR_EXIT 1 /* skip interpreter */ + +#define D_main diff --git a/unix/hlib/libc/math.h b/unix/hlib/libc/math.h new file mode 100644 index 00000000..6d151faf --- /dev/null +++ b/unix/hlib/libc/math.h @@ -0,0 +1,24 @@ +/* + * MATH.H -- Math functions for C. + */ + +double XEXP(), XLOG(), XLOG10(), XPOW(), XSQRT(); +double XSIN(), XCOS(), XASIN(), XACOS(), XTAN(), XATAN(), XATAN2(); + +static double um_x, um_y; + +#define nint(x) XNINT((um_x=(x),&um_x)) +#define exp(x) XEXP((um_x=(x),&um_x)) +#define log(x) XLOG((um_x=(x),&um_x)) +#define log10(x) XLOG10((um_x=(x),&um_x)) +#define pow(x,y) XPOW((um_x=(x),&um_x),(um_y=(y),&um_y)) +#define sqrt(x) XSQRT((um_x=(x),&um_x)) +#define sin(x) XSIN((um_x=(x),&um_x)) +#define cos(x) XCOS((um_x=(x),&um_x)) +#define tan(x) XTAN((um_x=(x),&um_x)) +#define asin(x) XASIN((um_x=(x),&um_x)) +#define acos(x) XACOS((um_x=(x),&um_x)) +#define atan(x) XATAN((um_x=(x),&um_x)) +#define atan2(x,y) XATAN2((um_x=(x),&um_x),(um_y=(y),&um_y)) + +#define D_math diff --git a/unix/hlib/libc/protect.h b/unix/hlib/libc/protect.h new file mode 100644 index 00000000..fe9c1a31 --- /dev/null +++ b/unix/hlib/libc/protect.h @@ -0,0 +1,7 @@ +/* File protection. + */ +#define REMOVE_PROTECTION 0 +#define SET_PROTECTION 1 +#define QUERY_PROTECTION 2 + +#define D_protect diff --git a/unix/hlib/libc/prstat.h b/unix/hlib/libc/prstat.h new file mode 100644 index 00000000..3bd5dbf3 --- /dev/null +++ b/unix/hlib/libc/prstat.h @@ -0,0 +1,19 @@ +/* PRSTAT parameters. + */ +#define PR_STATUS 1 /* process status (OK, P_DEAD) */ +#define PR_INCHAN 2 /* input channel */ +#define PR_INFD 3 /* FD of input stream */ +#define PR_OUTCHAN 4 /* output channel */ +#define PR_OUTFD 5 /* FD of output stream */ +#define PR_STDIN 7 /* FD's assigned to pseudofile streams */ +#define PR_STDERR 8 +#define PR_STDOUT 9 +#define PR_STDGRAPH 10 +#define PR_STDIMAGE 11 + +#define P_RUNNING 0 /* process status */ +#define P_BUSY 1 /* process is busy */ +#define P_DONE 2 /* process terminated normally */ +#define P_DEAD 3 /* process died and sent us X_IPC */ + +#define D_prstat diff --git a/unix/hlib/libc/prtype.h b/unix/hlib/libc/prtype.h new file mode 100644 index 00000000..04433abc --- /dev/null +++ b/unix/hlib/libc/prtype.h @@ -0,0 +1,7 @@ +/* Process control. + */ +#define PR_CONNECTED 1 /* types of processes */ +#define PR_DETACHED 2 +#define PR_HOST 3 + +#define D_prtype diff --git a/unix/hlib/libc/setjmp.h b/unix/hlib/libc/setjmp.h new file mode 100644 index 00000000..a92d6b47 --- /dev/null +++ b/unix/hlib/libc/setjmp.h @@ -0,0 +1,25 @@ +/* SETJMP, LONGJMP -- Non local goto. Requires libc.h and knames.h. + * Note that jmp_buf must be at least one int larger than necessary to + */ +#ifndef D_libc +#ifndef import_libc +#include "libc.h" +#endif +#ifndef import_knames +#include "knames.h" +#endif +#endif + +typedef int jmp_buf[LEN_JUMPBUF]; +static int u_jmpstat; + +#define setjmp(e) (ZSVJMP((e),&u_jmpstat),u_jmpstat) +#define longjmp(e,v) (u_jmpstat=(v),ZDOJMP((e),&u_jmpstat)) + +/* The following is necessary to prevent to prevent the optimizer from + * doing unwise things with setjmp on a Sun-4. + */ +extern int zsvjmp_(); +#pragma unknown_control_flow(zsvjmp_) + +#define D_setjmp diff --git a/unix/hlib/libc/spp.h b/unix/hlib/libc/spp.h new file mode 100644 index 00000000..23005007 --- /dev/null +++ b/unix/hlib/libc/spp.h @@ -0,0 +1,161 @@ +/* + * SPP.H -- Language definitions for interfacing SPP to C and C to UNIX. + * Note that many of the definitions must agree with those in the SPP + * compiler and with <iraf.h> and <mach.h>. + */ + +#ifndef D_spp + +/* Assorted machine constants. [MACHDEP] + * Use osb$zzeps.f to compute the machine epsilon. + */ +#define OSOK 0 /* normal successful completion */ +#define LEN_JUMPBUF 1024 /* C "jmp_buf" len + 1 (or larger) */ +#define EPSILON (1.192e-7) /* smallest real E s.t. (1.0+E > 1.0) */ +#define EPSILOND (2.220d-16) /* double precision epsilon */ +#define MAX_LONG 2147483647 +#define FNNODE_CHAR '!' /* node name delimiter character */ + + +/* Indefinite valued numbers. (potentially MACHDEP) + */ +#define INDEFS (-32767) +#define INDEFL (0x80000001) +#define INDEFI INDEFL +#define INDEFR 1.6e38 +#define INDEFD 1.6e308 +#define INDEFX (INDEF,INDEF) +#define INDEF INDEFR + + +/* Oft used constants. + */ +#define SZ_LINE 1023 +#define SZ_FNAME 255 +#define SZ_PATHNAME 511 +#define SZ_COMMAND 2047 +#define EOS '\0' +#define ERR (-1) +#define OK 0 +#define YES 1 +#define NO 0 +#define MAX_DIGITS 25 + +#ifndef min +#define min(a,b) (((a)<(b))?(a):(b)) +#endif +#ifndef max +#define max(a,b) (((a)>(b))?(a):(b)) +#endif + +#ifndef NULL +#define NULL 0 +#endif + +#ifndef EOF +#define EOF (-1) +#endif + +/* SPP constants. + */ +#define XEOS 0 +#define XERR (-1) +#define XEOF (-2) +#define XBOF (-3) +#define XOK 0 +#define XNO 0 +#define XYES 1 + +#define BOFL (-3L) +#define EOFL (-2L) + + +/* SPP datatypes. (potentially MACHDEP) + * Must match sizes in hlib$iraf.h + */ +#ifndef XCHAR +#define XCHAR short +#endif + +#ifdef MACH64 +#define XINT long /* ILP64 */ +#define XLONG long +#define XSTRUCT long +#define XPOINTER long +#define XBOOL long +#else +#define XINT int /* ILP32 */ +#define XLONG int +#define XSTRUCT int +#define XPOINTER int +#define XBOOL int +#endif + +#define PKCHAR XCHAR +#define XUBYTE unsigned char +#define XSHORT short +#define XUSHORT unsigned short +#define XREAL float +#define XDOUBLE double +#define XCOMPLEX struct cplx + +struct cplx { + float r; + float i; +}; + +#define TY_BOOL 1 /* SPP datatype codes */ +#define TY_CHAR 2 +#define TY_SHORT 3 +#define TY_INT 4 +#define TY_LONG 5 +#define TY_REAL 6 +#define TY_DOUBLE 7 +#define TY_COMPLEX 8 +#define TY_STRUCT 9 +#define TY_POINTER 10 + + +/* File I/O constants. + */ +#define READ_ONLY 1 /* file access modes */ +#define READ_WRITE 2 +#define WRITE_ONLY 3 +#define APPEND 4 +#define NEW_FILE 5 + +#define TEXT_FILE 11 /* file types */ +#define BINARY_FILE 12 +#define DIRECTORY_FILE 13 +#define STATIC_FILE 14 +#define SYMLINK_FILE 15 +#define SPOOL_FILE (-2) + +#define CLIN 1 +#define CLOUT 2 +#define STDIN 3 +#define STDOUT 4 +#define STDERR 5 +#define STDGRAPH 6 +#define STDIMAGE 7 +#define STDPLOT 8 +#define PSIOCTRL 9 + +/* Filename Mapping definitions. + */ + +#define VFN_READ 1 /* VFN access modes for VFNOPEN */ +#define VFN_WRITE 2 +#define VFN_UNMAP 3 + +#define VFN_NOUPDATE 0 /* update flag for VFNCLOSE */ +#define VFN_UPDATE 1 + +/* Oft referenced functions. + */ +XCHAR *c_sppstr(); +XCHAR *c_strupk(); +char *c_strpak(); + +#define D_spp +#endif diff --git a/unix/hlib/libc/stdarg-cygwin.h b/unix/hlib/libc/stdarg-cygwin.h new file mode 100755 index 00000000..965c2aa7 --- /dev/null +++ b/unix/hlib/libc/stdarg-cygwin.h @@ -0,0 +1,135 @@ +/* Copyright (C) 1989, 1997, 1998, 1999, 2000 Free Software Foundation, Inc. + +This file is part of GCC. + +GCC is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2, or (at your option) +any later version. + +GCC is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +GNU General Public License for more details. + +You should have received a copy of the GNU General Public License +along with GCC; see the file COPYING. If not, write to +the Free Software Foundation, 59 Temple Place - Suite 330, +Boston, MA 02111-1307, USA. */ + +/* As a special exception, if you include this header file into source + files compiled by GCC, this header file does not by itself cause + the resulting executable to be covered by the GNU General Public + License. This exception does not however invalidate any other + reasons why the executable file might be covered by the GNU General + Public License. */ + +/* + * ISO C Standard: 7.15 Variable arguments <stdarg.h> + */ + +#ifndef _STDARG_H +#ifndef _ANSI_STDARG_H_ +#ifndef RC_INVOKED +#ifndef __need___va_list +#define _STDARG_H +#define _ANSI_STDARG_H_ +#endif /* not __need___va_list */ +#undef __need___va_list + +/* Define __gnuc_va_list. */ + +#ifndef __GNUC_VA_LIST +#define __GNUC_VA_LIST +typedef __builtin_va_list __gnuc_va_list; +#endif + +/* Define the standard macros for the user, + if this invocation was from the user program. */ +#ifdef _STDARG_H + +#define va_start(v,l) __builtin_va_start(v,l) +#define va_end(v) __builtin_va_end(v) +#define va_arg(v,l) __builtin_va_arg(v,l) +#if !defined(__STRICT_ANSI__) || __STDC_VERSION__ + 0 >= 199900L +#define va_copy(d,s) __builtin_va_copy(d,s) +#endif +#define __va_copy(d,s) __builtin_va_copy(d,s) + +/* Define va_list, if desired, from __gnuc_va_list. */ +/* We deliberately do not define va_list when called from + stdio.h, because ANSI C says that stdio.h is not supposed to define + va_list. stdio.h needs to have access to that data type, + but must not use that name. It should use the name __gnuc_va_list, + which is safe because it is reserved for the implementation. */ + +#ifdef _HIDDEN_VA_LIST /* On OSF1, this means varargs.h is "half-loaded". */ +#undef _VA_LIST +#endif + +#ifdef _BSD_VA_LIST +#undef _BSD_VA_LIST +#endif + +#if defined(__svr4__) || (defined(_SCO_DS) && !defined(__VA_LIST)) +/* SVR4.2 uses _VA_LIST for an internal alias for va_list, + so we must avoid testing it and setting it here. + SVR4 uses _VA_LIST as a flag in stdarg.h, but we should + have no conflict with that. */ +#ifndef _VA_LIST_ +#define _VA_LIST_ +#ifdef __i860__ +#ifndef _VA_LIST +#define _VA_LIST va_list +#endif +#endif /* __i860__ */ +typedef __gnuc_va_list va_list; +#ifdef _SCO_DS +#define __VA_LIST +#endif +#endif /* _VA_LIST_ */ +#else /* not __svr4__ || _SCO_DS */ + +/* The macro _VA_LIST_ is the same thing used by this file in Ultrix. + But on BSD NET2 we must not test or define or undef it. + (Note that the comments in NET 2's ansi.h + are incorrect for _VA_LIST_--see stdio.h!) */ +#if !defined (_VA_LIST_) || defined (__BSD_NET2__) || defined (____386BSD____) || defined (__bsdi__) || defined (__sequent__) || defined (__FreeBSD__) || defined(WINNT) +/* The macro _VA_LIST_DEFINED is used in Windows NT 3.5 */ +#ifndef _VA_LIST_DEFINED +/* The macro _VA_LIST is used in SCO Unix 3.2. */ +#ifndef _VA_LIST +/* The macro _VA_LIST_T_H is used in the Bull dpx2 */ +#ifndef _VA_LIST_T_H +/* The macro __va_list__ is used by BeOS. */ +#ifndef __va_list__ +typedef __gnuc_va_list va_list; +#endif /* not __va_list__ */ +#endif /* not _VA_LIST_T_H */ +#endif /* not _VA_LIST */ +#endif /* not _VA_LIST_DEFINED */ +#if !(defined (__BSD_NET2__) || defined (____386BSD____) || defined (__bsdi__) || defined (__sequent__) || defined (__FreeBSD__)) +#define _VA_LIST_ +#endif +#ifndef _VA_LIST +#define _VA_LIST +#endif +#ifndef _VA_LIST_DEFINED +#define _VA_LIST_DEFINED +#endif +#ifndef _VA_LIST_T_H +#define _VA_LIST_T_H +#endif +#ifndef __va_list__ +#define __va_list__ +#endif + +#endif /* not _VA_LIST_, except on certain systems */ + +#endif /* not __svr4__ */ + +#endif /* _STDARG_H */ + +#endif /* not RC_INVOKED */ +#endif /* not _ANSI_STDARG_H_ */ +#endif /* not _STDARG_H */ diff --git a/unix/hlib/libc/stdarg-freebsd.h b/unix/hlib/libc/stdarg-freebsd.h new file mode 100644 index 00000000..6cf6b69d --- /dev/null +++ b/unix/hlib/libc/stdarg-freebsd.h @@ -0,0 +1,90 @@ +/*- + * Copyright (c) 2002 David E. O'Brien. All rights reserved. + * Copyright (c) 1991, 1993 + * The Regents of the University of California. All rights reserved. + * + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions + * are met: + * 1. Redistributions of source code must retain the above copyright + * notice, this list of conditions and the following disclaimer. + * 2. Redistributions in binary form must reproduce the above copyright + * notice, this list of conditions and the following disclaimer in the + * documentation and/or other materials provided with the distribution. + * 3. All advertising materials mentioning features or use of this software + * must display the following acknowledgement: + * This product includes software developed by the University of + * California, Berkeley and its contributors. + * 4. Neither the name of the University nor the names of its contributors + * may be used to endorse or promote products derived from this software + * without specific prior written permission. + * + * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND + * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE + * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE + * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL + * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS + * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) + * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT + * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY + * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF + * SUCH DAMAGE. + * + * @(#)stdarg.h 8.1 (Berkeley) 6/10/93 + * $FreeBSD: src/sys/i386/include/stdarg.h,v 1.20 2005/03/02 21:33:26 joerg Exp $ + */ + +#ifndef _MACHINE_STDARG_H_ +#define _MACHINE_STDARG_H_ + +#include <sys/cdefs.h> +#include <sys/_types.h> + +#ifndef _VA_LIST_DECLARED +#define _VA_LIST_DECLARED +typedef __va_list va_list; +#endif + +#ifdef __GNUCLIKE_BUILTIN_STDARG + +#define va_start(ap, last) \ + __builtin_stdarg_start((ap), (last)) + +#define va_arg(ap, type) \ + __builtin_va_arg((ap), type) + +#if __ISO_C_VISIBLE >= 1999 +#define va_copy(dest, src) \ + __builtin_va_copy((dest), (src)) +#endif + +#define va_end(ap) \ + __builtin_va_end(ap) + +#else /* !__GNUCLIKE_BUILTIN_STDARG */ + +#define __va_size(type) \ + (((sizeof(type) + sizeof(int) - 1) / sizeof(int)) * sizeof(int)) + +#ifdef __GNUCLIKE_BUILTIN_NEXT_ARG +#define va_start(ap, last) \ + ((ap) = (va_list)__builtin_next_arg(last)) +#else /* !__GNUCLIKE_BUILTIN_NEXT_ARG */ +#define va_start(ap, last) \ + ((ap) = (va_list)&(last) + __va_size(last)) +#endif /* __GNUCLIKE_BUILTIN_NEXT_ARG */ + +#define va_arg(ap, type) \ + (*(type *)((ap) += __va_size(type), (ap) - __va_size(type))) + +#if __ISO_C_VISIBLE >= 1999 +#define va_copy(dest, src) \ + ((dest) = (src)) +#endif + +#define va_end(ap) + +#endif /* __GNUCLIKE_BUILTIN_STDARG */ + +#endif /* !_MACHINE_STDARG_H_ */ diff --git a/unix/hlib/libc/stdarg-linux.h b/unix/hlib/libc/stdarg-linux.h new file mode 100644 index 00000000..f95367b4 --- /dev/null +++ b/unix/hlib/libc/stdarg-linux.h @@ -0,0 +1,142 @@ +/* Copyright (C) 1989, 1997, 1998, 1999, 2000 Free Software Foundation, Inc. + +This file is part of GNU CC. + +GNU CC is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2, or (at your option) +any later version. + +GNU CC is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +GNU General Public License for more details. + +You should have received a copy of the GNU General Public License +along with GNU CC; see the file COPYING. If not, write to +the Free Software Foundation, 59 Temple Place - Suite 330, +Boston, MA 02111-1307, USA. */ + +/* As a special exception, if you include this header file into source + files compiled by GCC, this header file does not by itself cause + the resulting executable to be covered by the GNU General Public + License. This exception does not however invalidate any other + reasons why the executable file might be covered by the GNU General + Public License. */ + +/* + * ISO C Standard: 7.15 Variable arguments <stdarg.h> + */ + +#ifndef _STDARG_H +#ifndef _ANSI_STDARG_H_ +#ifndef __need___va_list +#define _STDARG_H +#define _ANSI_STDARG_H_ +#endif /* not __need___va_list */ +#undef __need___va_list + +/* Define __gnuc_va_list. */ + +#ifndef __GNUC_VA_LIST +#define __GNUC_VA_LIST +typedef __builtin_va_list __gnuc_va_list; +#endif + +/* Define the standard macros for the user, + if this invocation was from the user program. */ +#ifdef _STDARG_H + +/* Note that the type used in va_arg is supposed to match the + actual type **after default promotions**. + Thus, va_arg (..., short) is not valid. */ + +#if (__GNUC__ > 4) || ((__GNUC__ == 4) && (__GNUC_MINOR__ >= 4)) +#define va_start(v,l) __builtin_va_start((v),l) +#else +#define va_start(v,l) __builtin_stdarg_start((v),l) +#endif +#define va_end __builtin_va_end +#define va_arg __builtin_va_arg +#if !defined(__STRICT_ANSI__) || __STDC_VERSION__ + 0 >= 199900L +#define va_copy(d,s) __builtin_va_copy((d),(s)) +#endif +#define __va_copy(d,s) __builtin_va_copy((d),(s)) + + +/* Define va_list, if desired, from __gnuc_va_list. */ +/* We deliberately do not define va_list when called from + stdio.h, because ANSI C says that stdio.h is not supposed to define + va_list. stdio.h needs to have access to that data type, + but must not use that name. It should use the name __gnuc_va_list, + which is safe because it is reserved for the implementation. */ + +#ifdef _HIDDEN_VA_LIST /* On OSF1, this means varargs.h is "half-loaded". */ +#undef _VA_LIST +#endif + +#ifdef _BSD_VA_LIST +#undef _BSD_VA_LIST +#endif + +#if defined(__svr4__) || (defined(_SCO_DS) && !defined(__VA_LIST)) +/* SVR4.2 uses _VA_LIST for an internal alias for va_list, + so we must avoid testing it and setting it here. + SVR4 uses _VA_LIST as a flag in stdarg.h, but we should + have no conflict with that. */ +#ifndef _VA_LIST_ +#define _VA_LIST_ +#ifdef __i860__ +#ifndef _VA_LIST +#define _VA_LIST va_list +#endif +#endif /* __i860__ */ +typedef __gnuc_va_list va_list; +#ifdef _SCO_DS +#define __VA_LIST +#endif +#endif /* _VA_LIST_ */ +#else /* not __svr4__ || _SCO_DS */ + +/* The macro _VA_LIST_ is the same thing used by this file in Ultrix. + But on BSD NET2 we must not test or define or undef it. + (Note that the comments in NET 2's ansi.h + are incorrect for _VA_LIST_--see stdio.h!) */ +#if !defined (_VA_LIST_) || defined (__BSD_NET2__) || defined (____386BSD____) || defined (__bsdi__) || defined (__sequent__) || defined (__FreeBSD__) || defined(WINNT) +/* The macro _VA_LIST_DEFINED is used in Windows NT 3.5 */ +#ifndef _VA_LIST_DEFINED +/* The macro _VA_LIST is used in SCO Unix 3.2. */ +#ifndef _VA_LIST +/* The macro _VA_LIST_T_H is used in the Bull dpx2 */ +#ifndef _VA_LIST_T_H +/* The macro __va_list__ is used by BeOS. */ +#ifndef __va_list__ +typedef __gnuc_va_list va_list; +#endif /* not __va_list__ */ +#endif /* not _VA_LIST_T_H */ +#endif /* not _VA_LIST */ +#endif /* not _VA_LIST_DEFINED */ +#if !(defined (__BSD_NET2__) || defined (____386BSD____) || defined (__bsdi__) || defined (__sequent__) || defined (__FreeBSD__)) +#define _VA_LIST_ +#endif +#ifndef _VA_LIST +#define _VA_LIST +#endif +#ifndef _VA_LIST_DEFINED +#define _VA_LIST_DEFINED +#endif +#ifndef _VA_LIST_T_H +#define _VA_LIST_T_H +#endif +#ifndef __va_list__ +#define __va_list__ +#endif + +#endif /* not _VA_LIST_, except on certain systems */ + +#endif /* not __svr4__ */ + +#endif /* _STDARG_H */ + +#endif /* not _ANSI_STDARG_H_ */ +#endif /* not _STDARG_H */ diff --git a/unix/hlib/libc/stdarg-osx.h b/unix/hlib/libc/stdarg-osx.h new file mode 100644 index 00000000..f178505e --- /dev/null +++ b/unix/hlib/libc/stdarg-osx.h @@ -0,0 +1,133 @@ +/* Copyright (C) 1989, 1997, 1998, 1999, 2000 Free Software Foundation, Inc. + +This file is part of GCC. + +GCC is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2, or (at your option) +any later version. + +GCC is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +GNU General Public License for more details. + +You should have received a copy of the GNU General Public License +along with GCC; see the file COPYING. If not, write to +the Free Software Foundation, 59 Temple Place - Suite 330, +Boston, MA 02111-1307, USA. */ + +/* As a special exception, if you include this header file into source + files compiled by GCC, this header file does not by itself cause + the resulting executable to be covered by the GNU General Public + License. This exception does not however invalidate any other + reasons why the executable file might be covered by the GNU General + Public License. */ + +/* + * ISO C Standard: 7.15 Variable arguments <stdarg.h> + */ + +#ifndef _STDARG_H +#ifndef _ANSI_STDARG_H_ +#ifndef __need___va_list +#define _STDARG_H +#define _ANSI_STDARG_H_ +#endif /* not __need___va_list */ +#undef __need___va_list + +/* Define __gnuc_va_list. */ + +#ifndef __GNUC_VA_LIST +#define __GNUC_VA_LIST +typedef __builtin_va_list __gnuc_va_list; +#endif + +/* Define the standard macros for the user, + if this invocation was from the user program. */ +#ifdef _STDARG_H + +#define va_start(v,l) __builtin_va_start(v,l) +#define va_end(v) __builtin_va_end(v) +#define va_arg(v,l) __builtin_va_arg(v,l) +#if !defined(__STRICT_ANSI__) || __STDC_VERSION__ + 0 >= 199900L +#define va_copy(d,s) __builtin_va_copy(d,s) +#endif +#define __va_copy(d,s) __builtin_va_copy(d,s) + +/* Define va_list, if desired, from __gnuc_va_list. */ +/* We deliberately do not define va_list when called from + stdio.h, because ANSI C says that stdio.h is not supposed to define + va_list. stdio.h needs to have access to that data type, + but must not use that name. It should use the name __gnuc_va_list, + which is safe because it is reserved for the implementation. */ + +#ifdef _HIDDEN_VA_LIST /* On OSF1, this means varargs.h is "half-loaded". */ +#undef _VA_LIST +#endif + +#ifdef _BSD_VA_LIST +#undef _BSD_VA_LIST +#endif + +#if defined(__svr4__) || (defined(_SCO_DS) && !defined(__VA_LIST)) +/* SVR4.2 uses _VA_LIST for an internal alias for va_list, + so we must avoid testing it and setting it here. + SVR4 uses _VA_LIST as a flag in stdarg.h, but we should + have no conflict with that. */ +#ifndef _VA_LIST_ +#define _VA_LIST_ +#ifdef __i860__ +#ifndef _VA_LIST +#define _VA_LIST va_list +#endif +#endif /* __i860__ */ +typedef __gnuc_va_list va_list; +#ifdef _SCO_DS +#define __VA_LIST +#endif +#endif /* _VA_LIST_ */ +#else /* not __svr4__ || _SCO_DS */ + +/* The macro _VA_LIST_ is the same thing used by this file in Ultrix. + But on BSD NET2 we must not test or define or undef it. + (Note that the comments in NET 2's ansi.h + are incorrect for _VA_LIST_--see stdio.h!) */ +#if !defined (_VA_LIST_) || defined (__BSD_NET2__) || defined (____386BSD____) || defined (__bsdi__) || defined (__sequent__) || defined (__FreeBSD__) || defined(WINNT) +/* The macro _VA_LIST_DEFINED is used in Windows NT 3.5 */ +#ifndef _VA_LIST_DEFINED +/* The macro _VA_LIST is used in SCO Unix 3.2. */ +#ifndef _VA_LIST +/* The macro _VA_LIST_T_H is used in the Bull dpx2 */ +#ifndef _VA_LIST_T_H +/* The macro __va_list__ is used by BeOS. */ +#ifndef __va_list__ +typedef __gnuc_va_list va_list; +#endif /* not __va_list__ */ +#endif /* not _VA_LIST_T_H */ +#endif /* not _VA_LIST */ +#endif /* not _VA_LIST_DEFINED */ +#if !(defined (__BSD_NET2__) || defined (____386BSD____) || defined (__bsdi__) || defined (__sequent__) || defined (__FreeBSD__)) +#define _VA_LIST_ +#endif +#ifndef _VA_LIST +#define _VA_LIST +#endif +#ifndef _VA_LIST_DEFINED +#define _VA_LIST_DEFINED +#endif +#ifndef _VA_LIST_T_H +#define _VA_LIST_T_H +#endif +#ifndef __va_list__ +#define __va_list__ +#endif + +#endif /* not _VA_LIST_, except on certain systems */ + +#endif /* not __svr4__ */ + +#endif /* _STDARG_H */ + +#endif /* not _ANSI_STDARG_H_ */ +#endif /* not _STDARG_H */ diff --git a/unix/hlib/libc/stdarg-solaris.h b/unix/hlib/libc/stdarg-solaris.h new file mode 100644 index 00000000..c35c5ce2 --- /dev/null +++ b/unix/hlib/libc/stdarg-solaris.h @@ -0,0 +1,64 @@ +/* Copyright (c) 1988 AT&T */ +/* All Rights Reserved */ + +/* THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF AT&T */ +/* The copyright notice above does not evidence any */ +/* actual or intended publication of such source code. */ + +/* + * Copyright 2004 Sun Microsystems, Inc. All rights reserved. + * Use is subject to license terms. + */ + +/* + * An application should not include this header directly. Instead it + * should be included only through the inclusion of other Sun headers. + * + * The contents of this header is limited to identifiers specified in the + * C Standard. Any new identifiers specified in future amendments to the + * C Standard must be placed in this header. If these new identifiers + * are required to also be in the C++ Standard "std" namespace, then for + * anything other than macro definitions, corresponding "using" directives + * must also be added to <stdarg.h>. + */ + +#ifndef _ISO_STDARG_ISO_H +#define _ISO_STDARG_ISO_H + +#pragma ident "@(#)stdarg_iso.h 1.4 04/11/19 SMI" /* SVr4.0 1.8 */ + +/* + * This header defines the ISO C 1989 and ISO C++ 1998 variable + * argument definitions. + * + * The varargs definitions within this header are defined in terms of + * implementation definitions. These implementation definitions reside + * in <sys/va_impl.h>. This organization enables protected use of + * the implementation by other standard headers without introducing + * names into the users' namespace. + */ + +#include <sys/va_impl.h> + +#ifdef __cplusplus +extern "C" { +#endif + +#if __cplusplus >= 199711L +namespace std { +typedef __va_list va_list; +} +#elif !defined(_VA_LIST) +#define _VA_LIST +typedef __va_list va_list; +#endif + +#define va_start(list, name) __va_start(list, name) +#define va_arg(list, type) __va_arg(list, type) +#define va_end(list) __va_end(list) + +#ifdef __cplusplus +} +#endif + +#endif /* _ISO_STDARG_ISO_H */ diff --git a/unix/hlib/libc/stdarg.h b/unix/hlib/libc/stdarg.h new file mode 100644 index 00000000..a52889d8 --- /dev/null +++ b/unix/hlib/libc/stdarg.h @@ -0,0 +1,40 @@ +/* STDARG.H -- Interface to the Unix variable argument-list interface. + * This version replaces <varargs.h>, but is NOT backwards compatible. + * + * We pick up the local UNIX definitions for dealing with a variable + * number of arguments. This is done via indirection through this file so + * that any problems can be dealt with by changing only this file. + * + * Usage: Include this file using import_stdarg. If USE_STDARG is + * defined use the stdarg interface, otherwise use the varargs + * interface (ifdef the code accordingly). Old code which uses + * varargs directly is unaffected. + */ +#ifndef D_stdarg + + +#ifdef MACOSX +#include "stdarg-osx.h" +#else +#ifdef __CYGWIN__ +#include "stdarg-cygwin.h" +#else +#ifdef LINUX +#include "stdarg-linux.h" +#else +#ifdef SOLARIS +#include "stdarg-solaris.h" +#else +#ifdef BSD +#include "stdarg-freebsd.h" +#else +#include <stdarg.h> +#endif +#endif +#endif +#endif +#endif + + +#define D_stdarg +#endif diff --git a/unix/hlib/libc/stdio.h b/unix/hlib/libc/stdio.h new file mode 100644 index 00000000..c3cc0bd6 --- /dev/null +++ b/unix/hlib/libc/stdio.h @@ -0,0 +1,99 @@ +/* + * U_STDIO.H -- C defines used to emulate the UNIX standard i/o package upon + * IRAF file i/o. These definitions are portable, but highly dependent on + * the guts of IRAF FIO. + */ + +#ifndef D_libc +#ifndef import_libc +#include "libc.h" +#endif +#endif + +#define BUFSIZ SZ_DEFIOBUF +#define _NFILE FIO_MAXFD +#define FILE struct _iobuf + +# ifndef NULL +#define NULL 0 +# endif +# ifndef EOF +#define EOF (-1) +# endif + +/* Filler space is defined here to reduce clutter in the struct def below. + */ +#define _F1 _filler1[_NFILE-1] +#define _F2 _filler2[_NFILE-1] +#define _F3 _filler3[_NFILE-1] +#define _F4 _filler4[_NFILE-1] +#define _F5 _filler5[_NFILE-1] +#define _F6 _filler6[_NFILE-1] +#define _F7 _filler7[_NFILE-1] + +/* The _iobuf structure is the C version of the FIO common /fiocom/, which + * contains all the FIO buffer and i/o pointers. Each structure field is + * maintained in the common as an array of length _NFILE, hence in terms of + * C the structures are interleaved. The file pointers are indices into + * the array Memc, an array of XCHAR. + */ +struct _iobuf { + XLONG _boffset, _F1; /* XCHAR file offset of buffer */ + XINT _bufptr, _F2; /* buffer pointer */ + XINT _buftop, _F3; /* pointer to top of buffer + 1 */ + XINT _iop, _F4; /* pointer to next XCHAR */ + XINT _itop, _F5; /* call filbuf when _iop >= */ + XINT _otop, _F6; /* call flsbuf when _iop >= */ + XINT _fiodes, _F7; /* FIO file descriptor */ + XINT _fflags; /* bit flags */ +}; + +extern XINT FIOCOM[]; /* the FIO common */ + +#define _FFLUSHNL 01 /* flush buffer on newline */ +#define _FREAD 02 /* read perm on file */ +#define _FWRITE 04 /* read perm on file */ +#define _FEOF 010 /* file positioned to EOF */ +#define _FERR 020 /* i/o error on file */ +#define _FKEEP 040 /* keep file open at exit */ +#define _FFLUSH 0100 /* write to device on newline */ +#define _FRAW 0200 /* raw input mode */ +#define _FNDELAY 0400 /* nonblocking i/o */ +#define _FPUSH 01000 /* data is pushed back */ +#define _FIPC 02000 /* file is an IPC channel */ + +/* Convert FILE pointers to and from FIO integer file descriptors. + */ +#define FDTOFP(fd) ((FILE *)(&FIOCOM[(fd)-1])) +#define FPTOFD(fp) ((XINT)((XINT *)(fp) - FIOCOM + 1)) + +#define stdin (FDTOFP(3)) +#define stdout (FDTOFP(4)) +#define stderr (FDTOFP(5)) + + +/* I/O macro defines. I/O is assumed to be sequential, i.e., we do not check + * for _iop < _bufptr. This is consistent with UNIX usage. The getc and putc + * macros are quite efficient despite their complex appearance. + */ +#define getchar() fgetc(stdin) +#define getc(fp) \ +(((fp)->_iop >= (fp)->_itop) ? c_filbuf((fp)) : Memc[(fp)->_iop++] & 0377) + +#define putchar(ch) fputc((ch),stdout) +#define putc(ch,fp) \ +(((fp)->_iop >= (fp)->_otop || ((ch) == '\n' && (fp)->_fflags&_FFLUSH)) ? \ +c_flsbuf((unsigned)(ch),(fp)) : ((int)(Memc[(fp)->_iop++] = (unsigned)(ch)))) + +#define fileno(fp) (FPTOFD((fp))) +#define feof(fp) ((fp)->_fflags & _FEOF) +#define ferror(fp) ((fp)->_fflags & _FERR) +#define clearerr(fp) ((fp)->_fflags &= ~_FERR) + + +FILE *fopen(); +FILE *fdopen(); +char *fgets(); +char *gets(); + +#define D_stdio diff --git a/unix/hlib/libc/ttset.h b/unix/hlib/libc/ttset.h new file mode 100644 index 00000000..a70e5c99 --- /dev/null +++ b/unix/hlib/libc/ttset.h @@ -0,0 +1,27 @@ +/* TTSET.H -- Set terminal control options (TT logical terminal driver). + */ +#define TT_INITIALIZE 0 /* initialize TT driver status */ +#define TT_KINCHAN 101 /* kernel tty input channel */ +#define TT_KOUTCHAN 102 /* kernel tty output channel */ +#define TT_LOGINCHAN 103 /* login spoolfile channel */ +#define TT_LOGOUTCHAN 104 /* logout spoolfile channel */ +#define TT_PBINCHAN 105 /* playback spoolfile channel */ +#define TT_UCASEIN 106 /* map input to lower case */ +#define TT_UCASEOUT 107 /* map output to upper case */ +#define TT_SHIFTLOCK 108 /* software shiftlock */ +#define TT_RAWMODE 109 /* raw mode in effect */ +#define TT_LOGIO 110 /* log terminal i/o */ +#define TT_LOGIN 111 /* log terminal input */ +#define TT_LOGOUT 112 /* log terminal output */ +#define TT_PLAYBACK 113 /* take input from a spool file */ +#define TT_PBVERIFY 114 /* pause at \n during playback */ +#define TT_PBDELAY 115 /* msec delay/per record during playback */ +#define TT_PASSTHRU 116 /* passthru mode (direct i/o to device) */ +#define TT_IOFILE 117 /* logio file name */ +#define TT_INFILE 118 /* login file name */ +#define TT_OUTFILE 119 /* logout file name */ +#define TT_PBFILE 120 /* playback file name */ +#define TT_TDEVICE 121 /* terminal device at record time */ +#define TT_GDEVICE 122 /* stdgraph device at record time */ + +#define D_ttset diff --git a/unix/hlib/libc/vosproto.h b/unix/hlib/libc/vosproto.h new file mode 100644 index 00000000..031efd39 --- /dev/null +++ b/unix/hlib/libc/vosproto.h @@ -0,0 +1,4035 @@ +extern C_f ahivx_(complex * ret_val, complex *a, integer *npix); +extern C_f alovx_(complex * ret_val, complex *a, integer *npix); +extern C_f amedx_(complex * ret_val, complex *a, integer *npix); +extern C_f asokx_(complex * ret_val, complex *a, integer *npix, integer *ksel); +extern C_f assqx_(complex * ret_val, complex *a, integer *npix); +extern C_f asumx_(complex * ret_val, complex *a, integer *npix); +extern C_f clgetx_(complex * ret_val, shortint *param); +extern C_f clgpsx_(complex * ret_val, integer *pp, shortint *parnae); +extern C_f qpgetx_(complex * ret_val, integer *qp, shortint *param); +extern H_f agbnch_(char *ret_val, ftnlen ret_val_len, integer *idsh); +extern H_f agdshn_(char *ret_val, ftnlen ret_val_len, integer *idsh); +extern doublereal adotd_(doublereal *a, doublereal *b, integer *npix); +extern doublereal adotl_(integer *a, integer *b, integer *npix); +extern doublereal aelogd_(doublereal *x); +extern doublereal ahivd_(doublereal *a, integer *npix); +extern doublereal alovd_(doublereal *a, integer *npix); +extern doublereal amedd_(doublereal *a, integer *npix); +extern doublereal apold_(doublereal *x, doublereal *coeff, integer *ncoeff); +extern doublereal asokd_(doublereal *a, integer *npix, integer *ksel); +extern doublereal assqd_(doublereal *a, integer *npix); +extern doublereal assql_(integer *a, integer *npix); +extern doublereal asumd_(doublereal *a, integer *npix); +extern doublereal asuml_(integer *a, integer *npix); +extern doublereal clgetd_(shortint *param); +extern doublereal clgpsd_(integer *pp, shortint *parnae); +extern doublereal cqdged_(integer *cq, integer *record, shortint *field); +extern doublereal cqfged_(integer *cq, shortint *field); +extern doublereal cqistd_(integer *res, integer *param); +extern doublereal cqrstd_(integer *res, integer *param); +extern doublereal dtgetd_(integer *dt, integer *record, shortint *field); +extern doublereal dtmday_(integer *year, integer *month, integer *day, doublereal *t); +extern doublereal elogd_(doublereal *x); +extern doublereal envged_(shortint *varnae); +extern doublereal fpfixd_(doublereal *x); +extern doublereal icrmsd_(doublereal *x, doublereal *y, doublereal *fit, doublereal *wts, integer *npts); +extern doublereal imgetd_(integer *im, shortint *key); +extern doublereal ingdvd_(doublereal *x); +extern doublereal ingetd_(integer *in, integer *param); +extern doublereal inrmsd_(doublereal *y, doublereal *fit, doublereal *wts, integer *npts); +extern doublereal mefged_(integer *mef, shortint *key); +extern doublereal mwc1td_(integer *act, doublereal *x); +extern doublereal obsged_(integer *obs, shortint *param); +extern doublereal qpgetd_(integer *qp, shortint *param); +extern doublereal qpmaxd_(doublereal *x, doublereal *y); +extern doublereal qpmind_(doublereal *x, doublereal *y); +extern doublereal skstad_(integer *coo, integer *param); +extern doublereal wfgsdr_(integer *sf1, doublereal *x, doublereal *y, integer *nxd, integer *nyd); +extern doublereal wfgsel_(integer *sf, doublereal *x, doublereal *y); +extern doublereal wfmspi_(doublereal *coeff, doublereal *y, doublereal *x, doublereal *dydx); +extern doublereal wfmspl_(doublereal *coeff, doublereal *xin); +extern doublereal wlange_(integer *wd, integer *labels, integer *nlabes); +extern doublereal wlched_(doublereal *ex, doublereal *arr, integer *n); +extern doublereal wlcoon_(integer *wlct, integer *flip, doublereal *wx1, doublereal *wy1, doublereal *wx2, doublereal *wy2); +extern doublereal wldisd_(doublereal *x1, doublereal *y1, doublereal *x2, doublereal *y2); +extern doublereal wlroud_(doublereal *x, doublereal *y); +extern doublereal wlstre_(doublereal *angle, integer *rightp); +extern doublereal wlstrl_(shortint *input, integer *axiste, integer *whichs); +extern doublereal wlvece_(integer *gp, doublereal *x1, doublereal *y1, doublereal *x2, doublereal *y2); +extern doublereal xacos_(doublereal *x); +extern doublereal xasin_(doublereal *x); +extern doublereal xatan2_(doublereal *x, doublereal *y); +extern doublereal xatan_(doublereal *x); +extern doublereal xcos_(doublereal *x); +extern doublereal xexp_(doublereal *x); +extern doublereal xlog10_(doublereal *x); +extern doublereal xlog_(doublereal *x); +extern doublereal xpow_(doublereal *x, doublereal *y); +extern doublereal xsin_(doublereal *x); +extern doublereal xsqrt_(doublereal *x); +extern doublereal xtan_(doublereal *x); +extern doublereal xtargd_(integer *stp, shortint *key); +extern integer aabsd_(doublereal *a, doublereal *b, integer *npix); +extern integer aabsi_(integer *a, integer *b, integer *npix); +extern integer aabsl_(integer *a, integer *b, integer *npix); +extern integer aabsr_(real *a, real *b, integer *npix); +extern integer aabss_(shortint *a, shortint *b, integer *npix); +extern integer aabsx_(complex *a, complex *b, integer *npix); +extern integer aaddd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix); +extern integer aaddi_(integer *a, integer *b, integer *c__, integer *npix); +extern integer aaddkd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix); +extern integer aaddki_(integer *a, integer *b, integer *c__, integer *npix); +extern integer aaddkl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer aaddkr_(real *a, real *b, real *c__, integer *npix); +extern integer aaddks_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer aaddkx_(complex *a, complex *b, complex *c__, integer *npix); +extern integer aaddl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer aaddr_(real *a, real *b, real *c__, integer *npix); +extern integer aadds_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer aaddx_(complex *a, complex *b, complex *c__, integer *npix); +extern integer aandi_(integer *a, integer *b, integer *c__, integer *npix); +extern integer aandki_(integer *a, integer *b, integer *c__, integer *npix); +extern integer aandkl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer aandks_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer aandl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer aands_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer aavgd_(doublereal *a, integer *npix, doublereal *mean, doublereal *sigma); +extern integer aavgi_(integer *a, integer *npix, real *mean, real *sigma); +extern integer aavgl_(integer *a, integer *npix, doublereal *mean, doublereal *sigma); +extern integer aavgr_(real *a, integer *npix, real *mean, real *sigma); +extern integer aavgs_(shortint *a, integer *npix, real *mean, real *sigma); +extern integer aavgx_(complex *a, integer *npix, real *mean, real *sigma); +extern integer abavd_(doublereal *a, doublereal *b, integer *nblocs, integer *npixpk); +extern integer abavi_(integer *a, integer *b, integer *nblocs, integer *npixpk); +extern integer abavl_(integer *a, integer *b, integer *nblocs, integer *npixpk); +extern integer abavr_(real *a, real *b, integer *nblocs, integer *npixpk); +extern integer abavs_(shortint *a, shortint *b, integer *nblocs, integer *npixpk); +extern integer abavx_(complex *a, complex *b, integer *nblocs, integer *npixpk); +extern integer abeqc_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abeqd_(doublereal *a, doublereal *b, integer *c__, integer *npix); +extern integer abeqi_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abeqkc_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abeqkd_(doublereal *a, doublereal *b, integer *c__, integer *npix); +extern integer abeqki_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abeqkl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abeqkr_(real *a, real *b, integer *c__, integer *npix); +extern integer abeqks_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abeqkx_(complex *a, complex *b, integer *c__, integer *npix); +extern integer abeql_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abeqr_(real *a, real *b, integer *c__, integer *npix); +extern integer abeqs_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abeqx_(complex *a, complex *b, integer *c__, integer *npix); +extern integer abgec_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abged_(doublereal *a, doublereal *b, integer *c__, integer *npix); +extern integer abgei_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abgekc_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abgekd_(doublereal *a, doublereal *b, integer *c__, integer *npix); +extern integer abgeki_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abgekl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abgekr_(real *a, real *b, integer *c__, integer *npix); +extern integer abgeks_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abgekx_(complex *a, complex *b, integer *c__, integer *npix); +extern integer abgel_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abger_(real *a, real *b, integer *c__, integer *npix); +extern integer abges_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abgex_(complex *a, complex *b, integer *c__, integer *npix); +extern integer abgtc_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abgtd_(doublereal *a, doublereal *b, integer *c__, integer *npix); +extern integer abgti_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abgtkc_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abgtkd_(doublereal *a, doublereal *b, integer *c__, integer *npix); +extern integer abgtki_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abgtkl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abgtkr_(real *a, real *b, integer *c__, integer *npix); +extern integer abgtks_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abgtkx_(complex *a, complex *b, integer *c__, integer *npix); +extern integer abgtl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abgtr_(real *a, real *b, integer *c__, integer *npix); +extern integer abgts_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abgtx_(complex *a, complex *b, integer *c__, integer *npix); +extern integer ablec_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abled_(doublereal *a, doublereal *b, integer *c__, integer *npix); +extern integer ablei_(integer *a, integer *b, integer *c__, integer *npix); +extern integer ablekc_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer ablekd_(doublereal *a, doublereal *b, integer *c__, integer *npix); +extern integer ableki_(integer *a, integer *b, integer *c__, integer *npix); +extern integer ablekl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer ablekr_(real *a, real *b, integer *c__, integer *npix); +extern integer ableks_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer ablekx_(complex *a, complex *b, integer *c__, integer *npix); +extern integer ablel_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abler_(real *a, real *b, integer *c__, integer *npix); +extern integer ables_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer ablex_(complex *a, complex *b, integer *c__, integer *npix); +extern integer abltc_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abltd_(doublereal *a, doublereal *b, integer *c__, integer *npix); +extern integer ablti_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abltkc_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abltkd_(doublereal *a, doublereal *b, integer *c__, integer *npix); +extern integer abltki_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abltkl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abltkr_(real *a, real *b, integer *c__, integer *npix); +extern integer abltks_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abltkx_(complex *a, complex *b, integer *c__, integer *npix); +extern integer abltl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abltr_(real *a, real *b, integer *c__, integer *npix); +extern integer ablts_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abltx_(complex *a, complex *b, integer *c__, integer *npix); +extern integer abnec_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abned_(doublereal *a, doublereal *b, integer *c__, integer *npix); +extern integer abnei_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abnekc_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abnekd_(doublereal *a, doublereal *b, integer *c__, integer *npix); +extern integer abneki_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abnekl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abnekr_(real *a, real *b, integer *c__, integer *npix); +extern integer abneks_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abnekx_(complex *a, complex *b, integer *c__, integer *npix); +extern integer abnel_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abner_(real *a, real *b, integer *c__, integer *npix); +extern integer abnes_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer abnex_(complex *a, complex *b, integer *c__, integer *npix); +extern integer abori_(integer *a, integer *b, integer *c__, integer *npix); +extern integer aborki_(integer *a, integer *b, integer *c__, integer *npix); +extern integer aborkl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer aborks_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer aborl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer abors_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer absud_(doublereal *a, doublereal *b, integer *nblocs, integer *npixpk); +extern integer absui_(integer *a, integer *b, integer *nblocs, integer *npixpk); +extern integer absul_(integer *a, integer *b, integer *nblocs, integer *npixpk); +extern integer absur_(real *a, real *b, integer *nblocs, integer *npixpk); +extern integer absus_(shortint *a, shortint *b, integer *nblocs, integer *npixpk); +extern integer acht_(shortint *a, shortint *b, integer *nelem, integer *tya, integer *tyb); +extern integer achtb_(shortint *a, shortint *b, integer *nelem, integer *tyb); +extern integer achtc_(shortint *a, shortint *b, integer *nelem, integer *tyb); +extern integer achtcc_(shortint *a, shortint *b, integer *npix); +extern integer achtcd_(shortint *a, doublereal *b, integer *npix); +extern integer achtci_(shortint *a, integer *b, integer *npix); +extern integer achtcl_(shortint *a, integer *b, integer *npix); +extern integer achtcr_(shortint *a, real *b, integer *npix); +extern integer achtcs_(shortint *a, shortint *b, integer *npix); +extern integer achtcx_(shortint *a, complex *b, integer *npix); +extern integer achtd_(doublereal *a, shortint *b, integer *nelem, integer *tyb); +extern integer achtdc_(doublereal *a, shortint *b, integer *npix); +extern integer achtdd_(doublereal *a, doublereal *b, integer *npix); +extern integer achtdi_(doublereal *a, integer *b, integer *npix); +extern integer achtdl_(doublereal *a, integer *b, integer *npix); +extern integer achtdr_(doublereal *a, real *b, integer *npix); +extern integer achtds_(doublereal *a, shortint *b, integer *npix); +extern integer achtdx_(doublereal *a, complex *b, integer *npix); +extern integer achti_(integer *a, shortint *b, integer *nelem, integer *tyb); +extern integer achtic_(integer *a, shortint *b, integer *npix); +extern integer achtid_(integer *a, doublereal *b, integer *npix); +extern integer achtii_(integer *a, integer *b, integer *npix); +extern integer achtil_(integer *a, integer *b, integer *npix); +extern integer achtir_(integer *a, real *b, integer *npix); +extern integer achtis_(integer *a, shortint *b, integer *npix); +extern integer achtix_(integer *a, complex *b, integer *npix); +extern integer achtl_(integer *a, shortint *b, integer *nelem, integer *tyb); +extern integer achtlc_(integer *a, shortint *b, integer *npix); +extern integer achtld_(integer *a, doublereal *b, integer *npix); +extern integer achtli_(integer *a, integer *b, integer *npix); +extern integer achtll_(integer *a, integer *b, integer *npix); +extern integer achtlr_(integer *a, real *b, integer *npix); +extern integer achtls_(integer *a, shortint *b, integer *npix); +extern integer achtlx_(integer *a, complex *b, integer *npix); +extern integer achtr_(real *a, shortint *b, integer *nelem, integer *tyb); +extern integer achtrc_(real *a, shortint *b, integer *npix); +extern integer achtrd_(real *a, doublereal *b, integer *npix); +extern integer achtri_(real *a, integer *b, integer *npix); +extern integer achtrl_(real *a, integer *b, integer *npix); +extern integer achtrr_(real *a, real *b, integer *npix); +extern integer achtrs_(real *a, shortint *b, integer *npix); +extern integer achtrx_(real *a, complex *b, integer *npix); +extern integer achts_(shortint *a, shortint *b, integer *nelem, integer *tyb); +extern integer achtsc_(shortint *a, shortint *b, integer *npix); +extern integer achtsd_(shortint *a, doublereal *b, integer *npix); +extern integer achtsi_(shortint *a, integer *b, integer *npix); +extern integer achtsl_(shortint *a, integer *b, integer *npix); +extern integer achtsr_(shortint *a, real *b, integer *npix); +extern integer achtss_(shortint *a, shortint *b, integer *npix); +extern integer achtsx_(shortint *a, complex *b, integer *npix); +extern integer achtu_(shortint *a, shortint *b, integer *nelem, integer *tyb); +extern integer achtx_(complex *a, shortint *b, integer *nelem, integer *tyb); +extern integer achtxc_(complex *a, shortint *b, integer *npix); +extern integer achtxd_(complex *a, doublereal *b, integer *npix); +extern integer achtxi_(complex *a, integer *b, integer *npix); +extern integer achtxl_(complex *a, integer *b, integer *npix); +extern integer achtxr_(complex *a, real *b, integer *npix); +extern integer achtxs_(complex *a, shortint *b, integer *npix); +extern integer achtxx_(complex *a, complex *b, integer *npix); +extern integer acjgx_(complex *a, complex *b, integer *npix); +extern integer acjgx_(complex *a, complex *b, integer *npix); +extern integer aclrc_(shortint *a, integer *npix); +extern integer aclrd_(doublereal *a, integer *npix); +extern integer aclri_(integer *a, integer *npix); +extern integer aclrl_(integer *a, integer *npix); +extern integer aclrr_(real *a, integer *npix); +extern integer aclrs_(shortint *a, integer *npix); +extern integer aclrx_(complex *a, integer *npix); +extern integer acnvd_(doublereal *in, doublereal *out, integer *npix, doublereal *kernel, integer *knpix); +extern integer acnvi_(integer *in, integer *out, integer *npix, integer *kernel, integer *knpix); +extern integer acnvl_(integer *in, integer *out, integer *npix, integer *kernel, integer *knpix); +extern integer acnvr_(real *in, real *out, integer *npix, real *kernel, integer *knpix); +extern integer acnvrd_(doublereal *in, doublereal *out, integer *npix, real *kernel, integer *knpix); +extern integer acnvri_(integer *in, integer *out, integer *npix, real *kernel, integer *knpix); +extern integer acnvrl_(integer *in, integer *out, integer *npix, real *kernel, integer *knpix); +extern integer acnvrr_(real *in, real *out, integer *npix, real *kernel, integer *knpix); +extern integer acnvrs_(shortint *in, shortint *out, integer *npix, real *kernel, integer *knpix); +extern integer acnvs_(shortint *in, shortint *out, integer *npix, shortint *kernel, integer *knpix); +extern integer adivd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix); +extern integer adivi_(integer *a, integer *b, integer *c__, integer *npix); +extern integer adivkd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix); +extern integer adivki_(integer *a, integer *b, integer *c__, integer *npix); +extern integer adivkl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer adivkr_(real *a, real *b, real *c__, integer *npix); +extern integer adivks_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer adivkx_(complex *a, complex *b, complex *c__, integer *npix); +extern integer adivl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer adivr_(real *a, real *b, real *c__, integer *npix); +extern integer adivs_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer adivx_(complex *a, complex *b, complex *c__, integer *npix); +extern integer advzd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix, D_fp errfcn); +extern integer advzi_(integer *a, integer *b, integer *c__, integer *npix, I_fp errfcn); +extern integer advzl_(integer *a, integer *b, integer *c__, integer *npix, I_fp errfcn); +extern integer advzr_(real *a, real *b, real *c__, integer *npix, R_fp errfcn); +extern integer advzs_(shortint *a, shortint *b, shortint *c__, integer *npix, J_fp errfcn); +extern integer advzx_(complex *a, complex *b, complex *c__, integer *npix, C_fp errfcn); +extern integer aexpd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix); +extern integer aexpi_(integer *a, integer *b, integer *c__, integer *npix); +extern integer aexpkd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix); +extern integer aexpki_(integer *a, integer *b, integer *c__, integer *npix); +extern integer aexpkl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer aexpkr_(real *a, real *b, real *c__, integer *npix); +extern integer aexpks_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer aexpkx_(complex *a, complex *b, complex *c__, integer *npix); +extern integer aexpl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer aexpr_(real *a, real *b, real *c__, integer *npix); +extern integer aexps_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer aexpx_(complex *a, complex *b, complex *c__, integer *npix); +extern integer afftrr_(real *sr, real *si, real *fr, real *fi, integer *npix); +extern integer afftrr_(real *sr, real *si, real *fr, real *fi, integer *npix); +extern integer afftrx_(real *a, complex *b, integer *npix); +extern integer afftrx_(real *a, complex *b, integer *npix); +extern integer afftxr_(real *sr, real *si, real *fr, real *fi, integer *npix); +extern integer afftxr_(real *sr, real *si, real *fr, real *fi, integer *npix); +extern integer afftxx_(complex *a, complex *b, integer *npix); +extern integer afftxx_(complex *a, complex *b, integer *npix); +extern integer agaxis_(integer *iaxs, real *qtst, real *qspa, real *wcwp, real *hcwp, real *xbga, real *ybga, real *xnda, real *ynda, real *qlua, real *ubga, real *unda, real *funs, real *qbtp, real *base, real *qjdp, real *wmjl, real *wmjr, real *qmnt, real *qndp, real *wmnl, real *wmnr, real *qltp, real *qlex, real *qlfl, real *qlof, real *qlos, real *dnla, real *wclm, real *wcle, real *rfnl, real *qcim, real *qcie, real *wnll, real *wnlr, real *wnlb, real *wnle); +extern integer agback_(void); +extern integer agchax_(integer *iflg, integer *iaxs, integer *iprt, real *vils); +extern integer agchcu_(integer *iflg, integer *kdsh); +extern integer agchil_(integer *iflg, char *lbnm, integer *lnno, ftnlen lbnm_len); +extern integer agchnl_(integer *iaxs, real *vils, char *chrm, integer *mcim, integer *ncim, integer *ipxm, char *chre, integer *mcie, integer *ncie, ftnlen chrm_len, ftnlen chre_len); +extern integer agchnl_(integer *iaxs, real *vils, char *chrm, integer *mcim, integer *ncim, integer *ipxm, char *chre, integer *mcie, integer *ncie, ftnlen chrm_len, ftnlen chre_len); +extern integer agcorn_(integer *ntgr, char *bcrn, integer *ncrn, ftnlen bcrn_len); +extern integer agctcs_(char *tpid, integer *itcs, ftnlen tpid_len); +extern integer agctko_(real *xbga, real *ybga, real *xdca, real *ydca, real *cfax, real *cfay, real *csfa, integer *jaor, integer *nmmt, real *qmdp, real *wmml, real *wmmr, real *fnll, real *fnlr, integer *mm12, integer *mm34, real *xmmt, real *ymmt); +extern integer agcurv_(real *xvec, integer *iiex, real *yvec, integer *iiey, integer *nexy, integer *kdsh); +extern integer agdash_(real *dash, real *wodq, real *wocd, real *scwp); +extern integer agdflt_(void); +extern integer agdlch_(integer *idcs); +extern integer agexax_(integer *iaxs, real *sval, real *umin, real *umax, integer *nice, real *qlua, real *funs, real *qbtp, real *basd, real *base, real *qmjd, real *qmnd, real *qmnt, real *qltd, real *qltp, real *qled, real *qlex, real *qlfd, real *qlfl, real *qmin, real *qmax); +extern integer agexus_(real *sval, real *zmin, real *zmax, real *zlow, real *zhgh, real *zdra, integer *nviz, integer *iivz, integer *nevz, integer *iiez, real *umin, real *umax); +extern integer agezsu_(integer *itoc, real *xdra, real *ydra, integer *idxy, integer *many, integer *npts, char *labg, integer *iivx, integer *iiex, integer *iivy, integer *iiey, ftnlen labg_len); +extern integer agftol_(integer *iaxs, integer *idma, real *vinp, real *votp, real *vlcs, integer *llua, real *ubeg, real *udif, real *funs, integer *nbtp, real *sbse); +extern integer aggetc_(char *tpid, char *cusr, ftnlen tpid_len, ftnlen cusr_len); +extern integer aggetf_(char *tpid, real *fusr, ftnlen tpid_len); +extern integer aggeti_(char *tpid, integer *iusr, ftnlen tpid_len); +extern integer aggetp_(char *tpid, real *fura, integer *lura, ftnlen tpid_len); +extern integer aggtch_(integer *idcs, char *chst, integer *lncs, ftnlen chst_len); +extern integer aginit_(void); +extern integer agkurv_(real *xvec, integer *iiex, real *yvec, integer *iiey, integer *nexy, real *sval); +extern integer aglbls_(integer *itst, real *wcwp, real *hcwp, real *fllb, integer *lbim, real *flln, real *dbox, real *sbox, real *rbox); +extern integer agltc_(shortint *a, shortint *b, integer *npix, shortint *low, shortint *high, real *kmul, real *kadd, integer *nrange); +extern integer agltd_(doublereal *a, doublereal *b, integer *npix, doublereal *low, doublereal *high, doublereal *kmul, doublereal *kadd, integer *nrange); +extern integer aglti_(integer *a, integer *b, integer *npix, integer *low, integer *high, real *kmul, real *kadd, integer *nrange); +extern integer agltl_(integer *a, integer *b, integer *npix, integer *low, integer *high, doublereal *kmul, doublereal *kadd, integer *nrange); +extern integer agltr_(real *a, real *b, integer *npix, real *low, real *high, real *kmul, real *kadd, integer *nrange); +extern integer aglts_(shortint *a, shortint *b, integer *npix, shortint *low, shortint *high, real *kmul, real *kadd, integer *nrange); +extern integer agltx_(complex *a, complex *b, integer *npix, complex *low, complex *high, real *kmul, real *kadd, integer *nrange); +extern integer agnumb_(integer *nbtp, real *sbse, real *exmu, integer *nltp, integer *nlex, integer *nlfl, char *bfrm, integer *mcim, integer *ncim, integer *ipxm, char *bfre, integer *mcie, integer *ncie, ftnlen bfrm_len, ftnlen bfre_len); +extern integer agppid_(char *tpid, ftnlen tpid_len); +extern integer agpwrt_(real *xpos, real *ypos, char *chrs, integer *nchs, integer *isiz, integer *iori, integer *icen, ftnlen chrs_len); +extern integer agqurv_(real *xvec, integer *iiex, real *yvec, integer *iiey, integer *nexy, real *sval); +extern integer agrpch_(char *chst, integer *lncs, integer *idcs, ftnlen chst_len); +extern integer agrstr_(integer *ifno); +extern integer agsave_(integer *ifno); +extern integer agscan_(char *tpid, integer *lopa, integer *nipa, integer *iipa, ftnlen tpid_len); +extern integer agsetc_(char *tpid, char *cusr, ftnlen tpid_len, ftnlen cusr_len); +extern integer agsetf_(char *tpid, real *fusr, ftnlen tpid_len); +extern integer agseti_(char *tpid, integer *iusr, ftnlen tpid_len); +extern integer agsetp_(char *tpid, real *fura, integer *lura, ftnlen tpid_len); +extern integer agstch_(char *chst, integer *lncs, integer *idcs, ftnlen chst_len); +extern integer agstup_(real *xdra, integer *nvix, integer *iivx, integer *nevx, integer *iiex, real *ydra, integer *nviy, integer *iivy, integer *nevy, integer *iiey); +extern integer agutol_(integer *iaxs, real *funs, integer *idma, real *vinp, real *votp); +extern integer ahgmc_(shortint *data, integer *npix, integer *hgm, integer *nbins, shortint *z1, shortint *z2); +extern integer ahgmd_(doublereal *data, integer *npix, integer *hgm, integer *nbins, doublereal *z1, doublereal *z2); +extern integer ahgmi_(integer *data, integer *npix, integer *hgm, integer *nbins, integer *z1, integer *z2); +extern integer ahgml_(integer *data, integer *npix, integer *hgm, integer *nbins, integer *z1, integer *z2); +extern integer ahgmr_(real *data, integer *npix, integer *hgm, integer *nbins, real *z1, real *z2); +extern integer ahgms_(shortint *data, integer *npix, integer *hgm, integer *nbins, shortint *z1, shortint *z2); +extern integer aiftrr_(real *fr, real *fi, real *sr, real *si, integer *npix); +extern integer aiftrr_(real *fr, real *fi, real *sr, real *si, integer *npix); +extern integer aiftrx_(complex *a, real *b, integer *npix); +extern integer aiftrx_(complex *a, real *b, integer *npix); +extern integer aiftxr_(real *fr, real *fi, real *sr, real *si, integer *npix); +extern integer aiftxr_(real *fr, real *fi, real *sr, real *si, integer *npix); +extern integer aiftxx_(complex *a, complex *b, integer *npix); +extern integer aiftxx_(complex *a, complex *b, integer *npix); +extern integer aimgd_(complex *a, doublereal *b, integer *npix); +extern integer aimgi_(complex *a, integer *b, integer *npix); +extern integer aimgl_(complex *a, integer *b, integer *npix); +extern integer aimgr_(complex *a, real *b, integer *npix); +extern integer aimgs_(complex *a, shortint *b, integer *npix); +extern integer alani_(integer *a, integer *b, integer *c__, integer *npix); +extern integer alanki_(integer *a, integer *b, integer *c__, integer *npix); +extern integer alankl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer alanks_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer alanl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer alans_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer alimc_(shortint *a, integer *npix, shortint *minval, shortint *maxval); +extern integer alimd_(doublereal *a, integer *npix, doublereal *minval, doublereal *maxval); +extern integer alimi_(integer *a, integer *npix, integer *minval, integer *maxval); +extern integer aliml_(integer *a, integer *npix, integer *minval, integer *maxval); +extern integer alimr_(real *a, integer *npix, real *minval, real *maxval); +extern integer alims_(shortint *a, integer *npix, shortint *minval, shortint *maxval); +extern integer alimx_(complex *a, integer *npix, complex *minval, complex *maxval); +extern integer allnd_(doublereal *a, doublereal *b, integer *npix, D_fp errfcn); +extern integer allni_(integer *a, integer *b, integer *npix, I_fp errfcn); +extern integer allnl_(integer *a, integer *b, integer *npix, I_fp errfcn); +extern integer allnr_(real *a, real *b, integer *npix, R_fp errfcn); +extern integer allns_(shortint *a, shortint *b, integer *npix, J_fp errfcn); +extern integer allnx_(complex *a, complex *b, integer *npix, C_fp errfcn); +extern integer alogd_(doublereal *a, doublereal *b, integer *npix, D_fp errfcn); +extern integer alogi_(integer *a, integer *b, integer *npix, I_fp errfcn); +extern integer alogl_(integer *a, integer *b, integer *npix, I_fp errfcn); +extern integer alogr_(real *a, real *b, integer *npix, R_fp errfcn); +extern integer alogs_(shortint *a, shortint *b, integer *npix, J_fp errfcn); +extern integer alogx_(complex *a, complex *b, integer *npix, C_fp errfcn); +extern integer alori_(integer *a, integer *b, integer *c__, integer *npix); +extern integer alorki_(integer *a, integer *b, integer *c__, integer *npix); +extern integer alorkl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer alorks_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer alorl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer alors_(shortint *a, shortint *b, integer *c__, integer *npix); +extern integer altad_(doublereal *a, doublereal *b, integer *npix, doublereal *k1, doublereal *k2); +extern integer altai_(integer *a, integer *b, integer *npix, real *k1, real *k2); +extern integer altal_(integer *a, integer *b, integer *npix, doublereal *k1, doublereal *k2); +extern integer altar_(real *a, real *b, integer *npix, real *k1, real *k2); +extern integer altas_(shortint *a, shortint *b, integer *npix, real *k1, real *k2); +extern integer altax_(complex *a, complex *b, integer *npix, real *k1, real *k2); +extern integer altmd_(doublereal *a, doublereal *b, integer *npix, doublereal *k1, doublereal *k2); +extern integer altmi_(integer *a, integer *b, integer *npix, real *k1, real *k2); +extern integer altml_(integer *a, integer *b, integer *npix, doublereal *k1, doublereal *k2); +extern integer altmr_(real *a, real *b, integer *npix, real *k1, real *k2); +extern integer altms_(shortint *a, shortint *b, integer *npix, real *k1, real *k2); +extern integer altmx_(complex *a, complex *b, integer *npix, real *k1, real *k2); +extern integer altrd_(doublereal *a, doublereal *b, integer *npix, doublereal *k1, doublereal *k2, doublereal *k3); +extern integer altri_(integer *a, integer *b, integer *npix, real *k1, real *k2, real *k3); +extern integer altrl_(integer *a, integer *b, integer *npix, doublereal *k1, doublereal *k2, doublereal *k3); +extern integer altrr_(real *a, real *b, integer *npix, real *k1, real *k2, real *k3); +extern integer altrs_(shortint *a, shortint *b, integer *npix, real *k1, real *k2, real *k3); +extern integer altrx_(complex *a, complex *b, integer *npix, real *k1, real *k2, real *k3); +extern integer aluid_(doublereal *a, doublereal *b, real *x, integer *npix); +extern integer aluii_(integer *a, integer *b, real *x, integer *npix); +extern integer aluil_(integer *a, integer *b, real *x, integer *npix); +extern integer aluir_(real *a, real *b, real *x, integer *npix); +extern integer aluis_(shortint *a, shortint *b, real *x, integer *npix); +extern integer alutc_(shortint *a, shortint *b, integer *npix, shortint *lut); +extern integer alutd_(integer *a, doublereal *b, integer *npix, doublereal *lut); +extern integer aluti_(integer *a, integer *b, integer *npix, integer *lut); +extern integer alutl_(integer *a, integer *b, integer *npix, integer *lut); +extern integer alutr_(integer *a, real *b, integer *npix, real *lut); +extern integer aluts_(shortint *a, shortint *b, integer *npix, shortint *lut); +extern integer amagd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix); +extern integer amagi_(integer *a, integer *b, integer *c__, integer *npix); +extern integer amagl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer amagr_(real *a, real *b, real *c__, integer *npix); +extern integer amags_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer amagx_(complex *a, complex *b, complex *c__, integer *npix); +extern integer amapd_(doublereal *a, doublereal *b, integer *npix, doublereal *a1, doublereal *a2, doublereal *b1, doublereal *b2); +extern integer amapi_(integer *a, integer *b, integer *npix, integer *a1, integer *a2, integer *b1, integer *b2); +extern integer amapl_(integer *a, integer *b, integer *npix, integer *a1, integer *a2, integer *b1, integer *b2); +extern integer amapr_(real *a, real *b, integer *npix, real *a1, real *a2, real *b1, real *b2); +extern integer amaps_(shortint *a, shortint *b, integer *npix, shortint *a1, shortint *a2, shortint *b1, shortint *b2); +extern integer amaxc_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer amaxd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix); +extern integer amaxi_(integer *a, integer *b, integer *c__, integer *npix); +extern integer amaxkc_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer amaxkd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix); +extern integer amaxki_(integer *a, integer *b, integer *c__, integer *npix); +extern integer amaxkl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer amaxkr_(real *a, real *b, real *c__, integer *npix); +extern integer amaxks_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer amaxkx_(complex *a, complex *b, complex *c__, integer *npix); +extern integer amaxl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer amaxr_(real *a, real *b, real *c__, integer *npix); +extern integer amaxs_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer amaxx_(complex *a, complex *b, complex *c__, integer *npix); +extern integer amed3c_(shortint *a, shortint *b, shortint *c__, shortint *m, integer *npix); +extern integer amed3d_(doublereal *a, doublereal *b, doublereal *c__, doublereal *m, integer *npix); +extern integer amed3i_(integer *a, integer *b, integer *c__, integer *m, integer *npix); +extern integer amed3l_(integer *a, integer *b, integer *c__, integer *m, integer *npix); +extern integer amed3r_(real *a, real *b, real *c__, real *m, integer *npix); +extern integer amed3s_(shortint *a, shortint *b, shortint *c__, shortint *m, integer *npix); +extern integer amed4c_(shortint *a, shortint *b, shortint *c__, shortint *d__, shortint *m, integer *npix); +extern integer amed4d_(doublereal *a, doublereal *b, doublereal *c__, doublereal *d__, doublereal *m, integer *npix); +extern integer amed4i_(integer *a, integer *b, integer *c__, integer *d__, integer *m, integer *npix); +extern integer amed4l_(integer *a, integer *b, integer *c__, integer *d__, integer *m, integer *npix); +extern integer amed4r_(real *a, real *b, real *c__, real *d__, real *m, integer *npix); +extern integer amed4s_(shortint *a, shortint *b, shortint *c__, shortint *d__, shortint *m, integer *npix); +extern integer amed5c_(shortint *a, shortint *b, shortint *c__, shortint *d__, shortint *e, shortint *m, integer *npix); +extern integer amed5d_(doublereal *a, doublereal *b, doublereal *c__, doublereal *d__, doublereal *e, doublereal *m, integer *npix); +extern integer amed5i_(integer *a, integer *b, integer *c__, integer *d__, integer *e, integer *m, integer *npix); +extern integer amed5l_(integer *a, integer *b, integer *c__, integer *d__, integer *e, integer *m, integer *npix); +extern integer amed5r_(real *a, real *b, real *c__, real *d__, real *e, real *m, integer *npix); +extern integer amed5s_(shortint *a, shortint *b, shortint *c__, shortint *d__, shortint *e, shortint *m, integer *npix); +extern integer amgsd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix); +extern integer amgsi_(integer *a, integer *b, integer *c__, integer *npix); +extern integer amgsl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer amgsr_(real *a, real *b, real *c__, integer *npix); +extern integer amgss_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer amgsx_(complex *a, complex *b, complex *c__, integer *npix); +extern integer aminc_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer amind_(doublereal *a, doublereal *b, doublereal *c__, integer *npix); +extern integer amini_(integer *a, integer *b, integer *c__, integer *npix); +extern integer aminkc_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer aminkd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix); +extern integer aminki_(integer *a, integer *b, integer *c__, integer *npix); +extern integer aminkl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer aminkr_(real *a, real *b, real *c__, integer *npix); +extern integer aminks_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer aminkx_(complex *a, complex *b, complex *c__, integer *npix); +extern integer aminl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer aminr_(real *a, real *b, real *c__, integer *npix); +extern integer amins_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer aminx_(complex *a, complex *b, complex *c__, integer *npix); +extern integer amodd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix); +extern integer amodi_(integer *a, integer *b, integer *c__, integer *npix); +extern integer amodkd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix); +extern integer amodki_(integer *a, integer *b, integer *c__, integer *npix); +extern integer amodkl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer amodkr_(real *a, real *b, real *c__, integer *npix); +extern integer amodks_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer amodl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer amodr_(real *a, real *b, real *c__, integer *npix); +extern integer amods_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer amovc_(shortint *a, shortint *b, integer *npix); +extern integer amovd_(doublereal *a, doublereal *b, integer *npix); +extern integer amovi_(integer *a, integer *b, integer *npix); +extern integer amovkc_(shortint *a, shortint *b, integer *npix); +extern integer amovkd_(doublereal *a, doublereal *b, integer *npix); +extern integer amovki_(integer *a, integer *b, integer *npix); +extern integer amovkl_(integer *a, integer *b, integer *npix); +extern integer amovkr_(real *a, real *b, integer *npix); +extern integer amovks_(shortint *a, shortint *b, integer *npix); +extern integer amovkx_(complex *a, complex *b, integer *npix); +extern integer amovl_(integer *a, integer *b, integer *npix); +extern integer amovr_(real *a, real *b, integer *npix); +extern integer amovs_(shortint *a, shortint *b, integer *npix); +extern integer amovx_(complex *a, complex *b, integer *npix); +extern integer amuld_(doublereal *a, doublereal *b, doublereal *c__, integer *npix); +extern integer amuli_(integer *a, integer *b, integer *c__, integer *npix); +extern integer amulkd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix); +extern integer amulki_(integer *a, integer *b, integer *c__, integer *npix); +extern integer amulkl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer amulkr_(real *a, real *b, real *c__, integer *npix); +extern integer amulks_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer amulkx_(complex *a, complex *b, complex *c__, integer *npix); +extern integer amull_(integer *a, integer *b, integer *c__, integer *npix); +extern integer amulr_(real *a, real *b, real *c__, integer *npix); +extern integer amuls_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer amulx_(complex *a, complex *b, complex *c__, integer *npix); +extern integer anegd_(doublereal *a, doublereal *b, integer *npix); +extern integer anegi_(integer *a, integer *b, integer *npix); +extern integer anegl_(integer *a, integer *b, integer *npix); +extern integer anegr_(real *a, real *b, integer *npix); +extern integer anegs_(shortint *a, shortint *b, integer *npix); +extern integer anegx_(complex *a, complex *b, integer *npix); +extern integer anirs_(real *a, shortint *b, integer *n); +extern integer anotat_(char *labx, char *laby, integer *lbac, integer *lset, integer *ndsh, char *dshl, ftnlen labx_len, ftnlen laby_len, ftnlen dshl_len); +extern integer anoti_(integer *a, integer *b, integer *npix); +extern integer anotl_(integer *a, integer *b, integer *npix); +extern integer anots_(shortint *a, shortint *b, integer *npix); +extern integer apkxd_(doublereal *a, doublereal *b, complex *c__, integer *npix); +extern integer apkxi_(integer *a, integer *b, complex *c__, integer *npix); +extern integer apkxl_(integer *a, integer *b, complex *c__, integer *npix); +extern integer apkxr_(real *a, real *b, complex *c__, integer *npix); +extern integer apkxs_(shortint *a, shortint *b, complex *c__, integer *npix); +extern integer apkxx_(complex *a, complex *b, complex *c__, integer *npix); +extern integer apowd_(doublereal *a, integer *b, doublereal *c__, integer *npix); +extern integer apowi_(integer *a, integer *b, integer *c__, integer *npix); +extern integer apowkd_(doublereal *a, integer *b, doublereal *c__, integer *npix); +extern integer apowki_(integer *a, integer *b, integer *c__, integer *npix); +extern integer apowkl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer apowkr_(real *a, integer *b, real *c__, integer *npix); +extern integer apowks_(shortint *a, integer *b, shortint *c__, integer *npix); +extern integer apowkx_(complex *a, integer *b, complex *c__, integer *npix); +extern integer apowl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer apowr_(real *a, integer *b, real *c__, integer *npix); +extern integer apows_(shortint *a, integer *b, shortint *c__, integer *npix); +extern integer apowx_(complex *a, integer *b, complex *c__, integer *npix); +extern integer arcpd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix); +extern integer arcpi_(integer *a, integer *b, integer *c__, integer *npix); +extern integer arcpl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer arcpr_(real *a, real *b, real *c__, integer *npix); +extern integer arcps_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer arcpx_(complex *a, complex *b, complex *c__, integer *npix); +extern integer arczd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix, D_fp errfcn); +extern integer arczi_(integer *a, integer *b, integer *c__, integer *npix, I_fp errfcn); +extern integer arczl_(integer *a, integer *b, integer *c__, integer *npix, I_fp errfcn); +extern integer arczr_(real *a, real *b, real *c__, integer *npix, R_fp errfcn); +extern integer arczs_(shortint *a, shortint *b, shortint *c__, integer *npix, J_fp errfcn); +extern integer arczx_(complex *a, complex *b, complex *c__, integer *npix, C_fp errfcn); +extern integer aread_(integer *fd, shortint *buffer, integer *maxchs, integer *charot); +extern integer areadb_(integer *fd, shortint *buffer, integer *maxbys, integer *byteot); +extern integer argtd_(doublereal *a, integer *npix, doublereal *ceil, doublereal *newval); +extern integer argti_(integer *a, integer *npix, integer *ceil, integer *newval); +extern integer argtl_(integer *a, integer *npix, integer *ceil, integer *newval); +extern integer argtr_(real *a, integer *npix, real *ceil, real *newval); +extern integer argts_(shortint *a, integer *npix, shortint *ceil, shortint *newval); +extern integer argtx_(complex *a, integer *npix, complex *ceil, complex *newval); +extern integer arltd_(doublereal *a, integer *npix, doublereal *floor, doublereal *newval); +extern integer arlti_(integer *a, integer *npix, integer *floor, integer *newval); +extern integer arltl_(integer *a, integer *npix, integer *floor, integer *newval); +extern integer arltr_(real *a, integer *npix, real *floor, real *newval); +extern integer arlts_(shortint *a, integer *npix, shortint *floor, shortint *newval); +extern integer arltx_(complex *a, integer *npix, complex *floor, complex *newval); +extern integer aselc_(shortint *a, shortint *b, shortint *c__, integer *sel, integer *npix); +extern integer aseld_(doublereal *a, doublereal *b, doublereal *c__, integer *sel, integer *npix); +extern integer aseli_(integer *a, integer *b, integer *c__, integer *sel, integer *npix); +extern integer aselkc_(shortint *a, shortint *b, shortint *c__, integer *sel, integer *npix); +extern integer aselkd_(doublereal *a, doublereal *b, doublereal *c__, integer *sel, integer *npix); +extern integer aselki_(integer *a, integer *b, integer *c__, integer *sel, integer *npix); +extern integer aselkl_(integer *a, integer *b, integer *c__, integer *sel, integer *npix); +extern integer aselkr_(real *a, real *b, real *c__, integer *sel, integer *npix); +extern integer aselks_(shortint *a, shortint *b, shortint *c__, integer *sel, integer *npix); +extern integer aselkx_(complex *a, complex *b, complex *c__, integer *sel, integer *npix); +extern integer asell_(integer *a, integer *b, integer *c__, integer *sel, integer *npix); +extern integer aselr_(real *a, real *b, real *c__, integer *sel, integer *npix); +extern integer asels_(shortint *a, shortint *b, shortint *c__, integer *sel, integer *npix); +extern integer aselx_(complex *a, complex *b, complex *c__, integer *sel, integer *npix); +extern integer asqrd_(doublereal *a, doublereal *b, integer *npix, D_fp errfcn); +extern integer asqri_(integer *a, integer *b, integer *npix, I_fp errfcn); +extern integer asqrl_(integer *a, integer *b, integer *npix, I_fp errfcn); +extern integer asqrr_(real *a, real *b, integer *npix, R_fp errfcn); +extern integer asqrs_(shortint *a, shortint *b, integer *npix, J_fp errfcn); +extern integer asqrx_(complex *a, complex *b, integer *npix, C_fp errfcn); +extern integer asrtc_(shortint *a, shortint *b, integer *npix); +extern integer asrtd_(doublereal *a, doublereal *b, integer *npix); +extern integer asrti_(integer *a, integer *b, integer *npix); +extern integer asrtl_(integer *a, integer *b, integer *npix); +extern integer asrtr_(real *a, real *b, integer *npix); +extern integer asrts_(shortint *a, shortint *b, integer *npix); +extern integer asrtx_(complex *a, complex *b, integer *npix); +extern integer asubd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix); +extern integer asubi_(integer *a, integer *b, integer *c__, integer *npix); +extern integer asubkd_(doublereal *a, doublereal *b, doublereal *c__, integer *npix); +extern integer asubki_(integer *a, integer *b, integer *c__, integer *npix); +extern integer asubkl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer asubkr_(real *a, real *b, real *c__, integer *npix); +extern integer asubks_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer asubkx_(complex *a, complex *b, complex *c__, integer *npix); +extern integer asubl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer asubr_(real *a, real *b, real *c__, integer *npix); +extern integer asubs_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer asubx_(complex *a, complex *b, complex *c__, integer *npix); +extern integer aupxd_(complex *a, doublereal *b, doublereal *c__, integer *npix); +extern integer aupxi_(complex *a, integer *b, integer *c__, integer *npix); +extern integer aupxl_(complex *a, integer *b, integer *c__, integer *npix); +extern integer aupxr_(complex *a, real *b, real *c__, integer *npix); +extern integer aupxs_(complex *a, shortint *b, shortint *c__, integer *npix); +extern integer aupxx_(complex *a, complex *b, complex *c__, integer *npix); +extern integer awritb_(integer *fd, shortint *buffer, integer *nbytes, integer *byteot); +extern integer awrite_(integer *fd, shortint *buffer, integer *nchars, integer *charot); +extern integer awsud_(doublereal *a, doublereal *b, doublereal *c__, integer *npix, doublereal *k1, doublereal *k2); +extern integer awsui_(integer *a, integer *b, integer *c__, integer *npix, real *k1, real *k2); +extern integer awsul_(integer *a, integer *b, integer *c__, integer *npix, real *k1, real *k2); +extern integer awsur_(real *a, real *b, real *c__, integer *npix, real *k1, real *k2); +extern integer awsus_(shortint *a, shortint *b, shortint *c__, integer *npix, real *k1, real *k2); +extern integer awsux_(complex *a, complex *b, complex *c__, integer *npix, complex *k1, complex *k2); +extern integer axori_(integer *a, integer *b, integer *c__, integer *npix); +extern integer axorki_(integer *a, integer *b, integer *c__, integer *npix); +extern integer axorkl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer axorks_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer axorl_(integer *a, integer *b, integer *c__, integer *npix); +extern integer axors_(shortint *a, shortint *b, shortint *c__, integer *npix); +extern integer bndary_(void); +extern integer bound_(real *z__, integer *mx, integer *nnx, integer *nny, real *ssp); +extern integer brktie_(integer *ltime, integer *tm); +extern integer c1dpas_(integer *interp, real *eps); +extern integer calcnt_(real *z__, integer *m, integer *n, real *a1, real *a2, real *a3, integer *i1, integer *i2, integer *i3); +extern integer ccpcag_(shortint *p, integer *npts, integer *ltype, integer *curplt, integer *segsie, integer *xseg, integer *yseg, integer *nsegps); +extern integer ccpcle_(void); +extern integer ccpclr_(integer *dummy); +extern integer ccpcls_(shortint *devnae, integer *n); +extern integer ccpcor_(integer *index); +extern integer ccpdrg_(real *xseg, real *yseg, integer *nsegps, integer *lwidth); +extern integer ccpdrr_(shortint *ch, integer *x, integer *y, integer *xsize, integer *ysize, integer *orien, integer *font, integer *qualiy); +extern integer ccpese_(integer *fn, shortint *instrn, integer *nwords); +extern integer ccpfat_(shortint *gki); +extern integer ccpfia_(shortint *p, integer *npts); +extern integer ccpfot_(integer *font); +extern integer ccpint_(integer *tty, shortint *devnae); +extern integer ccplie_(integer *index); +extern integer ccplwh_(integer *index); +extern integer ccpopn_(shortint *devnae, integer *dd); +extern integer ccpops_(shortint *devnae, integer *n, integer *mode); +extern integer ccpplt_(shortint *gki); +extern integer ccppmt_(shortint *gki); +extern integer ccppoe_(shortint *p, integer *npts); +extern integer ccppor_(shortint *p, integer *npts); +extern integer ccpret_(void); +extern integer ccptet_(integer *xc, integer *yc, shortint *text, integer *n); +extern integer ccptxt_(shortint *gki); +extern integer ccxadt_(real *x, real *y, integer *xseg, integer *yseg, integer *curset, integer *segsie); +extern integer ccxdah_(shortint *p, integer *npts, integer *curplt, real *cursen, integer *curset, integer *segsie, integer *xseg, integer *yseg, real *lastpx, real *lastpy); +extern integer ccxgap_(shortint *p, integer *npts, integer *curplt, real *cursen, real *matchn, real *lastpx, real *lastpy); +extern integer ccxinl_(real *x, real *y, real *xsize, real *ysize, shortint *ch, real *orien); +extern integer ccxiny_(real *x, real *y, integer *npts, integer *qualiy); +extern integer ccxofs_(real *p1x, real *p1y, real *p2x, real *p2y, real *p3x, real *p3y, real *delx, real *dely); +extern integer ccxpas_(integer *xc, integer *yc, integer *totlen, integer *x0, integer *y0, integer *dx, integer *dy, integer *polytt, integer *orien); +extern integer cfvld_(integer *ientry, integer *iix, integer *iiy); +extern integer chdept_(shortint *ch, shortint *str, integer *maxch, integer *op); +extern integer chkcyc_(real *u, real *v, integer *imax, integer *jptsy, integer *ier); +extern integer chstr_(char *label, integer *first, integer *last, ftnlen label_len); +extern integer clccos_(void); +extern integer clcenr_(shortint *param, shortint *value); +extern integer clcfre_(integer *marker); +extern integer clcint_(void); +extern integer clclit_(integer *fd, shortint *pset, shortint *format); +extern integer clcloe_(void); +extern integer clcmak_(integer *marker); +extern integer clcmd_(shortint *cmd); +extern integer clcmdw_(shortint *cmd); +extern integer clcnek_(shortint *taskne); +extern integer clcpst_(integer *pp); +extern integer clcscn_(shortint *cmd); +extern integer clepst_(integer *pp); +extern integer clgcut_(shortint *promp1, shortint *promp2, integer *curvee, integer *order); +extern integer clgen_(real *z__, integer *mx, integer *nx, integer *nny, real *cclo, real *chi, real *cinc, integer *nla, integer *nlm, real *cl, integer *ncl, integer *icnst); +extern integer clgpsa_(integer *pp, shortint *pname, shortint *outstr, integer *maxch); +extern integer clgpst_(integer *pp, shortint *pname, shortint *outstr, integer *maxch); +extern integer clgsec_(shortint *prompt, shortint *sectin, integer *x1, integer *x2, integer *step, integer *nsubss); +extern integer clgstr_(shortint *param, shortint *outstr, integer *maxch); +extern integer cllpst_(integer *pp, integer *fd, shortint *format); +extern integer clopen_(integer *stdinn, integer *stdoun, integer *stdern, integer *device, integer *devtye); +extern integer clpcls_(integer *list); +extern integer clppsa_(integer *pp, shortint *pname, shortint *sval); +extern integer clppsb_(integer *pp, shortint *parnae, logical *bval); +extern integer clppsc_(integer *pp, shortint *parnae, shortint *cval); +extern integer clppsd_(integer *pp, shortint *parnae, doublereal *dval); +extern integer clppsi_(integer *pp, shortint *parnae, integer *ival); +extern integer clppsl_(integer *pp, shortint *parnae, integer *lval); +extern integer clppsr_(integer *pp, shortint *parnae, real *rval); +extern integer clppss_(integer *pp, shortint *parnae, shortint *sval); +extern integer clppst_(integer *pp, shortint *pname, shortint *sval); +extern integer clppsx_(integer *pp, shortint *parnae, complex *xval); +extern integer clprew_(integer *list); +extern integer clprif_(shortint *param, shortint *formag); +extern integer clpstr_(shortint *param, shortint *value); +extern integer clputb_(shortint *param, logical *bval); +extern integer clputc_(shortint *param, shortint *cval); +extern integer clputd_(shortint *param, doublereal *dval); +extern integer clputi_(shortint *param, integer *value); +extern integer clputl_(shortint *param, integer *lval); +extern integer clputr_(shortint *param, real *rval); +extern integer clputs_(shortint *param, shortint *value); +extern integer clputx_(shortint *param, complex *xval); +extern integer clreqr_(shortint *param); +extern integer clset_(real *z__, integer *mx, integer *nx, integer *ny, real *chi, real *clo, real *cinc, integer *nla, integer *nlm, real *cl, integer *ncl, integer *icnst, integer *ioffp, real *spval, real *bigest); +extern integer clseti_(integer *paramr, integer *value); +extern integer clsgks_(void); +extern integer cnvdae_(integer *ltime, shortint *outstr, integer *maxch); +extern integer cnvtie_(integer *ltime, shortint *outstr, integer *maxch); +extern integer conbd_(void); +extern integer conbdn_(void); +extern integer concal_(real *xd, real *yd, real *zd, integer *nt, integer *ipt, integer *nl, integer *ipl, real *pdd, integer *iti, real *xii, real *yii, real *zii, integer *itpv); +extern integer concld_(integer *icase, integer *ioop); +extern integer concls_(real *zd, integer *ndp); +extern integer condet_(integer *ndp, real *xd, real *yd, integer *ncp, integer *ipc); +extern integer condrw_(real *scrarr); +extern integer condsd_(void); +extern integer conecd_(real *val, char *iout, integer *nused, ftnlen iout_len); +extern integer congen_(real *xi, real *yi, integer *ipack, real *scrarr, integer *ica); +extern integer conint_(integer *ndp, real *xd, real *yd, real *zd, integer *ncp, integer *ipc, real *pd); +extern integer conlin_(real *xd, real *yd, real *zd, integer *nt, integer *iwk, real *wk); +extern integer conloc_(integer *ndp, real *xd, real *yd, integer *nt, integer *ipt, integer *nl, integer *ipl, real *xii, real *yii, integer *iti, integer *iwk, real *wk); +extern integer conlod_(real *xd, real *yd, real *zd, integer *ndp, real *wk, integer *iwk, real *scrarr); +extern integer conop1_(char *iopt, ftnlen iopt_len); +extern integer conop2_(char *iopt, integer *isize, ftnlen iopt_len); +extern integer conop3_(char *iopt, real *array, integer *isize, ftnlen iopt_len); +extern integer conop4_(char *iopt, char *array, integer *isize, integer *ifort, ftnlen iopt_len, ftnlen array_len); +extern integer conot2_(integer *iver, integer *iunit); +extern integer conout_(integer *iver); +extern integer conpdv_(real *xd, real *yd, real *zd, integer *ndp); +extern integer conpmm_(real *scrarr); +extern integer conran_(real *xd, real *yd, real *zd, integer *ndp, real *wk, integer *iwk, real *scrarr); +extern integer conrec_(real *z__, integer *l, integer *m, integer *n, real *flo, real *hi, real *finc, integer *nset, integer *nhi, integer *ndot); +extern integer conreo_(integer *majlns); +extern integer consld_(real *scrarr); +extern integer conssd_(real *x, real *y, integer *ic); +extern integer constp_(real *xd, real *yd, integer *ndp); +extern integer contlk_(real *xd, real *yd, integer *ndp, integer *ipt); +extern integer contng_(integer *ndp, real *xd, real *yd, integer *nt, integer *ipt, integer *nl, integer *ipl, integer *iwl, integer *iwp, real *wk); +extern integer counmp_(integer *co); +extern integer cqccfe_(integer *cq); +extern integer cqccit_(integer *cq, integer *catno); +extern integer cqdgad_(integer *cq, integer *record, shortint *field, doublereal *array, integer *lenary, integer *npts); +extern integer cqdgai_(integer *cq, integer *record, shortint *field, integer *array, integer *lenary, integer *npts); +extern integer cqdgar_(integer *cq, integer *record, shortint *field, real *array, integer *lenary, integer *npts); +extern integer cqdgat_(integer *cq, integer *record, shortint *field, shortint *str, integer *maxchr, integer *nlines); +extern integer cqdgsr_(integer *cq, integer *record, shortint *field, shortint *str, integer *maxchr); +extern integer cqdgwd_(integer *cq, integer *record, shortint *field, shortint *str, integer *maxchr); +extern integer cqffms_(integer *res, shortint *field, shortint *format, integer *szfort); +extern integer cqfgsr_(integer *cq, shortint *field, shortint *str, integer *maxch); +extern integer cqfgwd_(integer *cq, shortint *field, shortint *str, integer *maxch); +extern integer cqfins_(shortint *linebf, integer *fields, integer *maxfis, integer *nfiels); +extern integer cqfuns_(integer *res, shortint *field, shortint *units, integer *szunis); +extern integer cqimce_(integer *res); +extern integer cqirfe_(integer *res); +extern integer cqists_(integer *res, integer *param, shortint *str, integer *maxch); +extern integer cqrcle_(integer *res); +extern integer cqrfre_(integer *res); +extern integer cqrsts_(integer *res, integer *param, shortint *str, integer *maxch); +extern integer cqstas_(integer *cq, integer *param, shortint *str, integer *maxch); +extern integer cqunmp_(integer *cq); +extern integer ctcell_(real *z__, integer *mx, integer *nx, integer *ny, integer *m, integer *i0, integer *j0); +extern integer curve3_(real *u, real *v, real *w, integer *n); +extern integer curve_(real *px, real *py, integer *np); +extern integer curved_(real *x, real *y, integer *n); +extern integer dashbd_(void); +extern integer dashdb_(integer *ipat); +extern integer dashdc_(char *ipat, integer *jcrt, integer *jsize, ftnlen ipat_len); +extern integer deletg_(shortint *fname, integer *versis, integer *subfis); +extern integer displa_(integer *lfra, integer *lrow, integer *ltyp); +extern integer drawi_(integer *ixa, integer *iya, integer *ixb, integer *iyb); +extern integer drawpv_(integer *ix, integer *iy, integer *ind); +extern integer draws_(integer *mx1, integer *my1, integer *mx2, integer *my2, integer *idraw, integer *imark); +extern integer drawt_(integer *ixa, integer *iya, integer *ixb, integer *iyb); +extern integer drcntr_(real *z__, integer *l, integer *mm, integer *nn); +extern integer drline_(real *z__, integer *l, integer *mm, integer *nn); +extern integer drwstr_(real *u, real *v, real *ux, real *vy, integer *imax, integer *jptsy); +extern integer drwvec_(integer *m1, integer *m2, integer *m3, integer *m4, char *label, integer *nc, ftnlen label_len); +extern integer dsulud_(shortint *utab, real *x, real *y, integer *nvalus); +extern integer dsulue_(integer *lut); +extern integer dsulut_(real *xvals, real *yvals, integer *nvals); +extern integer dtcscl_(doublereal *v, integer *e, integer *sense); +extern integer dtgad_(integer *dt, integer *record, shortint *field, doublereal *array, integer *lenary, integer *npts); +extern integer dtgar_(integer *dt, integer *record, shortint *field, real *array, integer *lenary, integer *npts); +extern integer dtgstr_(integer *dt, integer *record, shortint *field, shortint *str, integer *maxchr); +extern integer dtptie_(integer *dt); +extern integer dtput_(integer *dt, shortint *format); +extern integer dtremp_(integer *dt, shortint *dname, shortint *fname, integer *mode); +extern integer dtstrg_(integer *datate, shortint *str, integer *maxchr); +extern integer dtunmp_(integer *dt); +extern integer e9rin_(char *messg, integer *nerr, logical *save, ftnlen messg_len); +extern integer encd_(real *valu, real *ash, char *iout, integer *nc, integer *ioffd, ftnlen iout_len); +extern integer encode_(integer *nchars, char *ftnfmt, char *ftnout, real *rval, ftnlen ftnfmt_len, ftnlen ftnout_len); +extern integer entsr_(integer *irold, integer *irnew); +extern integer envinr_(shortint *envvar, shortint *outstr, integer *maxch); +extern integer envint_(void); +extern integer envlit_(integer *fd, shortint *prefix, integer *prints); +extern integer envmak_(integer *oldtop); +extern integer envret_(shortint *key, shortint *value); +extern integer eprin_(void); +extern integer eprinf_(shortint *formag); +extern integer erract_(integer *severy); +extern integer errof_(void); +extern integer evvfre_(integer *o); +extern integer exmpl1_(void); +extern integer exmpl2_(void); +extern integer exmpl3_(void); +extern integer exmpl4_(void); +extern integer exmpl5_(void); +extern integer exmpl6_(void); +extern integer exmpl7_(void); +extern integer exmpl8_(void); +extern integer exmplf_(void); +extern integer expand_(real *maxw); +extern integer ezcntr_(real *z__, integer *m, integer *n); +extern integer ezhftn_(real *z__, integer *m, integer *n); +extern integer ezisos_(real *t, integer *mu, integer *mv, integer *mw, real *eye, real *slab, real *tiso); +extern integer ezsrfc_(real *z__, integer *m, integer *n, real *angh, real *angv, real *work); +extern integer ezstrm_(real *u, real *v, real *work, integer *imax, integer *jmax); +extern integer ezvec_(real *u, real *v, integer *m, integer *n); +extern integer falloc_(shortint *fname, integer *filese); +extern integer fcanpb_(integer *fd); +extern integer fcldir_(integer *channl, integer *status); +extern integer fclobr_(shortint *fname); +extern integer fcopy_(shortint *oldfie, shortint *newfie); +extern integer fcopyo_(integer *in, integer *out); +extern integer fdebug_(integer *out, integer *fd1arg, integer *fd2arg); +extern integer fdirne_(shortint *vfn, shortint *path, integer *maxch); +extern integer fdum_(void); +extern integer fdvdld_(integer *ientry, integer *iix, integer *iiy); +extern integer fencd_(integer *nchars, shortint *fformt, shortint *sppour, real *rval); +extern integer fence3_(real *u, real *v, real *w, integer *n, integer *ior, real *bot); +extern integer fexbuf_(integer *fd); +extern integer ffilbf_(integer *fd, integer *bp, integer *bufsie, integer *buffet); +extern integer ffldir_(integer *chan, integer *status); +extern integer fflsbf_(integer *fd, integer *bp, integer *maxchs, integer *buffet); +extern integer fgdevm_(integer *fd); +extern integer fgtdir_(integer *chan, shortint *outlie, integer *maxch, integer *status); +extern integer filerr_(shortint *fname, integer *errcoe); +extern integer fillin_(void); +extern integer findz_(integer *im, real *z1, real *z2, real *zfrac, integer *maxcos, integer *nsamps); +extern integer finit_(void); +extern integer fioclp_(integer *status); +extern integer fioqfh_(integer *fd, integer *status); +extern integer fixmem_(integer *oldsie); +extern integer fl2int_(real *px, real *py, integer *ix, integer *iy); +extern integer flsbuf_(integer *fd, integer *nresee); +extern integer fmapfn_(shortint *vfn, shortint *osfn, integer *maxch); +extern integer fmcloe_(integer *fm); +extern integer fmcopo_(integer *old, integer *new__); +extern integer fmcopy_(shortint *dfname, shortint *newnae); +extern integer fmdebg_(integer *fm, integer *out, integer *what); +extern integer fmdele_(shortint *dfname); +extern integer fmfcdg_(integer *fm, integer *out, integer *what); +extern integer fmfcfe_(integer *fm); +extern integer fmfcit_(integer *fm, integer *cachee); +extern integer fmfcsc_(integer *fm); +extern integer fmiobd_(integer *fm); +extern integer fmioek_(integer *fm); +extern integer fmiopr_(integer *fm, integer *errcoe, shortint *opstr); +extern integer fmiorr_(integer *fm); +extern integer fmiosf_(integer *fm); +extern integer fmiotk_(integer *fm); +extern integer fmkbfs_(integer *fd); +extern integer fmkcoy_(shortint *oldfie, shortint *newfie); +extern integer fmkdir_(shortint *newdir); +extern integer fmkpbf_(integer *fd); +extern integer fmlfad_(integer *lf, shortint *buf, integer *maxbys, integer *offset); +extern integer fmlfae_(integer *lf, shortint *buf, integer *nbytes, integer *offset); +extern integer fmlfat_(integer *lf, integer *status); +extern integer fmlfbd_(integer *lf, shortint *buf, integer *maxbys, integer *offset); +extern integer fmlfbe_(integer *lf, shortint *buf, integer *nbytes, integer *offset); +extern integer fmlfbt_(integer *lf, integer *status); +extern integer fmlfce_(integer *lf, integer *status); +extern integer fmlfcy_(integer *old, integer *olfile, integer *new__, integer *nlfile); +extern integer fmlfde_(integer *fm, integer *lfile); +extern integer fmlfne_(integer *fm, integer *lfile, integer *type__, shortint *lfname, integer *maxch); +extern integer fmlfon_(shortint *pklfne, integer *mode, integer *chan); +extern integer fmlfsi_(integer *lf, integer *param, integer *lvalue); +extern integer fmlfue_(integer *fm, integer *lfile); +extern integer fmloct_(integer *fm, integer *lfile); +extern integer fmrebd_(shortint *dfname); +extern integer fmrene_(shortint *old, shortint *new__); +extern integer fmretd_(integer *fm, integer *lfile); +extern integer fmseti_(integer *fm, integer *param, integer *value); +extern integer fmsync_(integer *fm); +extern integer fmterr_(shortint *preame, shortint *format, integer *index); +extern integer fmtint_(integer *ftype); +extern integer fmtred_(void); +extern integer fmtsel_(shortint *ch, integer *col); +extern integer fmtstr_(integer *fd, shortint *str, integer *col, shortint *fillcr, integer *leftjy, integer *maxch, integer *width); +extern integer fmunlk_(integer *fm, integer *lfile); +extern integer fntclb_(integer *list); +extern integer fntcls_(integer *pp); +extern integer fntdir_(integer *chan, integer *offset); +extern integer fntmkt_(shortint *pat, shortint *patstr, integer *maxch, integer *ep, integer *nedit); +extern integer fntreb_(integer *list); +extern integer fopdir_(shortint *osfn, integer *mode, integer *channl); +extern integer four1_(real *data, integer *nn, integer *isign); +extern integer fowner_(shortint *fname, shortint *owner, integer *maxch); +extern integer fpathe_(shortint *vfn, shortint *outpue, integer *maxchs); +extern integer fpnord_(doublereal *x, doublereal *normx, integer *expon); +extern integer fpnorr_(real *x, real *normx, integer *expon); +extern integer fpradv_(void); +extern integer fprinf_(integer *fd, shortint *formag); +extern integer fprntf_(integer *newfd, shortint *formag, integer *filete); +extern integer fptdir_(integer *chan, shortint *line, integer *nchars, integer *status); +extern integer fputtx_(integer *fd, shortint *buf, integer *nchars, integer *status); +extern integer frame_(void); +extern integer fredio_(integer *fd, integer *newfd); +extern integer fredir_(integer *fd, shortint *fname, integer *mode, integer *type__); +extern integer frenae_(shortint *oldfne, shortint *newfne); +extern integer frmbfs_(integer *fd); +extern integer frmtmp_(void); +extern integer frst3_(real *u, real *v, real *w); +extern integer frstc_(integer *mx, integer *my, integer *ient); +extern integer frstd_(real *x, real *y); +extern integer frstpt_(real *px, real *py); +extern integer frsts_(real *xx, real *yy, integer *ient); +extern integer frtnfd_(integer *fd); +extern integer fsetev_(shortint *envvar, integer *value); +extern integer fseti_(integer *fd, integer *param, integer *value); +extern integer fsfdee_(shortint *fname); +extern integer fsfgee_(shortint *fname, shortint *fsffie, integer *maxch); +extern integer fskdir_(integer *chan, integer *offset, integer *status); +extern integer fstats_(integer *fd, integer *what, shortint *outstr, integer *maxch); +extern integer fstdir_(integer *chan, integer *param, integer *lvalue); +extern integer fstrfp_(integer *newfp); +extern integer fsvtfn_(shortint *fname); +extern integer fswapd_(integer *fd1, integer *fd2); +extern integer fulib_(integer *errcoe, shortint *upkmsg, integer *msglen); +extern integer fwatio_(integer *fd); +extern integer fwtacc_(integer *fd, shortint *fname); +extern integer fxfacp_(shortint *line, integer *tpt, integer *nbkw, integer *nbl); +extern integer fxfacs_(integer *kernel, shortint *root, shortint *extn, integer *acmode, integer *status); +extern integer fxfact_(shortint *line, integer *tst, integer *nsb); +extern integer fxfadr_(integer *im, shortint *pname, integer *dtype, shortint *pval); +extern integer fxfakb_(shortint *keywod, integer *value, shortint *commet, integer *pn); +extern integer fxfakc_(shortint *keywod, shortint *value, integer *len, shortint *commet, integer *pn); +extern integer fxfakd_(shortint *keywod, doublereal *value, shortint *commet, integer *precin, integer *pn); +extern integer fxfaki_(shortint *keywod, integer *value, shortint *commet, integer *pn); +extern integer fxfakr_(shortint *keywod, real *value, shortint *commet, integer *precin, integer *pn); +extern integer fxfalc_(integer *fit); +extern integer fxfald_(integer *a, doublereal *b, integer *npix, doublereal *bscale, doublereal *bzero); +extern integer fxfalr_(integer *a, real *b, integer *npix, doublereal *bscale, doublereal *bzero); +extern integer fxfalu_(shortint *a, shortint *b, integer *npix); +extern integer fxfasr_(shortint *a, real *b, integer *npix, doublereal *bscale, doublereal *bzero); +extern integer fxfbls_(integer *nbl, integer *po); +extern integer fxfbyt_(integer *im, shortint *fname); +extern integer fxfche_(integer *im); +extern integer fxfchm_(integer *im); +extern integer fxfchp_(integer *im, shortint *ksectn, integer *acmode, integer *group, integer *ksinh); +extern integer fxfcle_(integer *im, integer *status); +extern integer fxfcll_(integer *im); +extern integer fxfcnx_(integer *im, integer *totpix, shortint *obuf, integer *nbytes, integer *boffst); +extern integer fxfcoj_(integer *im, integer *infd, integer *hdroff, integer *poff, integer *datase); +extern integer fxfcoy_(integer *kernel, shortint *oroot, shortint *oextn, shortint *nroot, shortint *nextn, integer *status); +extern integer fxfdae_(shortint *datesr, integer *limtie); +extern integer fxfdee_(integer *kernel, shortint *root, shortint *extn, integer *status); +extern integer fxfdiw_(integer *im); +extern integer fxfdur_(integer *im, integer *status); +extern integer fxfenb_(shortint *keywod, integer *param, shortint *card, shortint *commet); +extern integer fxfenc_(shortint *keywod, shortint *param, integer *maxch, shortint *card, shortint *commet); +extern integer fxfend_(shortint *keywod, doublereal *param, shortint *card, shortint *commet, integer *precin); +extern integer fxfene_(integer *ctime, shortint *datesr, integer *maxch, shortint *format, integer *cutovr); +extern integer fxfeni_(shortint *keywod, integer *param, shortint *card, shortint *commet); +extern integer fxfenl_(shortint *keywod, integer *param, shortint *card, shortint *commet); +extern integer fxfenr_(shortint *keywod, real *param, shortint *card, shortint *commet, integer *precin); +extern integer fxfens_(shortint *root, shortint *keywod, integer *axisno); +extern integer fxfexh_(integer *infd, integer *outfd, integer *nlines, integer *group, integer *nbks, integer *hdroff, integer *pixoff); +extern integer fxffac_(shortint *fname, integer *size); +extern integer fxffcr_(shortint *file); +extern integer fxffiw_(integer *im, shortint *key); +extern integer fxffog_(integer *fit, shortint *messg); +extern integer fxfgas_(integer *im, logical *fsec); +extern integer fxfgeb_(shortint *card, integer *bval); +extern integer fxfged_(shortint *card, doublereal *dval); +extern integer fxfgei_(shortint *card, integer *ival); +extern integer fxfgen_(integer *im, integer *oim, integer *acmode, shortint *outstr, integer *maxch); +extern integer fxfger_(shortint *card, real *rval); +extern integer fxfget_(shortint *card, shortint *commet, integer *maxch); +extern integer fxfglm_(shortint *time, shortint *date, integer *limtie); +extern integer fxfgsr_(shortint *card, shortint *outstr, integer *maxch); +extern integer fxfhef_(integer *im, integer *group, integer *acmode, integer *hdroff, integer *diff, integer *ualen); +extern integer fxfint_(void); +extern integer fxfkse_(integer *param, shortint *ksectn, integer *ip, integer *fit); +extern integer fxfksl_(shortint *outstr, integer *param, integer *fit); +extern integer fxfksm_(shortint *pm, integer *param, integer *fit); +extern integer fxfksn_(shortint *ksectn, integer *fit, integer *group); +extern integer fxfkss_(integer *fit, integer *acmode); +extern integer fxfkst_(integer *fit); +extern integer fxflor_(integer *in, integer *fit, integer *spool, integer *nrec10, integer *dataln); +extern integer fxfmad_(shortint *instr, integer *ip, shortint *card, integer *colout, integer *maxcos, integer *delim); +extern integer fxfmar_(integer *pat, integer *plines, integer *str, integer *slines, integer *merge, integer *po); +extern integer fxfmas_(integer *im, integer *nheads); +extern integer fxfmay_(integer *infd, integer *outfd, integer *hdroff, integer *pixoff, integer *charsa); +extern integer fxfmea_(integer *im, integer *userh, integer *fitsln); +extern integer fxfnoe_(integer *im); +extern integer fxfnul_(void); +extern integer fxfopn_(integer *kernel, integer *im, integer *oim, shortint *root, shortint *extn, shortint *ksectn, integer *group, integer *gcarg, integer *acmode, integer *status); +extern integer fxfopx_(integer *im, integer *status); +extern integer fxfove_(integer *im); +extern integer fxfovt_(integer *fit, integer *im); +extern integer fxfpaa_(shortint *ibuf, shortint *obuf, integer *npix, integer *pixtye); +extern integer fxfpld_(integer *im); +extern integer fxfple_(integer *im, integer *fd); +extern integer fxfplf_(integer *im); +extern integer fxfplo_(integer *im, integer *maxlen, integer *pcount, integer *depth); +extern integer fxfplp_(integer *im, integer *hdrfd, integer *pcount); +extern integer fxfprr_(integer *im, integer *group); +extern integer fxfree_(integer *kernel, shortint *oroot, shortint *oextn, shortint *nroot, shortint *nextn, integer *status); +extern integer fxfrek_(integer *im); +extern integer fxfren_(integer *im, integer *cfit, integer *igroup, integer *hoff, integer *poff, integer *extn, integer *extv); +extern integer fxfrep_(shortint *in, shortint *out, shortint *tmp, integer *ntry, integer *nsleep); +extern integer fxfrfr_(integer *im, integer *group, integer *poff); +extern integer fxfrhr_(integer *im, integer *group, integer *acmode); +extern integer fxfsee_(integer *im, logical *overwe); +extern integer fxfsev_(integer *im); +extern integer fxfsex_(integer *im, integer *fit); +extern integer fxfskn_(integer *im, integer *group, integer *cfit, integer *hoff, integer *poff, integer *extn, integer *extv, integer *spool); +extern integer fxfuna_(shortint *cbuf, integer *npix, integer *pixtye, doublereal *bscale, doublereal *bzero); +extern integer fxfupd_(integer *im); +extern integer fxfupr_(integer *im, integer *status); +extern integer fxfwrr_(integer *im, integer *fit, integer *hdrfd, integer *nchara, integer *group); +extern integer fxfwrs_(integer *fd, integer *size); +extern integer fxfxhd_(integer *in, integer *out, shortint *buf, integer *bufsie, integer *hoffst, integer *poffst, integer *hsize); +extern integer fxfzad_(doublereal *data, integer *npix, doublereal *bscale, doublereal *bzero); +extern integer fxfzar_(real *data, integer *npix, doublereal *bscale, doublereal *bzero); +extern integer fxfzcl_(integer *chan, integer *status); +extern integer fxfzop_(shortint *pkfn, integer *mode, integer *status); +extern integer fxfzrd_(integer *chan, shortint *obuf, integer *nbytes, integer *boffst); +extern integer fxfzst_(integer *chan, integer *param, integer *value); +extern integer fxfzwr_(integer *chan, shortint *ibuf, integer *nbytes, integer *boffst); +extern integer fxfzwt_(integer *chan, integer *status); +extern integer gactie_(integer *gp, integer *flags); +extern integer gacwk_(integer *wkid); +extern integer gadraw_(integer *gp, real *wx, real *wy); +extern integer gamove_(integer *gp, real *x, real *y); +extern integer gargb_(logical *bval); +extern integer gargc_(shortint *cval); +extern integer gargd_(doublereal *dval); +extern integer gargi_(integer *ival); +extern integer gargl_(integer *lval); +extern integer gargr_(real *rval); +extern integer gargrd_(integer *lval, integer *radix); +extern integer gargs_(shortint *sval); +extern integer gargsr_(shortint *outstr, integer *maxch); +extern integer gargtk_(integer *token, shortint *outstr, integer *maxch); +extern integer gargwd_(shortint *outstr, integer *maxch); +extern integer gargx_(complex *xval); +extern integer gascae_(integer *gp, real *v, integer *npts, integer *axis); +extern integer gaxdrw_(real *wx, real *wy); +extern integer gaxfis_(integer *w, real *wx1, real *wx2, real *wy1, real *wy2, real *x1, real *dx, integer *xt, real *y1, real *dy, integer *yt); +extern integer gaxflh_(integer *stream); +extern integer gaxndc_(real *wx, real *wy, real *sx, real *sy); +extern integer gaxstt_(real *wx, real *wy); +extern integer gaxtet_(integer *stream, real *sx, real *sy, shortint *text, integer *hjusty, integer *vjusty); +extern integer gaxtik_(real *dx, real *dy); +extern integer gbytes_(integer *bufin, integer *bufout, integer *index, integer *size, integer *skip, integer *count); +extern integer gca_(real *px, real *py, real *qx, real *qy, integer *dimx, integer *dimy, integer *ncs, integer *nrs, integer *dx, integer *dy, integer *colia); +extern integer gcancl_(integer *gp); +extern integer gcas_(real *px, real *py, real *qx, real *qy, integer *dimx, integer *dimy, integer *ncs, integer *nrs, integer *dx, integer *dy, shortint *colia); +extern integer gclear_(integer *gp); +extern integer gclks_(void); +extern integer gclose_(integer *gp); +extern integer gclrwk_(integer *wkid, integer *cofl); +extern integer gclwk_(integer *wkid); +extern integer gctran_(integer *gp, real *x1, real *y1, real *x2, real *y2, integer *wcsa, integer *wcsb); +extern integer gcurps_(integer *gp, real *x, real *y); +extern integer gdawk_(integer *wkid); +extern integer gdeace_(integer *gp, integer *flags); +extern integer gescae_(integer *gp, integer *fn, shortint *instrn, integer *nwords); +extern integer gethot_(shortint *outstr, integer *maxch); +extern integer getsen_(shortint *image, shortint *sectin, integer *maxch); +extern integer getset_(real *vl, real *vr, real *vb, real *vt, real *wl, real *wr, real *wb, real *wt, integer *lf); +extern integer getsi_(integer *ix, integer *iy); +extern integer getusv_(char *vn, integer *iv, ftnlen vn_len); +extern integer gexflr_(integer *stream); +extern integer gexfls_(void); +extern integer gexflt_(integer *stream, integer *gpvale, integer *epagfh); +extern integer gfa_(integer *n, real *px, real *py); +extern integer gfill_(integer *gp, real *x, real *y, integer *npts, integer *style); +extern integer gflush_(integer *gp); +extern integer gframe_(integer *gp); +extern integer gfrint_(integer *gp); +extern integer ggcell_(integer *gp, shortint *m, integer *nx, integer *ny, real *x1, real *y1, real *x2, real *y2); +extern integer ggscae_(integer *gp, real *x, real *y, real *dx, real *dy); +extern integer ggview_(integer *gp, real *x1, real *x2, real *y1, real *y2); +extern integer ggwind_(integer *gp, real *x1, real *x2, real *y1, real *y2); +extern integer gimcor_(integer *gp, integer *rop, integer *src, integer *st, real *sx, real *sy, real *sw, real *sh, integer *dst, integer *dt, real *dx, real *dy, real *dw, real *dh); +extern integer gimcrr_(integer *gp, integer *raster, integer *type__, integer *width, integer *height, integer *depth); +extern integer gimder_(integer *gp, integer *raster); +extern integer gimdig_(integer *gp, integer *mappig, integer *erase); +extern integer gimeng_(integer *gp, integer *mappig, integer *refreh); +extern integer gimfrg_(integer *gp, integer *mappig); +extern integer gimfrp_(integer *gp, integer *colorp); +extern integer gimins_(integer *gp); +extern integer gimiod_(integer *gp, integer *iomap, integer *first, integer *nelem); +extern integer gimioe_(integer *gp, integer *iomap, integer *first, integer *nelem); +extern integer gimlop_(integer *gp, integer *colorp, real *offset, real *slope); +extern integer gimrat_(integer *gp); +extern integer gimreg_(integer *gp, integer *mappig); +extern integer gimres_(integer *gp, integer *raster, shortint *data, integer *nbits, integer *x1, integer *y1, integer *nx, integer *ny); +extern integer gimrex_(integer *gp, integer *raster, integer *ct, real *x1, real *y1, real *width, real *height); +extern integer gimseg_(integer *gp, integer *mappig, integer *rop, integer *src, integer *st, real *sx, real *sy, real *sw, real *sh, integer *dst, integer *dt, real *dx, real *dy, real *dw, real *dh); +extern integer gimser_(integer *gp, integer *raster); +extern integer gimsex_(integer *gp, integer *raster, integer *ct, real *x1, real *y1, real *width, real *height, integer *color, integer *rop); +extern integer gimwrp_(integer *gp, integer *colorp, integer *first, integer *nelem, integer *r__, integer *g, integer *b); +extern integer gimwrs_(integer *gp, integer *raster, shortint *data, integer *nbits, integer *x1, integer *y1, integer *nx, integer *ny); +extern integer giotr_(integer *stream); +extern integer giotrt_(integer *vex, integer *nexthr); +extern integer gkical_(integer *fd); +extern integer gkiclr_(integer *fd); +extern integer gkicls_(integer *fd, shortint *device); +extern integer gkides_(integer *fd, integer *flags); +extern integer gkieof_(integer *fd); +extern integer gkiese_(integer *fd, integer *fn, shortint *instrn, integer *nwords); +extern integer gkiexe_(shortint *gki, integer *dd); +extern integer gkifat_(integer *fd, integer *ap); +extern integer gkiffh_(integer *fd); +extern integer gkifia_(integer *fd, shortint *points, integer *npts); +extern integer gkiflh_(integer *fd); +extern integer gkiger_(integer *fd, integer *cursor, integer *cn, integer *key, integer *sx, integer *sy, integer *raster, integer *rx, integer *ry); +extern integer gkiges_(integer *fd, integer *wcs, integer *lenwcs); +extern integer gkigey_(integer *fd, shortint *m, integer *nx, integer *ny, integer *x1, integer *y1, integer *x2, integer *y2); +extern integer gkiinl_(integer *stream, integer *dd); +extern integer gkiint_(integer *stream); +extern integer gkimfe_(integer *fd, shortint *title); +extern integer gkiops_(integer *fd, shortint *device, integer *mode); +extern integer gkiplt_(integer *fd, integer *ap); +extern integer gkipmt_(integer *fd, integer *ap); +extern integer gkipoe_(integer *fd, shortint *points, integer *npts); +extern integer gkipor_(integer *fd, shortint *points, integer *npts); +extern integer gkipuy_(integer *fd, shortint *m, integer *nx, integer *ny, integer *x1, integer *y1, integer *x2, integer *y2); +extern integer gkiree_(integer *fd, integer *cn, integer *key, integer *sx, integer *sy, integer *raster, integer *rx, integer *ry); +extern integer gkirer_(integer *stream, integer *fd, integer *oldfd, integer *oldtye); +extern integer gkires_(integer *fd, integer *flags); +extern integer gkirey_(integer *fd, shortint *m, integer *np); +extern integer gkiser_(integer *fd, integer *x, integer *y, integer *cursor); +extern integer gkises_(integer *fd, integer *wcs, integer *lenwcs); +extern integer gkisul_(integer *stream, integer *pid, integer *prpsia); +extern integer gkitet_(integer *fd, integer *x, integer *y, shortint *text); +extern integer gkitxt_(integer *fd, integer *ap); +extern integer gkiwee_(integer *fd, integer *fn, shortint *hdr, integer *hdrlen, shortint *data, integer *dataln); +extern integer gkiwre_(integer *fd, shortint *gki); +extern integer gkpcal_(integer *dummy); +extern integer gkpcle_(void); +extern integer gkpclr_(integer *dummy); +extern integer gkpcls_(shortint *devnae, integer *n); +extern integer gkpdes_(integer *flags); +extern integer gkpdup_(integer *fd, shortint *data, integer *nwords); +extern integer gkpese_(integer *fn, shortint *instrn, integer *nwords); +extern integer gkpfat_(shortint *gki); +extern integer gkpfia_(shortint *p, integer *npts); +extern integer gkpflh_(integer *dummy); +extern integer gkpger_(integer *cursor); +extern integer gkpges_(shortint *wcs, integer *nwords); +extern integer gkpgey_(integer *nx, integer *ny, integer *x1, integer *y1, integer *x2, integer *y2); +extern integer gkpgrm_(integer *graphm); +extern integer gkpinl_(integer *dd, integer *outfd, integer *verbot, integer *usegks); +extern integer gkpmfe_(shortint *title, integer *n); +extern integer gkpops_(shortint *devnae, integer *n, integer *mode); +extern integer gkpplt_(shortint *gki); +extern integer gkppmt_(shortint *gki); +extern integer gkppoe_(shortint *p, integer *npts); +extern integer gkppor_(shortint *p, integer *npts); +extern integer gkppst_(integer *fd, shortint *p, integer *npts, shortint *label, integer *verboe, integer *gkiuns); +extern integer gkppuy_(shortint *m, integer *nx, integer *ny, integer *x1, integer *y1, integer *x2, integer *y2); +extern integer gkpres_(integer *flags); +extern integer gkpser_(integer *x, integer *y, integer *cursor); +extern integer gkpses_(shortint *wcs, integer *nwords); +extern integer gkptet_(integer *x, integer *y, shortint *text, integer *n); +extern integer gkptxg_(shortint *code); +extern integer gkptxt_(shortint *gki); +extern integer gkpunn_(shortint *gki); +extern integer glabax_(integer *gp, shortint *title, shortint *xlabel, shortint *ylabel); +extern integer glbdrd_(integer *gp, integer *ax1, integer *ax2); +extern integer glbene_(real *x, shortint *out, integer *maxch, shortint *format, real *step); +extern integer glbfis_(integer *gp, integer *ap, integer *ax1, integer *ax2, integer *angle); +extern integer glblas_(integer *gp, integer *ax, shortint *xlabel, shortint *ylabel); +extern integer glblob_(integer *gp, real *sx, real *sy, real *val, shortint *fmt, integer *scalig); +extern integer glbple_(integer *gp, shortint *title, integer *ntitls); +extern integer glbsep_(integer *gp, integer *axes, integer *ntitls, shortint *xlabel, shortint *ylabel); +extern integer glbses_(integer *gp, integer *ap, integer *ax1, integer *ax2, integer *angle); +extern integer glbset_(integer *gp, integer *ntitls, shortint *xlabel, shortint *ylabel); +extern integer glbveg_(integer *gp); +extern integer gline_(integer *gp, real *x1, real *y1, real *x2, real *y2); +extern integer gmark_(integer *gp, real *x, real *y, integer *markte, real *xsize, real *ysize); +extern integer gmftie_(integer *gp, shortint *mftite); +extern integer gmprif_(integer *gp, shortint *object, shortint *format); +extern integer gmsg_(integer *gp, shortint *object, shortint *messae); +extern integer gmsgb_(integer *gp, shortint *object, logical *value); +extern integer gmsgc_(integer *gp, shortint *object, shortint *value); +extern integer gmsgd_(integer *gp, shortint *object, doublereal *value); +extern integer gmsgi_(integer *gp, shortint *object, integer *value); +extern integer gmsgl_(integer *gp, shortint *object, integer *value); +extern integer gmsgr_(integer *gp, shortint *object, real *value); +extern integer gmsgs_(integer *gp, shortint *object, shortint *value); +extern integer gmsgx_(integer *gp, shortint *object, complex *value); +extern integer gnewpt_(real *ux, real *vy, integer *imax, integer *jptsy); +extern integer gopks_(integer *errfil); +extern integer gopwk_(integer *wkid, integer *conid, integer *wtype); +extern integer gpagee_(integer *gp, shortint *fname, shortint *prompt); +extern integer gpcell_(integer *gp, shortint *m, integer *nx, integer *ny, real *x1, real *y1, real *x2, real *y2); +extern integer gpl_(integer *n, real *px, real *py); +extern integer gplcae_(integer *gp); +extern integer gplcal_(void); +extern integer gplclb_(integer *pen, integer *mx, integer *my); +extern integer gplcll_(integer *pen, integer *mx, integer *my); +extern integer gplclr_(integer *pen, integer *mx, integer *my); +extern integer gplclt_(integer *pen, integer *mx, integer *my); +extern integer gplflh_(void); +extern integer gpline_(integer *gp, real *x, real *y, integer *npts); +extern integer gploto_(integer *gp, real *v, integer *npts, real *x1, real *x2, shortint *title); +extern integer gplotv_(real *v, integer *npts, real *x1, real *x2, shortint *title); +extern integer gplret_(void); +extern integer gplsee_(integer *gp, integer *type__); +extern integer gplwci_(integer *gp, real *wx, real *wy, real *mx, real *my); +extern integer gpm_(integer *n, real *px, real *py); +extern integer gpmark_(integer *gp, real *x, real *y, integer *npts, integer *markte, real *xsize, real *ysize); +extern integer gptclb_(integer *pen, integer *mx, integer *my); +extern integer gptcll_(integer *pen, integer *mx, integer *my); +extern integer gptclr_(integer *pen, integer *mx, integer *my); +extern integer gptclt_(integer *pen, integer *mx, integer *my); +extern integer gptflh_(void); +extern integer gqasf_(integer *ierror, integer *lasf); +extern integer gqchh_(integer *ierror, real *chh); +extern integer gqchup_(integer *ierror, real *chupx, real *chupy); +extern integer gqclip_(integer *errind, integer *iclip, real *iar); +extern integer gqcntn_(integer *errind, integer *cntr); +extern integer gqmk_(integer *ierr, integer *mtype); +extern integer gqnt_(integer *ntnr, integer *errind, real *window, real *vport); +extern integer gqopwk_(integer *n, integer *errind, integer *ol, integer *wkid); +extern integer gqplci_(integer *errind, integer *coli); +extern integer gqpmci_(integer *errind, integer *coli); +extern integer gqpmi_(integer *errind, real *index); +extern integer gqsort_(integer *x, integer *nelem, I_fp compae, integer *arg); +extern integer gqtxal_(integer *ierror, integer *txalh, integer *txalv); +extern integer gqtxci_(integer *ierror, integer *coli); +extern integer gqtxp_(integer *ierror, integer *path); +extern integer gqwks_(integer *wkid, integer *errind, integer *state); +extern integer gray_(void); +extern integer grcaxs_(integer *stream, real *sx, real *sy, integer *raster, real *rx, real *ry); +extern integer grccle_(integer *fd, integer *rc); +extern integer grcint_(integer *rc); +extern integer grckes_(integer *rc, shortint *opstr, integer *ip, integer *onoff); +extern integer grcmee_(integer *stream, shortint *messae); +extern integer grcndr_(real *mx, real *my, real *sx, real *sy); +extern integer grcnds_(real *ct, real *mx, real *my, real *wx, real *wy); +extern integer grcpcr_(integer *stream, real *sx, real *sy, integer *raster, real *rx, real *ry); +extern integer grcpoe_(integer *stream, real *v, integer *npts); +extern integer grcred_(integer *tr, integer *stream, shortint *fname); +extern integer grcres_(integer *stream, real *x, real *y); +extern integer grcrew_(integer *rc, integer *stream, real *sx, real *sy, integer *raster, real *rx, real *ry); +extern integer grcscc_(real *sx, real *sy, real *mx, real *my); +extern integer grcscs_(integer *stream, real *sx, real *sy, integer *raster, real *rx, real *ry, real *wx, real *wy, integer *wcs); +extern integer grcsen_(integer *w, real *ct); +extern integer grcsts_(integer *fd, integer *rc); +extern integer grctet_(integer *stream, real *x, real *y, shortint *text); +extern integer grcvit_(integer *tr, integer *stream, real *sx, real *sy, integer *raster, real *rx, real *ry, shortint *opstr, integer *ip); +extern integer grcwan_(integer *fd); +extern integer grcwcc_(real *ct, real *wx, real *wy, real *mx, real *my); +extern integer grcwod_(shortint *opstr, integer *ip, shortint *outstr, integer *maxch); +extern integer grcwre_(integer *tr, integer *stream, shortint *fname, logical *clobbr, logical *fullfe); +extern integer grdraw_(integer *gp, real *x, real *y); +extern integer greace_(integer *gp, integer *flags); +extern integer greset_(integer *gp, integer *flags); +extern integer grid_(integer *majrx, integer *minrx, integer *majry, integer *minry); +extern integer gridal_(integer *majrx, integer *minrx, integer *majry, integer *minry, integer *ixlab, integer *iylab, integer *igph, real *x, real *y); +extern integer gridl_(integer *majrx, integer *minrx, integer *majry, integer *minry); +extern integer gridt_(void); +extern integer grmove_(integer *gp, real *x, real *y); +extern integer grscae_(integer *gp, real *v, integer *npts, integer *axis); +extern integer gsasf_(integer *lasf); +extern integer gsawi_(integer *param, integer *value); +extern integer gsawr_(integer *param, real *value); +extern integer gscan_(integer *gp, shortint *commad); +extern integer gschh_(real *chh); +extern integer gschup_(real *chux, real *chuy); +extern integer gsclip_(integer *iclip); +extern integer gscur_(integer *gp, real *x, real *y); +extern integer gselnt_(integer *wcs); +extern integer gseti_(integer *gp, integer *param, integer *value); +extern integer gsetr_(integer *gp, integer *param, real *rval); +extern integer gsets_(integer *gp, integer *param, shortint *value); +extern integer gsfaci_(integer *index); +extern integer gsfais_(integer *ints); +extern integer gslwsc_(real *width); +extern integer gsmk_(integer *mtype); +extern integer gsmksc_(real *width); +extern integer gsplci_(integer *coli); +extern integer gspmci_(integer *coli); +extern integer gspmi_(integer *index); +extern integer gstrsb_(integer *tabs, integer *maxtas, integer *firstp, integer *tabsie); +extern integer gstsei_(integer *newvae, integer *value, integer *state); +extern integer gstser_(real *newvae, real *value, integer *state); +extern integer gstxal_(integer *txalh, integer *txalv); +extern integer gstxci_(integer *coli); +extern integer gstxp_(integer *txp); +extern integer gsview_(integer *gp, real *x1, real *x2, real *y1, real *y2); +extern integer gsvp_(integer *wcs, real *x1, real *x2, real *y1, real *y2); +extern integer gswind_(integer *gp, real *x1, real *x2, real *y1, real *y2); +extern integer gswn_(integer *wcs, real *x1, real *x2, real *y1, real *y2); +extern integer gtasce_(integer *gp, integer *gt, real *x, real *y, integer *npts); +extern integer gtcol1_(shortint *cmdstr, integer *gp, integer *gt, integer *newgrh); +extern integer gtcoln_(shortint *cmdstr, integer *gp, integer *gt, integer *newgrh); +extern integer gtcopy_(integer *gt1, integer *gt2); +extern integer gtext_(integer *gp, real *x, real *y, shortint *text, shortint *format); +extern integer gtfree_(integer *gt); +extern integer gtgets_(integer *gt, integer *param, shortint *str, integer *szstr); +extern integer gthelp_(shortint *file); +extern integer gtickr_(real *x1, real *x2, integer *roughs, integer *logflg, real *xtick1, real *step); +extern integer gtiret_(integer *gp, integer *gt); +extern integer gtlabx_(integer *gp, integer *gt); +extern integer gtrbap_(integer *stream); +extern integer gtrcol_(integer *stream, shortint *gki, integer *sourcd); +extern integer gtrctn_(integer *mx, integer *my, integer *sx, integer *sy); +extern integer gtrdee_(integer *tr, integer *gki); +extern integer gtrdit_(integer *pid, integer *in, integer *out, integer *stream); +extern integer gtrest_(integer *gp, integer *gt); +extern integer gtrfre_(integer *tr, integer *gki, integer *stream); +extern integer gtrgfh_(integer *stream); +extern integer gtrgtn_(integer *fd, real *x1, real *x2, real *y1, real *y2); +extern integer gtrmee_(integer *fd, integer *stream, shortint *name__); +extern integer gtrops_(shortint *devspc, integer *mode, integer *stream, integer *sourcd); +extern integer gtrpae_(integer *fd, integer *stream); +extern integer gtrpon_(shortint *gki); +extern integer gtrptn_(integer *stream, real *x1, real *x2, real *y1, real *y2); +extern integer gtrret_(integer *status); +extern integer gtrrew_(integer *stream); +extern integer gtrset_(integer *fd, real *x1, real *x2, real *y1, real *y2); +extern integer gtrsts_(integer *fd); +extern integer gtrtre_(integer *tr, integer *gki); +extern integer gtruno_(integer *stream); +extern integer gtrwae_(integer *fd, integer *stream); +extern integer gtrwrr_(integer *fd, real *x, real *y); +extern integer gtrwsn_(shortint *gki); +extern integer gtseti_(integer *gt, integer *param, integer *ival); +extern integer gtsetr_(integer *gt, integer *param, real *rval); +extern integer gtsets_(integer *gt, integer *param, shortint *str); +extern integer gtswid_(integer *gp, integer *gt); +extern integer gtuivs_(integer *gp, integer *gt); +extern integer gtvplt_(integer *gp, integer *gt, real *v, integer *npts, real *x1, real *x2); +extern integer gtwin1_(integer *gt, integer *gp, real *wx, real *wy, integer *wcs, integer *key, shortint *cmd, integer *redraw); +extern integer gtwin2_(integer *gt, integer *gp, real *wx1, real *wy1, integer *wcs1, integer *key1, shortint *cmd1, real *wx2, real *wy2, integer *wcs2, integer *key2, shortint *cmd2, integer *redraw); +extern integer gtwinw_(integer *gt, integer *gp, shortint *cursor, integer *redraw); +extern integer gtx_(real *px, real *py, char *f77chars, ftnlen f77chars_len); +extern integer gtxset_(integer *tx, shortint *format, integer *ip); +extern integer gtycle_(integer *tty); +extern integer gtyfey_(integer *fd, shortint *device, integer *tty); +extern integer gtyins_(integer *tty, integer *tcapce, integer *tcapix, integer *ncaps); +extern integer gtysce_(integer *tty, shortint *termce, shortint *devnae); +extern integer gumark_(integer *gp, real *x, real *y, integer *npts, real *xcen, real *ycen, real *xsize, real *ysize, integer *fill); +extern integer gvline_(integer *gp, real *v, integer *npts, real *x1, real *x2); +extern integer gvmark_(integer *gp, real *v, integer *npts, real *x1, real *x2, integer *markte, real *xsize, real *ysize); +extern integer gwcsme_(shortint *devnae, shortint *fname, integer *maxch); +extern integer gwrwcs_(shortint *devnae, integer *wcs, integer *lenwcs); +extern integer gxgtx_(real *px, real *py, shortint *chars); +extern integer hafton_(real *z__, integer *l, integer *m, integer *n, real *flo, real *hi, integer *nlev, integer *nopt, integer *nprm, integer *ispv, real *spval); +extern integer halfax_(integer *majrx, integer *minrx, integer *majry, integer *minry, real *x, real *y, integer *ixlab, integer *iylab); +extern integer hfinit_(void); +extern integer iccled_(integer *ic, integer *cv, doublereal *x, doublereal *y, doublereal *w, integer *npts); +extern integer icclen_(integer *ic, integer *cv, real *x, real *y, real *w, integer *npts); +extern integer icclod_(integer *ic); +extern integer icclor_(integer *ic); +extern integer iccopy_(integer *icin, integer *icout); +extern integer icdevd_(integer *cv, doublereal *x, doublereal *y, doublereal *w, integer *rejpts, integer *npts, real *lowret, real *highrt, real *grow, integer *refit, integer *nrejet, integer *newret); +extern integer icdevr_(integer *cv, real *x, real *y, real *w, integer *rejpts, integer *npts, real *lowret, real *highrt, real *grow, integer *refit, integer *nrejet, integer *newret); +extern integer icdosd_(integer *ic, integer *cv, doublereal *x, doublereal *wts, integer *npts, integer *newx, integer *newwts, integer *newfun, integer *refit); +extern integer icdosr_(integer *ic, integer *cv, real *x, real *wts, integer *npts, integer *newx, integer *newwts, integer *newfun, integer *refit); +extern integer icerrd_(integer *ic, shortint *file, integer *cv, doublereal *x, doublereal *y, doublereal *wts, integer *npts); +extern integer icerrs_(integer *ic, shortint *file, integer *cv, real *x, real *y, real *wts, integer *npts); +extern integer icferd_(integer *ic, integer *cv, doublereal *x, doublereal *y, doublereal *wts, integer *npts, integer *fd); +extern integer icferr_(integer *ic, integer *cv, real *x, real *y, real *wts, integer *npts, integer *fd); +extern integer icfit_(integer *ic, integer *cv, real *x, real *y, real *wts, integer *npts, integer *newx, integer *newy, integer *newwts, integer *newfun); +extern integer icfitd_(integer *ic, integer *cv, doublereal *x, doublereal *y, doublereal *wts, integer *npts, integer *newx, integer *newy, integer *newwts, integer *newfun); +extern integer icfshw_(integer *ic, integer *fd); +extern integer icfvsd_(integer *ic, integer *cv, doublereal *x, doublereal *y, doublereal *wts, integer *npts, integer *fd); +extern integer icfvsr_(integer *ic, integer *cv, real *x, real *y, real *wts, integer *npts, integer *fd); +extern integer icfxyd_(integer *ic, integer *cv, doublereal *x, doublereal *y, doublereal *w, integer *npts, integer *fd); +extern integer icfxyr_(integer *ic, integer *cv, real *x, real *y, real *w, integer *npts, integer *fd); +extern integer ichelp_(integer *ic); +extern integer iclisr_(integer *ic, integer *cv, real *x, real *y, real *wts, integer *npts, shortint *file); +extern integer icopen_(integer *ic); +extern integer icpkey_(integer *ic, integer *key, integer *xaxis, integer *yaxis); +extern integer icpstr_(integer *ic, shortint *param, shortint *str); +extern integer icputi_(integer *ic, shortint *param, integer *ival); +extern integer icputr_(integer *ic, shortint *param, real *rval); +extern integer icrejd_(integer *cv, doublereal *x, doublereal *y, doublereal *w, integer *rejpts, integer *npts, real *lowret, real *highrt, integer *nitere, real *grow, integer *nrejet); +extern integer icrejr_(integer *cv, real *x, real *y, real *w, integer *rejpts, integer *npts, real *lowret, real *highrt, integer *nitere, real *grow, integer *nrejet); +extern integer icshow_(integer *ic, shortint *file, integer *gt); +extern integer icvshd_(integer *ic, shortint *file, integer *cv, doublereal *x, doublereal *y, doublereal *wts, integer *npts, integer *gt); +extern integer icvshr_(integer *ic, shortint *file, integer *cv, real *x, real *y, real *wts, integer *npts, integer *gt); +extern integer icxysd_(integer *ic, shortint *file, integer *cv, doublereal *x, doublereal *y, doublereal *w, integer *npts); +extern integer icxysr_(integer *ic, shortint *file, integer *cv, real *x, real *y, real *w, integer *npts); +extern integer idbcle_(integer *idb); +extern integer idiot_(real *xdra, real *ydra, integer *npts, integer *ltyp, integer *ldsh, char *labx, char *laby, char *labg, integer *lfra, ftnlen labx_len, ftnlen laby_len, ftnlen labg_len); +extern integer idkcle_(integer *fd); +extern integer idkdrw_(integer *fd, integer *ax, integer *ay); +extern integer idkflh_(integer *fd); +extern integer idkfre_(integer *fd); +extern integer idklih_(integer *fd, integer *width); +extern integer idkmoe_(integer *fd, integer *x, integer *y); +extern integer idkver_(integer *ax1, integer *ay1, integer *ax2, integer *ay2); +extern integer iisblk_(integer *chan1, integer *chan2, integer *chan3, integer *chan4, integer *nframs, real *rate); +extern integer iiscls_(integer *chan, integer *status); +extern integer iisers_(integer *chan); +extern integer iisgop_(integer *frame, integer *mode, integer *chan); +extern integer iishdr_(integer *id, integer *count, integer *subunt, integer *x, integer *y, integer *z__, integer *t); +extern integer iisio_(shortint *buf, integer *nbytes, integer *status); +extern integer iislpe_(shortint *y, integer *npts, integer *xc, integer *height, integer *width); +extern integer iislps_(shortint *lutb, shortint *lutg, shortint *lutr); +extern integer iismtc_(integer *chan1, integer *chan2); +extern integer iisofm_(shortint *map); +extern integer iisopn_(shortint *devino, integer *mode, integer *chan); +extern integer iispio_(shortint *buf, integer *nx, integer *ny); +extern integer iisrcr_(integer *status, integer *xcur, integer *ycur); +extern integer iisrd_(integer *chan, shortint *buf, integer *nbytes, integer *offset); +extern integer iisrgb_(integer *redchn, integer *greenn, integer *bluecn); +extern integer iisrlt_(integer *chan, shortint *lut); +extern integer iisrm_(integer *zfactr); +extern integer iisrom_(integer *color, shortint *lut); +extern integer iissee_(integer *frame); +extern integer iisstt_(integer *chan, integer *what, integer *lvalue); +extern integer iiswcr_(integer *status, integer *xcur, integer *ycur); +extern integer iiswlt_(integer *chan, shortint *lut); +extern integer iiswn3_(integer *chan1, integer *chan2, integer *chan3); +extern integer iiswom_(integer *color, shortint *lut); +extern integer iiswr_(integer *chan, shortint *buf, integer *nbytes, integer *offset); +extern integer iiswt_(integer *chan, integer *nbytes); +extern integer iiszm_(integer *zfactr, integer *x, integer *y); +extern integer ikicle_(integer *im); +extern integer ikicoy_(shortint *old, shortint *new__); +extern integer ikidee_(shortint *image); +extern integer ikideg_(shortint *str, integer *fd, integer *flags); +extern integer ikiint_(void); +extern integer ikimke_(shortint *root, shortint *extn, shortint *fname, integer *maxch); +extern integer ikiopn_(integer *nim, shortint *image, shortint *ksectn, integer *clindx, integer *clsize, integer *acmode, integer *oim); +extern integer ikiopx_(integer *im); +extern integer ikipae_(shortint *image, shortint *root, shortint *extn); +extern integer ikiree_(shortint *old, shortint *new__); +extern integer ikiupr_(integer *im); +extern integer imaddb_(integer *im, shortint *key, logical *value); +extern integer imaddd_(integer *im, shortint *key, doublereal *value); +extern integer imaddf_(integer *im, shortint *key, shortint *datate); +extern integer imaddi_(integer *im, shortint *key, integer *value); +extern integer imaddl_(integer *im, shortint *key, integer *value); +extern integer imaddr_(integer *im, shortint *key, real *value); +extern integer imadds_(integer *im, shortint *key, shortint *value); +extern integer imaflp_(shortint *a, integer *npix, integer *szpixl); +extern integer imakbc_(integer *im, shortint *key, logical *value, shortint *commet); +extern integer imakbi_(integer *im, shortint *key, logical *value, shortint *commet, shortint *pkey, integer *baf); +extern integer imakdc_(integer *im, shortint *key, doublereal *value, shortint *commet); +extern integer imakdi_(integer *im, shortint *key, doublereal *value, shortint *commet, shortint *pkey, integer *baf); +extern integer imakic_(integer *im, shortint *key, integer *value, shortint *commet); +extern integer imakii_(integer *im, shortint *key, integer *value, shortint *commet, shortint *pkey, integer *baf); +extern integer imaklc_(integer *im, shortint *key, integer *value, shortint *commet); +extern integer imakli_(integer *im, shortint *key, integer *value, shortint *commet, shortint *pkey, integer *baf); +extern integer imakrc_(integer *im, shortint *key, real *value, shortint *commet); +extern integer imakri_(integer *im, shortint *key, real *value, shortint *commet, shortint *pkey, integer *baf); +extern integer imaksc_(integer *im, shortint *key, shortint *value, shortint *commet); +extern integer imaksi_(integer *im, shortint *key, shortint *value, shortint *commet, shortint *pkey, integer *baf); +extern integer imalin_(integer *offset, integer *blksie); +extern integer imaplv_(integer *im, integer *lv, integer *pv, integer *ndim); +extern integer imastc_(integer *im, shortint *key, shortint *value, shortint *commet); +extern integer imasti_(integer *im, shortint *key, shortint *value, shortint *commet, shortint *pkey, integer *baf); +extern integer imastr_(integer *im, shortint *key, shortint *value); +extern integer imbln1_(integer *imdes, integer *nx); +extern integer imbln2_(integer *imdes, integer *nx, integer *ny); +extern integer imbln3_(integer *imdes, integer *nx, integer *ny, integer *nz); +extern integer imbtrn_(integer *im, integer *v1, integer *v2, integer *ndim); +extern integer imcfnl_(integer *fn); +extern integer imcopy_(shortint *old, shortint *new__); +extern integer imctrt_(integer *imdes, integer *dim, integer *x1arg, integer *x2arg, integer *step); +extern integer imdbcl_(shortint *m, integer *nx, integer *ny, integer *ax1, integer *ay1, integer *ax2, integer *ay2); +extern integer imdcal_(integer *dummy); +extern integer imdcle_(void); +extern integer imdclr_(integer *dummy); +extern integer imdcls_(shortint *devnae, integer *n); +extern integer imdcor_(integer *index); +extern integer imddae_(integer *gout, shortint *p, integer *npts, integer *ltype); +extern integer imddrr_(shortint *ch, integer *x, integer *y, integer *xsize, integer *ysize, integer *orien, integer *font); +extern integer imdect_(shortint *sectin, integer *ip, integer *x1, integer *x2, integer *step); +extern integer imdele_(shortint *image); +extern integer imdelf_(integer *im, shortint *key); +extern integer imdese_(integer *fn, shortint *instrn, integer *nwords); +extern integer imdfat_(shortint *gki); +extern integer imdfia_(shortint *p, integer *npts); +extern integer imdflh_(integer *dummy); +extern integer imdfot_(integer *font); +extern integer imdgey_(integer *nx, integer *ny, integer *x1, integer *y1, integer *x2, integer *y2); +extern integer imdint_(integer *tty, shortint *devnae); +extern integer imdlie_(integer *index); +extern integer imdmcl_(shortint *m, integer *nx, integer *ny, integer *ax1, integer *ay1, integer *ax2, integer *ay2); +extern integer imdops_(shortint *devnae, integer *n, integer *mode); +extern integer imdopv_(shortint *devnae, integer *frame, integer *color, integer *dd); +extern integer imdplt_(shortint *gki); +extern integer imdpmt_(shortint *gki); +extern integer imdpoe_(shortint *p, integer *npts); +extern integer imdpor_(shortint *p, integer *npts); +extern integer imdpus_(integer *ds, integer *frame, shortint *str1, shortint *str2, real *a, real *b, real *c__, real *d__, real *tx, real *ty, real *z1, real *z2, integer *ztr); +extern integer imdpuy_(shortint *m, integer *nx, integer *ny, integer *ax1, integer *ay1, integer *ax2, integer *ay2); +extern integer imdrco_(integer *tty, shortint *outstr, integer *maxch, integer *wcs, integer *pause); +extern integer imdret_(void); +extern integer imdseg_(shortint *reg, real *sx, real *sy, integer *snx, integer *sny, integer *dx, integer *dy, integer *dnx, integer *dny, shortint *objref); +extern integer imdses_(integer *chan, shortint *wcstet); +extern integer imdtet_(integer *xc, integer *yc, shortint *text, integer *n); +extern integer imdtxt_(shortint *gki); +extern integer imerr_(shortint *imagee, integer *errcoe); +extern integer imflpl_(integer *a, integer *npix); +extern integer imflps_(shortint *a, integer *npix); +extern integer imflsd_(integer *imdes); +extern integer imflsh_(integer *im, integer *bp, integer *vs, integer *ve, integer *ndim); +extern integer imflsi_(integer *imdes); +extern integer imflsl_(integer *imdes); +extern integer imflsr_(integer *imdes); +extern integer imflss_(integer *imdes); +extern integer imflsx_(integer *imdes); +extern integer imfluh_(integer *imdes); +extern integer imfnpy_(shortint *key, integer *strp, integer *nstr, integer *nextch, integer *sbuf); +extern integer imfnss_(integer *im, shortint *patcoe, integer *strp, integer *nstr, integer *nextch, integer *sbuf); +extern integer imgclr_(shortint *imspec, shortint *clustr, integer *maxch); +extern integer imgcom_(integer *im, shortint *key, shortint *commet); +extern integer imgime_(shortint *imspec, shortint *image, integer *maxch); +extern integer imgsen_(shortint *imspec, shortint *sectin, integer *maxch); +extern integer imgstr_(integer *im, shortint *key, shortint *outstr, integer *maxch); +extern integer iminfi_(integer *im, shortint *key, shortint *pkey, shortint *datate, integer *baf); +extern integer iminie_(integer *im, integer *lenimr); +extern integer imioff_(integer *im, integer *pixoff, integer *comprs, integer *devblz); +extern integer imisec_(integer *imdes, shortint *sectin); +extern integer immaky_(integer *im, integer *oim); +extern integer imopsf_(integer *im); +extern integer impakd_(doublereal *a, integer *b, integer *npix, integer *dtype); +extern integer impaki_(integer *a, integer *b, integer *npix, integer *dtype); +extern integer impakl_(integer *a, integer *b, integer *npix, integer *dtype); +extern integer impakr_(real *a, integer *b, integer *npix, integer *dtype); +extern integer impaks_(shortint *a, integer *b, integer *npix, integer *dtype); +extern integer impakx_(complex *a, integer *b, integer *npix, integer *dtype); +extern integer impare_(shortint *imspec, shortint *clustr, integer *szclur, shortint *ksectn, integer *szksen, shortint *sectin, integer *szsecn, integer *clindx, integer *clsize); +extern integer imphis_(integer *im, shortint *key, shortint *text, shortint *pkey, integer *baf); +extern integer impkbc_(integer *im, shortint *key, logical *bval, shortint *commet); +extern integer impkdc_(integer *im, shortint *key, doublereal *dval, shortint *commet); +extern integer impkic_(integer *im, shortint *key, integer *ival, shortint *commet); +extern integer impklc_(integer *im, shortint *key, integer *lval, shortint *commet); +extern integer impkrc_(integer *im, shortint *key, real *rval, shortint *commet); +extern integer impksc_(integer *im, shortint *key, shortint *value, shortint *commet); +extern integer impmlr_(integer *im, integer *bp); +extern integer impstc_(integer *im, shortint *key, shortint *value, shortint *commet); +extern integer impstr_(integer *im, shortint *key, shortint *value); +extern integer imputb_(integer *im, shortint *key, logical *bval); +extern integer imputd_(integer *im, shortint *key, doublereal *dval); +extern integer imputf_(integer *im, shortint *file, shortint *pkey, integer *baf); +extern integer imputh_(integer *im, shortint *key, shortint *text); +extern integer imputi_(integer *im, shortint *key, integer *ival); +extern integer imputl_(integer *im, shortint *key, integer *lval); +extern integer imputr_(integer *im, shortint *key, real *rval); +extern integer imputs_(integer *im, shortint *key, shortint *value); +extern integer imrart_(integer *piv, shortint *fname, integer *nlines, integer *insert); +extern integer imrbpx_(integer *im, shortint *obuf, integer *totpix, integer *v, integer *vinc); +extern integer imrdpx_(integer *im, shortint *obuf, integer *npix, integer *v, integer *xstep); +extern integer imrene_(shortint *old, shortint *new__); +extern integer imrenf_(integer *im, shortint *oldkey, shortint *newkey); +extern integer imrmbs_(integer *im); +extern integer imsamp_(shortint *a, shortint *b, integer *npix, integer *szpixl, integer *step); +extern integer imsetf_(integer *fd, integer *im); +extern integer imseti_(integer *im, integer *param, integer *value); +extern integer imsetr_(integer *im, integer *param, real *value); +extern integer imsmpl_(integer *a, integer *b, integer *npix, integer *step); +extern integer imsmps_(shortint *a, shortint *b, integer *npix, integer *step); +extern integer imsslv_(integer *im, integer *vs, integer *ve, integer *v, integer *vinc, integer *npix); +extern integer imstas_(integer *im, integer *option, shortint *outstr, integer *maxch); +extern integer imtcle_(integer *imt); +extern integer imtrew_(integer *imt); +extern integer imunmp_(integer *im); +extern integer imupkd_(integer *a, doublereal *b, integer *npix, integer *dtype); +extern integer imupki_(integer *a, integer *b, integer *npix, integer *dtype); +extern integer imupkl_(integer *a, integer *b, integer *npix, integer *dtype); +extern integer imupkr_(integer *a, real *b, integer *npix, integer *dtype); +extern integer imupks_(integer *a, shortint *b, integer *npix, integer *dtype); +extern integer imupkx_(integer *a, complex *b, integer *npix, integer *dtype); +extern integer imwbpx_(integer *im, shortint *ibuf, integer *totpix, integer *v, integer *vinc); +extern integer imwrie_(integer *imdes, shortint *buf, integer *nchars, integer *offset); +extern integer imwrpx_(integer *im, shortint *buf, integer *npix, integer *v, integer *xstep); +extern integer inbfid_(integer *in, integer *npts, integer *nvars__); +extern integer inbfir_(integer *in, integer *npts, integer *nvars__); +extern integer incopd_(integer *insrc, integer *indst); +extern integer incopr_(integer *insrc, integer *indst); +extern integer indevd_(integer *nl, doublereal *x, doublereal *y, doublereal *w, integer *rejpts, integer *npts, integer *nvars__, doublereal *lowret, doublereal *highrt, doublereal *grow, integer *nrejet, integer *newret); +extern integer indevr_(integer *nl, real *x, real *y, real *w, integer *rejpts, integer *npts, integer *nvars__, real *lowret, real *highrt, real *grow, integer *nrejet, integer *newret); +extern integer indumd_(integer *fd, integer *in); +extern integer indumr_(integer *fd, integer *in); +extern integer inerrd_(integer *in, integer *nl, doublereal *x, doublereal *y, doublereal *wts, integer *npts, integer *nvars__, doublereal *variae, doublereal *chisqr, doublereal *scattr, doublereal *rms, doublereal *errors); +extern integer inerrr_(integer *in, integer *nl, real *x, real *y, real *wts, integer *npts, integer *nvars__, real *variae, real *chisqr, real *scattr, real *rms, real *errors); +extern integer infitd_(integer *in, integer *nl, doublereal *x, doublereal *y, doublereal *wts, integer *npts, integer *nvars__, integer *wtflag, integer *stat); +extern integer infitr_(integer *in, integer *nl, real *x, real *y, real *wts, integer *npts, integer *nvars__, integer *wtflag, integer *stat); +extern integer infred_(integer *in); +extern integer infrer_(integer *in); +extern integer ingaxd_(integer *in, integer *gt, integer *nl, integer *axis, doublereal *x, doublereal *y, doublereal *z__, integer *npts, integer *nvars__); +extern integer ingaxr_(integer *in, integer *gt, integer *nl, integer *axis, real *x, real *y, real *z__, integer *npts, integer *nvars__); +extern integer ingchd_(integer *in, integer *type__); +extern integer ingchr_(integer *in, integer *type__); +extern integer ingcod_(integer *in, shortint *cmdstr, integer *gp, integer *gt, integer *nl, doublereal *x, doublereal *y, doublereal *wts, shortint *names, integer *npts, integer *nvars__, integer *lennae, integer *newgrh); +extern integer ingcor_(integer *in, shortint *cmdstr, integer *gp, integer *gt, integer *nl, real *x, real *y, real *wts, shortint *names, integer *npts, integer *nvars__, integer *lennae, integer *newgrh); +extern integer ingd1d_(integer *in, integer *gp, doublereal *x, doublereal *y, doublereal *wts, integer *npts, real *wx, real *wy); +extern integer ingd1r_(integer *in, integer *gp, real *x, real *y, real *wts, integer *npts, real *wx, real *wy); +extern integer ingdad_(integer *in, shortint *file, doublereal *x, shortint *names, integer *npts, integer *nvars__, integer *lennae); +extern integer ingdar_(integer *in, shortint *file, real *x, shortint *names, integer *npts, integer *nvars__, integer *lennae); +extern integer ingded_(integer *in, integer *gp, integer *gt, integer *nl, doublereal *x, doublereal *y, doublereal *wts, integer *npts, integer *nvars__, real *wx, real *wy); +extern integer ingder_(integer *in, integer *gp, integer *gt, integer *nl, real *x, real *y, real *wts, integer *npts, integer *nvars__, real *wx, real *wy); +extern integer ingdey_(integer *in, integer *nvars__, integer *newgrh); +extern integer ingerd_(integer *in, shortint *file, integer *nl, doublereal *x, doublereal *y, doublereal *wts, integer *npts, integer *nvars__); +extern integer ingerr_(integer *in, shortint *file, integer *nl, real *x, real *y, real *wts, integer *npts, integer *nvars__); +extern integer ingfid_(integer *in, integer *gp, shortint *cursor, integer *gt, integer *nl, doublereal *x, doublereal *y, doublereal *wts, shortint *names, integer *npts, integer *nvars__, integer *lennae, integer *wtflag, integer *stat); +extern integer ingfir_(integer *in, integer *gp, shortint *cursor, integer *gt, integer *nl, real *x, real *y, real *wts, shortint *names, integer *npts, integer *nvars__, integer *lennae, integer *wtflag, integer *stat); +extern integer ingg1d_(integer *in, integer *gp, integer *gt, doublereal *x, doublereal *y, doublereal *wts, integer *npts); +extern integer ingg1r_(integer *in, integer *gp, integer *gt, real *x, real *y, real *wts, integer *npts); +extern integer ingg2d_(integer *in, integer *gp, integer *gt, doublereal *x, doublereal *y, integer *npts); +extern integer ingg2r_(integer *in, integer *gp, integer *gt, real *x, real *y, integer *npts); +extern integer inggel_(integer *in, integer *xtype, integer *xnum, shortint *label, shortint *units, integer *maxch); +extern integer inggfd_(integer *in, integer *gp, integer *gt, integer *nl, doublereal *xin, doublereal *wts, integer *npts, integer *nvars__); +extern integer inggfr_(integer *in, integer *gp, integer *gt, integer *nl, real *xin, real *wts, integer *npts, integer *nvars__); +extern integer inggrd_(integer *in, integer *gp, integer *gt, integer *nl, doublereal *x, doublereal *y, doublereal *wts, integer *npts, integer *nvars__); +extern integer inggrr_(integer *in, integer *gp, integer *gt, integer *nl, real *x, real *y, real *wts, integer *npts, integer *nvars__); +extern integer ingkey_(integer *in, integer *key, integer *axis, integer *type__, integer *varnum); +extern integer ingpad_(integer *in, integer *nl, doublereal *x, doublereal *y, doublereal *wts, integer *npts, integer *nvars__, integer *gt); +extern integer ingpar_(integer *in, integer *nl, real *x, real *y, real *wts, integer *npts, integer *nvars__, integer *gt); +extern integer ingred_(integer *in, shortint *file, integer *nl, doublereal *x, doublereal *y, doublereal *wts, shortint *names, integer *npts, integer *nvars__, integer *lennae); +extern integer ingrer_(integer *in, shortint *file, integer *nl, real *x, real *y, real *wts, shortint *names, integer *npts, integer *nvars__, integer *lennae); +extern integer ingshd_(integer *in, shortint *file); +extern integer ingshr_(integer *in, shortint *file); +extern integer ingstr_(integer *in, integer *param, shortint *str, integer *maxch); +extern integer ingtie_(integer *in, shortint *file, integer *gt); +extern integer ingu1d_(integer *in, integer *gp, doublereal *x, doublereal *y, doublereal *wts, doublereal *userws, integer *npts, real *wx, real *wy); +extern integer ingu1r_(integer *in, integer *gp, real *x, real *y, real *wts, real *userws, integer *npts, real *wx, real *wy); +extern integer inguad_(integer *keynum, integer *in, integer *nl, doublereal *x, doublereal *y, doublereal *z__, integer *npts, integer *nvars__); +extern integer inguar_(integer *keynum, integer *in, integer *nl, real *x, real *y, real *z__, integer *npts, integer *nvars__); +extern integer ingucd_(integer *in, integer *gp, integer *gt, integer *nl, doublereal *x, doublereal *y, doublereal *wts, integer *npts, integer *nvars__, integer *newgrh); +extern integer ingucr_(integer *in, integer *gp, integer *gt, integer *nl, real *x, real *y, real *wts, integer *npts, integer *nvars__, integer *newgrh); +extern integer inguft_(integer *in, integer *gp, integer *gt, integer *nl, real *wx, real *wy, integer *wcs, integer *key, shortint *cmd); +extern integer ingund_(integer *in, integer *gp, integer *gt, integer *nl, doublereal *x, doublereal *y, doublereal *wts, doublereal *userws, integer *npts, integer *nvars__, real *wx, real *wy); +extern integer ingunr_(integer *in, integer *gp, integer *gt, integer *nl, real *x, real *y, real *wts, real *userws, integer *npts, integer *nvars__, real *wx, real *wy); +extern integer ingvad_(integer *in, shortint *file, integer *nvars__); +extern integer ingvar_(integer *in, shortint *file, integer *nvars__); +extern integer ingvsd_(integer *in, shortint *file, integer *nl, doublereal *x, doublereal *y, doublereal *wts, shortint *names, integer *npts, integer *nvars__, integer *lennae, integer *gt); +extern integer ingvsr_(integer *in, shortint *file, integer *nl, real *x, real *y, real *wts, shortint *names, integer *npts, integer *nvars__, integer *lennae, integer *gt); +extern integer ininid_(integer *in, integer *func, integer *dfunc, doublereal *param, doublereal *dparam, integer *nparas, integer *plist, integer *nfpars); +extern integer ininir_(integer *in, integer *func, integer *dfunc, real *param, real *dparam, integer *nparas, integer *plist, integer *nfpars); +extern integer initag_(void); +extern integer initut_(void); +extern integer initzi_(integer *ix, integer *iy, integer *iz, integer *lin3, integer *itop, integer *ient); +extern integer initzs_(integer *ix, integer *iy, integer *iz, integer *lin3, integer *itop, integer *ient); +extern integer initzt_(integer *ix, integer *iy, integer *iz, integer *lin3, integer *itop, integer *ient); +extern integer inlimd_(integer *in, doublereal *x, integer *npts, integer *nvars__); +extern integer inlimr_(integer *in, real *x, integer *npts, integer *nvars__); +extern integer innlid_(integer *in, integer *nl); +extern integer innlir_(integer *in, integer *nl); +extern integer inpkey_(integer *in, integer *key, integer *axis, integer *type__, integer *varnum); +extern integer inpstr_(integer *in, integer *param, shortint *str); +extern integer inputd_(integer *in, integer *param, doublereal *dval); +extern integer inputi_(integer *in, integer *param, integer *ival); +extern integer inputp_(integer *in, integer *param, integer *pval); +extern integer inputr_(integer *in, integer *param, real *rval); +extern integer inrefd_(integer *in, integer *nl, doublereal *x, doublereal *y, doublereal *wts, integer *npts, integer *nvars__, integer *wtflag); +extern integer inrefr_(integer *in, integer *nl, real *x, real *y, real *wts, integer *npts, integer *nvars__, integer *wtflag); +extern integer inrejd_(integer *in, integer *nl, doublereal *x, doublereal *y, doublereal *w, integer *npts, integer *nvars__, integer *wtflag); +extern integer inrejr_(integer *in, integer *nl, real *x, real *y, real *w, integer *npts, integer *nvars__, integer *wtflag); +extern integer intrde_(void); +extern integer intree_(void); +extern integer intrrt_(void); +extern integer intzi_(real *xx, real *yy, real *zz, integer *lin3, integer *itop); +extern integer intzs_(real *xx, real *yy, real *zz, integer *lin3, integer *itop); +extern integer intzt_(real *xx, real *yy, real *zz, integer *lin3, integer *itop); +extern integer isosrb_(void); +extern integer isosrf_(real *t, integer *lu, integer *mu, integer *lv, integer *mv, integer *mw, real *eye, integer *muvwp2, real *slab, real *tiso, integer *iflag); +extern integer iwcfis_(integer *iw); +extern integer iwcloe_(integer *iw); +extern integer iwents_(integer *mw, integer *iw, integer *ndim); +extern integer iwfb2m_(integer *iw, real *fbx, real *fby, real *imx, real *imy); +extern integer iwim2b_(integer *iw, real *imx, real *imy, real *fbx, real *fby); +extern integer iwputr_(integer *fd, integer *iw, integer *axis, integer *ctype, shortint *fmt1, shortint *fmt2, integer *maxinx); +extern integer iwputy_(integer *iw, doublereal *new__, doublereal *old, integer *ndim, shortint *kwfort, integer *kwtype, integer *kwindx); +extern integer iwsetp_(integer *mw, integer *im); +extern integer kardbf_(integer *chan, shortint *buf, integer *maxbys, integer *offset); +extern integer kardgd_(integer *chan, shortint *buf, integer *maxbys, integer *offset); +extern integer kardlp_(integer *chan, shortint *buf, integer *maxbys, integer *offset); +extern integer kardpl_(integer *chan, shortint *buf, integer *maxbys, integer *offset); +extern integer kardpr_(integer *chan, shortint *buf, integer *maxbys, integer *offset); +extern integer kardsf_(integer *chan, shortint *buf, integer *maxbys, integer *offset); +extern integer kawrbf_(integer *chan, shortint *buf, integer *nbytes, integer *offset); +extern integer kawrgd_(integer *chan, shortint *buf, integer *nbytes, integer *offset); +extern integer kawrlp_(integer *chan, shortint *buf, integer *nbytes, integer *offset); +extern integer kawrpl_(integer *chan, shortint *buf, integer *nbytes, integer *offset); +extern integer kawrpr_(integer *chan, shortint *buf, integer *nbytes, integer *offset); +extern integer kawrsf_(integer *chan, shortint *buf, integer *nbytes, integer *offset); +extern integer kawtbf_(integer *chan, integer *status); +extern integer kawtgd_(integer *chan, integer *status); +extern integer kawtlp_(integer *chan, integer *status); +extern integer kawtpl_(integer *chan, integer *status); +extern integer kawtpr_(integer *chan, integer *status); +extern integer kawtsf_(integer *chan, integer *status); +extern integer kbzard_(integer *device, integer *chan, shortint *obuf, integer *maxbys, integer *loffst); +extern integer kbzawr_(integer *device, integer *chan, shortint *ibuf, integer *nbytes, integer *loffst); +extern integer kbzawt_(integer *device, integer *chan, integer *status); +extern integer kbzcls_(integer *device, integer *chan, integer *status); +extern integer kbzopn_(integer *device, shortint *osfn, integer *mode, integer *chan); +extern integer kbzstt_(integer *device, integer *chan, integer *what, integer *lvalue); +extern integer kclcpr_(integer *pid, integer *exitss); +extern integer kcldir_(integer *chan, integer *status); +extern integer kcldpr_(integer *jobcoe, integer *killfg, integer *exitss); +extern integer kclsbf_(integer *chan, integer *status); +extern integer kclsgd_(integer *chan, integer *status); +extern integer kclslp_(integer *chan, integer *status); +extern integer kclspl_(integer *chan, integer *status); +extern integer kclssf_(integer *chan, integer *status); +extern integer kclstx_(integer *chan, integer *status); +extern integer kclsty_(integer *chan, integer *status); +extern integer kdvall_(shortint *device, integer *allflg, integer *status); +extern integer kdvown_(shortint *device, shortint *owner, integer *maxch, integer *status); +extern integer kfacss_(shortint *osfn, integer *mode, integer *type__, integer *status); +extern integer kfaloc_(shortint *osfn, integer *nbytes, integer *status); +extern integer kfchdr_(shortint *dirnae, integer *status); +extern integer kfdele_(shortint *osfn, integer *status); +extern integer kfgcwd_(shortint *outstr, integer *maxch, integer *nchars); +extern integer kfinfo_(shortint *osfn, integer *fi, integer *status); +extern integer kflstx_(integer *chan, integer *status); +extern integer kflsty_(integer *chan, integer *status); +extern integer kfmkcp_(shortint *oldosn, shortint *newosn, integer *status); +extern integer kfmkdr_(shortint *osfn, integer *status); +extern integer kfpath_(shortint *vfn, shortint *osfn, integer *maxch, integer *nchars); +extern integer kfprot_(shortint *osfn, integer *protfg, integer *status); +extern integer kfrnam_(shortint *oldosn, shortint *newosn, integer *status); +extern integer kfsubd_(shortint *osdir, integer *maxch, shortint *subdir, integer *nchars); +extern integer kfutim_(shortint *osfn, integer *atime, integer *mtime, integer *status); +extern integer kfxdir_(shortint *vfn, shortint *osdir, integer *maxch, integer *nchars); +extern integer kgettx_(integer *chan, shortint *text, integer *maxch, integer *status); +extern integer kgetty_(integer *chan, shortint *text, integer *maxch, integer *status); +extern integer kgfdir_(integer *chan, shortint *osfn, integer *maxch, integer *status); +extern integer kience_(integer *data, shortint *str, integer *nchars); +extern integer kienvt_(shortint *name__, shortint *value); +extern integer kierrr_(integer *server); +extern integer kiflux_(integer *device, integer *chan, integer *status); +extern integer kifman_(shortint *vfn, shortint *pkosfn, integer *maxch); +extern integer kifren_(integer *chan); +extern integer kiinit_(integer *inchan, integer *outchn, integer *errchn, integer *device, integer *devtye); +extern integer kintpr_(integer *pid, integer *vex, integer *status); +extern integer kishot_(integer *fd); +extern integer kixnoe_(shortint *r1, shortint *r2, integer *maxch); +extern integer knottx_(integer *chan, integer *loffst); +extern integer knotty_(integer *chan, integer *loffst); +extern integer kopcpr_(shortint *proces, integer *inchan, integer *outchn, integer *pid); +extern integer kopdir_(shortint *osfn, integer *chan); +extern integer kopdpr_(shortint *proces, shortint *bkgfie, shortint *bkgmsg, integer *jobcoe); +extern integer kopnbf_(shortint *osfn, integer *mode, integer *chan); +extern integer kopngd_(shortint *osfn, integer *mode, integer *chan); +extern integer kopnlp_(shortint *osfn, integer *mode, integer *chan); +extern integer kopnpl_(shortint *osfn, integer *mode, integer *chan); +extern integer kopnsf_(shortint *osfn, integer *mode, integer *chan); +extern integer kopntx_(shortint *osfn, integer *mode, integer *chan); +extern integer kopnty_(shortint *osfn, integer *mode, integer *chan); +extern integer koscmd_(shortint *oscmd, shortint *stdine, shortint *stdoue, shortint *stdere, integer *status); +extern integer kputtx_(integer *chan, shortint *text, integer *nchars, integer *status); +extern integer kputty_(integer *chan, shortint *text, integer *nchars, integer *status); +extern integer ksared_(integer *server, shortint *buf, integer *maxbys); +extern integer ksawat_(integer *server, integer *status); +extern integer ksawre_(integer *server, shortint *buf, integer *nbytes); +extern integer ksektx_(integer *chan, integer *loffst, integer *status); +extern integer ksekty_(integer *chan, integer *loffst, integer *status); +extern integer kserrr_(integer *errcoe, shortint *errmsg); +extern integer kservr_(integer *in, integer *out, integer *buflen); +extern integer ksfman_(shortint *vfn, shortint *osfn, integer *maxch); +extern integer ksloaf_(integer *bfdd); +extern integer ksloax_(integer *txdd); +extern integer ksop2r_(integer *opcode, integer *subcoe, shortint *ostr, shortint *sstr); +extern integer ksttbf_(integer *chan, integer *what, integer *lvalue); +extern integer ksttgd_(integer *chan, integer *what, integer *lvalue); +extern integer ksttlp_(integer *chan, integer *what, integer *lvalue); +extern integer ksttpl_(integer *chan, integer *what, integer *lvalue); +extern integer ksttpr_(integer *chan, integer *what, integer *lvalue); +extern integer ksttsf_(integer *chan, integer *what, integer *lvalue); +extern integer kstttx_(integer *chan, integer *what, integer *lvalue); +extern integer ksttty_(integer *chan, integer *what, integer *lvalue); +extern integer kszfif_(integer *in, integer *out, integer *iobuf, integer *leniof, integer *bfdd); +extern integer kszfit_(integer *in, integer *out, integer *iobuf, integer *leniof); +extern integer kszfix_(integer *in, integer *out, integer *iobuf, integer *leniof, integer *txdd); +extern integer ktzcls_(integer *device, integer *chan, integer *status); +extern integer ktzfls_(integer *device, integer *chan, integer *status); +extern integer ktzget_(integer *device, integer *chan, shortint *obuf, integer *maxch, integer *status); +extern integer ktznot_(integer *device, integer *chan, integer *loffst); +extern integer ktzopn_(integer *device, shortint *osfn, integer *mode, integer *chan); +extern integer ktzput_(integer *device, integer *chan, shortint *ibuf, integer *nchars, integer *status); +extern integer ktzsek_(integer *device, integer *chan, integer *loffst, integer *status); +extern integer ktzstt_(integer *device, integer *chan, integer *what, integer *lvalue); +extern integer kurv1s_(integer *n, real *x, real *y, real *slop1, real *slopn, real *xp, real *yp, real *temp, real *s, real *sigma, integer *islpsw); +extern integer kurv2s_(real *t, real *xs, real *ys, integer *n, real *x, real *y, real *xp, real *yp, real *s, real *sigma, integer *nslpsw, real *slp); +extern integer labmod_(char *fmtx, char *fmty, integer *numx, integer *numy, integer *isizx, integer *isizy, integer *ixdec, integer *iydec, integer *ixor, ftnlen fmtx_len, ftnlen fmty_len); +extern integer lastd_(void); +extern integer line3_(real *ua, real *va, real *wa, real *ub, real *vb, real *wb); +extern integer line3w_(real *xa, real *ya, real *xb, real *yb); +extern integer line_(real *x1, real *y1, real *x2, real *y2); +extern integer lined_(real *xa, real *ya, real *xb, real *yb); +extern integer lnocle_(integer *lp); +extern integer lnosae_(integer *lp, integer *line, integer *loffst, integer *ltag); +extern integer lpzard_(integer *chan, shortint *buf, integer *maxbys, integer *offset); +extern integer lpzawe_(integer *chan, shortint *buf, integer *nbytes, integer *offset); +extern integer lpzawt_(integer *chan, integer *nbytes); +extern integer lubksb_(real *a, integer *n, integer *np, integer *indx, real *b); +extern integer ludcmp_(real *a, integer *n, integer *np, integer *indx, real *d__); +extern integer luminv_(real *a, integer *n, integer *np); +extern integer maideh_(void); +extern integer maskce_(integer *colors); +extern integer masken_(integer *colors, integer *maskvs, integer *nmasks); +extern integer maskfc_(integer *data, shortint *func, integer *args, integer *nargs, integer *val); +extern integer maskod_(integer *op, shortint *operad, integer *o); +extern integer maxmin_(integer *im, real *zmin, real *zmax, integer *nsamps); +extern integer mcflsh_(void); +extern integer mefakb_(shortint *keywod, integer *value, shortint *commet, integer *pn); +extern integer mefakc_(shortint *keywod, shortint *value, integer *len, shortint *commet, integer *pn); +extern integer mefakd_(shortint *keywod, doublereal *value, shortint *commet, integer *precin, integer *pn); +extern integer mefaki_(shortint *keywod, integer *value, shortint *commet, integer *pn); +extern integer mefakr_(shortint *keywod, real *value, shortint *commet, integer *precin, integer *pn); +extern integer mefape_(integer *mefi, integer *mefo); +extern integer mefcle_(integer *mef); +extern integer mefcon_(integer *mefi, integer *mefo, integer *gn); +extern integer mefcpl_(integer *spool, integer *mef); +extern integer mefdur_(integer *out, shortint *hdrfne); +extern integer mefenb_(shortint *keywod, integer *param, shortint *card, shortint *commet); +extern integer mefenc_(shortint *keywod, shortint *param, integer *maxch, shortint *card, shortint *commet); +extern integer mefend_(shortint *keywod, doublereal *param, shortint *card, shortint *commet, integer *precin); +extern integer mefene_(shortint *datesr, integer *szdate); +extern integer mefeni_(shortint *keywod, integer *param, shortint *card, shortint *commet); +extern integer mefenl_(shortint *keywod, integer *param, shortint *card, shortint *commet); +extern integer mefenr_(shortint *keywod, real *param, shortint *card, shortint *commet, integer *precin); +extern integer mefens_(shortint *root, shortint *keywod, integer *axisno); +extern integer meffis_(shortint *fname, integer *acmode); +extern integer meffiw_(integer *hdrp, shortint *key, shortint *keywvl); +extern integer mefget_(shortint *card, shortint *commet, integer *maxch); +extern integer mefglm_(shortint *time, shortint *date, integer *limtie); +extern integer mefgsr_(integer *mef, shortint *key, shortint *outstr, integer *maxch); +extern integer mefgvb_(shortint *card, integer *bval); +extern integer mefgvd_(shortint *card, doublereal *dval); +extern integer mefgvi_(shortint *card, integer *ival); +extern integer mefgvr_(shortint *card, real *rval); +extern integer mefgvt_(shortint *card, shortint *outstr, integer *maxch); +extern integer mefksn_(shortint *ksectn, shortint *extnae, integer *extver); +extern integer mefkve_(shortint *outstr, integer *lextye, shortint *extnae, integer *extver); +extern integer mefpae_(integer *fd, integer *offset); +extern integer mefpar_(integer *out, shortint *card); +extern integer mefsel_(integer *versin, integer *plsize, shortint *imhdr, shortint *title, integer *ctime, integer *mtime, integer *limtie, real *minval, real *maxval, integer *mef); +extern integer mefskt_(integer *mef); +extern integer mefwcb_(shortint *kname, integer *kvalue, shortint *kcomm, integer *fd); +extern integer mefwcc_(shortint *kname, shortint *kvalue, shortint *kcomm, integer *fd); +extern integer mefwci_(shortint *kname, integer *kvalue, shortint *kcomm, integer *fd); +extern integer mefwcr_(shortint *kname, real *kvalue, shortint *kcomm, integer *fd); +extern integer mefwrk_(integer *out, integer *olines); +extern integer mefwrl_(integer *mef, shortint *title, integer *ctime, integer *mtime, integer *limtie, real *minval, real *maxval, shortint *plbuf, integer *naxis, integer *axlen); +extern integer mefwrr_(integer *mefi, integer *mefo, logical *inphdu); +extern integer mefwrt_(integer *out); +extern integer miiwrc_(integer *fd, integer *spp, integer *nchars); +extern integer miiwrd_(integer *fd, integer *spp, integer *nelem); +extern integer miiwri_(integer *fd, integer *spp, integer *nelem); +extern integer miiwrl_(integer *fd, integer *spp, integer *nelem); +extern integer miiwrr_(integer *fd, integer *spp, integer *nelem); +extern integer miiwrs_(integer *fd, integer *spp, integer *nelem); +extern integer minmax_(real *z__, integer *l, integer *mm, integer *nn, integer *issizm, real *aash, integer *joffdt); +extern integer miocle_(integer *mp); +extern integer miosee_(integer *mp, integer *vs, integer *ve, integer *ndim); +extern integer miosei_(integer *mp, integer *param, integer *value); +extern integer mmask_(void); +extern integer mrinvt_(real *a, real *b, integer *n); +extern integer mtalle_(shortint *mtname); +extern integer mtclen_(integer *level, integer *stale, integer *out); +extern integer mtclre_(void); +extern integer mtdeae_(shortint *mtname, integer *rewine); +extern integer mtence_(shortint *outstr, integer *maxch, shortint *device, integer *fileno, integer *recno, shortint *attrl); +extern integer mtfnae_(shortint *mtname, integer *fileno, shortint *outstr, integer *maxch); +extern integer mtgets_(shortint *mtname, integer *mt); +extern integer mtglok_(shortint *mtname, shortint *lockfe, integer *maxch); +extern integer mtloce_(shortint *device, shortint *lockfe, integer *maxch); +extern integer mtpare_(shortint *mtname, shortint *device, integer *szdeve, integer *file, integer *record, shortint *attrl, integer *szattl); +extern integer mtposn_(shortint *mtname, integer *file, integer *record); +extern integer mtpute_(integer *fd, shortint *text); +extern integer mtreae_(shortint *mtname, integer *mt); +extern integer mtrewd_(shortint *mtname, integer *initce); +extern integer mtsavd_(integer *fd, shortint *keywod, integer *value); +extern integer mtsavs_(integer *mt); +extern integer mtstas_(integer *out, shortint *mtname); +extern integer mtsync_(integer *status); +extern integer mtupde_(integer *mt); +extern integer mwaxtn_(doublereal *oltm, doublereal *oltv, doublereal *nltm, doublereal *nltv, integer *pdim, doublereal *ltm, doublereal *ltv, integer *ax, integer *ndim); +extern integer mwc2td_(integer *act, doublereal *x1, doublereal *y1, doublereal *x2, doublereal *y2); +extern integer mwc2tr_(integer *act, real *x1, real *y1, real *x2, real *y2); +extern integer mwcloe_(integer *mw); +extern integer mwctfe_(integer *ct); +extern integer mwctrd_(integer *act, doublereal *p1, doublereal *p2, integer *ndim); +extern integer mwctrr_(integer *act, real *p1, real *p2, integer *ndim); +extern integer mwgaxp_(integer *mw, integer *axno, integer *axval, integer *ndim); +extern integer mwgaxt_(integer *mw, integer *axbits, integer *axis, integer *naxes); +extern integer mwgltd_(integer *mw, doublereal *ltm, doublereal *ltv, integer *ndim); +extern integer mwgltr_(integer *mw, real *ltm, real *ltv, integer *ndim); +extern integer mwgsym_(integer *mw, shortint *outstr, integer *maxch); +extern integer mwgwas_(integer *mw, integer *axis, shortint *attrie, shortint *valstr, integer *maxch); +extern integer mwgwsd_(integer *mw, integer *axis, doublereal *pv, doublereal *wv, integer *npts); +extern integer mwgwsr_(integer *mw, integer *axis, real *pv, real *wv, integer *npts); +extern integer mwgwtd_(integer *mw, doublereal *r__, doublereal *w, doublereal *cd, integer *ndim); +extern integer mwgwtr_(integer *mw, real *r__, real *w, real *cd, integer *ndim); +extern integer mwinvd_(doublereal *oltm, doublereal *nltm, integer *ndim); +extern integer mwinvr_(real *oltm, real *nltm, integer *ndim); +extern integer mwload_(integer *mw, integer *bp); +extern integer mwloam_(integer *mw, integer *im); +extern integer mwltrd_(doublereal *p1, doublereal *p2, doublereal *ltm, doublereal *ltv, integer *ndim); +extern integer mwltrr_(real *p1, real *p2, real *ltm, real *ltv, integer *ndim); +extern integer mwlubb_(doublereal *a, integer *ix, doublereal *b, integer *ndim); +extern integer mwlude_(doublereal *a, integer *ix, integer *ndim); +extern integer mwmkid_(doublereal *ltm, integer *ndim); +extern integer mwmkir_(real *ltm, integer *ndim); +extern integer mwmmud_(doublereal *a, doublereal *b, doublereal *c__, integer *ndim); +extern integer mwmmur_(real *a, real *b, real *c__, integer *ndim); +extern integer mwnewm_(integer *mw, shortint *system, integer *ndim); +extern integer mwrote_(integer *mw, real *theta, real *center, integer *axbits); +extern integer mwsavm_(integer *mw, integer *im); +extern integer mwsaxp_(integer *mw, integer *axno, integer *axval, integer *ndim); +extern integer mwscae_(integer *mw, real *scale, integer *axbits); +extern integer mwsdes_(integer *mw); +extern integer mwseti_(integer *mw, integer *param, integer *value); +extern integer mwshit_(integer *mw, real *shift, integer *axbits); +extern integer mwshow_(integer *mw, integer *fd, integer *what); +extern integer mwsltd_(integer *mw, doublereal *ltm, doublereal *ltv, integer *ndim); +extern integer mwsltr_(integer *mw, real *ltm, real *ltv, integer *ndim); +extern integer mwssym_(integer *mw, shortint *system); +extern integer mwswas_(integer *mw, integer *axis, shortint *attrie, shortint *valstr); +extern integer mwswsd_(integer *mw, integer *axis, doublereal *pv, doublereal *wv, integer *npts); +extern integer mwswsr_(integer *mw, integer *axis, real *pv, real *wv, integer *npts); +extern integer mwswtd_(integer *mw, doublereal *r__, doublereal *w, doublereal *cd, integer *ndim); +extern integer mwswte_(integer *mw, integer *axis, integer *naxes, shortint *wtype, shortint *wattr); +extern integer mwswtr_(integer *mw, real *r__, real *w, real *cd, integer *ndim); +extern integer mwtrad_(integer *mw, doublereal *ltv1, doublereal *ltm, doublereal *ltv2, integer *ndim); +extern integer mwtrar_(integer *mw, real *ltv1, real *ltm, real *ltv2, integer *ndim); +extern integer mwv1td_(integer *act, doublereal *x1, doublereal *x2, integer *npts); +extern integer mwv1tr_(integer *act, real *x1, real *x2, integer *npts); +extern integer mwv2td_(integer *act, doublereal *x1, doublereal *y1, doublereal *x2, doublereal *y2, integer *npts); +extern integer mwv2tr_(integer *act, real *x1, real *y1, real *x2, real *y2, integer *npts); +extern integer mwvmud_(doublereal *a, doublereal *b, doublereal *c__, integer *ndim); +extern integer mwvmur_(real *a, real *b, real *c__, integer *ndim); +extern integer mwvtrd_(integer *ct, doublereal *v1, doublereal *v2, integer *ndim, integer *npts); +extern integer mwvtrr_(integer *ct, real *v1, real *v2, integer *ndim, integer *npts); +extern integer mxmy_(integer *ix, integer *iy); +extern integer mzscae_(integer *im, integer *zpm, integer *bpm, real *contrt, integer *maxpix, real *z1, real *z2); +extern integer newpie_(shortint *param, integer *im); +extern integer newtie_(shortint *param, integer *im); +extern integer obscle_(integer *obs); +extern integer obsgsr_(integer *obs, shortint *param, shortint *str, integer *maxchr); +extern integer obsimn_(integer *obs, integer *im, shortint *obsery, integer *verboe, logical *newobs, logical *obshed); +extern integer obsino_(integer *obs, integer *fd); +extern integer obslog_(integer *obs, shortint *task, shortint *params, integer *fd); +extern integer oifacs_(integer *kernel, shortint *root, shortint *extn, integer *acmode, integer *status); +extern integer oifcle_(integer *im, integer *status); +extern integer oifcoy_(integer *kernel, shortint *oldrot, shortint *oldexn, shortint *newrot, shortint *newexn, integer *status); +extern integer oifdee_(integer *kernel, shortint *root, shortint *extn, integer *status); +extern integer oifgpe_(shortint *pixfie, shortint *hdrfie, shortint *path, integer *maxch); +extern integer oifmke_(integer *im, shortint *pixfie, integer *maxch); +extern integer oifopn_(integer *kernel, integer *im, integer *oim, shortint *root, shortint *extn, shortint *ksectn, integer *clindx, integer *clsize, integer *acmode, integer *status); +extern integer oifopx_(integer *im, integer *status); +extern integer oifree_(integer *kernel, shortint *oldrot, shortint *oldexn, shortint *newrot, shortint *newexn, integer *status); +extern integer oiftrm_(shortint *s, integer *nchars); +extern integer oifupr_(integer *im, integer *status); +extern integer oifwrr_(integer *fd, integer *im, integer *htype); +extern integer ord1_(integer *m, real *b); +extern integer ord2_(integer *m, real *b); +extern integer osfnik_(shortint *osfn); +extern integer osfnms_(shortint *osfn, shortint *lockfe, shortint *timel1, shortint *timel2, integer *maxch); +extern integer osfnpe_(shortint *spposn, shortint *hoston, integer *maxch); +extern integer osfnrk_(shortint *osfn); +extern integer pagefe_(shortint *fname, shortint *prompt); +extern integer pagefs_(shortint *files); +extern integer pargb_(logical *bval); +extern integer pargc_(shortint *cval); +extern integer pargd_(doublereal *dval); +extern integer pargg_(doublereal *value, integer *dtype); +extern integer pargi_(integer *ival); +extern integer pargl_(integer *lval); +extern integer pargr_(real *rval); +extern integer pargs_(shortint *sval); +extern integer pargsr_(shortint *str); +extern integer pargx_(complex *xval); +extern integer patfit_(integer *delim, shortint *patstr, integer *ip, shortint *patbuf, integer *szpat, integer *op); +extern integer perim3_(integer *magr1, integer *mini1, integer *magr2, integer *mini2, integer *iwhich, real *var); +extern integer perim_(integer *majrx, integer *minrx, integer *majry, integer *minry); +extern integer periml_(integer *majrx, integer *minrx, integer *majry, integer *minry); +extern integer pggetr_(shortint *strval, integer *maxch); +extern integer pgpusd_(integer *cmd); +extern integer pgsett_(shortint *prompt, shortint *upromt, shortint *fname); +extern integer plascp_(integer *pl, integer *vs, integer *ve, integer *outfd); +extern integer plbox_(integer *pl, integer *x1, integer *y1, integer *x2, integer *y2, integer *rop); +extern integer plcire_(integer *pl, integer *x, integer *y, integer *radius, integer *rop); +extern integer plcler_(integer *pl); +extern integer plcloe_(integer *pl); +extern integer plcoms_(integer *pl); +extern integer pldebg_(integer *pl, integer *fd, integer *width, integer *what); +extern integer pldebt_(integer *fd, shortint *buf, integer *col, integer *firstl, integer *maxcol); +extern integer plfacs_(integer *kernel, shortint *root, shortint *extn, integer *acmode, integer *status); +extern integer plfcle_(integer *im, integer *status); +extern integer plfcoy_(integer *kernel, shortint *oldrot, shortint *oldexn, shortint *newrot, shortint *newexn, integer *status); +extern integer plfdee_(integer *kernel, shortint *root, shortint *extn, integer *status); +extern integer plfnul_(void); +extern integer plfopn_(integer *kernel, integer *im, integer *oim, shortint *root, shortint *extn, shortint *ksectn, integer *clindx, integer *clsize, integer *acmode, integer *status); +extern integer plfree_(integer *kernel, shortint *oldrot, shortint *oldexn, shortint *newrot, shortint *newexn, integer *status); +extern integer plfupr_(integer *im, integer *status); +extern integer plgete_(integer *pl, integer *v); +extern integer plglls_(integer *pl, integer *v, shortint *lldst, integer *lldeph, integer *npix, integer *rop); +extern integer plglpi_(integer *pl, integer *v, integer *pxdst, integer *pxdeph, integer *npix, integer *rop); +extern integer plglpl_(integer *pl, integer *v, integer *pxdst, integer *pxdeph, integer *npix, integer *rop); +extern integer plglps_(integer *pl, integer *v, shortint *pxdst, integer *pxdeph, integer *npix, integer *rop); +extern integer plglri_(integer *pl, integer *v, integer *rldst, integer *rldeph, integer *npix, integer *rop); +extern integer plglrl_(integer *pl, integer *v, integer *rldst, integer *rldeph, integer *npix, integer *rop); +extern integer plglrs_(integer *pl, integer *v, shortint *rldst, integer *rldeph, integer *npix, integer *rop); +extern integer plgsie_(integer *pl, integer *naxes, integer *axlen, integer *depth); +extern integer plline_(integer *pl, integer *x1, integer *y1, integer *x2, integer *y2, integer *width, integer *rop); +extern integer pllinl_(shortint *llsrc, integer *xs, integer *srcmal, shortint *lldst, integer *ds, integer *dstmal, shortint *llstn, integer *ss, shortint *llout, integer *npix, integer *rop); +extern integer pllinp_(shortint *llsrc, integer *xs, integer *srcmal, shortint *lldst, integer *ds, integer *dstmal, shortint *llout, integer *npix, integer *rop); +extern integer pllneg_(shortint *ll, integer *ld); +extern integer plload_(integer *pl, integer *bp); +extern integer plloaf_(integer *pl, shortint *mask, shortint *title, integer *maxch); +extern integer plloam_(integer *pl, shortint *imname, shortint *title, integer *maxch); +extern integer pllprs_(shortint *ll, integer *fd, shortint *label, integer *firstl, integer *maxcos); +extern integer plotif_(real *fx, real *fy, integer *ip); +extern integer plotit_(integer *ix, integer *iy, integer *ip); +extern integer plpixi_(integer *pxsrc, integer *xs, integer *srcmal, integer *pxdst, integer *ds, integer *dstmal, integer *npix, integer *rop); +extern integer plpixl_(integer *pxsrc, integer *xs, integer *srcmal, integer *pxdst, integer *ds, integer *dstmal, integer *npix, integer *rop); +extern integer plpixs_(shortint *pxsrc, integer *xs, integer *srcmal, shortint *pxdst, integer *ds, integer *dstmal, integer *npix, integer *rop); +extern integer plplls_(integer *pl, integer *v, shortint *llsrc, integer *lldeph, integer *npix, integer *rop); +extern integer plplpi_(integer *pl, integer *v, integer *pxsrc, integer *pxdeph, integer *npix, integer *rop); +extern integer plplpl_(integer *pl, integer *v, integer *pxsrc, integer *pxdeph, integer *npix, integer *rop); +extern integer plplps_(integer *pl, integer *v, shortint *pxsrc, integer *pxdeph, integer *npix, integer *rop); +extern integer plplri_(integer *pl, integer *v, integer *rlsrc, integer *rldeph, integer *npix, integer *rop); +extern integer plplrl_(integer *pl, integer *v, integer *rlsrc, integer *rldeph, integer *npix, integer *rop); +extern integer plplrs_(integer *pl, integer *v, shortint *rlsrc, integer *rldeph, integer *npix, integer *rop); +extern integer plpoit_(integer *pl, integer *x, integer *y, integer *rop); +extern integer plpoln_(integer *pl, integer *x, integer *y, integer *npts, integer *rop); +extern integer plrani_(integer *rlsrc, integer *xs, integer *srcmal, integer *rldst, integer *ds, integer *dstmal, integer *rlout, integer *npix, integer *rop); +extern integer plranl_(integer *rlsrc, integer *xs, integer *srcmal, integer *rldst, integer *ds, integer *dstmal, integer *rlout, integer *npix, integer *rop); +extern integer plrans_(shortint *rlsrc, integer *xs, integer *srcmal, shortint *rldst, integer *ds, integer *dstmal, shortint *rlout, integer *npix, integer *rop); +extern integer plrcle_(integer *plr); +extern integer plregp_(integer *pl, L_fp ufcn, integer *ufd, integer *y1, integer *y2, integer *rop); +extern integer plrget_(integer *plr, integer *bufp, integer *xsize, integer *ysize, integer *xblock, integer *yblock); +extern integer plrop_(integer *plsrc, integer *vssrc, integer *pldst, integer *vsdst, integer *vn, integer *rop); +extern integer plrpri_(integer *rl, integer *fd, shortint *label, integer *firstl, integer *maxcol); +extern integer plrprl_(integer *rl, integer *fd, shortint *label, integer *firstl, integer *maxcol); +extern integer plrprs_(shortint *rl, integer *fd, shortint *label, integer *firstl, integer *maxcol); +extern integer plrset_(integer *plr, integer *x1, integer *y1, integer *x2, integer *y2); +extern integer plsavf_(integer *pl, shortint *fname, shortint *title, integer *flags); +extern integer plsavm_(integer *pl, shortint *imname, shortint *title, integer *flags); +extern integer plsete_(integer *pl, integer *v); +extern integer plseti_(integer *pl, integer *param, integer *value); +extern integer plssie_(integer *pl, integer *naxes, integer *axlen, integer *depth); +extern integer plsslv_(integer *pl, integer *vs, integer *vn, integer *v, integer *ve); +extern integer plstel_(integer *plsrc, integer *vssrc, integer *pldst, integer *vsdst, integer *plstn, integer *vsstn, integer *vn, integer *rop); +extern integer plupde_(integer *pl, integer *v, shortint *ll); +extern integer plvald_(integer *pl); +extern integer pmascp_(integer *pl, integer *vs, integer *ve, integer *outfd); +extern integer pmbox_(integer *pl, integer *x1, integer *y1, integer *x2, integer *y2, integer *rop); +extern integer pmcire_(integer *pl, integer *x, integer *y, integer *radius, integer *rop); +extern integer pmcler_(integer *pl); +extern integer pmglls_(integer *pl, integer *v, shortint *lldst, integer *lldeph, integer *npix, integer *rop); +extern integer pmglpi_(integer *pl, integer *v, integer *pxdst, integer *pxdeph, integer *npix, integer *rop); +extern integer pmglpl_(integer *pl, integer *v, integer *pxdst, integer *pxdeph, integer *npix, integer *rop); +extern integer pmglps_(integer *pl, integer *v, shortint *pxdst, integer *pxdeph, integer *npix, integer *rop); +extern integer pmglri_(integer *pl, integer *v, integer *rldst, integer *rldeph, integer *npix, integer *rop); +extern integer pmglrl_(integer *pl, integer *v, integer *rldst, integer *rldeph, integer *npix, integer *rop); +extern integer pmglrs_(integer *pl, integer *v, shortint *rldst, integer *rldeph, integer *npix, integer *rop); +extern integer pmline_(integer *pl, integer *x1, integer *y1, integer *x2, integer *y2, integer *width, integer *rop); +extern integer pmplls_(integer *pl, integer *v, shortint *llraw, integer *lldeph, integer *npix, integer *rop); +extern integer pmplpi_(integer *pl, integer *v, integer *pxsrc, integer *pxdeph, integer *npix, integer *rop); +extern integer pmplpl_(integer *pl, integer *v, integer *pxsrc, integer *pxdeph, integer *npix, integer *rop); +extern integer pmplps_(integer *pl, integer *v, shortint *pxsrc, integer *pxdeph, integer *npix, integer *rop); +extern integer pmplri_(integer *pl, integer *v, integer *rlsrc, integer *rldeph, integer *npix, integer *rop); +extern integer pmplrl_(integer *pl, integer *v, integer *rlsrc, integer *rldeph, integer *npix, integer *rop); +extern integer pmplrs_(integer *pl, integer *v, shortint *rlsrc, integer *rldeph, integer *npix, integer *rop); +extern integer pmpoit_(integer *pl, integer *x, integer *y, integer *rop); +extern integer pmpoln_(integer *pl, integer *x, integer *y, integer *npts, integer *rop); +extern integer pmrcle_(integer *pmr); +extern integer pmrop_(integer *pmsrc, integer *vssrc, integer *pmdst, integer *vsdst, integer *vn, integer *rop); +extern integer pmrset_(integer *pmr, integer *x1, integer *y1, integer *x2, integer *y2); +extern integer pmsete_(integer *pl, integer *v); +extern integer pmseti_(integer *pl, integer *param, integer *value); +extern integer pmstel_(integer *pmsrc, integer *vssrc, integer *pmdst, integer *vsdst, integer *pmstn, integer *vsstn, integer *vn, integer *rop); +extern integer point3_(real *u, real *v, real *w); +extern integer point_(real *px, real *py); +extern integer points_(real *px, real *py, integer *np, integer *ic, integer *il); +extern integer pollce_(integer *fds); +extern integer pollcr_(integer *fds, integer *fd, integer *type__); +extern integer pollpt_(integer *fds); +extern integer pollst_(integer *fds, integer *fd, integer *type__); +extern integer pollzo_(integer *fds); +extern integer prchdr_(integer *pid, shortint *newdir); +extern integer prdumn_(shortint *osfn, integer *mode, integer *chan); +extern integer preal_(shortint *tval, real *rval); +extern integer prenvt_(integer *pid, shortint *envvar, shortint *valuer); +extern integer prkill_(integer *job); +extern integer pronic_(integer *vex, integer *nexthr); +extern integer proscd_(integer *pr, shortint *cmd); +extern integer prpsit_(void); +extern integer prredr_(integer *pid, integer *stream, integer *newfd); +extern integer prseti_(integer *pid, integer *param, integer *value); +extern integer prsigl_(integer *pid, integer *signal); +extern integer prupde_(integer *pid, shortint *messae, integer *flusht); +extern integer prvret_(shortint *name__, shortint *value); +extern integer przclr_(integer *chan, integer *status); +extern integer pscenr_(integer *ps, shortint *str); +extern integer pscloe_(integer *ps); +extern integer psdept_(integer *ps, shortint *line); +extern integer psesct_(shortint *in, shortint *out, integer *maxch); +extern integer psfone_(integer *ps, integer *fontse); +extern integer psfoor_(integer *ps, shortint *ledge, shortint *center, shortint *redge); +extern integer pshear_(integer *ps, shortint *ledge, shortint *center, shortint *redge); +extern integer psindt_(integer *ps, integer *nchars); +extern integer psioxr_(integer *fd, shortint *buf, integer *nchars); +extern integer pslink_(integer *ps, integer *fillfg); +extern integer psnewe_(integer *ps); +extern integer psoutt_(integer *ps, shortint *str, integer *fillfg); +extern integer pspage_(integer *ps, integer *page); +extern integer pspagk_(integer *ps); +extern integer psrigy_(integer *ps, shortint *str); +extern integer pssets_(integer *ps, real *left, real *right, real *top, real *bottom); +extern integer pssett_(integer *ps, integer *font); +extern integer pssety_(integer *ps, integer *justiy); +extern integer psspft_(integer *ps, integer *font); +extern integer pstese_(integer *ps, integer *nlines); +extern integer pstr_(shortint *sppstg); +extern integer pstrar_(integer *ps); +extern integer pswrig_(integer *ps); +extern integer pswrtk_(integer *ps, integer *curpos, shortint *str); +extern integer psxpos_(integer *ps, integer *xpos); +extern integer psym3_(real *u, real *v, real *w, integer *ichar, real *size, integer *idir, integer *itop, integer *iup); +extern integer psypos_(integer *ps, integer *ypos); +extern integer putcc_(integer *fd, shortint *ch); +extern integer putci_(integer *fd, integer *ch); +extern integer putlie_(integer *fd, shortint *linebf); +extern integer pwrit_(real *px, real *py, char *ch, integer *nc, integer *is, integer *io, integer *ic, ftnlen ch_len); +extern integer pwrity_(real *x, real *y, char *id, integer *n, integer *isize, integer *itheta, integer *icnt, ftnlen id_len); +extern integer pwry_(real *x, real *y, integer *id, integer *n, real *size, real *theta, integer *icnt); +extern integer pwrybd_(void); +extern integer pwrygt_(char *kchar, char *jchar, integer *index, integer *nsize, integer *ipoint, ftnlen kchar_len, ftnlen jchar_len); +extern integer pwryso_(char *jchar, integer *index, integer *nsize, ftnlen jchar_len); +extern integer pwrz_(real *x, real *y, real *z__, integer *id, integer *n, integer *isize, integer *lin3, integer *itop, integer *icnt); +extern integer pwrzgi_(char *kchar, char *jchar, integer *index, integer *nsize, integer *ipoint, ftnlen kchar_len, ftnlen jchar_len); +extern integer pwrzgs_(char *kchar, char *jchar, integer *index, integer *nsize, integer *ipoint, ftnlen kchar_len, ftnlen jchar_len); +extern integer pwrzgt_(char *kchar, char *jchar, integer *index, integer *nsize, integer *ipoint, ftnlen kchar_len, ftnlen jchar_len); +extern integer pwrzi_(real *x, real *y, real *z__, char *id, integer *n, integer *isize, integer *lin3, integer *itop, integer *icnt, ftnlen id_len); +extern integer pwrzoi_(char *jchar, integer *index, integer *nsize, ftnlen jchar_len); +extern integer pwrzos_(char *jchar, integer *index, integer *nsize, ftnlen jchar_len); +extern integer pwrzot_(char *jchar, integer *index, integer *nsize, ftnlen jchar_len); +extern integer pwrzs_(real *x, real *y, real *z__, char *id, integer *n, integer *isize, integer *lin3, integer *itop, integer *icnt, ftnlen id_len); +extern integer pwrzt_(real *x, real *y, real *z__, char *id, integer *n, integer *isize, integer *lin3, integer *itop, integer *icnt, ftnlen id_len); +extern integer q8qst4_(char *name__, char *lbrary, char *entry__, char *vrsion, ftnlen name_len, ftnlen lbrary_len, ftnlen entry_len, ftnlen vrsion_len); +extern integer qmscan_(integer *qm, shortint *fname, integer *flags); +extern integer qmscao_(integer *qm, integer *fd, integer *flags); +extern integer qmsetm_(integer *qm, shortint *param, shortint *valstr); +extern integer qmsets_(integer *qm, integer *qp); +extern integer qmupds_(integer *qm, integer *qp); +extern integer qpaddb_(integer *qp, shortint *param, logical *value, shortint *commet); +extern integer qpaddc_(integer *qp, shortint *param, shortint *value, shortint *commet); +extern integer qpaddd_(integer *qp, shortint *param, doublereal *value, shortint *commet); +extern integer qpaddf_(integer *qp, shortint *param, shortint *datate, integer *maxelm, shortint *commet, integer *flags); +extern integer qpaddi_(integer *qp, shortint *param, integer *value, shortint *commet); +extern integer qpaddl_(integer *qp, shortint *param, integer *value, shortint *commet); +extern integer qpaddr_(integer *qp, shortint *param, real *value, shortint *commet); +extern integer qpadds_(integer *qp, shortint *param, shortint *value, shortint *commet); +extern integer qpaddx_(integer *qp, shortint *param, complex *value, shortint *commet); +extern integer qpastr_(integer *qp, shortint *param, shortint *value, shortint *commet); +extern integer qpbind_(integer *qp); +extern integer qpcfnl_(integer *fl); +extern integer qpcloe_(integer *qp); +extern integer qpclot_(integer *gt); +extern integer qpcopf_(integer *oqp, shortint *oparam, integer *nqp, shortint *nparam); +extern integer qpcopy_(shortint *opoefe, shortint *npoefe); +extern integer qpdele_(shortint *poefie); +extern integer qpdelf_(integer *qp, shortint *param); +extern integer qpdsym_(integer *qp, integer *out); +extern integer qpexce_(integer *ex); +extern integer qpexde_(integer *ex, integer *etlast, integer *offset, integer *dtype); +extern integer qpexdg_(integer *ex, integer *out, integer *what); +extern integer qpexfe_(integer *ex, integer *pbsave, integer *dbsave); +extern integer qpexmk_(integer *ex, integer *pbsave, integer *dbsave); +extern integer qpexpn_(integer *ex, integer *opcode, integer *arg1, integer *arg2, integer *arg3); +extern integer qpfacs_(integer *kernel, shortint *root, shortint *extn, integer *acmode, integer *status); +extern integer qpfcle_(integer *im, integer *status); +extern integer qpfcos_(integer *im, integer *qp); +extern integer qpfcoy_(integer *kernel, shortint *oldrot, shortint *oldexn, shortint *newrot, shortint *newexn, integer *status); +extern integer qpfdee_(integer *kernel, shortint *root, shortint *extn, integer *status); +extern integer qpflur_(integer *qp); +extern integer qpfopn_(integer *kernel, integer *im, integer *oim, shortint *root, shortint *extn, shortint *ksectn, integer *clindx, integer *clsize, integer *acmode, integer *status); +extern integer qpfopx_(integer *im, integer *status); +extern integer qpfree_(integer *kernel, shortint *oldrot, shortint *oldexn, shortint *newrot, shortint *newexn, integer *status); +extern integer qpfupr_(integer *im, integer *status); +extern integer qpfwar_(integer *qpf, integer *im); +extern integer qpfwfr_(integer *qpf, integer *im); +extern integer qpfzcl_(integer *chan, integer *status); +extern integer qpfzop_(shortint *pkfn, integer *mode, integer *status); +extern integer qpfzrd_(integer *chan, shortint *obuf, integer *nbytes, integer *boffst); +extern integer qpfzst_(integer *chan, integer *param, integer *value); +extern integer qpfzwr_(integer *chan, shortint *ibuf, integer *nbytes, integer *boffst); +extern integer qpfzwt_(integer *chan, integer *status); +extern integer qpinht_(integer *nqp, integer *oqp, integer *out); +extern integer qpioce_(integer *io); +extern integer qpiolk_(integer *io, shortint *mask, integer *merge); +extern integer qpiomx_(integer *io, shortint *key); +extern integer qpiops_(integer *io, integer *iev, integer *nevens); +extern integer qpiosc_(integer *io); +extern integer qpiose_(integer *io, integer *vs, integer *ve, integer *ndim); +extern integer qpiosi_(integer *io, integer *param, integer *value); +extern integer qpiosr_(integer *io, shortint *expr); +extern integer qpiour_(integer *io, integer *param, real *value); +extern integer qpiowt_(integer *io, integer *evi); +extern integer qpmkfe_(shortint *poefie, shortint *extn, shortint *fname, integer *maxch); +extern integer qppare_(shortint *qpspec, shortint *root, integer *szroot, shortint *filter, integer *szfilr); +extern integer qppcle_(integer *fd); +extern integer qppstr_(integer *qp, shortint *param, shortint *strval); +extern integer qpputb_(integer *qp, shortint *param, logical *value); +extern integer qpputc_(integer *qp, shortint *param, shortint *value); +extern integer qpputd_(integer *qp, shortint *param, doublereal *value); +extern integer qpputi_(integer *qp, shortint *param, integer *value); +extern integer qpputl_(integer *qp, shortint *param, integer *value); +extern integer qpputr_(integer *qp, shortint *param, real *value); +extern integer qpputs_(integer *qp, shortint *param, shortint *value); +extern integer qpputx_(integer *qp, shortint *param, complex *value); +extern integer qprebd_(shortint *poefie); +extern integer qprene_(shortint *opoefe, shortint *npoefe); +extern integer qprenf_(integer *qp, shortint *param, shortint *newnae); +extern integer qpsavs_(integer *qp, integer *mw); +extern integer qpseel_(integer *fl, integer *pos); +extern integer qpseti_(integer *qp, integer *param, integer *value); +extern integer qpsetr_(integer *qp, integer *param, real *value); +extern integer qpsync_(integer *qp); +extern integer qpungk_(integer *gt, shortint *tokbuf); +extern integer qpwrie_(integer *qp, shortint *param, shortint *buf, integer *nelem, integer *first, shortint *datate); +extern integer r2tr_(integer *int__, real *b0, real *b1); +extern integer r2tx_(integer *nthpo, real *cr0, real *cr1, real *ci0, real *ci1); +extern integer r4syn_(integer *int__, real *b0, real *b1, real *b2, real *b3); +extern integer r4tr_(integer *int__, real *b0, real *b1, real *b2, real *b3); +extern integer r4tx_(integer *nthpo, real *cr0, real *cr1, real *cr2, real *cr3, real *ci0, real *ci1, real *ci2, real *ci3); +extern integer r8syn_(integer *int__, integer *nn, real *br0, real *br1, real *br2, real *br3, real *br4, real *br5, real *br6, real *br7, real *bi0, real *bi1, real *bi2, real *bi3, real *bi4, real *bi5, real *bi6, real *bi7); +extern integer r8tr_(integer *int__, integer *nn, real *br0, real *br1, real *br2, real *br3, real *br4, real *br5, real *br6, real *br7, real *bi0, real *bi1, real *bi2, real *bi3, real *bi4, real *bi5, real *bi6, real *bi7); +extern integer r8tx_(integer *nxtlt, integer *nthpo, integer *lengt, real *cr0, real *cr1, real *cr2, real *cr3, real *cr4, real *cr5, real *cr6, real *cr7, real *ci0, real *ci1, real *ci2, real *ci3, real *ci4, real *ci5, real *ci6, real *ci7); +extern integer realft_(real *data, integer *n, integer *isign); +extern integer reord_(real *cl, integer *ncl, real *c1, integer *mark, integer *nmg); +extern integer reset_(void); +extern integer resetn_(void); +extern integer retsr_(integer *irold); +extern integer rgadd_(integer *rg, shortint *rstr, integer *rmin, integer *rmax); +extern integer rgbind_(integer *rg, integer *nbin, doublereal *in, integer *nin, doublereal *out, integer *nout); +extern integer rgbinr_(integer *rg, integer *nbin, real *in, integer *nin, real *out, integer *nout); +extern integer rgdump_(integer *rg); +extern integer rgexcd_(integer *rg, doublereal *a, integer *nin, doublereal *b, integer *nout); +extern integer rgexcr_(integer *rg, real *a, integer *nin, real *b, integer *nout); +extern integer rgfree_(integer *rg); +extern integer rggxmd_(integer *gp, shortint *rstr, doublereal *x, integer *npts, integer *pltype); +extern integer rggxmr_(integer *gp, shortint *rstr, real *x, integer *npts, integer *pltype); +extern integer rginds_(integer *rg, integer *indics, integer *npts, integer *type__); +extern integer rginve_(integer *rg, integer *rmin, integer *rmax); +extern integer rgmere_(integer *rg); +extern integer rgordr_(integer *rg); +extern integer rgpacd_(integer *rg, doublereal *a, doublereal *b); +extern integer rgpacr_(integer *rg, real *a, real *b); +extern integer rgunpd_(integer *rg, doublereal *packed, doublereal *unpacd); +extern integer rgunpr_(integer *rg, real *packed, real *unpacd); +extern integer rgwtbd_(integer *rg, integer *nbin, doublereal *in, doublereal *wtin, integer *nin, doublereal *out, doublereal *wtout, integer *nout); +extern integer rgwtbr_(integer *rg, integer *nbin, real *in, real *wtin, integer *nin, real *out, real *wtout, integer *nout); +extern integer rgxadd_(integer *rg, shortint *rstr, doublereal *rvals, integer *npts); +extern integer rgxadr_(integer *rg, shortint *rstr, real *rvals, integer *npts); +extern integer rmcloe_(integer *rm); +extern integer rmdodi_(shortint *leaf, shortint *box, real *window, shortint *outlit, shortint *nrlist); +extern integer rmdoui_(shortint *leaf, shortint *box, shortint *nrnew, shortint *outnet, real *in, real *window, shortint *outlit, shortint *nrlist); +extern integer rmdowf_(shortint *leaf, shortint *box, real *window, shortint *outlit, shortint *nrlist); +extern integer rmdump_(integer *rm, logical *unsord, logical *sorted, logical *in, logical *out); +extern integer rmpack_(integer *rm, integer *datast); +extern integer rmscle_(integer *rm); +extern integer rmsdup_(integer *rm, logical *unsord, logical *sorted, logical *in, logical *out); +extern integer rmsifp_(shortint *l, shortint *r__, real *window, shortint *outlit, shortint *nrlist); +extern integer rmswap_(shortint *l, shortint *r__, real *window, shortint *outlit, shortint *nrlist); +extern integer rmtcle_(integer *rm); +extern integer rmtdup_(integer *rm, logical *unsord, logical *sorted, logical *in, logical *out); +extern integer rmtort_(shortint *leaf, shortint *box, shortint *nrnew, shortint *outnet, real *in, real *window, shortint *outlit, shortint *nrlist); +extern integer rmunpk_(integer *rm, integer *datast); +extern integer rmuodi_(shortint *leaf, shortint *box, shortint *nrnew, shortint *outnet, real *in, real *window, shortint *outlit, shortint *nrlist); +extern integer rmuoui_(shortint *leaf, shortint *box, real *window, shortint *outlit, shortint *nrlist); +extern integer rmuptf_(shortint *leaf, shortint *box, real *window, shortint *outlit, shortint *nrlist); +extern integer rngadd_(integer *rg, shortint *rstr, real *r1, real *r2, real *dr); +extern integer rngcle_(integer *rg); +extern integer rngerr_(integer *errnum, shortint *rstr, real *r1, real *r2, real *dr, integer *rg); +extern integer salloc_(integer *outpur, integer *nelem, integer *datate); +extern integer sbytes_(integer *bufout, integer *bufin, integer *index, integer *size, integer *skip, integer *count); +extern integer scanc_(shortint *cval); +extern integer set3_(real *xa, real *xb, real *ya, real *yb, real *ulo, real *uhi, real *vlo, real *vhi, real *wlo, real *whi, real *eye); +extern integer set3d_(real *eye, real *ulo, real *uhi, real *vlo, real *vhi, real *wlo, real *whi); +extern integer set_(real *vl, real *vr, real *vb, real *vt, real *wl, real *wr, real *wb, real *wt, integer *lf); +extern integer seter_(char *messg, integer *nerr, integer *iopt, ftnlen messg_len); +extern integer setfp_(integer *im, integer *fp); +extern integer seti_(integer *ix, integer *iy); +extern integer setr_(real *xmin, real *xmax, real *ymin, real *ymax, real *zmin, real *zmax, real *r0); +extern integer setusv_(char *vn, integer *iv, ftnlen vn_len); +extern integer sfree_(integer *oldsp); +extern integer sgchdw_(integer *mx, integer *my); +extern integer sgchfh_(void); +extern integer sgchme_(integer *mx, integer *my); +extern integer sgeprf_(integer *number, shortint *memory, integer *iop, integer *top, shortint *progrm, integer *pc); +extern integer sgespc_(integer *tr, integer *gki, integer *fn, shortint *instrn, integer *bp, integer *buftop, integer *deletn); +extern integer sgewsn_(integer *fn, shortint *instrn, real *x1, real *y1, real *x2, real *y2); +extern integer sgfpor_(integer *fd); +extern integer sgfttr_(integer *fd, shortint *buf, integer *maxch, integer *status); +extern integer sgibcl_(shortint *m, integer *nx, integer *ny, integer *ax1, integer *ay1, integer *ax2, integer *ay2); +extern integer sgical_(integer *dummy); +extern integer sgicle_(void); +extern integer sgiclr_(integer *dummy); +extern integer sgicls_(shortint *devnae, integer *n); +extern integer sgicor_(integer *index); +extern integer sgidae_(integer *gout, shortint *p, integer *npts, integer *ltype); +extern integer sgiese_(integer *fn, shortint *instrn, integer *nwords); +extern integer sgifat_(shortint *gki); +extern integer sgifia_(shortint *p, integer *npts); +extern integer sgiflh_(integer *dummy); +extern integer sgifot_(integer *font); +extern integer sgigey_(integer *nx, integer *ny, integer *x1, integer *y1, integer *x2, integer *y2); +extern integer sgiint_(integer *tty, shortint *devnae); +extern integer sgilie_(integer *index); +extern integer sgimcl_(shortint *m, integer *nx, integer *ny, integer *ax1, integer *ay1, integer *ax2, integer *ay2); +extern integer sgiopn_(shortint *devnae, integer *dd); +extern integer sgiops_(shortint *devnae, integer *n, integer *mode); +extern integer sgiplt_(shortint *gki); +extern integer sgipmt_(shortint *gki); +extern integer sgipoe_(shortint *p, integer *npts); +extern integer sgipor_(shortint *p, integer *npts); +extern integer sgipuy_(shortint *m, integer *nx, integer *ny, integer *ax1, integer *ay1, integer *ax2, integer *ay2); +extern integer sgiret_(void); +extern integer sgitet_(integer *xc, integer *yc, shortint *text, integer *n); +extern integer sgitxt_(shortint *gki); +extern integer sgkcle_(integer *fd); +extern integer sgkdrw_(integer *fd, integer *ax, integer *ay); +extern integer sgkflh_(integer *fd); +extern integer sgkfre_(integer *fd); +extern integer sgklih_(integer *fd, integer *width); +extern integer sgkmke_(shortint *root, integer *num, shortint *outstr, integer *maxch); +extern integer sgkmoe_(integer *fd, integer *x, integer *y); +extern integer sgkver_(integer *ax1, integer *ay1, integer *ax2, integer *ay2); +extern integer sgmgeg_(shortint *gim); +extern integer sgmiod_(shortint *gim); +extern integer sgmioe_(shortint *gim); +extern integer sgmout_(shortint *cap, shortint *gim, integer *nargs); +extern integer sgmqur_(shortint *gim); +extern integer sgmquy_(shortint *queryp, shortint *gim, integer *nargs, shortint *retvap, shortint *retval, integer *nout); +extern integer sgmrep_(shortint *gim); +extern integer sgmres_(shortint *gim); +extern integer sgmwie_(integer *width, integer *height); +extern integer sgmwrp_(shortint *gim); +extern integer sgmwrs_(shortint *gim); +extern integer simaxi_(integer *a, integer *na, real *x, integer *b, integer *nb); +extern integer simaxr_(real *a, integer *na, real *x, real *b, integer *nb); +extern integer simaxs_(shortint *a, integer *na, real *x, shortint *b, integer *nb); +extern integer sisami_(integer *a, integer *b, real *x, integer *npix); +extern integer sisamr_(real *a, real *b, real *x, integer *npix); +extern integer sisams_(shortint *a, shortint *b, real *x, integer *npix); +extern integer skcloe_(integer *coo); +extern integer skctym_(integer *coo, integer *im); +extern integer skenws_(integer *coo, shortint *wcsstr, integer *maxch); +extern integer skequl_(integer *cooin, integer *cooout, doublereal *ilng, doublereal *ilat, doublereal *ipmlng, doublereal *ipmlat, doublereal *px, doublereal *rv, doublereal *olng, doublereal *olat); +extern integer skiipt_(shortint *label, shortint *images, integer *mw, integer *coo); +extern integer skiiwe_(integer *fd, shortint *label, shortint *images, integer *mw, integer *coo); +extern integer skimpt_(shortint *label, shortint *images, integer *ctype, integer *lngax, integer *latax, integer *wtype, integer *ptype, integer *radecs, doublereal *equinx, doublereal *epoch); +extern integer skimwe_(integer *fd, shortint *label, shortint *images, integer *ctype, integer *lngax, integer *latax, integer *wtype, integer *ptype, integer *radecs, doublereal *equinx, doublereal *epoch); +extern integer skinpt_(shortint *label, shortint *system, integer *ctype, integer *radecs, doublereal *equinx, doublereal *epoch); +extern integer skinwe_(integer *fd, shortint *label, shortint *system, integer *ctype, integer *radecs, doublereal *equinx, doublereal *epoch); +extern integer sklltn_(integer *cooin, integer *cooout, doublereal *ilng, doublereal *ilat, doublereal *ipmlng, doublereal *ipmlat, doublereal *px, doublereal *rv, doublereal *olng, doublereal *olat); +extern integer sksavm_(integer *coo, integer *mw, integer *im); +extern integer sksetd_(integer *coo, integer *param, doublereal *value); +extern integer skseti_(integer *coo, integer *param, integer *value); +extern integer sksets_(integer *coo, integer *param, shortint *value); +extern integer skstas_(integer *coo, integer *param, shortint *value, integer *maxch); +extern integer skultn_(integer *cooin, integer *cooout, doublereal *ilng, doublereal *ilat, doublereal *olng, doublereal *olat, integer *npts); +extern integer smark_(integer *oldsp); +extern integer sprinf_(shortint *outstr, integer *maxch, shortint *formag); +extern integer srfabd_(void); +extern integer srface_(real *x, real *y, real *z__, integer *m, integer *mx, integer *nx, integer *ny, real *s, real *stereo); +extern integer srfgk_(real *x, real *y, real *z__, integer *m, integer *mx, integer *nx, integer *ny, real *s, real *stereo); +extern integer srftet_(void); +extern integer sscan_(shortint *str); +extern integer stcloe_(integer *stp); +extern integer stcntr_(real *z__, integer *l, integer *m, integer *n, real *conv); +extern integer stfacs_(integer *kernel, shortint *root, shortint *extn, integer *acmode, integer *status); +extern integer stfadr_(integer *im, shortint *pname, integer *dtype, integer *plen, shortint *pval, integer *pno); +extern integer stfcle_(integer *im, integer *status); +extern integer stfcos_(integer *stf, integer *spool, integer *gpb, integer *user); +extern integer stfcoy_(integer *kernel, shortint *oroot, shortint *oextn, shortint *nroot, shortint *nextn, integer *status); +extern integer stfdee_(integer *kernel, shortint *root, shortint *extn, integer *status); +extern integer stfgeb_(shortint *card, integer *bval); +extern integer stfgei_(shortint *card, integer *ival); +extern integer stfgen_(integer *im, integer *oim, integer *acmode, shortint *outstr, integer *maxch); +extern integer stfges_(shortint *card, shortint *outstr, integer *maxch); +extern integer stfget_(shortint *card, shortint *commet, integer *maxch); +extern integer stfins_(integer *im); +extern integer stfmeb_(integer *nim, integer *oim); +extern integer stfmke_(shortint *hdrrot, shortint *hdrexn, shortint *pixfne, integer *maxch); +extern integer stfnee_(integer *im); +extern integer stfopn_(integer *kernel, integer *im, integer *oim, shortint *root, shortint *extn, shortint *ksectn, integer *grarg, integer *gcarg, integer *acmode, integer *status); +extern integer stfopx_(integer *im, integer *status); +extern integer stforb_(integer *ostf, integer *nstf); +extern integer stfrdr_(integer *im, integer *group, integer *acmode); +extern integer stfree_(integer *stp, integer *marker); +extern integer stfrek_(integer *im); +extern integer stfrfr_(integer *im, integer *fits, integer *fitsln); +extern integer stfrgb_(integer *im, integer *group, integer *acmode, real *datamn, real *datamx); +extern integer stfrne_(integer *kernel, shortint *oroot, shortint *oextn, shortint *nroot, shortint *nextn, integer *status); +extern integer stfupr_(integer *im, integer *status); +extern integer stfwfr_(integer *im); +extern integer stfwgb_(integer *im, integer *group, real *datamn, real *datamx); +extern integer stgcal_(integer *dummy); +extern integer stgcle_(void); +extern integer stgclr_(integer *dummy); +extern integer stgcls_(shortint *devnae, integer *n); +extern integer stgct1_(shortint *cap, integer *arg1); +extern integer stgct2_(shortint *cap, integer *arg1, integer *arg2); +extern integer stgct3_(shortint *cap, integer *arg1, integer *arg2, integer *arg3); +extern integer stgctl_(shortint *cap); +extern integer stgdes_(integer *flags); +extern integer stgdrr_(shortint *ch, integer *x, integer *y, integer *xsize, integer *ysize, integer *orien, integer *font); +extern integer stgdrw_(integer *x, integer *y); +extern integer stgese_(integer *fn, shortint *instrn, integer *nwords); +extern integer stgfat_(shortint *gki); +extern integer stgfia_(shortint *p, integer *npts); +extern integer stgflh_(integer *dummy); +extern integer stggdb_(void); +extern integer stggeb_(void); +extern integer stgger_(integer *cursor); +extern integer stggey_(integer *nx, integer *ny, integer *x1, integer *y1, integer *x2, integer *y2); +extern integer stggrm_(integer *stream); +extern integer stgint_(integer *tty, shortint *devnae); +extern integer stglor_(integer *newcur); +extern integer stgmoe_(integer *x, integer *y); +extern integer stgonr_(integer *errcoe); +extern integer stgont_(integer *vex, integer *nexthr); +extern integer stgopn_(shortint *devnae, integer *dd, integer *in, integer *out, integer *xres, integer *yres, integer *hardcr); +extern integer stgops_(shortint *devnae, integer *n, integer *mode); +extern integer stgou2_(integer *fd, shortint *progrm, integer *arg1, integer *arg2); +extern integer stgour_(shortint *cap, shortint *strval); +extern integer stgplt_(shortint *gki); +extern integer stgpmt_(shortint *gki); +extern integer stgpoe_(shortint *p, integer *npts); +extern integer stgpor_(shortint *p, integer *npts); +extern integer stgpue_(integer *fd, shortint *text); +extern integer stgpuy_(shortint *m, integer *nx, integer *ny, integer *ax1, integer *ay1, integer *ax2, integer *ay2); +extern integer stgrdr_(integer *tty, integer *cursor, integer *outpuc, integer *cn, integer *key, integer *sx, integer *sy, integer *raster, integer *rx, integer *ry); +extern integer stgren_(integer *xres, integer *yres); +extern integer stgrer_(integer *cursor, integer *cn, integer *key, integer *sx, integer *sy, integer *raster, integer *rx, integer *ry); +extern integer stgres_(integer *flags); +extern integer stgret_(void); +extern integer stgser_(integer *x, integer *y, integer *cursor); +extern integer stgtet_(integer *xc, integer *yc, shortint *text, integer *n); +extern integer stgtxt_(shortint *gki); +extern integer stgtxy_(integer *qualiy); +extern integer stgunn_(shortint *gki); +extern integer stgwry_(integer *fd, shortint *text, integer *nchars); +extern integer stinfo_(integer *stp, integer *fd, integer *verboe); +extern integer stkmkg_(integer *curseg, integer *sp, integer *segmee); +extern integer stline_(real *z__, integer *ll, integer *mm, integer *nn, real *conv); +extern integer stmark_(integer *stp, integer *marker); +extern integer strcle_(integer *fd); +extern integer strdeb_(shortint *line, shortint *outlie, integer *maxch, integer *tabsie); +extern integer strenb_(shortint *line, shortint *outlie, integer *maxch, integer *tabsie); +extern integer strlwr_(shortint *a); +extern integer strmln_(real *u, real *v, real *work, integer *imax, integer *iptsx, integer *jptsy, integer *nset, integer *ier); +extern integer strsee_(integer *fd, integer *mode); +extern integer strsrt_(integer *x, shortint *sb, integer *nstr); +extern integer strtbl_(integer *fd, shortint *buf, integer *strp, integer *nstr, integer *firstl, integer *lastcl, integer *maxch, integer *ncol); +extern integer strupr_(shortint *str); +extern integer stsave_(integer *stp, integer *fd); +extern integer stsque_(integer *stp); +extern integer sttyco_(shortint *args, integer *ttin, integer *ttout, integer *outfd); +extern integer sttyet_(shortint *envvar, shortint *value); +extern integer sttynm_(integer *ttin, integer *ttout, shortint *termil); +extern integer sttyse_(integer *ttin, integer *ttout, integer *tty); +extern integer sttysm_(integer *ttin, integer *ttout, integer *fd, integer *all); +extern integer sttytt_(integer *ttin, integer *ttout, shortint *termil); +extern integer stxchs_(integer *tx, integer *ch, integer *cw, integer *hwsz, logical *hard, integer *orien); +extern integer syserr_(integer *errcoe); +extern integer sysers_(integer *errcoe, shortint *usersg); +extern integer sysges_(shortint *fname); +extern integer sysgsg_(shortint *args, integer *ip, shortint *outstr, integer *maxch); +extern integer sysid_(shortint *outstr, integer *maxch); +extern integer sysmte_(integer *savete); +extern integer syspac_(integer *errcoe, shortint *errmsg); +extern integer syspat_(shortint *args, integer *ip, logical *skip); +extern integer syspte_(integer *fd, shortint *opstr, integer *savete); +extern integer sysret_(shortint *args, integer *ip); +extern integer syssct_(integer *cmdin, shortint *iargs); +extern integer tautog_(integer *ierror); +extern integer tautoh_(void); +extern integer tcnqck_(integer *ierror); +extern integer tcnsmt_(integer *ierror); +extern integer tcnsup_(integer *ierror); +extern integer tconan_(integer *ierror); +extern integer tconaq_(integer *ierror); +extern integer tconas_(integer *ierror); +extern integer tconrc_(void); +extern integer tconre_(integer *nplot, integer *ierror); +extern integer tconrn_(void); +extern integer tconrq_(void); +extern integer tconrs_(void); +extern integer tdashc_(integer *ierror); +extern integer tdashh_(void); +extern integer tdashl_(integer *ierror); +extern integer tdashp_(integer *ierror); +extern integer tdashr_(void); +extern integer tdashs_(integer *ierror); +extern integer thaftn_(void); +extern integer thafto_(integer *ierror); +extern integer threbd_(void); +extern integer tick3_(integer *mag, integer *min__); +extern integer tick43_(integer *magu, integer *minu, integer *magv, integer *minv, integer *magw, integer *minw); +extern integer tick4_(integer *lmajx, integer *lminx, integer *lmajy, integer *lminy); +extern integer ticks_(integer *lmaj, integer *lmin); +extern integer tirafs_(void); +extern integer tisohr_(integer *ierror); +extern integer tisosf_(void); +extern integer tisosr_(integer *nplot, integer *ierror); +extern integer toldao_(void); +extern integer tprzs_(void); +extern integer tpwriy_(void); +extern integer tpwry_(integer *ierror); +extern integer tpwrzi_(integer *ierror); +extern integer tpwrzs_(integer *ierror); +extern integer tpwrzt_(integer *ierror); +extern integer tr32_(real *x, real *y, integer *mx, integer *my); +extern integer trn32i_(real *u, real *v, real *w, real *xt, real *yt, real *zt, integer *ient); +extern integer trn32s_(real *x, real *y, real *z__, real *xt, real *yt, real *zt, integer *iflag); +extern integer trn32t_(real *u, real *v, real *w, real *xt, real *yt, real *zt, integer *ient); +extern integer tsleep_(integer *secons); +extern integer tsrfac_(integer *nplot, integer *ierror); +extern integer tsrftt_(void); +extern integer tst3d2_(void); +extern integer tstrml_(integer *ierror); +extern integer tstrmn_(void); +extern integer tsurfe_(void); +extern integer tthre2_(void); +extern integer tthred_(void); +extern integer tthree_(integer *ierror); +extern integer ttseti_(integer *fd, integer *param, integer *value); +extern integer ttsets_(integer *fd, integer *param, shortint *svalue); +extern integer ttybre_(integer *fd, integer *tty, integer *ostrie, integer *op, integer *sotype, logical *soseen); +extern integer ttycds_(integer *tty); +extern integer ttycle_(integer *tty); +extern integer ttycln_(integer *fd, integer *tty); +extern integer ttyclr_(integer *fd, integer *tty); +extern integer ttydee_(shortint *device, shortint *ldevie, integer *maxch); +extern integer ttydey_(integer *fd, integer *tty, integer *delay); +extern integer ttyfey_(integer *fd, shortint *device, integer *tty); +extern integer ttygoo_(integer *fd, integer *tty, integer *col, integer *line); +extern integer ttygpe_(integer *fd, integer *tty, shortint *text, integer *mapcc); +extern integer ttygse_(integer *in, integer *out, integer *tty, integer *width, integer *height); +extern integer ttyins_(integer *tty, integer *tcapce, integer *tcapix, integer *ncaps); +extern integer ttyint_(integer *fd, integer *tty); +extern integer ttypue_(integer *fd, integer *tty, shortint *text, integer *mapcc); +extern integer ttypus_(integer *fd, integer *tty, shortint *ctrlsr, integer *afflnt); +extern integer ttysce_(integer *tty, shortint *termce, shortint *devnae); +extern integer ttysei_(integer *tty, integer *paramr, integer *value); +extern integer ttyso_(integer *fd, integer *tty, integer *onflag); +extern integer ttywre_(integer *fd, integer *tty, shortint *ctrlsr, integer *nchars, integer *afflnt); +extern integer tvelvc_(integer *nplot, integer *ierror); +extern integer tvelvt_(void); +extern integer twofft_(real *data1, real *data2, real *fft1, real *fft2, integer *n); +extern integer uerrbd_(void); +extern integer uliber_(integer *errcode, char *pkerrmsg, integer *msglen, ftnlen pkerrmsg_len); +extern integer ungete_(integer *fd, shortint *str); +extern integer ungeti_(integer *fd, integer *ch); +extern integer unread_(integer *fd, shortint *buf, integer *nchars); +extern integer utilbd_(void); +extern integer vect3_(real *u, real *v, real *w); +extern integer vectd_(real *x, real *y); +extern integer vector_(real *px, real *py); +extern integer veldat_(void); +extern integer velvct_(real *u, integer *lu, real *v, integer *lv, integer *m, integer *n, real *flo, real *hi, integer *nset, integer *length, integer *ispv, real *spv); +extern integer velvec_(real *u, integer *lu, real *v, integer *lv, integer *m, integer *n, real *flo, real *hi, integer *nset, integer *ispv, real *spv); +extern integer vfncle_(integer *vfd, integer *update); +extern integer vfnene_(shortint *vfn, integer *ip, shortint *root, integer *lenrot, shortint *extn, integer *lenexn); +extern integer vfnexr_(shortint *vfn, shortint *outstr, integer *maxch); +extern integer vfnman_(shortint *irafen, shortint *osextn, integer *maxch); +extern integer vfnsqe_(shortint *root, shortint *outstr, integer *maxch); +extern integer vfntre_(shortint *rawvfn, shortint *osdir, integer *lenosr, shortint *root, integer *lenrot, shortint *extn, integer *lenexn); +extern integer vfnunn_(shortint *osextn, shortint *irafen, integer *maxch); +extern integer vmallc_(integer *ubufp, integer *nelems, integer *dtype); +extern integer vvfnee_(integer *ch, shortint *outbuf, integer *op, integer *maxch); +extern integer vvfnip_(shortint *map, shortint *iraf, shortint *os, integer *nextn, integer *maxexn); +extern integer vvfnis_(shortint *ex, shortint *extn, integer *maxexn, integer *nextn); +extern integer vvfnre_(integer *vfd); +extern integer wcslab_(integer *mw, real *logx1, real *logx2, real *logy1, real *logy2, integer *gp, shortint *title); +extern integer wfaitd_(integer *fc, doublereal *p, doublereal *w); +extern integer wfaitt_(integer *fc, integer *dir); +extern integer wfaitv_(integer *fc, doublereal *w, doublereal *p); +extern integer wfarcd_(integer *fc, doublereal *p, doublereal *w); +extern integer wfarct_(integer *fc, integer *dir); +extern integer wfarcv_(integer *fc, doublereal *w, doublereal *p); +extern integer wfcard_(integer *fc, doublereal *p, doublereal *w); +extern integer wfcart_(integer *fc, integer *dir); +extern integer wfcarv_(integer *fc, doublereal *w, doublereal *p); +extern integer wfcscd_(integer *fc, doublereal *p, doublereal *w); +extern integer wfcsct_(integer *fc, integer *dir); +extern integer wfcscv_(integer *fc, doublereal *w, doublereal *p); +extern integer wfdecs_(integer *fc, integer *ira, integer *idec); +extern integer wffnld_(shortint *name__, integer *flags, integer *init, integer *destry, integer *fwd, integer *inv); +extern integer wfglsd_(integer *fc, doublereal *p, doublereal *w); +extern integer wfglst_(integer *fc, integer *dir); +extern integer wfglsv_(integer *fc, doublereal *w, doublereal *p); +extern integer wfgsbb_(doublereal *x, integer *order, doublereal *k1, doublereal *k2, doublereal *basis); +extern integer wfgsbg_(doublereal *x, integer *order, doublereal *k1, doublereal *k2, doublereal *basis); +extern integer wfgsbl_(doublereal *x, integer *order, doublereal *k1, doublereal *k2, doublereal *basis); +extern integer wfgsce_(integer *sf); +extern integer wfgscf_(integer *sf, doublereal *coeff, integer *ncoeff); +extern integer wfgsre_(integer *sf, doublereal *fit); +extern integer wfinit_(void); +extern integer wfmerd_(integer *fc, doublereal *p, doublereal *w); +extern integer wfmert_(integer *fc, integer *dir); +extern integer wfmerv_(integer *fc, doublereal *w, doublereal *p); +extern integer wfmold_(integer *fc, doublereal *p, doublereal *w); +extern integer wfmolt_(integer *fc, integer *dir); +extern integer wfmolv_(integer *fc, doublereal *w, doublereal *p); +extern integer wfmspd_(integer *fc, doublereal *in, doublereal *out); +extern integer wfmspf_(shortint *atval, integer *coeff, doublereal *xmin, doublereal *xmax); +extern integer wfmspt_(integer *fc, integer *dir); +extern integer wfmspv_(integer *fc, doublereal *in, doublereal *out); +extern integer wfmspy_(integer *fc); +extern integer wfpard_(integer *fc, doublereal *p, doublereal *w); +extern integer wfpart_(integer *fc, integer *dir); +extern integer wfparv_(integer *fc, doublereal *w, doublereal *p); +extern integer wfpcod_(integer *fc, doublereal *p, doublereal *w); +extern integer wfpcot_(integer *fc, integer *dir); +extern integer wfpcov_(integer *fc, doublereal *w, doublereal *p); +extern integer wfqscd_(integer *fc, doublereal *p, doublereal *w); +extern integer wfqsct_(integer *fc, integer *dir); +extern integer wfqscv_(integer *fc, doublereal *w, doublereal *p); +extern integer wfsind_(integer *fc, doublereal *p, doublereal *w); +extern integer wfsint_(integer *fc, integer *dir); +extern integer wfsinv_(integer *fc, doublereal *w, doublereal *p); +extern integer wfsmpn_(integer *fc, doublereal *ax, doublereal *ay); +extern integer wfsmpt_(integer *fc, integer *dir); +extern integer wfstgd_(integer *fc, doublereal *p, doublereal *w); +extern integer wfstgt_(integer *fc, integer *dir); +extern integer wfstgv_(integer *fc, doublereal *w, doublereal *p); +extern integer wftand_(integer *fc, doublereal *p, doublereal *w); +extern integer wftant_(integer *fc, integer *dir); +extern integer wftanv_(integer *fc, doublereal *w, doublereal *p); +extern integer wftnxd_(integer *fc, doublereal *p, doublereal *w); +extern integer wftnxt_(integer *fc, integer *dir); +extern integer wftnxv_(integer *fc, doublereal *w, doublereal *p); +extern integer wftnxy_(integer *fc); +extern integer wftscd_(integer *fc, doublereal *p, doublereal *w); +extern integer wftsct_(integer *fc, integer *dir); +extern integer wftscv_(integer *fc, doublereal *w, doublereal *p); +extern integer wfzead_(integer *fc, doublereal *p, doublereal *w); +extern integer wfzeat_(integer *fc, integer *dir); +extern integer wfzeav_(integer *fc, doublereal *w, doublereal *p); +extern integer wfzpnd_(integer *fc, doublereal *p, doublereal *w); +extern integer wfzpnt_(integer *fc, integer *dir); +extern integer wfzpnv_(integer *fc, doublereal *w, doublereal *p); +extern integer wfzpny_(integer *fc); +extern integer wfzpxd_(integer *fc, doublereal *p, doublereal *w); +extern integer wfzpxt_(integer *fc, integer *dir); +extern integer wfzpxv_(integer *fc, doublereal *w, doublereal *p); +extern integer wfzpxy_(integer *fc); +extern integer wlaxie_(doublereal *x0, doublereal *y0, doublereal *x1, doublereal *y1, doublereal *screey, doublereal *nx, doublereal *ny); +extern integer wlcons_(doublereal *screey, doublereal *x, doublereal *y, integer *vectoe); +extern integer wldece_(integer *mw, shortint *input, integer *axno); +extern integer wldesy_(integer *wd); +extern integer wldete_(integer *systee, doublereal *polepn, doublereal *screey, integer *graphe); +extern integer wldms_(doublereal *arcrad, shortint *dms, shortint *units, integer *maxch, integer *precin, logical *all); +extern integer wlgend_(doublereal *minimm, doublereal *maximm, doublereal *range, doublereal *lbegin, doublereal *lend, doublereal *interl); +extern integer wlgete_(integer *mw, integer *systee, doublereal *logicr, doublereal *worldr, integer *flip); +extern integer wlgetf_(doublereal *val1, doublereal *val2, doublereal *min__, doublereal *max__, doublereal *diff, logical *wrap); +extern integer wlgetn_(integer *lwct, integer *flip, doublereal *polepn, doublereal *screey, doublereal *poleln, integer *badlae); +extern integer wlgra1_(integer *wd, doublereal *x, doublereal *ymin, doublereal *ymax, integer *gridon, integer *label, real *tickse); +extern integer wlgra2_(integer *wd, doublereal *y, doublereal *xmin, doublereal *xmax, integer *gridon, integer *label, real *tickse); +extern integer wlgras_(integer *wd); +extern integer wlgrid_(integer *wd); +extern integer wlgris_(integer *wd); +extern integer wlgrrs_(integer *wd); +extern integer wlhms_(doublereal *rarad, shortint *hms, shortint *units, integer *maxch, integer *precin, logical *all); +extern integer wlimdt_(integer *frame, integer *im, real *c1, real *c2, real *l1, real *l2, real *vl, real *vr, real *vb, real *vt); +extern integer wlintg_(doublereal *value, integer *systee, integer *whichs, shortint *output); +extern integer wll2wd_(integer *lwct, integer *flip, doublereal *lx, doublereal *ly, doublereal *wx, doublereal *wy, integer *npts); +extern integer wllabe_(shortint *input, logical *flag__); +extern integer wllabl_(integer *wd); +extern integer wllabs_(integer *wd, integer *axis, integer *side, real *offset); +extern integer wlmapt_(integer *gp, real *c1, real *c2, real *l1, real *l2, real *ux1, real *ux2, real *uy1, real *uy2, logical *fill); +extern integer wlmark_(integer *gp, integer *wcs, real *tickse, integer *in, doublereal *x0, doublereal *y0, doublereal *x1, doublereal *y1, doublereal *sx, doublereal *sy, doublereal *tickx, doublereal *ticky); +extern integer wlpoil_(integer *wd, doublereal *x1, doublereal *y1, doublereal *x2, doublereal *y2, integer *axis, doublereal *axisve, integer *gridon, integer *label, real *tickse); +extern integer wlpoll_(integer *wd); +extern integer wlpoln_(integer *wlct, integer *flip, doublereal *longie, logical *north, integer *systee, doublereal *polepn); +extern integer wlputs_(logical *sidefs, shortint *output, integer *maxlen); +extern integer wlrare_(doublereal *ra, integer *nvalus, doublereal *min__, doublereal *max__, doublereal *diff); +extern integer wlrote_(real *x, real *y, integer *npts, real *angle, real *nx, real *ny); +extern integer wlroua_(doublereal *longmn, doublereal *longmx, doublereal *longrn, integer *numtry, doublereal *minimm, doublereal *maximm, doublereal *majorl); +extern integer wlrouc_(doublereal *latmin, doublereal *latmax, doublereal *latran, integer *numtry, doublereal *minimm, doublereal *maximm, doublereal *majorl); +extern integer wlrous_(integer *wd, integer *axis, doublereal *minimm, doublereal *maximm, doublereal *range); +extern integer wlsetp_(integer *wd); +extern integer wlsidg_(integer *side, shortint *output, integer *maxlen); +extern integer wlskya_(integer *wd, doublereal *ax1ary, integer *npoins, doublereal *polepn, logical *north, doublereal *ax1min, doublereal *ax1max, doublereal *ax1ran, doublereal *ax2min, doublereal *ax2max, doublereal *ax2ran); +extern integer wltite_(integer *gp, shortint *title, integer *side, real *size, real *viewpt); +extern integer wlw2ld_(integer *wlct, integer *flip, doublereal *wx, doublereal *wy, doublereal *lx, doublereal *ly, integer *npts); +extern integer wlwcsb_(integer *wd); +extern integer wlwcss_(integer *mw, real *logx1, real *logx2, real *logy1, real *logy2); +extern integer wlwril_(integer *wd, doublereal *value, integer *side, real *x, real *y, doublereal *angle, integer *axis, integer *precin, logical *dofull, real *offset); +extern integer wtstr_(real *px, real *py, char *ch, integer *is, integer *io, integer *ic, ftnlen ch_len); +extern integer xcallc_(integer *ubufp, integer *buflen, integer *dtype); +extern integer xdevss_(shortint *device, integer *out); +extern integer xeract_(integer *errore, shortint *messae, integer *severy); +extern integer xerfmg_(shortint *errmsg, shortint *outstr, integer *maxch); +extern integer xerpsh_(void); +extern integer xerpsr_(shortint *str); +extern integer xerpuc_(shortint *ch); +extern integer xerpue_(integer *fd, shortint *text); +extern integer xerret_(void); +extern integer xerror_(integer *errore, shortint *messae); +extern integer xersel_(integer *errcoe); +extern integer xervey_(void); +extern integer xfatal_(integer *errore, shortint *messae); +extern integer xfchdr_(shortint *newdir); +extern integer xfcloe_(integer *fdarg); +extern integer xfdele_(shortint *fname); +extern integer xffluh_(integer *fd); +extern integer xfputc_(integer *fd, shortint *ch); +extern integer xfputr_(shortint *ch); +extern integer xfrnam_(shortint *oldnae, shortint *newnae); +extern integer xfseek_(integer *fd, integer *offset); +extern integer xfungc_(integer *fd, shortint *ch); +extern integer xfwrie_(integer *fd, shortint *buffer, integer *maxchs); +extern integer xgtuid_(shortint *userne, integer *maxch); +extern integer xmallc_(integer *ubufp, integer *nelems, integer *dtype); +extern integer xmfree_(integer *ptr, integer *dtype); +extern integer xmjbuf_(integer *bp); +extern integer xmktep_(shortint *seed, shortint *tempfe, integer *maxchs); +extern integer xmpl10_(void); +extern integer xmpl11_(void); +extern integer xonerr_(integer *status); +extern integer xonext_(integer *exitce); +extern integer xpages_(shortint *files, shortint *device, shortint *prompt, integer *firste, integer *clearn, integer *mapcc); +extern integer xprinf_(shortint *formag); +extern integer xqsort_(integer *x, integer *nelem, I_fp compae); +extern integer xrealc_(integer *ubufp, integer *nelems, integer *dtype); +extern integer xstdeh_(integer *excepn, integer *nexthr); +extern integer xstrct_(shortint *str, shortint *outstr, integer *maxch); +extern integer xstrcy_(shortint *s1, shortint *s2, integer *maxch); +extern integer xt21id_(integer *im, integer *axis, integer *col1, integer *col2, integer *line1, integer *line2, integer *x, integer *y, integer *npts); +extern integer xt21ig_(integer *im, integer *axis, integer *col1, integer *col2, integer *line1, integer *line2, integer *x, integer *y, integer *npts); +extern integer xt21im_(integer *im, integer *axis, integer *col1, integer *col2, integer *line1, integer *line2, integer *x, integer *y, integer *npts); +extern integer xtansr_(shortint *prompt, integer *answer); +extern integer xtargs_(integer *stp, shortint *key, shortint *val, integer *maxchr); +extern integer xtbace_(integer *ba); +extern integer xtbagi_(integer *ba, integer *c__, integer *l, integer *data, integer *n); +extern integer xtbags_(integer *ba, integer *c__, integer *l, shortint *data, integer *n); +extern integer xtbapi_(integer *ba, integer *c__, integer *l, integer *data, integer *n); +extern integer xtbaps_(integer *ba, integer *c__, integer *l, shortint *data, integer *n); +extern integer xtclar_(shortint *paramr, integer *answer); +extern integer xtcsub_(integer *co, integer *col1, integer *col2, integer *line1, integer *line2, integer *data); +extern integer xtcsum_(integer *co, integer *col1, integer *col2, integer *line1, integer *line2, integer *data); +extern integer xtdelp_(shortint *output, shortint *origil); +extern integer xtextn_(integer *fd, shortint *fname, shortint *exttye, integer *indics, shortint *extnae, integer *extver, integer *lindex, integer *lname, integer *lver, shortint *ikpars, integer *err); +extern integer xtfpfe_(integer *fp); +extern integer xtfpsp_(integer *pm, integer *nc, integer *nl, integer *v, shortint *data, integer *lvalin, integer *cvalin, integer *lvalot, integer *cvalot); +extern integer xtgets_(shortint *fname); +extern integer xtgids_(shortint *str, shortint *dicstr, integer *ids, integer *maxids); +extern integer xtimet_(shortint *image, shortint *ext, integer *maxchr); +extern integer xtimrt_(shortint *image, shortint *root, integer *maxchr); +extern integer xtloge_(integer *logfd, integer *nlogfd, shortint *prefix); +extern integer xtlsub_(integer *im, integer *col1, integer *col2, integer *line1, integer *line2, integer *data); +extern integer xtlsum_(integer *im, integer *col1, integer *col2, integer *line1, integer *line2, integer *data); +extern integer xtmase_(shortint *fname, shortint *extnae, integer *mode, shortint *mname, integer *maxchr); +extern integer xtmk1d_(shortint *image, shortint *secstr, integer *szfnae); +extern integer xtmkic_(shortint *image, shortint *secstr, shortint *imagec, integer *szfnae); +extern integer xtmkip_(shortint *input, shortint *output, shortint *origil, integer *szfnae); +extern integer xtmksn_(shortint *image, shortint *secstr, shortint *sectin, integer *szsecn); +extern integer xtpart_(shortint *args, integer *ip, logical *skip); +extern integer xtphiy_(integer *im, shortint *str); +extern integer xtsor2_(real *a1, real *a2, integer *npts); +extern integer xtsor3_(real *a1, real *a2, real *a3, integer *npts); +extern integer xtsor4_(real *a1, real *a2, real *a3, real *a4, integer *npts); +extern integer xtsord_(doublereal *a1, doublereal *a2, doublereal *a3, integer *npts); +extern integer xtstad_(doublereal *sample, integer *nsampe, real *frac, doublereal *mean, doublereal *sigma, doublereal *median, doublereal *mode); +extern integer xtstai_(integer *sample, integer *nsampe, real *frac, real *mean, real *sigma, real *median, real *mode); +extern integer xtstar_(real *sample, integer *nsampe, real *frac, real *mean, real *sigma, real *median, real *mode); +extern integer xtstas_(shortint *sample, integer *nsampe, real *frac, real *mean, real *sigma, real *median, real *mode); +extern integer xtstre_(shortint *str); +extern integer xttxte_(integer *fd); +extern integer xttyse_(integer *width, integer *height); +extern integer xvvbip_(integer *opcode, integer *in1, integer *in2, integer *out); +extern integer xvvbop_(integer *opcode, integer *in1, integer *in2, integer *out); +extern integer xvvqut_(integer *cond, integer *in1, integer *in2, integer *out); +extern integer xvvunp_(integer *opcode, integer *in, integer *out); +extern integer xwhen_(integer *signal, integer *handlr, integer *oldhar); +extern integer ytfpfe_(integer *fp); +extern integer ytfpsp_(integer *pmin, integer *pm, integer *nc, integer *nl, integer *v, shortint *data, integer *lvalin, integer *cvalin, integer *lvalot, integer *cvalot); +extern integer zardim_(integer *chan, shortint *buf, integer *nbytes, integer *offset); +extern integer zardmt_(integer *mtchan, shortint *buf, integer *maxbys, integer *offset); +extern integer zardnu_(integer *chan, shortint *buf, integer *maxbys, integer *loffst); +extern integer zardps_(integer *ps, shortint *buf, integer *maxbys, integer *offset); +extern integer zawrim_(integer *chan, shortint *buf, integer *nbytes, integer *offset); +extern integer zawrmt_(integer *mtchan, shortint *buf, integer *nbytes, integer *offset); +extern integer zawrnu_(integer *chan, shortint *buf, integer *nbytes, integer *loffst); +extern integer zawrps_(integer *ps, shortint *buf, integer *nbytes, integer *offset); +extern integer zawtim_(integer *chan, integer *nbytes); +extern integer zawtmt_(integer *mtchan, integer *status); +extern integer zawtnu_(integer *chan, integer *status); +extern integer zawtps_(integer *ps, integer *status); +extern integer zblkim_(integer *chan1, integer *chan2, integer *chan3, integer *chan4, integer *nframs, real *rate); +extern integer zclrim_(integer *chan); +extern integer zclsim_(integer *chan, integer *status); +extern integer zclsmt_(integer *mtchan, integer *status); +extern integer zclsnu_(integer *chan, integer *status); +extern integer zclsps_(integer *chan, integer *status); +extern integer zclstt_(integer *fd, integer *status); +extern integer zerosc_(void); +extern integer zersim_(integer *chan); +extern integer zflsnu_(integer *chan, integer *status); +extern integer zflstt_(integer *fd, integer *status); +extern integer zfrmim_(integer *chan); +extern integer zgetnu_(integer *chan, shortint *buf, integer *maxch, integer *status); +extern integer zgettt_(integer *fd, shortint *buf, integer *maxch, integer *status); +extern integer zlset_(real *z__, integer *mx, integer *nx, integer *ny, real *zl, integer *nlevl); +extern integer zmapim_(integer *chan, shortint *maptye); +extern integer zmtcim_(integer *chan1, integer *chan2); +extern integer znotnu_(integer *chan, integer *loffst); +extern integer znottt_(integer *fd, integer *offset); +extern integer zopnim_(shortint *devino, integer *mode, integer *chan); +extern integer zopnmt_(shortint *iodev, integer *acmode, integer *mtchan); +extern integer zopnnu_(shortint *osfn, integer *mode, integer *chan); +extern integer zopntt_(shortint *osfn, integer *mode, integer *chan); +extern integer zputnu_(integer *chan, shortint *buf, integer *nchars, integer *status); +extern integer zputtt_(integer *fd, shortint *buf, integer *nchars, integer *status); +extern integer zrcrim_(integer *chan, integer *xcur, integer *ycur); +extern integer zrgbim_(integer *redchn, integer *greenn, integer *bluecn); +extern integer zrmim_(integer *chan, integer *zfactr); +extern integer zscale_(integer *im, real *z1, real *z2, real *contrt, integer *optime, integer *lenste); +extern integer zscfla_(real *data, real *flat, real *x, integer *npix, real *z0, real *dz); +extern integer zsczls_(real *sample, integer *npix, real *contrt, real *z1, real *z2); +extern integer zseknu_(integer *chan, integer *loffst, integer *status); +extern integer zsektt_(integer *fd, integer *offset, integer *status); +extern integer zsestt_(integer *fd, integer *param, shortint *svalue); +extern integer zsettt_(integer *chan, integer *param, integer *value); +extern integer zststt_(integer *fd, integer *param, shortint *outstr, integer *maxch, integer *nchars); +extern integer zsttim_(integer *chan, integer *what, integer *lvalue); +extern integer zsttmt_(integer *mtchan, integer *what, integer *lvalue); +extern integer zsttnu_(integer *chan, integer *param, integer *lvalue); +extern integer zsttps_(integer *ps, integer *what, integer *lvalue); +extern integer zstttt_(integer *fd, integer *param, integer *lvalue); +extern integer zttgeg_(integer *chan, shortint *obuf, integer *maxch, integer *nchars); +extern integer zttloo_(integer *inflag, integer *outflg); +extern integer zttlov_(integer *chan); +extern integer zttpbf_(integer *errcoe); +extern integer zttplk_(integer *flag__); +extern integer zttpug_(integer *chan, shortint *dstr, integer *nchars); +extern integer zttttt_(shortint *messae); +extern integer zttupe_(shortint *in, shortint *out, integer *nchars); +extern integer zwndi3_(integer *chan1, integer *chan2, integer *chan3); +extern integer zwndim_(integer *chan); +extern integer agfpbn_(real *fpdp); +extern integer ahivi_(integer *a, integer *npix); +extern integer ahivl_(integer *a, integer *npix); +extern integer alovi_(integer *a, integer *npix); +extern integer alovl_(integer *a, integer *npix); +extern integer amedi_(integer *a, integer *npix); +extern integer amedl_(integer *a, integer *npix); +extern integer aravd_(doublereal *a, integer *npix, doublereal *mean, doublereal *sigma, doublereal *ksig); +extern integer aravi_(integer *a, integer *npix, real *mean, real *sigma, real *ksig); +extern integer aravl_(integer *a, integer *npix, doublereal *mean, doublereal *sigma, doublereal *ksig); +extern integer aravr_(real *a, integer *npix, real *mean, real *sigma, real *ksig); +extern integer aravs_(shortint *a, integer *npix, real *mean, real *sigma, real *ksig); +extern integer aravx_(complex *a, integer *npix, real *mean, real *sigma, real *ksig); +extern integer asoki_(integer *a, integer *npix, integer *ksel); +extern integer asokl_(integer *a, integer *npix, integer *ksel); +extern integer await_(integer *fd); +extern integer awaitb_(integer *fd); +extern integer awvgd_(doublereal *a, integer *npix, doublereal *mean, doublereal *sigma, doublereal *lcut, doublereal *hcut); +extern integer awvgi_(integer *a, integer *npix, real *mean, real *sigma, real *lcut, real *hcut); +extern integer awvgl_(integer *a, integer *npix, doublereal *mean, doublereal *sigma, doublereal *lcut, doublereal *hcut); +extern integer awvgr_(real *a, integer *npix, real *mean, real *sigma, real *lcut, real *hcut); +extern integer awvgs_(shortint *a, integer *npix, real *mean, real *sigma, real *lcut, real *hcut); +extern integer awvgx_(complex *a, integer *npix, real *mean, real *sigma, real *lcut, real *hcut); +extern integer begmem_(integer *bestse, integer *oldsie, integer *maxsie); +extern integer btoi_(logical *boolee); +extern integer cctoc_(shortint *str, integer *ip, shortint *cval); +extern integer ccxset_(shortint *text, integer *n, shortint *out, integer *startt); +extern integer clcfeh_(shortint *param, shortint *outstr, integer *maxch); +extern integer clcfid_(shortint *param, shortint *outstr, integer *maxch); +extern integer clgcur_(shortint *param, real *wx, real *wy, integer *wcs, integer *key, shortint *strval, integer *maxch); +extern integer clgeti_(shortint *param); +extern integer clgetl_(shortint *param); +extern integer clgfil_(integer *list, shortint *fname, integer *maxch); +extern integer clginp_(shortint *param); +extern integer clgkey_(shortint *param, integer *key, shortint *strval, integer *maxch); +extern integer clglpb_(shortint *param, logical *bval); +extern integer clglpc_(shortint *param, shortint *cval); +extern integer clglpd_(shortint *param, doublereal *dval); +extern integer clglpi_(shortint *param, integer *ival); +extern integer clglpl_(shortint *param, integer *lval); +extern integer clglpr_(shortint *param, real *rval); +extern integer clglps_(shortint *param, shortint *sval); +extern integer clglpx_(shortint *param, complex *xval); +extern integer clglsr_(shortint *param, shortint *outstr, integer *maxch); +extern integer clgpsi_(integer *pp, shortint *parnae); +extern integer clgpsl_(integer *pp, shortint *parnae); +extern integer clgwrd_(shortint *param, shortint *keywod, integer *maxchr, shortint *dictiy); +extern integer clktie_(integer *oldtie); +extern integer clopst_(shortint *pset); +extern integer clplen_(integer *list); +extern integer clpopi_(shortint *param); +extern integer clpops_(shortint *param); +extern integer clpopu_(shortint *param); +extern integer clpsee_(integer *pp, shortint *parnae); +extern integer clpsit_(shortint *cmd, integer *arg1, integer *arg2); +extern integer clscan_(shortint *param); +extern integer clstai_(integer *paramr); +extern integer coerce_(integer *ptr, integer *type1, integer *type2); +extern integer cogetr_(integer *co, integer *col, integer *line1, integer *line2); +extern integer comap_(integer *im, integer *maxbuf); +extern integer conxch_(real *x, real *y, integer *i1, integer *i2, integer *i3, integer *i4); +extern integer cputie_(integer *oldcpe); +extern integer cqccry_(integer *cq); +extern integer cqdgei_(integer *cq, integer *record, shortint *field); +extern integer cqdscn_(integer *cq); +extern integer cqdtye_(shortint *c__); +extern integer cqfgad_(integer *cq, shortint *field, doublereal *array, integer *maxlen); +extern integer cqfgai_(integer *cq, shortint *field, integer *array, integer *maxlen); +extern integer cqfgar_(integer *cq, shortint *field, real *array, integer *maxlen); +extern integer cqfgei_(integer *cq, shortint *field); +extern integer cqfgtt_(integer *cq, shortint *field, shortint *str, integer *maxch); +extern integer cqfimy_(integer *cq, shortint *imname); +extern integer cqfinn_(integer *res, integer *fieldo, shortint *fname, integer *szfnae, integer *foffst, integer *fsize, integer *ftype, shortint *units, integer *szunis, shortint *fmts, integer *szfmts); +extern integer cqfino_(integer *res, shortint *field, integer *foffst, integer *fsize, integer *ftype, shortint *units, integer *szunis, shortint *fmts, integer *szfmts); +extern integer cqfirt_(integer *cq); +extern integer cqfnae_(integer *res, integer *fieldo, shortint *fname, integer *szfnae); +extern integer cqfnur_(integer *res, shortint *field); +extern integer cqfoft_(integer *res, shortint *field); +extern integer cqfquy_(integer *cq, shortint *catfie, shortint *catfmt); +extern integer cqfrit_(integer *cq, shortint *catfmt); +extern integer cqfsie_(integer *res, shortint *field); +extern integer cqftye_(integer *res, shortint *field); +extern integer cqgnrd_(integer *res, shortint *buf, integer *maxch, integer *recptr); +extern integer cqgqpn_(integer *cq, integer *parno, shortint *pname, integer *maxnae, shortint *value, integer *maxval, shortint *units, integer *maxuns, shortint *format, integer *maxfot); +extern integer cqgqpr_(integer *cq, shortint *name__, shortint *pname, integer *maxnae, shortint *value, integer *maxval, shortint *units, integer *maxuns, shortint *format, integer *maxfot); +extern integer cqgred_(integer *res, shortint *buf, integer *maxch, integer *recptr); +extern integer cqgvac_(integer *res, integer *recptr, shortint *field, shortint *str, integer *maxch); +extern integer cqgvad_(integer *res, integer *recptr, shortint *field, doublereal *dval); +extern integer cqgvai_(integer *res, integer *recptr, shortint *field, integer *ival); +extern integer cqgval_(integer *res, integer *recptr, shortint *field, integer *lval); +extern integer cqgvar_(integer *res, integer *recptr, shortint *field, real *rval); +extern integer cqgvas_(integer *res, integer *recptr, shortint *field, shortint *sval); +extern integer cqhinn_(integer *res, integer *kwno, shortint *hkname, integer *szhkne, shortint *hkvale, integer *szhkve); +extern integer cqhino_(integer *res, shortint *hkname, shortint *hkvale, integer *szhkve); +extern integer cqimqy_(integer *cq, shortint *imname); +extern integer cqirit_(integer *cq); +extern integer cqisti_(integer *res, integer *param); +extern integer cqistt_(integer *res, integer *param, shortint *str, integer *maxch); +extern integer cqkinn_(integer *res, integer *fieldo, shortint *kfield, integer *szkfid, shortint *ikname, integer *szikne, shortint *ikvale, integer *szikve, integer *iktype, shortint *ikunis, integer *szikus); +extern integer cqkino_(integer *res, shortint *kfield, shortint *ikname, integer *szikne, shortint *ikvale, integer *szikve, integer *iktype, shortint *ikunis, integer *szikus); +extern integer cqloce_(integer *cq, shortint *name__); +extern integer cqlocn_(integer *cq, integer *catno, shortint *name__, integer *maxch); +extern integer cqmap_(shortint *databe, integer *mode); +extern integer cqnqps_(integer *cq); +extern integer cqquey_(integer *cq); +extern integer cqrint_(integer *cq); +extern integer cqrsti_(integer *res, integer *param); +extern integer cqrstt_(integer *res, integer *param, shortint *str, integer *maxch); +extern integer cqscan_(integer *cq); +extern integer cqsetd_(integer *res, integer *recptr); +extern integer cqsetn_(integer *cq, integer *catno); +extern integer cqsett_(integer *cq, shortint *name__); +extern integer cqsqpn_(integer *cq, integer *parno, shortint *valuer); +extern integer cqsqpr_(integer *cq, shortint *name__, shortint *valuer); +extern integer cqstai_(integer *cq, integer *param); +extern integer cqstat_(integer *cq, integer *param, shortint *str, integer *maxch); +extern integer cqwinn_(integer *res, integer *fieldo, shortint *wfield, integer *szwfid, shortint *wkname, integer *szwkne, shortint *wkvale, integer *szwkve, integer *wktype, shortint *wkunis, integer *szwkus); +extern integer cqwino_(integer *res, shortint *wfield, shortint *wkname, integer *szwkne, shortint *wkvale, integer *szwkve, integer *wktype, shortint *wkunis, integer *szwkus); +extern integer cqwrdr_(integer *index, shortint *outstr, integer *maxch, shortint *dict); +extern integer ctocc_(shortint *ch, shortint *outstr, integer *maxch); +extern integer ctod_(shortint *str, integer *ip, doublereal *dval); +extern integer ctoi_(shortint *str, integer *ip, integer *ival); +extern integer ctol_(shortint *str, integer *ip, integer *lval); +extern integer ctor_(shortint *str, integer *ip, real *rval); +extern integer ctotok_(shortint *str, integer *ip, shortint *outstr, integer *maxch); +extern integer ctowrd_(shortint *str, integer *ip, shortint *outstr, integer *maxch); +extern integer ctox_(shortint *str, integer *ip, complex *xval); +extern integer decods_(shortint *rangeg, integer *ranges, integer *maxras, integer *nvalus); +extern integer diropn_(shortint *fname, integer *mode); +extern integer dsmap_(integer *frame, integer *mode, integer *color, integer *chan); +extern integer dspmmp_(shortint *pmname, integer *refim); +extern integer dsuluc_(shortint *fname, real *z1, real *z2); +extern integer dtgeti_(integer *dt, integer *record, shortint *field); +extern integer dtloce_(integer *dt, shortint *name__); +extern integer dtmap1_(shortint *databe, shortint *key, integer *mode); +extern integer dtmap_(shortint *databe, integer *mode); +extern integer dtmdee_(shortint *datesr, integer *year, integer *month, integer *day, doublereal *time, integer *flags); +extern integer dtmdes_(shortint *datesr, integer *year, integer *month, integer *day, integer *hours, integer *minuts, doublereal *secons, integer *flags); +extern integer dtmene_(shortint *datesr, integer *maxch, integer *year, integer *month, integer *day, doublereal *time, integer *precin, integer *flags); +extern integer dtmens_(shortint *datesr, integer *maxch, integer *year, integer *month, integer *day, integer *hours, integer *minuts, doublereal *secons, integer *precin, integer *flags); +extern integer dtmlte_(shortint *datesr, integer *ltime); +extern integer dtoc3_(doublereal *val, shortint *out, integer *maxch, integer *decpl, integer *afmt, integer *width); +extern integer dtoc_(doublereal *dval, shortint *outstr, integer *maxch, integer *decpl, integer *afmt, integer *width); +extern integer dtscan_(integer *dt); +extern integer envfid_(shortint *key, shortint *value, integer *maxch); +extern integer envfit_(integer *valp); +extern integer envfre_(integer *oldtop, integer *userfn); +extern integer envgei_(shortint *varnae); +extern integer envges_(shortint *key, shortint *value, integer *maxch); +extern integer envnet_(integer *lastel, integer *valp, integer *showrs); +extern integer envpus_(shortint *key, shortint *value); +extern integer envscn_(shortint *cmd); +extern integer errcoe_(void); +extern integer errget_(shortint *outstr, integer *maxch); +extern integer evexpr_(shortint *expr, integer *getopa, integer *ufcnea); +extern integer evvexr_(shortint *expr, integer *getop, integer *getopa, integer *ufcn, integer *ufcnda, integer *flags); +extern integer extrea_(real *x, real *y, real *curvae, integer *npts, real *dx); +extern integer fdevbk_(shortint *path); +extern integer ffault_(integer *fd, integer *fileot, integer *nresee, integer *rwflag); +extern integer ffilsz_(integer *fd); +extern integer fgdev0_(integer *ffp, integer *what); +extern integer fgetfd_(shortint *filene, integer *mode, integer *type__); +/*extern integer filbuf_(integer *fd);*/ +extern integer finfo_(shortint *fname, integer *ostrut); +extern integer fmaccs_(shortint *dfname, integer *mode); +extern integer fmfinf_(integer *fc, integer *lfile); +extern integer fmfopn_(integer *fm, integer *lfile, integer *mode, integer *type__); +extern integer fmgetd_(integer *fm, integer *lfile, integer *mode, integer *type__); +extern integer fmioed_(integer *fm, integer *lfile, integer *npages); +extern integer fmlfpe_(shortint *lfname, integer *fm, integer *lfile, integer *type__); +extern integer fmlfst_(integer *fm, integer *lfile, integer *statbf); +extern integer fmnexe_(integer *fm); +extern integer fmopen_(shortint *fname, integer *mode); +extern integer fmstai_(integer *fm, integer *param); +extern integer fnextn_(shortint *vfn, shortint *outstr, integer *maxch); +extern integer fnldir_(shortint *vfn, shortint *outstr, integer *maxch); +extern integer fnroot_(shortint *vfn, shortint *outstr, integer *maxch); +extern integer fntedt_(shortint *in, shortint *out, integer *editp, integer *nedit, shortint *patbuf); +extern integer fntget_(shortint *temple, integer *ix, integer *patp, integer *npat, integer *sbuf, integer *maxch); +extern integer fntgfb_(integer *list, shortint *fname, integer *maxch); +extern integer fntgfn_(integer *pp, shortint *outstr, integer *maxch); +extern integer fntleb_(integer *list); +extern integer fntopb_(shortint *temple, integer *sort); +extern integer fntopn_(shortint *temple); +extern integer fntopt_(shortint *str, shortint *patstr, integer *maxch, shortint *fname, shortint *ldir, integer *ftype); +extern integer fntree_(integer *pp, shortint *outstr, integer *maxch, integer *token); +extern integer fntrfb_(integer *list, integer *index, shortint *fname, integer *maxch); +extern integer fprfmt_(integer *ival); +extern integer freadp_(integer *fd, integer *offset, integer *nchars); +extern integer fsetfd_(integer *fd, shortint *filene, integer *mode, integer *type__); +extern integer fsfopn_(shortint *fname, integer *mode); +extern integer fstati_(integer *fd, integer *what); +extern integer fstatl_(integer *fd, integer *what); +extern integer fstdfe_(shortint *fname, integer *ofd); +extern integer futime_(shortint *fname, integer *atime, integer *mtime); +extern integer fwritp_(integer *fd, integer *offset, integer *nchars); +extern integer fxfchv_(integer *im, integer *group); +extern integer fxfcte_(shortint *card, integer *kwindx); +extern integer fxfexr_(integer *fit, integer *ig, integer *extn, integer *extv); +extern integer fxfhdt_(integer *group, integer *fit, integer *pfd, integer *acmode); +extern integer fxfhee_(integer *im); +extern integer fxfksx_(shortint *outstr); +extern integer fxfred_(integer *fd, shortint *ibuf, shortint *obuf, integer *ncards); +extern integer fxfstr_(shortint *s1, shortint *s2); +extern integer fxftox_(integer *im); +extern integer fxfuad_(integer *fit, integer *im, integer *up, shortint *card); +extern integer fxfxal_(integer *hd, integer *ncua, integer *nlines); +extern integer gctod_(shortint *str, integer *ip, doublereal *odval); +extern integer gctol_(shortint *str, integer *ip, integer *lval, integer *radix); +extern integer gctox_(shortint *str, integer *ip, complex *oxval); +extern integer getci_(integer *fd, integer *ch); +extern integer getdae_(shortint *ch); +extern integer getlie_(integer *fd, shortint *linebf); +extern integer getlle_(integer *fd, shortint *obuf, integer *maxch); +extern integer getloe_(integer *fd, shortint *obuf, integer *maxch, integer *linenm); +extern integer getner_(integer *ranges, integer *number); +extern integer getprr_(integer *ranges, integer *number); +extern integer ggcur_(integer *gp, integer *cn, integer *key, real *sx, real *sy, integer *raster, real *rx, real *ry); +extern integer ggeti_(integer *gp, shortint *cap); +extern integer ggets_(integer *gp, shortint *cap, shortint *outstr, integer *maxch); +extern integer gimgeg_(integer *gp, integer *mappig, integer *rop, integer *src, integer *st, integer *sx, integer *sy, integer *sw, integer *sh, integer *dst, integer *dt, integer *dx, integer *dy, integer *dw, integer *dh); +extern integer gimqur_(integer *gp, integer *raster, integer *type__, integer *width, integer *height, integer *depth); +extern integer gimrep_(integer *gp, integer *colorp, integer *first, integer *maxelm, integer *r__, integer *g, integer *b); +extern integer gkifen_(integer *fd, integer *instrn); +extern integer glbgek_(integer *gp, integer *ax, real *x, real *y, integer *majork); +extern integer gltoc_(integer *lval, shortint *outstr, integer *maxch, integer *base); +extern integer gmttot_(integer *gmt); +extern integer gopen_(shortint *device, integer *mode, integer *fd); +extern integer gopeni_(shortint *device, integer *mode, shortint *uifnae, integer *fd); +extern integer gpatme_(shortint *patstr, integer *from, integer *delim, shortint *patbuf, integer *szpat); +extern integer gpatmh_(shortint *str, shortint *pat, integer *firstr, integer *lastcr); +extern integer gptfit_(shortint *gki, integer *ip, integer *lastip); +extern integer gqvery_(void); +extern integer grcbol_(shortint *opstr, integer *ip); +extern integer grccod_(integer *rc, integer *stream, real *sx, real *sy, integer *raster, real *rx, real *ry, shortint *opstr); +extern integer grccur_(integer *rc, integer *stream, integer *key, real *x, real *y, integer *raster, real *rx, real *ry, integer *ppos); +extern integer grcmay_(integer *rc, integer *key, integer *nukey); +extern integer grcopn_(shortint *device, integer *mode, integer *stream, integer *rc); +extern integer grcrey_(integer *stream, shortint *prompt, shortint *obuf, integer *maxch); +extern integer grcses_(integer *tr, integer *raster, real *mx, real *my); +extern integer grdwcs_(shortint *devnae, integer *wcs, integer *lenwcs); +extern integer gstati_(integer *gp, integer *param); +extern integer gstats_(integer *gp, integer *param, shortint *outstr, integer *maxch); +extern integer gstrct_(shortint *str, shortint *outstr, integer *maxch); +extern integer gstrcy_(shortint *s1, shortint *s2, integer *maxch); +extern integer gstrdb_(shortint *line, shortint *outlie, integer *maxch, integer *tabs); +extern integer gstreb_(shortint *line, shortint *outlie, integer *maxch, integer *tabs); +extern integer gstrmh_(shortint *str, shortint *pat, integer *firstr, integer *lastcr); +extern integer gtgcu1_(integer *gt, shortint *cur, real *wx, real *wy, integer *wcs, integer *key, shortint *cmd, integer *szcmd); +extern integer gtgcur_(shortint *cur, real *wx, real *wy, integer *wcs, integer *key, shortint *cmd, integer *szcmd); +extern integer gtgeti_(integer *gt, integer *param); +extern integer gtini1_(integer *gp); +extern integer gtinit_(void); +extern integer gtndis_(real *x1, real *x2, real *step); +extern integer gtrcle_(integer *p1, integer *p2, integer *npts, integer *index, real *s, real *ref); +extern integer gtrcot_(shortint *kernfe, shortint *taskne, shortint *devnae, integer *stream, integer *in, integer *out); +extern integer gtrfen_(integer *tr, integer *gki); +extern integer gtrgty_(integer *stream); +extern integer gtrint_(integer *stream); +extern integer gtrpop_(shortint *pv, integer *npts, integer *x1, integer *x2, integer *y1, integer *y2); +extern integer gtrrer_(integer *fd, integer *key, real *sx, real *sy, integer *raster, real *rx, real *ry); +extern integer gtrwrp_(integer *fd, integer *nchars); +extern integer gttyld_(shortint *fname, shortint *device, shortint *outstr, integer *maxch); +extern integer gtybih_(integer *capcoe, integer *tcapce, integer *ncaps); +extern integer gtycas_(integer *gty); +extern integer gtyeny_(shortint *cap); +extern integer gtyexs_(shortint *str, integer *ip, shortint *outstr, integer *maxch); +extern integer gtyfiy_(integer *tty, shortint *cap, integer *ip); +extern integer gtygei_(integer *tty, shortint *cap); +extern integer gtyges_(integer *tty, shortint *cap, shortint *outstr, integer *maxch); +extern integer gtyopn_(shortint *termce, shortint *device, shortint *ufiels); +extern integer i8sav_(integer *isw, integer *ivalue, logical *set); +extern integer iand_(integer *a, integer *b); +extern integer idbfid_(integer *im, shortint *key, integer *rp); +extern integer idbfir_(shortint *s1, shortint *s2, integer *maxch); +extern integer idbgeg_(integer *im, shortint *key, shortint *outstr, integer *maxch); +extern integer idbkwp_(shortint *key); +extern integer idbned_(integer *idb, integer *recptr); +extern integer idbopn_(integer *im, integer *ualen); +extern integer idbpug_(integer *im, shortint *key, shortint *strval); +extern integer idkopn_(integer *aframe, integer *acolor, integer *tty); +extern integer iisflu_(integer *chan); +extern integer ikiacs_(shortint *image, shortint *root, shortint *extn, integer *acmode); +extern integer ikiext_(shortint *envime, shortint *defime, shortint *envimn, shortint *defimn); +extern integer ikiged_(integer *ip, shortint *outstr, integer *maxch, integer *delim); +extern integer ikigen_(integer *kernel, integer *index, shortint *extn, integer *maxch); +extern integer ikiger_(shortint *param); +extern integer ikivan_(integer *kernel, shortint *extn); +extern integer imaccf_(integer *im, shortint *key); +extern integer imaccs_(shortint *image, integer *acmode); +extern integer imcssz_(integer *im, integer *vs, integer *ve, integer *ndim, integer *dtype, integer *npix, integer *rwflag); +extern integer imdgcr_(shortint *param, real *wx, real *wy, integer *wcs, integer *key, shortint *strval, integer *maxch); +extern integer imdges_(integer *frame, integer *server, shortint *image, integer *szimae, shortint *title, integer *sztite, real *a, real *b, real *c__, real *d__, real *tx, real *ty); +extern integer imdgsg_(shortint *cap); +extern integer imdma1_(integer *frame, integer *mode, integer *selece, integer *erase); +extern integer imdmae_(integer *frame, integer *mode, integer *selece); +extern integer imdmap_(shortint *device, integer *accese, I_fp imdopn); +extern integer imdopn_(shortint *fname, integer *accese); +extern integer imdqup_(integer *wcs, shortint *reg, real *sx, real *sy, integer *snx, integer *sny, integer *dx, integer *dy, integer *dnx, integer *dny, shortint *objref); +extern integer imdrcr_(shortint *device, real *x, real *y, integer *wcs, integer *key, shortint *strval, integer *maxch, integer *inwcs, integer *pause); +extern integer imdwcr_(void); +extern integer imgeti_(integer *im, shortint *key); +extern integer imgetl_(integer *im, shortint *key); +extern integer imgfte_(integer *im, shortint *key); +extern integer imggsc_(integer *im, integer *vs, integer *ve, integer *ndim, integer *dtype, integer *totpix); +extern integer imggsd_(integer *imdes, integer *vs, integer *ve, integer *ndim); +extern integer imggsi_(integer *imdes, integer *vs, integer *ve, integer *ndim); +extern integer imggsl_(integer *imdes, integer *vs, integer *ve, integer *ndim); +extern integer imggsr_(integer *imdes, integer *vs, integer *ve, integer *ndim); +extern integer imggss_(integer *imdes, integer *vs, integer *ve, integer *ndim); +extern integer imggsx_(integer *imdes, integer *vs, integer *ve, integer *ndim); +extern integer imgibf_(integer *im, integer *vs, integer *ve, integer *ndim, integer *dtype); +extern integer imgl1d_(integer *im); +extern integer imgl1i_(integer *im); +extern integer imgl1l_(integer *im); +extern integer imgl1r_(integer *im); +extern integer imgl1s_(integer *im); +extern integer imgl1x_(integer *im); +extern integer imgl2d_(integer *im, integer *linenm); +extern integer imgl2i_(integer *im, integer *linenm); +extern integer imgl2l_(integer *im, integer *linenm); +extern integer imgl2r_(integer *im, integer *linenm); +extern integer imgl2s_(integer *im, integer *linenm); +extern integer imgl2x_(integer *im, integer *linenm); +extern integer imgl3d_(integer *im, integer *line, integer *band); +extern integer imgl3i_(integer *im, integer *line, integer *band); +extern integer imgl3l_(integer *im, integer *line, integer *band); +extern integer imgl3r_(integer *im, integer *line, integer *band); +extern integer imgl3s_(integer *im, integer *line, integer *band); +extern integer imgl3x_(integer *im, integer *line, integer *band); +extern integer imgnfn_(integer *fn, shortint *outstr, integer *maxch); +extern integer imgnld_(integer *imdes, integer *linepr, integer *v); +extern integer imgnli_(integer *imdes, integer *linepr, integer *v); +extern integer imgnll_(integer *imdes, integer *linepr, integer *v); +extern integer imgnln_(integer *im, integer *linepr, integer *v, integer *dtype); +extern integer imgnlr_(integer *imdes, integer *linepr, integer *v); +extern integer imgnls_(integer *imdes, integer *linepr, integer *v); +extern integer imgnlx_(integer *imdes, integer *linepr, integer *v); +extern integer imgobf_(integer *im, integer *vs, integer *ve, integer *ndim, integer *dtype); +extern integer imgs1d_(integer *im, integer *x1, integer *x2); +extern integer imgs1i_(integer *im, integer *x1, integer *x2); +extern integer imgs1l_(integer *im, integer *x1, integer *x2); +extern integer imgs1r_(integer *im, integer *x1, integer *x2); +extern integer imgs1s_(integer *im, integer *x1, integer *x2); +extern integer imgs1x_(integer *im, integer *x1, integer *x2); +extern integer imgs2d_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2); +extern integer imgs2i_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2); +extern integer imgs2l_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2); +extern integer imgs2r_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2); +extern integer imgs2s_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2); +extern integer imgs2x_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2); +extern integer imgs3d_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2, integer *z1, integer *z2); +extern integer imgs3i_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2, integer *z1, integer *z2); +extern integer imgs3l_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2, integer *z1, integer *z2); +extern integer imgs3r_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2, integer *z1, integer *z2); +extern integer imgs3s_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2, integer *z1, integer *z2); +extern integer imgs3x_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2, integer *z1, integer *z2); +extern integer imloop_(integer *v, integer *vs, integer *ve, integer *vinc, integer *ndim); +extern integer immap_(shortint *imspec, integer *acmode, integer *hdrarg); +extern integer immapz_(shortint *imspec, integer *acmode, integer *hdrarg); +extern integer imnote_(integer *im, integer *v); +extern integer imofnl_(integer *im, shortint *temple, integer *sort); +extern integer imofns_(integer *im, shortint *temple); +extern integer imofnu_(integer *im, shortint *temple); +extern integer impgsd_(integer *imdes, integer *vs, integer *ve, integer *ndim); +extern integer impgsi_(integer *imdes, integer *vs, integer *ve, integer *ndim); +extern integer impgsl_(integer *imdes, integer *vs, integer *ve, integer *ndim); +extern integer impgsr_(integer *imdes, integer *vs, integer *ve, integer *ndim); +extern integer impgss_(integer *imdes, integer *vs, integer *ve, integer *ndim); +extern integer impgsx_(integer *imdes, integer *vs, integer *ve, integer *ndim); +extern integer impl1d_(integer *im); +extern integer impl1i_(integer *im); +extern integer impl1l_(integer *im); +extern integer impl1r_(integer *im); +extern integer impl1s_(integer *im); +extern integer impl1x_(integer *im); +extern integer impl2d_(integer *im, integer *linenm); +extern integer impl2i_(integer *im, integer *linenm); +extern integer impl2l_(integer *im, integer *linenm); +extern integer impl2r_(integer *im, integer *linenm); +extern integer impl2s_(integer *im, integer *linenm); +extern integer impl2x_(integer *im, integer *linenm); +extern integer impl3d_(integer *im, integer *line, integer *band); +extern integer impl3i_(integer *im, integer *line, integer *band); +extern integer impl3l_(integer *im, integer *line, integer *band); +extern integer impl3r_(integer *im, integer *line, integer *band); +extern integer impl3s_(integer *im, integer *line, integer *band); +extern integer impl3x_(integer *im, integer *line, integer *band); +extern integer impmmo_(integer *pl, integer *refim); +extern integer impmmp_(shortint *mask, integer *mode, integer *refim); +extern integer impmon_(shortint *mask, integer *mode, shortint *title, integer *maxch, integer *refim); +extern integer impmsr_(integer *im, integer *bp, integer *szbuf); +extern integer impnld_(integer *imdes, integer *linepr, integer *v); +extern integer impnli_(integer *imdes, integer *linepr, integer *v); +extern integer impnll_(integer *imdes, integer *linepr, integer *v); +extern integer impnln_(integer *im, integer *linepr, integer *v, integer *dtype); +extern integer impnlr_(integer *imdes, integer *linepr, integer *v); +extern integer impnls_(integer *imdes, integer *linepr, integer *v); +extern integer impnlx_(integer *imdes, integer *linepr, integer *v); +extern integer imps1d_(integer *im, integer *x1, integer *x2); +extern integer imps1i_(integer *im, integer *x1, integer *x2); +extern integer imps1l_(integer *im, integer *x1, integer *x2); +extern integer imps1r_(integer *im, integer *x1, integer *x2); +extern integer imps1s_(integer *im, integer *x1, integer *x2); +extern integer imps1x_(integer *im, integer *x1, integer *x2); +extern integer imps2d_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2); +extern integer imps2i_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2); +extern integer imps2l_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2); +extern integer imps2r_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2); +extern integer imps2s_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2); +extern integer imps2x_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2); +extern integer imps3d_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2, integer *z1, integer *z2); +extern integer imps3i_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2, integer *z1, integer *z2); +extern integer imps3l_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2, integer *z1, integer *z2); +extern integer imps3r_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2, integer *z1, integer *z2); +extern integer imps3s_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2, integer *z1, integer *z2); +extern integer imps3x_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2, integer *z1, integer *z2); +extern integer imsinb_(integer *im, integer *vs, integer *ve, integer *ndim); +extern integer imstai_(integer *im, integer *option); +extern integer imtgem_(integer *imt, shortint *outstr, integer *maxch); +extern integer imtlen_(integer *imt); +extern integer imtmae_(shortint *fnt, shortint *outstr, integer *maxch); +extern integer imtopn_(shortint *temple); +extern integer imtopp_(shortint *param); +extern integer imtrgm_(integer *imt, integer *index, shortint *outstr, integer *maxch); +extern integer ingetc_(integer *in, integer *param); +extern integer ingeti_(integer *in, integer *param); +extern integer ingetp_(integer *in, integer *param); +extern integer ingnd_(integer *gp, doublereal *x, doublereal *y, integer *npts, real *wx, real *wy); +extern integer ingned_(integer *in, integer *gp, integer *gt, integer *nl, doublereal *x, doublereal *y, integer *npts, integer *nvars__, real *wx, real *wy); +extern integer ingner_(integer *in, integer *gp, integer *gt, integer *nl, real *x, real *y, integer *npts, integer *nvars__, real *wx, real *wy); +extern integer ingnr_(integer *gp, real *x, real *y, integer *npts, real *wx, real *wy); +extern integer inlstd_(integer *index, shortint *outstr, integer *maxch, shortint *dict); +extern integer inlstt_(shortint *str, integer *ip, shortint *dict, integer *skip, shortint *outstr, integer *maxch); +extern integer ior_(integer *a, integer *b); +extern integer irafmn_(shortint *acmd, integer *ainchn, integer *aoutcn, integer *aerrcn, integer *adrivr, integer *adevte, integer *prtype, shortint *bkgfie, integer *jobcoe, I_fp sysruk, I_fp onenty); +extern integer isdiry_(shortint *vfn, shortint *pathne, integer *maxch); +extern integer ishift_(integer *inword, integer *n); +extern integer itoc_(integer *ival, shortint *str, integer *maxch); +extern integer iwcare_(shortint *card, integer *type__, integer *axis, integer *index); +extern integer iwfind_(integer *iw, integer *type__, integer *axis, integer *index); +extern integer iwgbis_(integer *iw, integer *ctype, integer *axis); +extern integer iwopen_(integer *ds, integer *frame, shortint *imname, integer *szimne, integer *wcssts); +extern integer iwrfis_(integer *mw, integer *im, integer *mode); +extern integer ixdecs_(shortint *rangeg, integer *ranges, integer *maxras, integer *nvalus); +extern integer ixgetr_(integer *ranges, integer *number); +extern integer kfmx_(real *rx); +extern integer kfmy_(real *ry); +extern integer kfpx_(real *rx); +extern integer kfpy_(real *ry); +extern integer kicont_(shortint *rname); +extern integer kidece_(shortint *str, integer *nchars); +extern integer kiexte_(shortint *resoue, shortint *nodene, integer *maxch, integer *nchars); +extern integer kifine_(shortint *alias); +extern integer kigetn_(integer *server, integer *oschan); +/*extern integer kigets_(void);*/ +extern integer kignoe_(shortint *rname, shortint *outstr, integer *delim); +extern integer kiloce_(shortint *node); +extern integer kimape_(shortint *name__, shortint *newnae, integer *maxch); +extern integer kimapn_(integer *chan, shortint *nodene, integer *maxch); +extern integer kiopes_(integer *node); +/*extern integer kirece_(integer *server, integer *opcode, integer *subcoe);*/ +/*extern integer kisend_(integer *server, integer *opcode, integer *subcoe);*/ +extern integer kisenv_(integer *server, integer *opcode, integer *subcoe); +extern integer kmallc_(integer *ubufp, integer *nelems, integer *dtype); +extern integer kmpx_(integer *ix); +extern integer kmpy_(integer *iy); +extern integer kpmx_(integer *ix); +extern integer kpmy_(integer *iy); +extern integer krealc_(integer *ptr, integer *aneles, integer *adtype); +extern integer ksrece_(integer *server); +extern integer kssend_(integer *server, integer *opcode, integer *subcoe); +extern integer kumx_(real *rx); +extern integer kumy_(real *ry); +extern integer kupx_(real *rx); +extern integer kupy_(real *ry); +extern integer ldecos_(shortint *rangeg, integer *ranges, integer *maxras, integer *nvalus); +extern integer lexnum_(shortint *str, integer *ipstat, integer *nchars); +extern integer lgetnr_(integer *ranges, integer *number); +extern integer lgetpr_(integer *ranges, integer *number); +extern integer lnofeh_(integer *lp, integer *line, integer *loffst, integer *ltag); +extern integer lnoopn_(integer *maxlis); +extern integer lpopen_(shortint *device, integer *mode, integer *type__); +extern integer lsttot_(integer *lst); +extern integer ltoc_(integer *lval, shortint *outstr, integer *maxch); +extern integer mallo1_(integer *outpur, integer *nelems, integer *dtype, integer *szalin, integer *fwaaln); +extern integer maskcp_(shortint *colorg); +extern integer maskcr_(integer *colors, integer *maskvl); +extern integer mefgei_(integer *mef, shortint *key); +extern integer mefgel_(integer *mef, shortint *key); +extern integer mefgnc_(integer *mef); +extern integer mefkce_(shortint *card, integer *index); +extern integer mefklx_(shortint *outstr); +extern integer meflor_(integer *mef, integer *spool, integer *group); +extern integer mefopn_(shortint *fitsfe, integer *acmode, integer *oldp); +extern integer mefpie_(integer *mef); +extern integer mefrdn_(integer *mef, integer *gn); +extern integer mefrdr_(integer *mef, integer *group, shortint *extnae, integer *extver); +extern integer mefrdv_(integer *mef, shortint *extnae, integer *extver); +extern integer mefred_(integer *fd, shortint *ibuf, shortint *obuf, integer *ncards); +extern integer mefstr_(shortint *s1, shortint *s2); +extern integer meftox_(integer *mef); +extern integer mgdptr_(integer *fwa, integer *dtype, integer *szalin, integer *fwaaln); +extern integer mgtfwa_(integer *ptr, integer *dtype); +extern integer miirec_(integer *fd, integer *spp, integer *maxchs); +extern integer miired_(integer *fd, doublereal *spp, integer *maxelm); +extern integer miirei_(integer *fd, integer *spp, integer *maxelm); +extern integer miirel_(integer *fd, integer *spp, integer *maxelm); +extern integer miirer_(integer *fd, real *spp, integer *maxelm); +extern integer miires_(integer *fd, shortint *spp, integer *maxelm); +extern integer miogld_(integer *mp, integer *ptr, integer *mval, integer *v, integer *npix); +extern integer miogli_(integer *mp, integer *ptr, integer *mval, integer *v, integer *npix); +extern integer miogll_(integer *mp, integer *ptr, integer *mval, integer *v, integer *npix); +extern integer mioglr_(integer *mp, integer *ptr, integer *mval, integer *v, integer *npix); +extern integer miogls_(integer *mp, integer *ptr, integer *mval, integer *v, integer *npix); +extern integer mioglx_(integer *mp, integer *ptr, integer *mval, integer *v, integer *npix); +extern integer mioopn_(shortint *mask, integer *flags, integer *im); +extern integer mioopo_(integer *pm, integer *im); +extern integer miopld_(integer *mp, integer *ptr, integer *mval, integer *v, integer *npix); +extern integer miopli_(integer *mp, integer *ptr, integer *mval, integer *v, integer *npix); +extern integer miopll_(integer *mp, integer *ptr, integer *mval, integer *v, integer *npix); +extern integer mioplr_(integer *mp, integer *ptr, integer *mval, integer *v, integer *npix); +extern integer miopls_(integer *mp, integer *ptr, integer *mval, integer *v, integer *npix); +extern integer mioplx_(integer *mp, integer *ptr, integer *mval, integer *v, integer *npix); +extern integer miosti_(integer *mp, integer *param); +extern integer msvfwa_(integer *fwa, integer *dtype, integer *szalin, integer *fwaaln); +extern integer mtcap_(shortint *mtname); +extern integer mtdevd_(shortint *iodev); +extern integer mtfile_(shortint *fname); +extern integer mtgtyn_(shortint *device, shortint *ufiels); +extern integer mtneeo_(shortint *mtname); +extern integer mtopen_(shortint *mtname, integer *acmode, integer *bufsie); +extern integer mtskid_(integer *fd, integer *nrecos); +extern integer mwalld_(integer *mw, integer *nelem); +extern integer mwalls_(integer *mw, integer *nchars); +extern integer mwcopd_(integer *mw, integer *omw, integer *ooff, integer *nelem); +extern integer mwcops_(integer *mw, integer *omw, integer *ooff); +extern integer mwfins_(integer *mw, shortint *system); +extern integer mwflop_(integer *mw, shortint *fnname); +extern integer mwgctd_(integer *act, doublereal *oltm, doublereal *oltv, integer *axtyp1, integer *axtyp2, integer *maxdim); +extern integer mwgctr_(integer *act, real *oltm, real *oltv, integer *axtyp1, integer *axtyp2, integer *maxdim); +extern integer mwnewy_(integer *omw); +extern integer mwopem_(integer *im); +extern integer mwopen_(integer *bufptr, integer *ndim); +extern integer mwrefr_(integer *mw, shortint *str); +extern integer mwsave_(integer *omw, integer *bp, integer *buflen); +extern integer mwsctn_(integer *mw, shortint *syste1, shortint *syste2, integer *axbits); +extern integer mwstai_(integer *mw, integer *param); +extern integer ndopen_(shortint *fname, integer *mode); +extern integer nerro_(integer *nerr); +extern integer nowhie_(shortint *in, shortint *out, integer *maxch); +extern integer nscan_(void); +extern integer obsgei_(integer *obs, shortint *param); +extern integer obsopn_(shortint *obsery); +extern integer obspas_(integer *obs, shortint *param); +extern integer obsvon_(shortint *obsery, integer *verboe); +extern integer oifrdr_(integer *fd, integer *im, integer *uchars, integer *htype); +extern integer onenty_(integer *prtype, shortint *bkgfie, shortint *cmd); +extern integer onenty_(integer *prtype, shortint *bkgfie, shortint *cmd); +extern integer oscmd_(shortint *cmd, shortint *infile__, shortint *outfie, shortint *errfie); +extern integer osfnlk_(shortint *osfn); +extern integer osfntt_(shortint *osfn, integer *time); +extern integer osfnuk_(shortint *osfn, integer *time); +extern integer patamh_(shortint *str, integer *from, shortint *pat); +extern integer patgel_(shortint *patstr, shortint *patbuf, integer *szpat, integer *ip, integer *op); +extern integer patgse_(shortint *pat, integer *n); +extern integer patinx_(shortint *pat, integer *n); +extern integer patloe_(shortint *ch, shortint *pat, integer *offset); +extern integer patmae_(shortint *str, shortint *pat, integer *szpat); +extern integer patmah_(shortint *str, shortint *pat); +extern integer patomh_(shortint *str, integer *ip, shortint *pat, integer *pp); +extern integer patsts_(shortint *patbuf, integer *szpat, integer *op, integer *lastop, integer *lastce); +extern integer peaks_(real *x, real *y, real *backgd, integer *npts, real *dx); +extern integer pggetd_(integer *tty, shortint *fname, integer *nchars, integer *totchs, integer *lineno, integer *fileno, integer *nfiles); +extern integer pggete_(integer *fd, shortint *lbuf); +extern integer pgpage_(integer *tty, shortint *fname, shortint *newfne, shortint *upromt, integer *clearn, integer *firste, integer *mapcc, integer *fileno, integer *nfiles, logical *redirn, integer *spoold); +extern integer pgpeed_(void); +extern integer placcs_(integer *pl, integer *v); +extern integer plallc_(integer *pl, integer *nwords); +extern integer plcome_(integer *pl1, integer *pl2, integer *outfd); +extern integer plcree_(integer *naxes, integer *axlen, integer *depth); +extern integer plempe_(integer *pl); +extern integer pll2pi_(shortint *llsrc, integer *xs, integer *pxdst, integer *npix); +extern integer pll2pl_(shortint *llsrc, integer *xs, integer *pxdst, integer *npix); +extern integer pll2ps_(shortint *llsrc, integer *xs, shortint *pxdst, integer *npix); +extern integer pll2ri_(shortint *llsrc, integer *xs, integer *rl, integer *npix); +extern integer pll2rl_(shortint *llsrc, integer *xs, integer *rl, integer *npix); +extern integer pll2rs_(shortint *llsrc, integer *xs, shortint *rl, integer *npix); +extern integer plllen_(shortint *ll); +extern integer plloop_(integer *v, integer *vs, integer *ve, integer *ndim); +extern integer plnewy_(integer *oldpl); +extern integer plopen_(integer *smp); +extern integer plp2li_(integer *pxsrc, integer *xs, shortint *lldst, integer *npix); +extern integer plp2ll_(integer *pxsrc, integer *xs, shortint *lldst, integer *npix); +extern integer plp2ls_(shortint *pxsrc, integer *xs, shortint *lldst, integer *npix); +extern integer plp2ri_(integer *pxsrc, integer *xs, integer *rl, integer *npix); +extern integer plp2rl_(integer *pxsrc, integer *xs, integer *rl, integer *npix); +extern integer plp2rs_(shortint *pxsrc, integer *xs, shortint *rl, integer *npix); +extern integer plr2li_(integer *rlsrc, integer *xs, shortint *lldst, integer *npix); +extern integer plr2ll_(integer *rlsrc, integer *xs, shortint *lldst, integer *npix); +extern integer plr2ls_(shortint *rlsrc, integer *xs, shortint *lldst, integer *npix); +extern integer plr2pi_(integer *rlsrc, integer *xs, integer *pxdst, integer *npix); +extern integer plr2pl_(integer *rlsrc, integer *xs, integer *pxdst, integer *npix); +extern integer plr2ps_(shortint *rlsrc, integer *xs, shortint *pxdst, integer *npix); +extern integer plrefe_(integer *pl, integer *v); +extern integer plrgex_(integer *plr, integer *i__, integer *j); +extern integer plropn_(integer *pl, integer *plane, integer *buflit); +extern integer plsave_(integer *pl, integer *bp, integer *buflen, integer *flags); +extern integer plstai_(integer *pl, integer *param); +extern integer pmaccs_(integer *pl, integer *v); +extern integer pmnewk_(integer *refim, integer *depth); +extern integer pmrgex_(integer *pmr, integer *i__, integer *j); +extern integer pmropn_(integer *pl, integer *plane, integer *buflit); +extern integer pmstai_(integer *pl, integer *param); +extern integer pollgs_(integer *fds); +extern integer pollon_(void); +extern integer polltt_(integer *fds, integer *fd, integer *type__); +extern integer prclcr_(integer *pid); +extern integer prcldr_(integer *job); +extern integer prcloe_(integer *pid); +extern integer prdone_(integer *job); +extern integer prenve_(integer *pid, integer *marker); +/*extern integer prfilf_(integer *fd);*/ +extern integer prfinc_(integer *pid); +extern integer prgete_(integer *fd, shortint *lbuf); +extern integer prgetr_(integer *pid, integer *stream); +extern integer propcr_(shortint *proces, integer *in, integer *out); +extern integer propdr_(shortint *proces, shortint *bkgfie, shortint *bkgmsg); +extern integer propen_(shortint *proces, integer *in, integer *out); +extern integer protet_(shortint *fname, integer *action); +extern integer prpsio_(integer *pid, integer *fd, integer *rwflag); +extern integer prstai_(integer *pid, integer *param); +extern integer pscens_(integer *ps, shortint *str); +extern integer pschwh_(shortint *ch, integer *font); +extern integer psgett_(integer *ps, shortint *fontcr); +extern integer psioit_(shortint *lbuf, integer *pseude, integer *nchars); +extern integer psopen_(integer *fd, integer *defaur); +extern integer psrjps_(integer *ps, shortint *str); +extern integer pstexh_(integer *ps, shortint *str); +extern integer qmaccs_(void); +extern integer qmgetc_(integer *fd, integer *ch); +extern integer qmsetr_(integer *uservl, integer *defval); +extern integer qmspai_(integer *uservl, integer *defval); +extern integer qmsymb_(integer *qm); +extern integer qpaccf_(integer *qp, shortint *param); +extern integer qpaccs_(shortint *poefie, integer *mode); +extern integer qpargt_(integer *gt, shortint *argbuf, integer *maxch); +extern integer qpctod_(shortint *str, integer *ip, doublereal *dval); +extern integer qpctoi_(shortint *str, integer *ip, integer *ival); +extern integer qpdtye_(integer *qp, shortint *datate, integer *dsym); +extern integer qpelee_(integer *qp, shortint *datate, integer *reftye); +extern integer qpexad_(integer *ex, shortint *attrie, integer *xs, integer *xe, integer *xlen); +extern integer qpexai_(integer *ex, shortint *attrie, integer *xs, integer *xe, integer *xlen); +extern integer qpexar_(integer *ex, shortint *attrie, integer *xs, integer *xe, integer *xlen); +extern integer qpexcd_(integer *ex, shortint *atname, shortint *assigp, shortint *expr, integer *offset, integer *dtype); +extern integer qpexci_(integer *ex, shortint *atname, shortint *assigp, shortint *expr, integer *offset, integer *dtype); +extern integer qpexcr_(integer *ex, shortint *atname, shortint *assigp, shortint *expr, integer *offset, integer *dtype); +extern integer qpexdc_(integer *ex, integer *nelem, integer *dtype); +extern integer qpexdr_(integer *ex, shortint *strval); +extern integer qpexee_(integer *ex, integer *iev, integer *oev, integer *nev); +extern integer qpexge_(integer *ex, shortint *attrie, shortint *outstr, integer *maxch); +extern integer qpexgr_(integer *ex, shortint *outstr, integer *maxch); +extern integer qpexmr_(integer *ex, shortint *exprlt); +extern integer qpexon_(integer *qp, shortint *expr); +extern integer qpexpd_(shortint *expr, integer *xs, integer *xe, integer *xlen); +extern integer qpexpi_(shortint *expr, integer *xs, integer *xe, integer *xlen); +extern integer qpexpr_(shortint *expr, integer *xs, integer *xe, integer *xlen); +extern integer qpexps_(integer *ex); +extern integer qpexpt_(integer *qp, shortint *s1, shortint *s2, integer *maxch); +extern integer qpexrd_(integer *ex, doublereal *value); +extern integer qpexsd_(doublereal *x1, doublereal *x2, doublereal *xs, doublereal *xe, integer *nrangs, integer *ip, doublereal *oxs, doublereal *oxe); +extern integer qpexsi_(integer *x1, integer *x2, integer *xs, integer *xe, integer *nrangs, integer *ip, integer *oxs, integer *oxe); +extern integer qpexsr_(real *x1, real *x2, real *xs, real *xe, integer *nrangs, integer *ip, real *oxs, real *oxe); +extern integer qpgeti_(integer *qp, shortint *param); +extern integer qpgetk_(integer *gt, shortint *tokbuf, integer *maxch); +extern integer qpgetl_(integer *qp, shortint *param); +extern integer qpgetm_(integer *qp, shortint *param, integer *opp); +extern integer qpgmsm_(integer *qp, shortint *macro, integer *textp); +extern integer qpgnfn_(integer *fl, shortint *outstr, integer *maxch); +extern integer qpgpsm_(integer *qp, shortint *param); +extern integer qpgstr_(integer *qp, shortint *param, shortint *outstr, integer *maxch); +extern integer qpioge_(integer *io, integer *vs, integer *ve, integer *maxdim); +extern integer qpiogr_(integer *io, shortint *outstr, integer *maxch); +extern integer qpiols_(integer *io); +extern integer qpioon_(integer *qp, shortint *paramx, integer *mode); +extern integer qpiope_(integer *io, shortint *expr, integer *filter, integer *szfilr, shortint *mask, integer *szmask); +extern integer qpiori_(integer *io, integer *obuf, integer *vs, integer *ve, integer *ndim, real *xblock, real *yblock); +extern integer qpiors_(integer *io, shortint *obuf, integer *vs, integer *ve, integer *ndim, real *xblock, real *yblock); +extern integer qpiort_(integer *io, integer *evi); +extern integer qpiost_(integer *io, integer *param); +extern integer qplenf_(integer *qp, shortint *param); +extern integer qplenl_(integer *fl); +extern integer qploas_(integer *qp); +extern integer qpmaxi_(integer *x, integer *y); +extern integer qpmini_(integer *x, integer *y); +extern integer qpnexk_(integer *gt); +extern integer qpofnl_(integer *qp, shortint *temple, logical *sort); +extern integer qpofns_(integer *qp, shortint *temple); +extern integer qpofnu_(integer *qp, shortint *temple); +extern integer qpopen_(shortint *poefie, integer *mode, integer *oqp); +extern integer qpopet_(integer *qp, shortint *text); +extern integer qpparl_(integer *qp, shortint *fieldt, integer *dd); +extern integer qppopn_(integer *qp, shortint *param, integer *mode, integer *type__); +extern integer qpputm_(integer *qp, shortint *param, integer *opp); +extern integer qpquef_(integer *qp, shortint *param, shortint *datate, integer *maxelm, shortint *commet, integer *flags); +extern integer qprawk_(integer *gt, shortint *outstr, integer *maxch); +extern integer qpread_(integer *qp, shortint *param, shortint *buf, integer *maxelm, integer *first, shortint *datate); +extern integer qprlmd_(integer *os, integer *oe, integer *olen, doublereal *xs, doublereal *xe, integer *nx, doublereal *ys, doublereal *ye, integer *ny); +extern integer qprlmi_(integer *os, integer *oe, integer *olen, integer *xs, integer *xe, integer *nx, integer *ys, integer *ye, integer *ny); +extern integer qprlmr_(integer *os, integer *oe, integer *olen, real *xs, real *xe, integer *nx, real *ys, real *ye, integer *ny); +extern integer qpsizf_(integer *qp, integer *dtype, integer *dsym, integer *reftye); +extern integer qpstai_(integer *qp, integer *param); +extern integer rcursr_(integer *stream, shortint *outstr, integer *maxch); +extern integer rdukey_(shortint *keystr, integer *maxch); +extern integer reopen_(integer *fd, integer *mode); +extern integer rgence_(integer *rg, shortint *outstr, integer *maxch); +extern integer rginre_(integer *rg, integer *rval); +extern integer rgintt_(integer *rg1, integer *rg2); +extern integer rgnext_(integer *rg, integer *number); +extern integer rgrans_(shortint *rstr, integer *rmin, integer *rmax); +extern integer rgunin_(integer *rg1, integer *rg2); +extern integer rgwinw_(integer *rg, integer *rmin, integer *rmax); +extern integer rgxrad_(shortint *rstr, doublereal *rvals, integer *npts); +extern integer rgxrar_(shortint *rstr, real *rvals, integer *npts); +extern integer rmopen_(integer *box, shortint *type__, integer *ndatas, integer *pixtye); +extern integer rmsopn_(integer *box, integer *type__, real *data); +extern integer rmtopn_(integer *box, real *data); +extern integer rnginx_(integer *rg, integer *ival, real *rval); +extern integer rngopn_(shortint *rstr, real *r1, real *r2, real *dr); +extern integer sgeexe_(shortint *progrm, shortint *memory, integer *regiss); +extern integer sgfger_(integer *fd, shortint *svbuf, integer *sp, shortint *buf, integer *ip, integer *maxch, integer *nchars); +extern integer sgidrr_(shortint *ch, integer *x, integer *y, integer *xsize, integer *ysize, integer *orien, integer *font); +extern integer sgigeg_(integer *maxlen, logical *penup, integer *ltype); +extern integer sgigsg_(shortint *cap); +extern integer sgkopn_(shortint *device, integer *tty); +extern integer siblki_(integer *im, integer *x1, integer *x2, integer *y, integer *xbavg, integer *ybavg); +extern integer siblkr_(integer *im, integer *x1, integer *x2, integer *y, integer *xbavg, integer *ybavg); +extern integer siblks_(integer *im, integer *x1, integer *x2, integer *y, integer *xbavg, integer *ybavg); +extern integer siblmi_(integer *im, integer *fp, integer *x1, integer *x2, integer *y, integer *xbavg, integer *ybavg, integer *order); +extern integer siblmr_(integer *im, integer *fp, integer *x1, integer *x2, integer *y, integer *xbavg, integer *ybavg, integer *order); +extern integer siblms_(integer *im, integer *fp, integer *x1, integer *x2, integer *y, integer *xbavg, integer *ybavg, integer *order); +extern integer skcopy_(integer *cooin); +extern integer skdecm_(integer *im, shortint *wcs, integer *mw, integer *coo); +extern integer skdecr_(shortint *instr, integer *coo, integer *imcoo); +extern integer skdecs_(shortint *instr, integer *mw, integer *coo, integer *imcoo); +extern integer skimws_(integer *im, integer *mw, integer *ctype, integer *lngax, integer *latax, integer *wtype, integer *radecs, doublereal *equinx, doublereal *epoch); +extern integer skstai_(integer *coo, integer *param); +extern integer skstrs_(shortint *instr, integer *ctype, integer *radecs, doublereal *equinx, doublereal *epoch); +extern integer skwrdr_(integer *index, shortint *outstr, integer *maxch, shortint *dict); +extern integer stallc_(integer *stp, integer *blklen); +extern integer stentr_(integer *stp, shortint *key, integer *usymln); +extern integer stfcte_(shortint *card, integer *index); +extern integer stfind_(integer *stp, shortint *key); +extern integer stfinl_(integer *stp, shortint *key, integer *symbos, integer *maxsys); +extern integer stgene_(shortint *progrm, shortint *memory, integer *regiss); +extern integer stggee_(integer *fd, shortint *obuf); +extern integer stggsg_(shortint *cap); +extern integer stgmsn_(integer *fd); +extern integer stgrey_(integer *fd, shortint *obuf, integer *maxch); +extern integer stgtxe_(integer *pksize); +extern integer sthash_(shortint *key, integer *moduls); +extern integer sthead_(integer *stp); +extern integer stname_(integer *stp, integer *sym); +extern integer stnext_(integer *stp, integer *sym); +extern integer stnsys_(integer *stp, integer *marker); +extern integer stopen_(shortint *name__, integer *leninx, integer *lenstb, integer *szsbuf); +extern integer stpstr_(integer *stp, shortint *str, integer *minchs); +extern integer strdic_(shortint *instr, shortint *outstr, integer *maxchs, shortint *dict); +extern integer strefb_(integer *stp, integer *offset); +extern integer streff_(integer *stp, integer *offset); +extern integer strese_(integer *fd); +extern integer strgee_(integer *fd); +extern integer strids_(shortint *set, shortint *str); +extern integer stridx_(shortint *ch, shortint *str); +extern integer strlds_(shortint *set, shortint *str); +extern integer strldx_(shortint *ch, shortint *str); +extern integer strmac_(shortint *macro, shortint *argstr, shortint *outstr, integer *maxch); +extern integer strmah_(shortint *str, shortint *pat); +extern integer strncp_(shortint *s1, shortint *s2, integer *n); +extern integer stropn_(shortint *str, integer *maxch, integer *mode); +extern integer strseh_(shortint *str, shortint *patstr); +extern integer stsize_(integer *stp); +extern integer sttygg_(shortint *args, integer *ip, shortint *keyw, integer *maxkc, shortint *value, integer *maxvc, integer *defact, integer *yesno); +extern integer sysged_(integer *fd, shortint *cmd, shortint *taskne, integer *arglit, integer *timeit, integer *prtype); +extern integer syshot_(shortint *keyfi1, shortint *keyfi2, shortint *parfie, shortint *showpt, logical *showvl); +extern integer sysruk_(shortint *task, shortint *cmd, integer *rukarf, integer *rukint); +extern integer sysruk_(shortint *task, shortint *cmd, integer *rukarf, integer *rukint); +extern integer ttopen_(shortint *termil, integer *mode); +extern integer ttstai_(integer *fd, integer *param); +extern integer ttstas_(integer *fd, integer *param, shortint *outstr, integer *maxch); +extern integer ttybih_(integer *capcoe, integer *tcapce, integer *ncaps); +extern integer ttycas_(integer *tty); +extern integer ttyctl_(integer *fd, integer *tty, shortint *cap, integer *afflnt); +extern integer ttyeny_(shortint *cap); +extern integer ttyexs_(shortint *str, integer *ip, shortint *outstr, integer *maxch); +extern integer ttyfiy_(integer *tty, shortint *cap, integer *ip); +extern integer ttygds_(shortint *ttynae); +extern integer ttygei_(integer *tty, shortint *cap); +extern integer ttyges_(integer *tty, shortint *cap, shortint *outstr, integer *maxch); +extern integer ttylod_(shortint *fname, shortint *device, shortint *outstr, integer *maxch); +extern integer ttyods_(shortint *ttynae); +extern integer ttyopn_(shortint *termce, shortint *device, I_fp ttylod); +extern integer ttyred_(integer *fd, integer *tty, shortint *outbuf, integer *maxch, shortint *patbuf, integer *timeot); +extern integer ttysti_(integer *tty, integer *paramr); +extern integer ttysui_(shortint *ctrlsr, shortint *outstr, integer *maxch, integer *coords, integer *ncoors); +extern integer vfnadd_(integer *vfd, shortint *osfn, integer *maxch); +extern integer vfndee_(shortint *osfn, integer *ip, shortint *outstr, integer *maxch); +extern integer vfndel_(integer *vfd, shortint *osfn, integer *maxch); +extern integer vfnenr_(integer *vfd, shortint *osfn, integer *maxch); +extern integer vfngen_(integer *vfd, shortint *vfn, shortint *osfn, integer *maxch); +extern integer vfnise_(shortint *fname); +extern integer vfnmap_(integer *vfd, shortint *osfn, integer *maxch); +extern integer vfnmau_(integer *vfd, shortint *osfn, integer *maxch); +extern integer vfnopn_(shortint *vfn, integer *mode); +extern integer vfnunp_(integer *vfd, shortint *osfn, shortint *vfn, integer *maxch); +extern integer vvfncm_(shortint *a, integer *nchars); +extern integer wfgson_(shortint *atstr); +extern integer wfsmph_(doublereal *x, doublereal *v, integer *npts); +extern integer wlcree_(void); +extern integer wldir1_(integer *wlct, integer *flip, doublereal *polepn, logical *north, doublereal *polarn, doublereal *lbegin, doublereal *lend, doublereal *screey); +extern integer wlfine_(doublereal *x, doublereal *y, doublereal *screey); +extern integer wlfuln_(integer *wd, integer *labels, integer *nlabes, integer *axis, integer *side, integer *precin); +extern integer wlline_(shortint *linetg); +extern integer wlmaxy_(doublereal *array, integer *npts); +extern integer wloppe_(integer *side); +extern integer wlpren_(integer *wd, integer *axis); +extern integer xalloe_(shortint *device); +extern integer xdeale_(shortint *device, integer *rewind); +extern integer xdevor_(shortint *device, shortint *owner, integer *maxch); +extern integer xerpoi_(void); +extern integer xfaccs_(shortint *fname, integer *mode, integer *type__); +extern integer xfnote_(integer *fd); +extern integer xfopen_(shortint *fname, integer *mode, integer *type__); +extern integer xfpoll_(integer *fds, integer *nfds, integer *timeot); +extern integer xfread_(integer *fd, shortint *buffer, integer *maxchs); +extern integer xfscan_(integer *fd); +extern integer xgdevt_(shortint *device, shortint *outstr, integer *maxch, integer *onedev); +extern integer xgtpid_(void); +extern integer xisaty_(integer *fd); +extern integer xnint_(doublereal *x); +extern integer xsizef_(integer *dtype); +extern integer xstrcp_(shortint *s1, shortint *s2); +extern integer xstrln_(shortint *str); +extern integer xtargn_(shortint *argstr); +extern integer xtbaon_(integer *nc, integer *nl, integer *maxval); +extern integer xtext1_(shortint *files, shortint *exttye, shortint *index, shortint *extnae, shortint *extver, integer *lindex, integer *lname, integer *lver, shortint *ikpars, integer *err); +extern integer xtexts_(shortint *files, shortint *exttye, shortint *index, shortint *extnae, shortint *extver, integer *lindex, integer *lname, integer *lver, integer *datals, shortint *ikpars, integer *err, integer *imext); +extern integer xtfpd_(integer *fp, integer *im, integer *line, integer *fd); +extern integer xtfpi_(integer *fp, integer *im, integer *line, integer *fd); +extern integer xtfpit_(integer *pm, integer *lvalin, integer *cvalin); +extern integer xtfpl_(integer *fp, integer *im, integer *line, integer *fd); +extern integer xtfpr_(integer *fp, integer *im, integer *line, integer *fd); +extern integer xtfps_(integer *fp, integer *im, integer *line, integer *fd); +extern integer xtfpsd_(integer *fp, integer *im, integer *line, integer *col1, integer *col2, integer *line1, integer *line2, integer *fd); +extern integer xtfpsi_(integer *fp, integer *im, integer *line, integer *col1, integer *col2, integer *line1, integer *line2, integer *fd); +extern integer xtfpsl_(integer *fp, integer *im, integer *line, integer *col1, integer *col2, integer *line1, integer *line2, integer *fd); +extern integer xtfpsr_(integer *fp, integer *im, integer *line, integer *col1, integer *col2, integer *line1, integer *line2, integer *fd); +extern integer xtfpss_(integer *fp, integer *im, integer *line, integer *col1, integer *col2, integer *line1, integer *line2, integer *fd); +extern integer xtfpvd_(integer *fp, integer *im, integer *line); +extern integer xtfpvi_(integer *fp, integer *im, integer *line); +extern integer xtfpvl_(integer *fp, integer *im, integer *line); +extern integer xtfpvr_(integer *fp, integer *im, integer *line); +extern integer xtfpvs_(integer *fp, integer *im, integer *line); +extern integer xtimes_(shortint *files, shortint *index, shortint *extnae, shortint *extver, integer *lindex, integer *lname, integer *lver, shortint *ikpars, integer *err); +extern integer xtimtm_(integer *list1, integer *list2, integer *list3, shortint *image1, shortint *image2, shortint *image3, integer *szimae); +extern integer xtlogn_(shortint *logpam, shortint *prefix, integer *logfd, integer *stdflg); +extern integer xtoc_(complex *xval, shortint *outstr, integer *maxch, integer *decpl, integer *fmt, integer *width); +extern integer xtsamd_(integer *im, integer *bpm, doublereal *sample, integer *nsampe, integer *nlines); +extern integer xtsami_(integer *im, integer *bpm, integer *sample, integer *nsampe, integer *nlines); +extern integer xtsamr_(integer *im, integer *bpm, real *sample, integer *nsampe, integer *nlines); +extern integer xtsams_(integer *im, integer *bpm, shortint *sample, integer *nsampe, integer *nlines); +extern integer xtscod_(integer *i__, integer *j); +extern integer xtscoe_(integer *i__, integer *j); +extern integer xttxtn_(shortint *fname); +extern integer xvvnee_(integer *type1, integer *type2); +extern integer xvvpah_(shortint *str, shortint *pat); +extern integer xxscan_(void); +extern integer ytfpit_(integer *pmin, integer *lvalin, integer *cvalin); +extern integer zsccoa_(real *a, shortint *badpix, integer *npix, real *mean, real *sigma); +extern integer zscfie_(real *data, integer *npix, real *zstart, real *zslope, real *krej, integer *ngrow, integer *maxitr); +extern integer zscpmn_(shortint *sectin, integer *refim); +extern integer zscres_(real *data, real *flat, real *normx, shortint *badpix, integer *npix, doublereal *sumxsr, doublereal *sumxz, doublereal *sumx, doublereal *sumz, real *thresd, integer *ngrow); +extern integer zttger_(integer *chan, integer *ch); +extern integer zttloe_(shortint *in, shortint *out, integer *nchars); +extern integer zttquy_(shortint *logtet, integer *nchars, shortint *dtext, integer *maxch, integer *szdtet); +extern logical aveqc_(shortint *a, shortint *b, integer *npix); +extern logical aveqd_(doublereal *a, doublereal *b, integer *npix); +extern logical aveqi_(integer *a, integer *b, integer *npix); +extern logical aveql_(integer *a, integer *b, integer *npix); +extern logical aveqr_(real *a, real *b, integer *npix); +extern logical aveqs_(shortint *a, shortint *b, integer *npix); +extern logical aveqx_(complex *a, complex *b, integer *npix); +extern logical clgetb_(shortint *param); +extern logical clgpsb_(integer *pp, shortint *parnae); +extern logical envgeb_(shortint *varnae); +extern logical fmlocd_(integer *fm, integer *lfile); +extern logical fnulle_(shortint *fname); +extern logical fpequd_(doublereal *x, doublereal *y); +extern logical fpequr_(real *x, real *y); +extern logical fpnonr_(real *x1, real *x2); +extern logical fxffpd_(doublereal *x, doublereal *y, integer *it); +extern logical fxfisk_(shortint *line); +extern logical fxfxn1_(shortint *buf, integer *dataln); +extern logical ggetb_(integer *gp, shortint *cap); +extern logical glbeq_(real *a, real *b); +extern logical gtygeb_(integer *tty, shortint *cap); +extern logical imgetb_(integer *im, shortint *key); +extern logical impml1_(integer *im); +extern logical impml2_(integer *im, integer *lineno); +extern logical impml3_(integer *im, integer *lineno, integer *bandno); +extern logical impmlv_(integer *im, integer *v); +extern logical impms1_(integer *im, integer *x1, integer *x2); +extern logical impms2_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2); +extern logical impms3_(integer *im, integer *x1, integer *x2, integer *y1, integer *y2, integer *z1, integer *z2); +extern logical impmsv_(integer *im, integer *vs, integer *ve, integer *ndim); +extern logical isinre_(integer *ranges, integer *number); +extern logical itob_(integer *intege); +extern logical lisine_(integer *ranges, integer *number); +extern logical mefcmv_(integer *mef, shortint *extnae, integer *extver); +extern logical mefgeb_(integer *mef, shortint *key); +extern logical plempy_(integer *pl); +extern logical pllcot_(shortint *llsrc, integer *xs, integer *npix, integer *mval); +extern logical pllemy_(shortint *llsrc, integer *xs, integer *npix); +extern logical plleql_(shortint *l1, shortint *l2); +extern logical plliny_(integer *pl, integer *v); +extern logical plreqi_(integer *r1, integer *r2); +extern logical plreql_(integer *r1, integer *r2); +extern logical plreqs_(shortint *r1, shortint *r2); +extern logical plsect_(integer *plsrc, integer *v1, integer *v2, integer *ndim, integer *mval); +extern logical plsecy_(integer *plsrc, integer *v1, integer *v2, integer *ndim); +extern logical plubox_(integer *ufd, integer *y, integer *rlreg, integer *xs, integer *npix); +extern logical plucie_(integer *ufd, integer *y, integer *rlreg, integer *xs, integer *npix); +extern logical plupon_(integer *ufd, integer *line, integer *rlreg, integer *xs, integer *npix); +extern logical pmempy_(integer *pl); +extern logical pmliny_(integer *pl, integer *v); +extern logical pmsect_(integer *pl, integer *vs, integer *ve, integer *ndim, integer *mval); +extern logical pmsecy_(integer *pl, integer *vs, integer *ve, integer *ndim); +extern logical qpgetb_(integer *qp, shortint *param); +extern logical qplesd_(doublereal *x, doublereal *y); +extern logical qplesi_(integer *x, integer *y); +extern logical qplesr_(real *x, real *y); +extern logical rngeli_(integer *rg, integer *x); +extern logical rngelr_(integer *rg, real *x, real *delta); +extern logical rngini_(integer *rg, integer *x); +extern logical rnginr_(integer *rg, real *x); +extern logical sgewse_(void); +extern logical sgmexe_(integer *fn, shortint *gim, integer *nwords); +extern logical sgmspc_(integer *tr, integer *gki, integer *fn, shortint *gim, integer *bp, integer *buftop, integer *deletn); +extern logical sgmwse_(logical *enable); +extern logical sgmwsn_(integer *fn, shortint *gim, real *rx1, real *ry1, real *rx2, real *ry2); +extern logical streq_(shortint *s1, shortint *s2); +extern logical strge_(shortint *s1, shortint *s2); +extern logical strgt_(shortint *s1, shortint *s2); +extern logical strle_(shortint *s1, shortint *s2); +extern logical strlt_(shortint *s1, shortint *s2); +extern logical strne_(shortint *s1, shortint *s2); +extern logical strse1_(shortint *str, shortint *patstr, integer *patlen); +extern logical ttygeb_(integer *tty, shortint *cap); +extern logical xerpop_(void); +extern logical xtexth_(shortint *extnae, shortint *pattes); +extern logical xtimlq_(integer *im1, integer *im2); +extern logical xtimnq_(shortint *imnam1, shortint *imnam2); +extern real adoti_(integer *a, integer *b, integer *npix); +extern real adotr_(real *a, real *b, integer *npix); +extern real adots_(shortint *a, shortint *b, integer *npix); +extern real adotx_(complex *a, complex *b, integer *npix); +extern real aelogr_(real *x); +extern real agmaxi_(real *sval, real *zhgh, real *zdra, integer *nviz, integer *iivz, integer *nevz, integer *iiez); +extern real agmini_(real *sval, real *zlow, real *zdra, integer *nviz, integer *iivz, integer *nevz, integer *iiez); +extern real ahivr_(real *a, integer *npix); +extern real alovr_(real *a, integer *npix); +extern real amedr_(real *a, integer *npix); +extern real apolr_(real *x, real *coeff, integer *ncoeff); +extern real asokr_(real *a, integer *npix, integer *ksel); +extern real assqi_(integer *a, integer *npix); +extern real assqr_(real *a, integer *npix); +extern real assqs_(shortint *a, integer *npix); +extern real asumi_(integer *a, integer *npix); +extern real asumr_(real *a, integer *npix); +extern real asums_(shortint *a, integer *npix); +extern real c1dcer_(real *x, real *data, integer *npts, real *width); +extern real cented_(real *x, real *data, integer *npts, real *width, integer *type__, real *radius, real *thresd); +extern real cfux_(real *rx); +extern real cfuy_(real *ry); +extern real clgetr_(shortint *param); +extern real clgpsr_(integer *pp, shortint *parnae); +extern real cmfx_(integer *ix); +extern real cmfy_(integer *iy); +extern real cmux_(integer *ix); +extern real cmuy_(integer *iy); +extern real concom_(real *xq, real *yq, real *xd, real *yd, real *zd, integer *ndp, real *wk, integer *iwk, integer *loc); +extern real conlcm_(real *x, real *y, real *xd, real *yd, real *zd, integer *ndp, real *wk, integer *iwk, integer *loc); +extern real cpfx_(integer *ix); +extern real cpfy_(integer *iy); +extern real cpux_(integer *ix); +extern real cpuy_(integer *iy); +extern real cqdger_(integer *cq, integer *record, shortint *field); +extern real cqfger_(integer *cq, shortint *field); +extern real cqistr_(integer *res, integer *param); +extern real cqrstr_(integer *res, integer *param); +extern real cufx_(real *rx); +extern real cufy_(real *ry); +extern real dtgetr_(integer *dt, integer *record, shortint *field); +extern real elogr_(real *x); +extern real envger_(shortint *varnae); +extern real fpfixr_(real *x); +extern real fran_(void); +extern real gammln_(real *xx); +extern real gasdev_(integer *seed); +extern real ggetr_(integer *gp, shortint *cap); +extern real glbmip_(real *x1, real *x2, integer *nminor); +extern real glbtin_(integer *gp, integer *ax, real *ndcleh); +extern real grcrel_(shortint *opstr, integer *ip); +extern real gstatr_(integer *gp, integer *param); +extern real gtdise_(real *x, real *step, real *nearek); +extern real gtgetr_(integer *gt, integer *param); +extern real gtliny_(real *x1, real *x2); +extern real gtxctn_(integer *gp, real *x1, integer *wcs1, integer *wcs2); +extern real gtyctn_(integer *gp, real *y1, integer *wcs1, integer *wcs2); +extern real gtyger_(integer *tty, shortint *cap); +extern real icrmsr_(real *x, real *y, real *fit, real *wts, integer *npts); +extern real imgetr_(integer *im, shortint *key); +extern real imstar_(integer *im, integer *param); +extern real ingdvr_(real *x); +extern real ingetr_(integer *in, integer *param); +extern real inrmsr_(real *y, real *fit, real *wts, integer *npts); +extern real mefger_(integer *mef, shortint *key); +extern real mwc1tr_(integer *act, real *x); +extern real obsger_(integer *obs, shortint *param); +extern real poidev_(real *xm, integer *seed); +extern real qmspar_(real *uservl, real *defval); +extern real qpgetr_(integer *qp, shortint *param); +extern real qpiovr_(integer *io, integer *param); +extern real qpmaxr_(real *x, real *y); +extern real qpminr_(real *x, real *y); +extern real qpstar_(integer *qp, integer *param); +extern real rmgdaa_(integer *rm, integer *index); +extern real rmgmed_(integer *rm, real *nclip, integer *navg, real *blank, integer *exclue, shortint *nused); +extern real rmmed_(integer *rm, real *nclip, integer *navg, real *blank, integer *exclue, integer *index, real *in, shortint *mask, shortint *nused); +extern real rmsord_(integer *rm, real *nclip, integer *index, real *data); +extern real rmturh_(integer *rm, integer *index, real *data); +extern real rngnet_(integer *rg, real *x, integer *ival, real *rval); +extern real rpthe4_(real *p1x, real *p1y, real *p2x, real *p2y); +extern real ttyger_(integer *tty, shortint *cap); +extern real wldisr_(real *x1, real *y1, real *x2, real *y2); +extern shortint ahivc_(shortint *a, integer *npix); +extern shortint ahivs_(shortint *a, integer *npix); +extern shortint alovc_(shortint *a, integer *npix); +extern shortint alovs_(shortint *a, integer *npix); +extern shortint amedc_(shortint *a, integer *npix); +extern shortint ameds_(shortint *a, integer *npix); +extern shortint asokc_(shortint *a, integer *npix, integer *ksel); +extern shortint asoks_(shortint *a, integer *npix, integer *ksel); +extern shortint chfeth_(shortint *str, integer *ip, shortint *ch); +extern shortint chrlwr_(shortint *ch); +extern shortint chrupr_(shortint *ch); +extern shortint clgetc_(shortint *param); +extern shortint clgets_(shortint *param); +extern shortint clgpsc_(integer *pp, shortint *parnae); +extern shortint clgpss_(integer *pp, shortint *parnae); +extern shortint cqitye_(integer *itype); +extern shortint imgetc_(integer *im, shortint *key); +extern shortint imgets_(integer *im, shortint *key); +extern shortint mefgec_(integer *mef, shortint *key); +extern shortint mefges_(integer *mef, shortint *key); +extern shortint psfonr_(integer *ps, integer *font); +extern shortint qpgetc_(integer *qp, shortint *param); +extern shortint qpgets_(integer *qp, shortint *param); +extern shortint xfgetc_(integer *fd, shortint *ch); +extern shortint xfgetr_(shortint *ch); +extern int bitmov_(integer *a, integer *aoff, integer *b, integer *boff, integer *nbits); +extern int bswap2_(char *a, integer *aoff, char *b, integer *boff, integer *nbytes, ftnlen a_len, ftnlen b_len); +extern int bswap4_(char *a, integer *aoff, char *b, integer *boff, integer *nbytes, ftnlen a_len, ftnlen b_len); +extern int bytmov_(char *a, integer *aoff, char *b, integer *boff, integer *nbytes, ftnlen a_len, ftnlen b_len); +extern int chrpak_(shortint *a, integer *aoff, char *b, integer *boff, integer *nchars, ftnlen b_len); +extern int chrupk_(char *a, integer *aoff, shortint *b, integer *boff, integer *nchars, ftnlen a_len); +extern int f77pak_(shortint *sppstr, char *f77str, integer *maxch, ftnlen f77str_len); +extern int f77upk_(char *f77str, shortint *sppstr, integer *maxch, ftnlen f77str_len); +extern int ieevpd_(doublereal *native, doublereal *ieee, integer *nelem); +extern int ieevud_(doublereal *ieee, doublereal *native, integer *nelem); +extern int ieepad_(doublereal *x); +extern int ieeupd_(doublereal *x); +extern int ieesnd_(doublereal *x); +extern int ieegnd_(doublereal *x); +extern int ieestd_(integer *onin, integer *onout); +extern int ieezsd_(void); +extern int ieemad_(integer *inval, integer *outval); +extern int ieegmd_(integer *inval, integer *outval); +extern int ieesmd_(integer *inval, integer *outval); +extern int ieevpr_(real *native, real *ieee, integer *nelem); +extern int ieevur_(real *ieee, real *native, integer *nelem); +extern int ieepar_(real *x); +extern int ieeupr_(real *x); +extern int ieesnr_(real *x); +extern int ieegnr_(real *x); +extern int ieestr_(integer *onin, integer *onout); +extern int ieezsr_(void); +extern int ieemar_(integer *inval, integer *outval); +extern int ieegmr_(integer *inval, integer *outval); +extern int ieesmr_(integer *inval, integer *outval); +extern integer miilen_(integer *nelems, integer *miidae); +extern integer miinem_(integer *nchars, integer *miitye); +extern int miipak_(integer *spp, integer *mii, integer *nelems, integer *sppdae, integer *miidae); +extern int miipa6_(integer *spp, integer *mii, integer *nelems, integer *sppdae); +extern int miipa2_(integer *spp, integer *mii, integer *nelems, integer *sppdae); +extern int miipa8_(integer *spp, integer *mii, integer *nelems, integer *sppdae); +extern int miipad_(integer *spp, doublereal *mii, integer *nelems, integer *sppdae); +extern int miipar_(integer *spp, real *mii, integer *nelems, integer *sppdae); +extern integer miipke_(integer *nelems, integer *miitye); +extern int miiupk_(integer *mii, integer *spp, integer *nelems, integer *miidae, integer *sppdae); +extern int miiup6_(integer *mii, integer *spp, integer *nelems, integer *sppdae); +extern int miiup2_(integer *mii, integer *spp, integer *nelems, integer *sppdae); +extern int miiup8_(integer *mii, integer *spp, integer *nelems, integer *sppdae); +extern int miiupd_(doublereal *mii, integer *spp, integer *nelems, integer *sppdae); +extern int miiupr_(real *mii, integer *spp, integer *nelems, integer *sppdae); +extern integer nmilen_(integer *nelems, integer *nmidae); +extern integer nminem_(integer *nchars, integer *nmitye); +extern int nmipak_(integer *spp, integer *nmi, integer *nelems, integer *sppdae, integer *nmidae); +extern int nmipa6_(integer *spp, integer *nmi, integer *nelems, integer *sppdae); +extern int nmipa2_(integer *spp, integer *nmi, integer *nelems, integer *sppdae); +extern int nmipa8_(integer *spp, integer *nmi, integer *nelems, integer *sppdae); +extern int nmipad_(integer *spp, doublereal *nmi, integer *nelems, integer *sppdae); +extern int nmipar_(integer *spp, real *nmi, integer *nelems, integer *sppdae); +extern integer nmipke_(integer *nelems, integer *nmitye); +extern int nmiupk_(integer *nmi, integer *spp, integer *nelems, integer *nmidae, integer *sppdae); +extern int nmiup6_(integer *nmi, integer *spp, integer *nelems, integer *sppdae); +extern int nmiup2_(integer *nmi, integer *spp, integer *nelems, integer *sppdae); +extern int nmiup8_(integer *nmi, integer *spp, integer *nelems, integer *sppdae); +extern int nmiupd_(doublereal *nmi, integer *spp, integer *nelems, integer *sppdae); +extern int nmiupr_(real *nmi, integer *spp, integer *nelems, integer *sppdae); +extern int strpak_(shortint *instr, char *outstr, integer *maxch, ftnlen outstr_len); +extern int strupk_(char *instr, shortint *outstr, integer *maxch, ftnlen instr_len); +extern real urand_(integer *lseed); +extern integer xori_(integer *a, integer *b); +extern shortint xors_(shortint *a, shortint *b); +extern integer xorl_(integer *a, integer *b); +extern integer sysruk_(shortint *task, shortint *cmd, integer *rukarf, integer *rukint); +extern int sbit_(void); +extern int tbit_(void); diff --git a/unix/hlib/libc/xnames.h b/unix/hlib/libc/xnames.h new file mode 100644 index 00000000..a99e12b6 --- /dev/null +++ b/unix/hlib/libc/xnames.h @@ -0,0 +1,244 @@ +/* + * XNAMES.H -- C callable external names of the SPP library procedures. + * The C version of the name is identical to the SPP name except that it is + * given as a macro in upper case. The definition is the host system external + * name of the Fortran procedure. The trailing underscore in these names is + * UNIX dependent; other systems use a leading underscore, or no special + * characters at all (the purpose of the underscore on UNIX systems is to + * avoid name collisions between C and Fortran procedures, since the F77 + * runtime library on UNIX is built on the UNIX/C library). Change the names + * in the column at the right if your system employs a different convention. + * + * If your system does not employ something like the underscore to avoid + * name collisions, name collisions can be expected. To fix these change + * the name given here and add a define to lib$iraf.h to change the external + * name generated by the preprocessor. It is NOT necessary to resolve name + * collisions by changing the actual program sources. + * + * The external names defined herein MUST agree with those in "hlib$iraf.h". + */ + +#define ACCESS xfaccs_ /* to avoid name collisions */ +#define CALLOC xcallc_ +#define CLOSE xfcloe_ +#define DELETE xfdele_ +#define ERROR xerror_ +#define FLUSH xffluh_ +#define GETC xfgetc_ +#define GETCHAR xfgetr_ +#define MALLOC xmallc_ +#define MFREE xmfree_ +#define MKTEMP xmktep_ +#define NOTE xfnote_ +#define OPEN xfopen_ +#define PRINTF xprinf_ +#define PUTC xfputc_ +#define PUTCHAR xfputr_ +#define QSORT xqsort_ +#define READ xfread_ +#define REALLOC xrealc_ +#define SEEK xfseek_ +#define SIZEOF xsizef_ +#define UNGETC xfungc_ +#define WRITE xfwrie_ + +#define AREAD aread_ /* other VOS names */ +#define AREADB areadb_ +#define AWAIT await_ +#define AWAITB awaitb_ +#define AWRITE awrite_ +#define AWRITEB awritb_ +#define BEGMEM begmem_ +#define BRKTIME brktie_ +#define BTOI btoi_ +#define CLKTIME clktie_ +#define CNVDATE cnvdae_ +#define CNVTIME cnvtie_ +#define COERCE coerce_ +#define CPUTIME cputie_ +#define CTOD ctod_ +#define CTOX ctox_ +#define DIROPEN diropn_ +#define DTOC dtoc_ +#define ENVFIND envfid_ +#define ENVFREE envfre_ +#define ENVGETB envgeb_ +#define ENVGETI envgei_ +#define ENVGETS envges_ +#define ENVINIT envint_ +#define ENVLIST envlit_ +#define ENVMARK envmak_ +#define ENVPUTS envpus_ +#define ENVRESET envret_ +#define ENVSCAN envscn_ +#define ERRACT erract_ +#define ERRCODE errcoe_ +#define ERRGET errget_ +#define FALLOC falloc_ +#define FATAL xfatal_ +#define FCHDIR xfchdr_ +#define FCOPY fcopy_ +#define FCOPYO fcopyo_ +#define FDEBUG fdebug_ +#define FDELPF fdelpf_ +#define FDEVBLK fdevbk_ +#define FDIRNAME fdirne_ +#define FILBUF filbuf_ +#define FINFO finfo_ +#define FIXMEM fixmem_ +#define FLSBUF flsbuf_ +#define FMAPFN fmapfn_ +#define FMKDIR fmkdir_ +#define FNEXTN fnextn_ +#define FNLDIR fnldir_ +#define FNROOT fnroot_ +#define FNTCLS fntcls_ +#define FNTGFN fntgfn_ +#define FNTOPN fntopn_ +#define FOWNER fowner_ +#define FPATHNAME fpathe_ +#define FPRINTF fprinf_ +#define FREDIR fredir_ +#define FREDIRO fredio_ +#define FSETI fseti_ +#define FSTATI fstati_ +#define FSTATL fstatl_ +#define FSTATS fstats_ +#define GETPID xgtpid_ +#define GCTOD gctod_ +#define GCTOL gctol_ +#define GCTOX gctox_ +#define GETLINE getlie_ +#define GETUID xgtuid_ +#define GLTOC gltoc_ +#define GPATMAKE gpatme_ +#define GPATMATCH gpatmh_ +#define GSTRMATCH gstrmh_ +#define GTR_GFLUSH gtrgfh_ +#define IMACCESS imaccs_ +#define IMDRCUR imdrcr_ +#define IRAF_MAIN irafmn_ +#define XISATTY xisaty_ +#define XTTYSIZE xttyse_ +#define ITOB itob_ +#define KI_EXTNODE kiexte_ +#define KI_MAPCHAN kimapn_ +#define LEXNUM lexnum_ +#define LPOPEN lpopen_ +#define NDOPEN ndopen_ +#define ONENTRY onenty_ +#define ONERROR onerrr_ +#define ONEXIT onexit_ +#define OSCMD oscmd_ +#define PARGB pargb_ +#define PARGC pargc_ +#define PARGD pargd_ +#define PARGI pargi_ +#define PARGL pargl_ +#define PARGR pargr_ +#define PARGS pargs_ +#define PARGSTR pargsr_ +#define PARGX pargx_ +#define POLL xfpoll_ +#define POLL_OPEN pollon_ +#define POLL_CLOSE pollce_ +#define POLL_ZERO pollzo_ +#define POLL_SET pollst_ +#define POLL_CLEAR pollcr_ +#define POLL_TEST polltt_ +#define POLL_GET_NFDS pollgs_ +#define POLL_PRINT pollpt_ +#define PRCHDIR prchdr_ +#define PRCLCPR prclcr_ +#define PRCLDPR prcldr_ +#define PRCLOSE prcloe_ +#define PRDONE prdone_ +#define PRENVFREE prenve_ +#define PRENVSET prenvt_ +#define PRFILBUF prfilf_ +#define PRKILL prkill_ +#define PROPCPR propcr_ +#define PROPDPR propdr_ +#define PROPEN propen_ +#define PROTECT protet_ +#define PRREDIR prredr_ +#define PRSIGNAL prsigl_ +#define PRSTATI prstai_ +#define PRUPDATE prupde_ +#define PRPSINIT prpsit_ +#define PUTCC putcc_ +#define PUTLINE putlie_ +#define RCURSOR rcursr_ +#define RDUKEY rdukey_ +#define RENAME xfrnam_ +#define REOPEN reopen_ +#define SALLOC salloc_ +#define SFREE sfree_ +#define SMARK smark_ +#define SPRINTF sprinf_ +#define STG_GETLINE stggee_ +#define STG_PUTLINE stgpue_ +#define STKCMP stkcmp_ +#define STRMATCH strmah_ +#define STROPEN stropn_ +#define STRTBL strtbl_ +#define STTYCO sttyco_ +#define SYSRUK sysruk_ +#define TSLEEP tsleep_ +#define TTSETI ttseti_ +#define TTSETS ttsets_ +#define TTSTATI ttstai_ +#define TTSTATS ttstas_ +#define TTYCDES ttycds_ +#define TTYCLEAR ttyclr_ +#define TTYCLEARLN ttycln_ +#define TTYCLOSE ttycls_ +#define TTYCTRL ttyctl_ +#define TTYGDES ttygds_ +#define TTYGETB ttygeb_ +#define TTYGETI ttygei_ +#define TTYGETR ttyger_ +#define TTYGETS ttyges_ +#define TTYGOTO ttygoo_ +#define TTYINIT ttyint_ +#define TTYODES ttyods_ +#define TTYOPEN ttyopn_ +#define TTYPUTLINE ttypue_ +#define TTYPUTS ttypus_ +#define TTYSETI ttysei_ +#define TTYSO ttyso_ +#define TTYSTATI ttysti_ +#define UNGETLINE ungete_ +#define UNREAD unread_ +#define URAND urand_ +#define VFNOPEN vfnopn_ +#define VFNCLOSE vfncle_ +#define VFNMAP vfnmap_ +#define VFNADD vfnadd_ +#define VFNDEL vfndel_ +#define VFNUNMAP vfnunp_ +#define VMALLOC vmallc_ +#define XACOS xacos_ +#define XALLOCATE xalloe_ +#define XASIN xasin_ +#define XATAN xatan_ +#define XATAN2 xatan2_ +#define XCOS xcos_ +#define XDEALLOCATE xdeale_ +#define XDEVOWNER xdevor_ +#define XDEVSTATUS xdevss_ +#define XER_RESET xerret_ +#define XEXP xexp_ +#define XLOG xlog_ +#define XLOG10 xlog10_ +#define XNINT xnint_ +#define XMJBUF xmjbuf_ +#define XONERR xonerr_ +#define XPOW xpow_ +#define XSIN xsin_ +#define XSQRT xsqrt_ +#define XTAN xtan_ +#define XTOC xtoc_ +#define XWHEN xwhen_ + +#define D_xnames diff --git a/unix/hlib/libc/xwhen.h b/unix/hlib/libc/xwhen.h new file mode 100644 index 00000000..90281911 --- /dev/null +++ b/unix/hlib/libc/xwhen.h @@ -0,0 +1,10 @@ +/* Exception handling. + */ +#define X_ACV 501 /* access violation */ +#define X_ARITH 502 /* arithmetic error */ +#define X_INT 503 /* keyboard interrupt */ +#define X_IPC 504 /* write to IPC with no reader */ +#define X_IGNORE NULL /* ignore exception */ +#define X_FIRST_EXCEPTION 501 + +#define D_xwhen diff --git a/unix/hlib/libc/zfstat.h b/unix/hlib/libc/zfstat.h new file mode 100644 index 00000000..48862cd3 --- /dev/null +++ b/unix/hlib/libc/zfstat.h @@ -0,0 +1,8 @@ +/* File status parameters (zsttbf, etc.) + */ +#define FSTT_BLKSIZE 1 +#define FSTT_FILSIZE 2 +#define FSTT_OPTBUFSIZE 3 +#define FSTT_MAXBUFSIZE 4 + +#define D_zfstat |