lang/fortran/lib/libI77/lio.h

   1 /*      copy of ftypes from the compiler */
   2 /* variable types
   3  * numeric assumptions:
   4  *      int < reals < complexes
   5  *      TYDREAL-TYREAL = TYDCOMPLEX-TYCOMPLEX
   6  */
   7
   8 #define TYUNKNOWN 0
   9 #define TYADDR 1
  10 #define TYSHORT 2
  11 #define TYLONG 3
  12 #define TYREAL 4
  13 #define TYDREAL 5
  14 #define TYCOMPLEX 6
  15 #define TYDCOMPLEX 7
  16 #define TYLOGICAL 8
  17 #define TYCHAR 9
  18 #define TYSUBR 10
  19 #define TYERROR 11
  20
  21 #define NTYPES (TYERROR+1)
  22
  23 #define LINTW   12
  24 #define LINE    80
  25 #define LLOGW   2
  26 #define LLOW    1.0
  27 #define LHIGH   1.e9
  28 #define LEFMT   " %# .8E"
  29 #define LFFMT   " %# .9g"
  30 /* LEFBL 20 should suffice; 24 overcomes a NeXT bug. */
  31 #define LEFBL   24
  32
  33 typedef union
  34 {       short   flshort;
  35         ftnint  flint;
  36         real    flreal;
  37         doublereal      fldouble;
  38 } flex;
  39 extern int scale;
  40 extern int (*lioproc)();
  41 extern int L_len;