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
)(), (*l_getc
)(), (*l_ungetc
)();
58 extern int l_read(), l_write();
63 extern int (*f__lioproc
)(ftnint
*, char*, ftnlen
, ftnint
);
64 extern int l_write(ftnint
*, char*, ftnlen
, ftnint
);
65 extern void x_wsne(cilist
*);
66 extern int c_le(cilist
*), (*l_getc
)(void), (*l_ungetc
)(int,FILE*);
67 extern int l_read(ftnint
*,char*,ftnlen
,ftnint
);
68 extern integer
e_rsle(void), e_wsle(void), s_wsne(cilist
*);
69 extern int z_rnew(void);