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);