Doxygen Source Code Documentation

Main Page Alphabetical List Data Structures File List Data Fields Globals Search
lio.h

00001 /*      copy of ftypes from the compiler */
00002 /* variable types
00003  * numeric assumptions:
00004  *      int < reals < complexes
00005  *      TYDREAL-TYREAL = TYDCOMPLEX-TYCOMPLEX
00006  */
00007 
00008 /* 0-10 retain their old (pre LOGICAL*1, etc.) */
00009 /* values to allow mixing old and new objects. */
00010 
00011 #define TYUNKNOWN 0
00012 #define TYADDR 1
00013 #define TYSHORT 2
00014 #define TYLONG 3
00015 #define TYREAL 4
00016 #define TYDREAL 5
00017 #define TYCOMPLEX 6
00018 #define TYDCOMPLEX 7
00019 #define TYLOGICAL 8
00020 #define TYCHAR 9
00021 #define TYSUBR 10
00022 #define TYINT1 11
00023 #define TYLOGICAL1 12
00024 #define TYLOGICAL2 13
00025 #ifdef Allow_TYQUAD
00026 #undef TYQUAD
00027 #define TYQUAD 14
00028 #endif
00029 
00030 #define LINTW   24
00031 #define LINE    80
00032 #define LLOGW   2
00033 #ifdef Old_list_output
00034 #define LLOW    1.0
00035 #define LHIGH   1.e9
00036 #define LEFMT   " %# .8E"
00037 #define LFFMT   " %# .9g"
00038 #else
00039 #define LGFMT   "%.9G"
00040 #endif
00041 /* LEFBL 20 should suffice; 24 overcomes a NeXT bug. */
00042 #define LEFBL   24
00043 
00044 typedef union
00045 {
00046         char    flchar;
00047         short   flshort;
00048         ftnint  flint;
00049 #ifdef Allow_TYQUAD
00050         longint fllongint;
00051 #endif
00052         real    flreal;
00053         doublereal      fldouble;
00054 } flex;
00055 extern int f__scale;
00056 #ifdef KR_headers
00057 extern int (*f__lioproc)(), (*l_getc)(), (*l_ungetc)();
00058 extern int l_read(), l_write();
00059 #else
00060 #ifdef __cplusplus
00061 extern "C" {
00062 #endif
00063 extern int (*f__lioproc)(ftnint*, char*, ftnlen, ftnint);
00064 extern int l_write(ftnint*, char*, ftnlen, ftnint);
00065 extern void x_wsne(cilist*);
00066 extern int c_le(cilist*), (*l_getc)(void), (*l_ungetc)(int,FILE*);
00067 extern int l_read(ftnint*,char*,ftnlen,ftnint);
00068 extern integer e_rsle(void), e_wsle(void), s_wsne(cilist*);
00069 extern int z_rnew(void);
00070 #ifdef __cplusplus
00071         }
00072 #endif
00073 #endif
00074 extern ftnint L_len;
AFNI/NIfTI Server

Sections

Personal tools

Navigation

Doxygen Source Code Documentation

lio.h
