1 /* copy of ftypes from the compiler */
4 * int < reals < complexes
5 * TYDREAL-TYREAL = TYDCOMPLEX-TYCOMPLEX
8 /* 0-10 retain their old (pre LOGICAL*1, etc.) */
9 /* values to allow mixing old and new objects. */
33 #ifdef Old_list_output
36 #define LEFMT " %# .8E"
37 #define LFFMT " %# .9g"
41 /* LEFBL 20 should suffice; 24 overcomes a NeXT bug. */
57 extern int (*f__lioproc) (ftnint *, char *, ftnlen, ftnint);
58 extern int l_write (ftnint *, char *, ftnlen, ftnint);
59 extern void x_wsne (cilist *);
60 extern int c_le (cilist *), (*l_getc) (void), (*l_ungetc) (int, FILE *);
61 extern int l_read (ftnint *, char *, ftnlen, ftnint);
62 extern integer e_rsle (void), e_wsle (void), s_wsne (cilist *);
63 extern int z_rnew (void);