Return to f2c.h0 CVS log

Up to [Research Unix] / researchv10no / cmd / f2c

Annotation of researchv10no/cmd/f2c/f2c.h0, revision 1.1

1.1     ! root        1: /* f2c.h  --  Standard Fortran to C header file */
        !             2: 
        !             3: /**  barf  [ba:rf]  2.  "He suggested using FORTRAN, and everybody barfed."
        !             4: 
        !             5:        - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */
        !             6: 
        !             7: #ifndef F2C_INCLUDE
        !             8: #define F2C_INCLUDE
        !             9: 
        !            10: typedef long int integer;
        !            11: typedef char *address;
        !            12: typedef short int shortint;
        !            13: typedef float real;
        !            14: typedef double doublereal;
        !            15: typedef struct { real r, i; } complex;
        !            16: typedef struct { doublereal r, i; } doublecomplex;
        !            17: typedef long int logical;
        !            18: typedef short int shortlogical;
        !            19: 
        !            20: #define TRUE_ (1)
        !            21: #define FALSE_ (0)
        !            22: 
        !            23: /* Extern is for use with -E */
        !            24: #ifndef Extern
        !            25: #define Extern extern
        !            26: #endif
        !            27: 
        !            28: /* I/O stuff */
        !            29: 
        !            30: #ifdef f2c_i2
        !            31: /* for -i2 */
        !            32: typedef short flag;
        !            33: typedef short ftnlen;
        !            34: typedef short ftnint;
        !            35: #else
        !            36: typedef long flag;
        !            37: typedef long ftnlen;
        !            38: typedef long ftnint;
        !            39: #endif
        !            40: 
        !            41: /*external read, write*/
        !            42: typedef struct
        !            43: {      flag cierr;
        !            44:        ftnint ciunit;
        !            45:        flag ciend;
        !            46:        char *cifmt;
        !            47:        ftnint cirec;
        !            48: } cilist;
        !            49: 
        !            50: /*internal read, write*/
        !            51: typedef struct
        !            52: {      flag icierr;
        !            53:        char *iciunit;
        !            54:        flag iciend;
        !            55:        char *icifmt;
        !            56:        ftnint icirlen;
        !            57:        ftnint icirnum;
        !            58: } icilist;
        !            59: 
        !            60: /*open*/
        !            61: typedef struct
        !            62: {      flag oerr;
        !            63:        ftnint ounit;
        !            64:        char *ofnm;
        !            65:        ftnlen ofnmlen;
        !            66:        char *osta;
        !            67:        char *oacc;
        !            68:        char *ofm;
        !            69:        ftnint orl;
        !            70:        char *oblnk;
        !            71: } olist;
        !            72: 
        !            73: /*close*/
        !            74: typedef struct
        !            75: {      flag cerr;
        !            76:        ftnint cunit;
        !            77:        char *csta;
        !            78: } cllist;
        !            79: 
        !            80: /*rewind, backspace, endfile*/
        !            81: typedef struct
        !            82: {      flag aerr;
        !            83:        ftnint aunit;
        !            84: } alist;
        !            85: 
        !            86: /* inquire */
        !            87: typedef struct
        !            88: {      flag inerr;
        !            89:        ftnint inunit;
        !            90:        char *infile;
        !            91:        ftnlen infilen;
        !            92:        ftnint  *inex;  /*parameters in standard's order*/
        !            93:        ftnint  *inopen;
        !            94:        ftnint  *innum;
        !            95:        ftnint  *innamed;
        !            96:        char    *inname;
        !            97:        ftnlen  innamlen;
        !            98:        char    *inacc;
        !            99:        ftnlen  inacclen;
        !           100:        char    *inseq;
        !           101:        ftnlen  inseqlen;
        !           102:        char    *indir;
        !           103:        ftnlen  indirlen;
        !           104:        char    *infmt;
        !           105:        ftnlen  infmtlen;
        !           106:        char    *inform;
        !           107:        ftnint  informlen;
        !           108:        char    *inunf;
        !           109:        ftnlen  inunflen;
        !           110:        ftnint  *inrecl;
        !           111:        ftnint  *innrec;
        !           112:        char    *inblank;
        !           113:        ftnlen  inblanklen;
        !           114: } inlist;
        !           115: 
        !           116: #define VOID void
        !           117: 
        !           118: union Multitype {      /* for multiple entry points */
        !           119:        shortint h;
        !           120:        integer i;
        !           121:        real r;
        !           122:        doublereal d;
        !           123:        complex c;
        !           124:        doublecomplex z;
        !           125:        };
        !           126: 
        !           127: typedef union Multitype Multitype;
        !           128:        
        !           129: 
        !           130:        /* fix up name clashes */
        !           131: 
        !           132: #define acos__ acos_
        !           133: #define asin__ asin_
        !           134: #define asm__ asm_
        !           135: #define auto__ auto_
        !           136: #define break__ break_
        !           137: #define case__ case_
        !           138: #define char__ char_
        !           139: #define const__ const_
        !           140: #define cos__ cos_
        !           141: #define cosh__ cosh_
        !           142: #define do__ do_
        !           143: #define double__ double_
        !           144: #define else__ else_
        !           145: #define entry__ entry_
        !           146: #define enum__ enum_
        !           147: #define exp__ exp_
        !           148: #define extern__ extern_
        !           149: #define float__ float_
        !           150: #define for__ for_
        !           151: #define int__ int_
        !           152: #define log__ log_
        !           153: #define long__ long_
        !           154: #define short__ short_
        !           155: #define signed__ signed_
        !           156: #define sin__ sin_
        !           157: #define sinh__ sinh_
        !           158: #define sizeof__ sizeof_
        !           159: #define sqrt__ sqrt_
        !           160: #define static__ static_
        !           161: #define struct__ struct_
        !           162: #define switch__ switch_
        !           163: #define tan__ tan_
        !           164: #define tanh__ tanh_
        !           165: #define union__ union_
        !           166: #define void__ void_
        !           167: #define while__ while_
        !           168: #define pow_ii_ pow_ii
        !           169: #define pow_ri_ pow_ri
        !           170: #define pow_di_ pow_di
        !           171: #define pow_ci_ pow_ci
        !           172: #define pow_zi_ pow_zi
        !           173: #define pow_hh_ pow_hh
        !           174: #define pow_dd_ pow_dd
        !           175: #define pow_zz_ pow_zz
        !           176: #endif

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.