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. */
60 extern int (*f__lioproc
)(), (*l_getc
)(), (*l_ungetc
)();
61 extern int l_read(), l_write();
66 extern int (*f__lioproc
)(ftnint
*, char*, ftnlen
, ftnint
);
67 extern int l_write(ftnint
*, char*, ftnlen
, ftnint
);
68 extern void x_wsne(cilist
*);
69 extern int c_le(cilist
*), (*l_getc
)(void), (*l_ungetc
)(int,FILE*);
70 extern int l_read(ftnint
*,char*,ftnlen
,ftnint
);
71 extern integer
e_rsle(void), e_wsle(void), s_wsne(cilist
*);
72 extern int z_rnew(void);