1998-02-01 09:37:08 +08:00
|
|
|
/* copy of ftypes from the compiler */
|
|
|
|
|
/* variable types
|
|
|
|
|
* numeric assumptions:
|
|
|
|
|
* int < reals < complexes
|
|
|
|
|
* TYDREAL-TYREAL = TYDCOMPLEX-TYCOMPLEX
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
/* 0-10 retain their old (pre LOGICAL*1, etc.) */
|
|
|
|
|
/* values to allow mixing old and new objects. */
|
|
|
|
|
|
|
|
|
|
#define TYUNKNOWN 0
|
|
|
|
|
#define TYADDR 1
|
|
|
|
|
#define TYSHORT 2
|
|
|
|
|
#define TYLONG 3
|
|
|
|
|
#define TYREAL 4
|
|
|
|
|
#define TYDREAL 5
|
|
|
|
|
#define TYCOMPLEX 6
|
|
|
|
|
#define TYDCOMPLEX 7
|
|
|
|
|
#define TYLOGICAL 8
|
|
|
|
|
#define TYCHAR 9
|
|
|
|
|
#define TYSUBR 10
|
|
|
|
|
#define TYINT1 11
|
|
|
|
|
#define TYLOGICAL1 12
|
|
|
|
|
#define TYLOGICAL2 13
|
|
|
|
|
#ifdef Allow_TYQUAD
|
|
|
|
|
#undef TYQUAD
|
|
|
|
|
#define TYQUAD 14
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#define LINTW 24
|
|
|
|
|
#define LINE 80
|
|
|
|
|
#define LLOGW 2
|
|
|
|
|
#ifdef Old_list_output
|
|
|
|
|
#define LLOW 1.0
|
|
|
|
|
#define LHIGH 1.e9
|
|
|
|
|
#define LEFMT " %# .8E"
|
|
|
|
|
#define LFFMT " %# .9g"
|
|
|
|
|
#else
|
|
|
|
|
#define LGFMT "%.9G"
|
|
|
|
|
#endif
|
|
|
|
|
/* LEFBL 20 should suffice; 24 overcomes a NeXT bug. */
|
|
|
|
|
#define LEFBL 24
|
|
|
|
|
|
|
|
|
|
typedef union
|
|
|
|
|
{
|
2002-04-12 03:49:56 +08:00
|
|
|
#ifndef KR_headers
|
|
|
|
|
signed
|
|
|
|
|
#endif
|
|
|
|
|
char flchar;
|
1998-02-01 09:37:08 +08:00
|
|
|
short flshort;
|
|
|
|
|
ftnint flint;
|
|
|
|
|
#ifdef Allow_TYQUAD
|
|
|
|
|
longint fllongint;
|
|
|
|
|
#endif
|
|
|
|
|
real flreal;
|
|
|
|
|
doublereal fldouble;
|
|
|
|
|
} flex;
|
|
|
|
|
extern int f__scale;
|
|
|
|
|
#ifdef KR_headers
|
|
|
|
|
extern int (*f__lioproc)(), (*l_getc)(), (*l_ungetc)();
|
|
|
|
|
extern int l_read(), l_write();
|
|
|
|
|
#else
|
|
|
|
|
#ifdef __cplusplus
|
|
|
|
|
extern "C" {
|
|
|
|
|
#endif
|
|
|
|
|
extern int (*f__lioproc)(ftnint*, char*, ftnlen, ftnint);
|
|
|
|
|
extern int l_write(ftnint*, char*, ftnlen, ftnint);
|
|
|
|
|
extern void x_wsne(cilist*);
|
|
|
|
|
extern int c_le(cilist*), (*l_getc)(void), (*l_ungetc)(int,FILE*);
|
|
|
|
|
extern int l_read(ftnint*,char*,ftnlen,ftnint);
|
|
|
|
|
extern integer e_rsle(void), e_wsle(void), s_wsne(cilist*);
|
|
|
|
|
extern int z_rnew(void);
|
|
|
|
|
#ifdef __cplusplus
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
#endif
|
|
|
|
|
extern ftnint L_len;
|
