From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001 From: Joseph Hunkeler Date: Wed, 8 Jul 2015 20:46:52 -0400 Subject: Initial commit --- unix/bin.macintel/alloc.e | Bin 0 -> 14984 bytes unix/bin.macintel/f2c.1 | 222 +++++++++++++++++++++++++++++++++++ unix/bin.macintel/f2c.e | Bin 0 -> 339736 bytes unix/bin.macintel/f2c.h | 252 ++++++++++++++++++++++++++++++++++++++++ unix/bin.macintel/generic.e | Bin 0 -> 34284 bytes unix/bin.macintel/iraf.h | 1 + unix/bin.macintel/libboot.a | Bin 0 -> 144832 bytes unix/bin.macintel/libf2c.a | Bin 0 -> 245488 bytes unix/bin.macintel/libos.a | Bin 0 -> 500112 bytes unix/bin.macintel/mach.h | 1 + unix/bin.macintel/mkpkg.e | Bin 0 -> 381588 bytes unix/bin.macintel/rmbin.e | Bin 0 -> 322052 bytes unix/bin.macintel/rmfiles.e | Bin 0 -> 321516 bytes unix/bin.macintel/rpp.e | Bin 0 -> 84304 bytes unix/bin.macintel/rtar.e | Bin 0 -> 322944 bytes unix/bin.macintel/sgi2gif.e | Bin 0 -> 16508 bytes unix/bin.macintel/sgi2svg.e | Bin 0 -> 14948 bytes unix/bin.macintel/sgi2uapl.e | Bin 0 -> 16136 bytes unix/bin.macintel/sgi2ueps.e | Bin 0 -> 15872 bytes unix/bin.macintel/sgi2uhpgl.e | Bin 0 -> 10404 bytes unix/bin.macintel/sgi2uhplj.e | Bin 0 -> 10796 bytes unix/bin.macintel/sgi2uimp.e | Bin 0 -> 15152 bytes unix/bin.macintel/sgi2uptx.e | Bin 0 -> 10264 bytes unix/bin.macintel/sgi2uqms.e | Bin 0 -> 15092 bytes unix/bin.macintel/sgi2xbm.e | Bin 0 -> 10536 bytes unix/bin.macintel/sgidispatch.e | Bin 0 -> 15260 bytes unix/bin.macintel/wtar.e | Bin 0 -> 330648 bytes unix/bin.macintel/xc.e | Bin 0 -> 331184 bytes unix/bin.macintel/xpp.e | Bin 0 -> 374820 bytes unix/bin.macintel/xyacc.e | Bin 0 -> 57612 bytes 30 files changed, 476 insertions(+) create mode 100755 unix/bin.macintel/alloc.e create mode 100644 unix/bin.macintel/f2c.1 create mode 100755 unix/bin.macintel/f2c.e create mode 100644 unix/bin.macintel/f2c.h create mode 100755 unix/bin.macintel/generic.e create mode 120000 unix/bin.macintel/iraf.h create mode 100644 unix/bin.macintel/libboot.a create mode 100644 unix/bin.macintel/libf2c.a create mode 100644 unix/bin.macintel/libos.a create mode 120000 unix/bin.macintel/mach.h create mode 100755 unix/bin.macintel/mkpkg.e create mode 100755 unix/bin.macintel/rmbin.e create mode 100755 unix/bin.macintel/rmfiles.e create mode 100755 unix/bin.macintel/rpp.e create mode 100755 unix/bin.macintel/rtar.e create mode 100755 unix/bin.macintel/sgi2gif.e create mode 100755 unix/bin.macintel/sgi2svg.e create mode 100755 unix/bin.macintel/sgi2uapl.e create mode 100755 unix/bin.macintel/sgi2ueps.e create mode 100755 unix/bin.macintel/sgi2uhpgl.e create mode 100755 unix/bin.macintel/sgi2uhplj.e create mode 100755 unix/bin.macintel/sgi2uimp.e create mode 100755 unix/bin.macintel/sgi2uptx.e create mode 100755 unix/bin.macintel/sgi2uqms.e create mode 100755 unix/bin.macintel/sgi2xbm.e create mode 100755 unix/bin.macintel/sgidispatch.e create mode 100755 unix/bin.macintel/wtar.e create mode 100755 unix/bin.macintel/xc.e create mode 100755 unix/bin.macintel/xpp.e create mode 100755 unix/bin.macintel/xyacc.e (limited to 'unix/bin.macintel') diff --git a/unix/bin.macintel/alloc.e b/unix/bin.macintel/alloc.e new file mode 100755 index 00000000..7adcd8a8 Binary files /dev/null and b/unix/bin.macintel/alloc.e differ diff --git a/unix/bin.macintel/f2c.1 b/unix/bin.macintel/f2c.1 new file mode 100644 index 00000000..3bdbc8b8 --- /dev/null +++ b/unix/bin.macintel/f2c.1 @@ -0,0 +1,222 @@ + + F2C(1) UNIX System V F2C(1) + + NAME + f2c - Convert Fortran 77 to C or C++ + + SYNOPSIS + f2c [ option ... ] file ... + + DESCRIPTION + F2c converts Fortran 77 source code in files with names end- + ing in `.f' or `.F' to C (or C++) source files in the cur- + rent directory, with `.c' substituted for the final `.f' or + `.F'. If no Fortran files are named, f2c reads Fortran from + standard input and writes C on standard output. File names + that end with `.p' or `.P' are taken to be prototype files, + as produced by option `-P', and are read first. + + The following options have the same meaning as in f77(1). + + -C Compile code to check that subscripts are within + declared array bounds. + + -I2 Render INTEGER and LOGICAL as short, INTEGER*4 as long + int. Assume the default libF77 and libI77: allow only + INTEGER*4 (and no LOGICAL) variables in INQUIREs. + Option `-I4' confirms the default rendering of INTEGER + as long int. + + -Idir + Look for a non-absolute include file first in the + directory of the current input file, then in directo- + ries specified by -I options (one directory per + option). Options -I2 and -I4 have precedence, so, + e.g., a directory named 2 should be specified by -I./2 + . + + -onetrip + Compile DO loops that are performed at least once if + reached. (Fortran 77 DO loops are not performed at all + if the upper limit is smaller than the lower limit.) + + -U Honor the case of variable and external names. Fortran + keywords must be in lower case. + + -u Make the default type of a variable `undefined' rather + than using the default Fortran rules. + + -w Suppress all warning messages, or, if the option is + `-w66', just Fortran 66 compatibility warnings. + + The following options are peculiar to f2c. + + -A Produce ANSI C (default, starting 20020621). For old- + style C, use option -K. + + Page 1 (printed 6/21/02) + + F2C(1) UNIX System V F2C(1) + + -a Make local variables automatic rather than static + unless they appear in a DATA, EQUIVALENCE, NAMELIST, or + SAVE statement. + + -C++ Output C++ code. + + -c Include original Fortran source as comments. + + -cd Do not recognize cdabs, cdcos, cdexp, cdlog, cdsin, and + cdsqrt as synonyms for the double complex intrinsics + zabs, zcos, zexp, zlog, zsin, and zsqrt, respectively, + nor dreal as a synonym for dble. + + -ddir + Write `.c' files in directory dir instead of the cur- + rent directory. + + -E Declare uninitialized COMMON to be Extern (overridably + defined in f2c.h as extern). + + -ec Place uninitialized COMMON blocks in separate files: + COMMON /ABC/ appears in file abc_com.c. Option `-e1c' + bundles the separate files into the output file, with + comments that give an unbundling sed(1) script. + + -ext Complain about f77(1) extensions. + + -f Assume free-format input: accept text after column 72 + and do not pad fixed-format lines shorter than 72 char- + acters with blanks. + + -72 Treat text appearing after column 72 as an error. + + -g Include original Fortran line numbers in #line lines. + + -h Emulate Fortran 66's treatment of Hollerith: try to + align character strings on word (or, if the option is + `-hd', on double-word) boundaries. + + -i2 Similar to -I2, but assume a modified libF77 and libI77 + (compiled with -Df2c_i2), so INTEGER and LOGICAL vari- + ables may be assigned by INQUIRE and array lengths are + stored in short ints. + + -i90 Do not recognize the Fortran 90 bit-manipulation + intrinsics btest, iand, ibclr, ibits, ibset, ieor, ior, + ishft, and ishftc. + + -kr Use temporary values to enforce Fortran expression + evaluation where K&R (first edition) parenthesization + rules allow rearrangement. If the option is `-krd', + use double precision temporaries even for single- + + Page 2 (printed 6/21/02) + + F2C(1) UNIX System V F2C(1) + + precision operands. + + -P Write a file.P of ANSI (or C++) prototypes for defini- + tions in each input file.f or file.F. When reading + Fortran from standard input, write prototypes at the + beginning of standard output. Option -Ps implies -P + and gives exit status 4 if rerunning f2c may change + prototypes or declarations. + + -p Supply preprocessor definitions to make common-block + members look like local variables. + + -R Do not promote REAL functions and operations to DOUBLE + PRECISION. Option `-!R' confirms the default, which + imitates f77. + + -r Cast REAL arguments of intrinsic functions and values + of REAL functions (including intrinsics) to REAL. + + -r8 Promote REAL to DOUBLE PRECISION, COMPLEX to DOUBLE + COMPLEX. + + -s Preserve multidimensional subscripts. Suppressed by + option `-C' . + + -Tdir + Put temporary files in directory dir. + + -trapuv + Dynamically initialize local variables, except those + appearing in SAVE or DATA statements, with values that + may help find references to uninitialized variables. + For example, with IEEE arithmetic, initialize local + floating-point variables to signaling NaNs. + + -w8 Suppress warnings when COMMON or EQUIVALENCE forces + odd-word alignment of doubles. + + -Wn Assume n characters/word (default 4) when initializing + numeric variables with character data. + + -z Do not implicitly recognize DOUBLE COMPLEX. + + -!bs Do not recognize backslash escapes (\", \', \0, \\, \b, + \f, \n, \r, \t, \v) in character strings. + + -!c Inhibit C output, but produce -P output. + + -!I Reject include statements. + + -!i8 Disallow INTEGER*8 , or, if the option is `-!i8const', + permit INTEGER*8 but do not promote integer constants + + Page 3 (printed 6/21/02) + + F2C(1) UNIX System V F2C(1) + + to INTEGER*8 when they involve more than 32 bits. + + -!it Don't infer types of untyped EXTERNAL procedures from + use as parameters to previously defined or prototyped + procedures. + + -!P Do not attempt to infer ANSI or C++ prototypes from + usage. + + The resulting C invokes the support routines of f77; object + code should be loaded by f77 or with ld(1) or cc(1) options + -lF77 -lI77 -lm. Calling conventions are those of f77: see + the reference below. + + FILES + file.[fF] input file + + *.c output file + + /usr/include/f2c.h + header file + + /usr/lib/libF77.aintrinsic function library + + /usr/lib/libI77.aFortran I/O library + + /lib/libc.a C library, see section 3 + + SEE ALSO + S. I. Feldman and P. J. Weinberger, `A Portable Fortran 77 + Compiler', UNIX Time Sharing System Programmer's Manual, + Tenth Edition, Volume 2, AT&T Bell Laboratories, 1990. + + DIAGNOSTICS + The diagnostics produced by f2c are intended to be self- + explanatory. + + BUGS + Floating-point constant expressions are simplified in the + floating-point arithmetic of the machine running f2c, so + they are typically accurate to at most 16 or 17 decimal + places. + Untypable EXTERNAL functions are declared int. + There is no notation for INTEGER*8 constants. + Some intrinsic functions do not yet work with INTEGER*8 . + + Page 4 (printed 6/21/02) + diff --git a/unix/bin.macintel/f2c.e b/unix/bin.macintel/f2c.e new file mode 100755 index 00000000..0c5baf51 Binary files /dev/null and b/unix/bin.macintel/f2c.e differ diff --git a/unix/bin.macintel/f2c.h b/unix/bin.macintel/f2c.h new file mode 100644 index 00000000..32568059 --- /dev/null +++ b/unix/bin.macintel/f2c.h @@ -0,0 +1,252 @@ +/* f2c.h -- Standard Fortran to C header file. */ + +/** barf [ba:rf] 2. "He suggested using FORTRAN, and everybody barfed." + + - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */ + +#ifndef F2C_INCLUDE +#define F2C_INCLUDE + + +/* For ILP64 +*/ +#define INTEGER_STAR_8 +typedef long int integer; +typedef long int logical; +typedef unsigned long int uinteger; +/* typedef double real; */ + + +/* For ILP32 +typedef int integer; +typedef int logical; +typedef unsigned int uinteger; +*/ +typedef float real; +typedef short int shortint; + + +typedef char *address; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#ifdef INTEGER_STAR_8 /* Adjust for integer*8. */ +typedef long longint; /* system-dependent */ +typedef unsigned long ulongint; /* system-dependent */ + +#define qbit_clear(a,b) ((a) & ~((ulongint)1 << (b))) +#define qbit_set(a,b) ((a) | ((ulongint)1 << (b))) +#endif + +#define TRUE_ (1) +#define FALSE_ (0) + + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +#ifdef f2c_i2 +/* for -i2 */ +typedef short flag; +typedef short ftnlen; +typedef short ftnint; +#else +typedef long int flag; +typedef long int ftnlen; +typedef long int ftnint; +#endif + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +/*typedef long int Long;*/ /* No longer used; formerly in Namelist */ + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#ifndef abs +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#endif +#define dabs(x) (doublereal)abs(x) +#define min(a,b) ((a) <= (b) ? (a) : (b)) +#define max(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (doublereal)min(a,b) +#define dmax(a,b) (doublereal)max(a,b) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef int /* Unknown procedure type */ (*U_fp)(...); +typedef shortint (*J_fp)(...); +typedef integer (*I_fp)(...); +typedef real (*R_fp)(...); +typedef doublereal (*D_fp)(...), (*E_fp)(...); +typedef /* Complex */ VOID (*C_fp)(...); +typedef /* Double Complex */ VOID (*Z_fp)(...); +typedef logical (*L_fp)(...); +typedef shortlogical (*K_fp)(...); +typedef /* Character */ VOID (*H_fp)(...); +typedef /* Subroutine */ int (*S_fp)(...); +#else +typedef int /* Unknown procedure type */ (*U_fp)(); +typedef shortint (*J_fp)(); +typedef integer (*I_fp)(); +typedef real (*R_fp)(); +typedef doublereal (*D_fp)(), (*E_fp)(); +typedef /* Complex */ VOID (*C_fp)(); +typedef /* Double Complex */ VOID (*Z_fp)(); +typedef logical (*L_fp)(); +typedef shortlogical (*K_fp)(); +typedef /* Character */ VOID (*H_fp)(); +typedef /* Subroutine */ int (*S_fp)(); +#endif +/* E_fp is for real functions when -R is not specified */ +typedef VOID C_f; /* complex function */ +typedef VOID H_f; /* character function */ +typedef VOID Z_f; /* double complex function */ +/*typedef doublereal E_f; // real function with -R not specified */ +typedef real E_f; /* real function with -R not specified */ + +/* undef any lower-case symbols that your C compiler predefines, e.g.: */ + +#ifndef Skip_f2c_Undefs +#undef cray +#undef gcos +#undef mc68010 +#undef mc68020 +#undef mips +#undef pdp11 +#undef sgi +#undef sparc +#undef sun +#undef sun2 +#undef sun3 +#undef sun4 +#undef u370 +#undef u3b +#undef u3b2 +#undef u3b5 +#undef unix +#undef vax +#endif +#endif + + + +/* +#ifndef BLD_KERNEL +#include "/iraf/iraf/unix/hlib/libc/kproto.h" +#include "/iraf/iraf/unix/hlib/libc/vosproto.h" +#endif +*/ diff --git a/unix/bin.macintel/generic.e b/unix/bin.macintel/generic.e new file mode 100755 index 00000000..63aa6f63 Binary files /dev/null and b/unix/bin.macintel/generic.e differ diff --git a/unix/bin.macintel/iraf.h b/unix/bin.macintel/iraf.h new file mode 120000 index 00000000..678a23a1 --- /dev/null +++ b/unix/bin.macintel/iraf.h @@ -0,0 +1 @@ +../hlib/iraf64.h \ No newline at end of file diff --git a/unix/bin.macintel/libboot.a b/unix/bin.macintel/libboot.a new file mode 100644 index 00000000..3fe11cb8 Binary files /dev/null and b/unix/bin.macintel/libboot.a differ diff --git a/unix/bin.macintel/libf2c.a b/unix/bin.macintel/libf2c.a new file mode 100644 index 00000000..ffe3fdb5 Binary files /dev/null and b/unix/bin.macintel/libf2c.a differ diff --git a/unix/bin.macintel/libos.a b/unix/bin.macintel/libos.a new file mode 100644 index 00000000..798cc1cd Binary files /dev/null and b/unix/bin.macintel/libos.a differ diff --git a/unix/bin.macintel/mach.h b/unix/bin.macintel/mach.h new file mode 120000 index 00000000..8aac4992 --- /dev/null +++ b/unix/bin.macintel/mach.h @@ -0,0 +1 @@ +../hlib/mach64.h \ No newline at end of file diff --git a/unix/bin.macintel/mkpkg.e b/unix/bin.macintel/mkpkg.e new file mode 100755 index 00000000..c8a7b4b5 Binary files /dev/null and b/unix/bin.macintel/mkpkg.e differ diff --git a/unix/bin.macintel/rmbin.e b/unix/bin.macintel/rmbin.e new file mode 100755 index 00000000..fe3c0c1c Binary files /dev/null and b/unix/bin.macintel/rmbin.e differ diff --git a/unix/bin.macintel/rmfiles.e b/unix/bin.macintel/rmfiles.e new file mode 100755 index 00000000..33e9c5d7 Binary files /dev/null and b/unix/bin.macintel/rmfiles.e differ diff --git a/unix/bin.macintel/rpp.e b/unix/bin.macintel/rpp.e new file mode 100755 index 00000000..7d50b96a Binary files /dev/null and b/unix/bin.macintel/rpp.e differ diff --git a/unix/bin.macintel/rtar.e b/unix/bin.macintel/rtar.e new file mode 100755 index 00000000..65b9220f Binary files /dev/null and b/unix/bin.macintel/rtar.e differ diff --git a/unix/bin.macintel/sgi2gif.e b/unix/bin.macintel/sgi2gif.e new file mode 100755 index 00000000..2802da40 Binary files /dev/null and b/unix/bin.macintel/sgi2gif.e differ diff --git a/unix/bin.macintel/sgi2svg.e b/unix/bin.macintel/sgi2svg.e new file mode 100755 index 00000000..eb8b68cb Binary files /dev/null and b/unix/bin.macintel/sgi2svg.e differ diff --git a/unix/bin.macintel/sgi2uapl.e b/unix/bin.macintel/sgi2uapl.e new file mode 100755 index 00000000..3a28e740 Binary files /dev/null and b/unix/bin.macintel/sgi2uapl.e differ diff --git a/unix/bin.macintel/sgi2ueps.e b/unix/bin.macintel/sgi2ueps.e new file mode 100755 index 00000000..1e408b75 Binary files /dev/null and b/unix/bin.macintel/sgi2ueps.e differ diff --git a/unix/bin.macintel/sgi2uhpgl.e b/unix/bin.macintel/sgi2uhpgl.e new file mode 100755 index 00000000..2da829d5 Binary files /dev/null and b/unix/bin.macintel/sgi2uhpgl.e differ diff --git a/unix/bin.macintel/sgi2uhplj.e b/unix/bin.macintel/sgi2uhplj.e new file mode 100755 index 00000000..6654eacf Binary files /dev/null and b/unix/bin.macintel/sgi2uhplj.e differ diff --git a/unix/bin.macintel/sgi2uimp.e b/unix/bin.macintel/sgi2uimp.e new file mode 100755 index 00000000..acf513ec Binary files /dev/null and b/unix/bin.macintel/sgi2uimp.e differ diff --git a/unix/bin.macintel/sgi2uptx.e b/unix/bin.macintel/sgi2uptx.e new file mode 100755 index 00000000..1a799f09 Binary files /dev/null and b/unix/bin.macintel/sgi2uptx.e differ diff --git a/unix/bin.macintel/sgi2uqms.e b/unix/bin.macintel/sgi2uqms.e new file mode 100755 index 00000000..13b251af Binary files /dev/null and b/unix/bin.macintel/sgi2uqms.e differ diff --git a/unix/bin.macintel/sgi2xbm.e b/unix/bin.macintel/sgi2xbm.e new file mode 100755 index 00000000..a11640e9 Binary files /dev/null and b/unix/bin.macintel/sgi2xbm.e differ diff --git a/unix/bin.macintel/sgidispatch.e b/unix/bin.macintel/sgidispatch.e new file mode 100755 index 00000000..bc49d671 Binary files /dev/null and b/unix/bin.macintel/sgidispatch.e differ diff --git a/unix/bin.macintel/wtar.e b/unix/bin.macintel/wtar.e new file mode 100755 index 00000000..435597d3 Binary files /dev/null and b/unix/bin.macintel/wtar.e differ diff --git a/unix/bin.macintel/xc.e b/unix/bin.macintel/xc.e new file mode 100755 index 00000000..05a02a2a Binary files /dev/null and b/unix/bin.macintel/xc.e differ diff --git a/unix/bin.macintel/xpp.e b/unix/bin.macintel/xpp.e new file mode 100755 index 00000000..1073bb0e Binary files /dev/null and b/unix/bin.macintel/xpp.e differ diff --git a/unix/bin.macintel/xyacc.e b/unix/bin.macintel/xyacc.e new file mode 100755 index 00000000..ce2a8a1a Binary files /dev/null and b/unix/bin.macintel/xyacc.e differ -- cgit