\doxysection{f2c.\+h}
\label{f2c_8h_source}\index{include/sphinxbase/f2c.h@{include/sphinxbase/f2c.h}}

\begin{DoxyCode}{0}
\DoxyCodeLine{00001\ \textcolor{comment}{/*\ -\/*-\/\ c-\/basic-\/offset:\ 4;\ indent-\/tabs-\/mode:\ nil\ -\/*-\/\ */}}
\DoxyCodeLine{00002\ \textcolor{comment}{/*\ f2c.h\ \ -\/-\/\ \ Standard\ Fortran\ to\ C\ header\ file\ */}}
\DoxyCodeLine{00003\ }
\DoxyCodeLine{00008\ \textcolor{preprocessor}{\#ifndef\ F2C\_INCLUDE}}
\DoxyCodeLine{00009\ \textcolor{preprocessor}{\#define\ F2C\_INCLUDE}}
\DoxyCodeLine{00010\ }
\DoxyCodeLine{00011\ \textcolor{keyword}{typedef}\ \textcolor{keywordtype}{int}\ integer;}
\DoxyCodeLine{00012\ \textcolor{keyword}{typedef}\ \textcolor{keywordtype}{char}\ *address;}
\DoxyCodeLine{00013\ \textcolor{keyword}{typedef}\ \textcolor{keywordtype}{short}\ \textcolor{keywordtype}{int}\ shortint;}
\DoxyCodeLine{00014\ \textcolor{keyword}{typedef}\ \textcolor{keywordtype}{float}\ real;}
\DoxyCodeLine{00015\ \textcolor{keyword}{typedef}\ \textcolor{keywordtype}{double}\ doublereal;}
\DoxyCodeLine{00016\ \textcolor{keyword}{typedef}\ \textcolor{keyword}{struct\ }\{\ real\ r,\ i;\ \}\ complex;}
\DoxyCodeLine{00017\ \textcolor{keyword}{typedef}\ \textcolor{keyword}{struct\ }\{\ doublereal\ r,\ i;\ \}\ doublecomplex;}
\DoxyCodeLine{00018\ \textcolor{keyword}{typedef}\ \textcolor{keywordtype}{int}\ logical;}
\DoxyCodeLine{00019\ \textcolor{keyword}{typedef}\ \textcolor{keywordtype}{short}\ \textcolor{keywordtype}{int}\ shortlogical;}
\DoxyCodeLine{00020\ \textcolor{keyword}{typedef}\ \textcolor{keywordtype}{char}\ logical1;}
\DoxyCodeLine{00021\ \textcolor{keyword}{typedef}\ \textcolor{keywordtype}{char}\ integer1;}
\DoxyCodeLine{00022\ }
\DoxyCodeLine{00023\ \textcolor{preprocessor}{\#define\ TRUE\_\ (1)}}
\DoxyCodeLine{00024\ \textcolor{preprocessor}{\#define\ FALSE\_\ (0)}}
\DoxyCodeLine{00025\ }
\DoxyCodeLine{00026\ \textcolor{comment}{/*\ Extern\ is\ for\ use\ with\ -\/E\ */}}
\DoxyCodeLine{00027\ \textcolor{preprocessor}{\#ifndef\ Extern}}
\DoxyCodeLine{00028\ \textcolor{preprocessor}{\#define\ Extern\ extern}}
\DoxyCodeLine{00029\ \textcolor{preprocessor}{\#endif}}
\DoxyCodeLine{00030\ }
\DoxyCodeLine{00031\ \textcolor{comment}{/*\ I/O\ stuff\ */}}
\DoxyCodeLine{00032\ }
\DoxyCodeLine{00033\ \textcolor{preprocessor}{\#ifdef\ f2c\_i2}}
\DoxyCodeLine{00034\ \textcolor{comment}{/*\ for\ -\/i2\ */}}
\DoxyCodeLine{00035\ \textcolor{keyword}{typedef}\ \textcolor{keywordtype}{short}\ flag;}
\DoxyCodeLine{00036\ \textcolor{keyword}{typedef}\ \textcolor{keywordtype}{short}\ ftnlen;}
\DoxyCodeLine{00037\ \textcolor{keyword}{typedef}\ \textcolor{keywordtype}{short}\ ftnint;}
\DoxyCodeLine{00038\ \textcolor{preprocessor}{\#else}}
\DoxyCodeLine{00039\ \textcolor{keyword}{typedef}\ \textcolor{keywordtype}{int}\ flag;}
\DoxyCodeLine{00040\ \textcolor{keyword}{typedef}\ \textcolor{keywordtype}{int}\ ftnlen;}
\DoxyCodeLine{00041\ \textcolor{keyword}{typedef}\ \textcolor{keywordtype}{int}\ ftnint;}
\DoxyCodeLine{00042\ \textcolor{preprocessor}{\#endif}}
\DoxyCodeLine{00043\ }
\DoxyCodeLine{00044\ \textcolor{comment}{/*external\ read,\ write*/}}
\DoxyCodeLine{00045\ \textcolor{keyword}{typedef}\ \textcolor{keyword}{struct}}
\DoxyCodeLine{00046\ \{\ \ \ \ \ \ \ flag\ cierr;}
\DoxyCodeLine{00047\ \ \ \ \ \ \ \ \ ftnint\ ciunit;}
\DoxyCodeLine{00048\ \ \ \ \ \ \ \ \ flag\ ciend;}
\DoxyCodeLine{00049\ \ \ \ \ \ \ \ \ \textcolor{keywordtype}{char}\ *cifmt;}
\DoxyCodeLine{00050\ \ \ \ \ \ \ \ \ ftnint\ cirec;}
\DoxyCodeLine{00051\ \}\ cilist;}
\DoxyCodeLine{00052\ }
\DoxyCodeLine{00053\ \textcolor{comment}{/*internal\ read,\ write*/}}
\DoxyCodeLine{00054\ \textcolor{keyword}{typedef}\ \textcolor{keyword}{struct}}
\DoxyCodeLine{00055\ \{\ \ \ \ \ \ \ flag\ icierr;}
\DoxyCodeLine{00056\ \ \ \ \ \ \ \ \ \textcolor{keywordtype}{char}\ *iciunit;}
\DoxyCodeLine{00057\ \ \ \ \ \ \ \ \ flag\ iciend;}
\DoxyCodeLine{00058\ \ \ \ \ \ \ \ \ \textcolor{keywordtype}{char}\ *icifmt;}
\DoxyCodeLine{00059\ \ \ \ \ \ \ \ \ ftnint\ icirlen;}
\DoxyCodeLine{00060\ \ \ \ \ \ \ \ \ ftnint\ icirnum;}
\DoxyCodeLine{00061\ \}\ icilist;}
\DoxyCodeLine{00062\ }
\DoxyCodeLine{00063\ \textcolor{comment}{/*open*/}}
\DoxyCodeLine{00064\ \textcolor{keyword}{typedef}\ \textcolor{keyword}{struct}}
\DoxyCodeLine{00065\ \{\ \ \ \ \ \ \ flag\ oerr;}
\DoxyCodeLine{00066\ \ \ \ \ \ \ \ \ ftnint\ ounit;}
\DoxyCodeLine{00067\ \ \ \ \ \ \ \ \ \textcolor{keywordtype}{char}\ *ofnm;}
\DoxyCodeLine{00068\ \ \ \ \ \ \ \ \ ftnlen\ ofnmlen;}
\DoxyCodeLine{00069\ \ \ \ \ \ \ \ \ \textcolor{keywordtype}{char}\ *osta;}
\DoxyCodeLine{00070\ \ \ \ \ \ \ \ \ \textcolor{keywordtype}{char}\ *oacc;}
\DoxyCodeLine{00071\ \ \ \ \ \ \ \ \ \textcolor{keywordtype}{char}\ *ofm;}
\DoxyCodeLine{00072\ \ \ \ \ \ \ \ \ ftnint\ orl;}
\DoxyCodeLine{00073\ \ \ \ \ \ \ \ \ \textcolor{keywordtype}{char}\ *oblnk;}
\DoxyCodeLine{00074\ \}\ olist;}
\DoxyCodeLine{00075\ }
\DoxyCodeLine{00076\ \textcolor{comment}{/*close*/}}
\DoxyCodeLine{00077\ \textcolor{keyword}{typedef}\ \textcolor{keyword}{struct}}
\DoxyCodeLine{00078\ \{\ \ \ \ \ \ \ flag\ cerr;}
\DoxyCodeLine{00079\ \ \ \ \ \ \ \ \ ftnint\ cunit;}
\DoxyCodeLine{00080\ \ \ \ \ \ \ \ \ \textcolor{keywordtype}{char}\ *csta;}
\DoxyCodeLine{00081\ \}\ cllist;}
\DoxyCodeLine{00082\ }
\DoxyCodeLine{00083\ \textcolor{comment}{/*rewind,\ backspace,\ endfile*/}}
\DoxyCodeLine{00084\ \textcolor{keyword}{typedef}\ \textcolor{keyword}{struct}}
\DoxyCodeLine{00085\ \{\ \ \ \ \ \ \ flag\ aerr;}
\DoxyCodeLine{00086\ \ \ \ \ \ \ \ \ ftnint\ aunit;}
\DoxyCodeLine{00087\ \}\ alist;}
\DoxyCodeLine{00088\ }
\DoxyCodeLine{00089\ \textcolor{comment}{/*\ inquire\ */}}
\DoxyCodeLine{00090\ \textcolor{keyword}{typedef}\ \textcolor{keyword}{struct}}
\DoxyCodeLine{00091\ \{\ \ \ \ \ \ \ flag\ inerr;}
\DoxyCodeLine{00092\ \ \ \ \ \ \ \ \ ftnint\ inunit;}
\DoxyCodeLine{00093\ \ \ \ \ \ \ \ \ \textcolor{keywordtype}{char}\ *infile;}
\DoxyCodeLine{00094\ \ \ \ \ \ \ \ \ ftnlen\ infilen;}
\DoxyCodeLine{00095\ \ \ \ \ \ \ \ \ ftnint\ \ *inex;\ \ \textcolor{comment}{/*parameters\ in\ standard's\ order*/}}
\DoxyCodeLine{00096\ \ \ \ \ \ \ \ \ ftnint\ \ *inopen;}
\DoxyCodeLine{00097\ \ \ \ \ \ \ \ \ ftnint\ \ *innum;}
\DoxyCodeLine{00098\ \ \ \ \ \ \ \ \ ftnint\ \ *innamed;}
\DoxyCodeLine{00099\ \ \ \ \ \ \ \ \ \textcolor{keywordtype}{char}\ \ \ \ *inname;}
\DoxyCodeLine{00100\ \ \ \ \ \ \ \ \ ftnlen\ \ innamlen;}
\DoxyCodeLine{00101\ \ \ \ \ \ \ \ \ \textcolor{keywordtype}{char}\ \ \ \ *inacc;}
\DoxyCodeLine{00102\ \ \ \ \ \ \ \ \ ftnlen\ \ inacclen;}
\DoxyCodeLine{00103\ \ \ \ \ \ \ \ \ \textcolor{keywordtype}{char}\ \ \ \ *inseq;}
\DoxyCodeLine{00104\ \ \ \ \ \ \ \ \ ftnlen\ \ inseqlen;}
\DoxyCodeLine{00105\ \ \ \ \ \ \ \ \ \textcolor{keywordtype}{char}\ \ \ \ *indir;}
\DoxyCodeLine{00106\ \ \ \ \ \ \ \ \ ftnlen\ \ indirlen;}
\DoxyCodeLine{00107\ \ \ \ \ \ \ \ \ \textcolor{keywordtype}{char}\ \ \ \ *infmt;}
\DoxyCodeLine{00108\ \ \ \ \ \ \ \ \ ftnlen\ \ infmtlen;}
\DoxyCodeLine{00109\ \ \ \ \ \ \ \ \ \textcolor{keywordtype}{char}\ \ \ \ *inform;}
\DoxyCodeLine{00110\ \ \ \ \ \ \ \ \ ftnint\ \ informlen;}
\DoxyCodeLine{00111\ \ \ \ \ \ \ \ \ \textcolor{keywordtype}{char}\ \ \ \ *inunf;}
\DoxyCodeLine{00112\ \ \ \ \ \ \ \ \ ftnlen\ \ inunflen;}
\DoxyCodeLine{00113\ \ \ \ \ \ \ \ \ ftnint\ \ *inrecl;}
\DoxyCodeLine{00114\ \ \ \ \ \ \ \ \ ftnint\ \ *innrec;}
\DoxyCodeLine{00115\ \ \ \ \ \ \ \ \ \textcolor{keywordtype}{char}\ \ \ \ *inblank;}
\DoxyCodeLine{00116\ \ \ \ \ \ \ \ \ ftnlen\ \ inblanklen;}
\DoxyCodeLine{00117\ \}\ inlist;}
\DoxyCodeLine{00118\ }
\DoxyCodeLine{00119\ \textcolor{preprocessor}{\#define\ VOID\ void}}
\DoxyCodeLine{00120\ }
\DoxyCodeLine{00121\ \textcolor{keyword}{union\ }Multitype\ \{\ \ \ \ \ \ \textcolor{comment}{/*\ for\ multiple\ entry\ points\ */}}
\DoxyCodeLine{00122\ \ \ \ \ \ \ \ \ shortint\ h;}
\DoxyCodeLine{00123\ \ \ \ \ \ \ \ \ integer\ i;}
\DoxyCodeLine{00124\ \ \ \ \ \ \ \ \ real\ r;}
\DoxyCodeLine{00125\ \ \ \ \ \ \ \ \ doublereal\ d;}
\DoxyCodeLine{00126\ \ \ \ \ \ \ \ \ complex\ c;}
\DoxyCodeLine{00127\ \ \ \ \ \ \ \ \ doublecomplex\ z;}
\DoxyCodeLine{00128\ \ \ \ \ \ \ \ \ \};}
\DoxyCodeLine{00129\ }
\DoxyCodeLine{00130\ \textcolor{keyword}{typedef}\ \textcolor{keyword}{union\ }Multitype\ Multitype;}
\DoxyCodeLine{00131\ }
\DoxyCodeLine{00132\ \textcolor{keyword}{typedef}\ \textcolor{keywordtype}{long}\ Long;\ \ \ \ \ \ \textcolor{comment}{/*\ No\ longer\ used;\ formerly\ in\ Namelist\ */}}
\DoxyCodeLine{00133\ }
\DoxyCodeLine{00134\ \textcolor{keyword}{struct\ }Vardesc\ \{\ \textcolor{comment}{/*\ for\ Namelist\ */}}
\DoxyCodeLine{00135\ \ \ \ \ \ \ \ \ \textcolor{keywordtype}{char}\ *name;}
\DoxyCodeLine{00136\ \ \ \ \ \ \ \ \ \textcolor{keywordtype}{char}\ *addr;}
\DoxyCodeLine{00137\ \ \ \ \ \ \ \ \ ftnlen\ *dims;}
\DoxyCodeLine{00138\ \ \ \ \ \ \ \ \ \textcolor{keywordtype}{int}\ \ type;}
\DoxyCodeLine{00139\ \ \ \ \ \ \ \ \ \};}
\DoxyCodeLine{00140\ \textcolor{keyword}{typedef}\ \textcolor{keyword}{struct\ }Vardesc\ Vardesc;}
\DoxyCodeLine{00141\ }
\DoxyCodeLine{00142\ \textcolor{keyword}{struct\ }Namelist\ \{}
\DoxyCodeLine{00143\ \ \ \ \ \ \ \ \ \textcolor{keywordtype}{char}\ *name;}
\DoxyCodeLine{00144\ \ \ \ \ \ \ \ \ Vardesc\ **vars;}
\DoxyCodeLine{00145\ \ \ \ \ \ \ \ \ \textcolor{keywordtype}{int}\ nvars;}
\DoxyCodeLine{00146\ \ \ \ \ \ \ \ \ \};}
\DoxyCodeLine{00147\ \textcolor{keyword}{typedef}\ \textcolor{keyword}{struct\ }Namelist\ Namelist;}
\DoxyCodeLine{00148\ }
\DoxyCodeLine{00149\ \textcolor{preprocessor}{\#ifndef\ abs}}
\DoxyCodeLine{00150\ \textcolor{preprocessor}{\#define\ abs(x)\ ((x)\ >=\ 0\ ?\ (x)\ :\ -\/(x))}}
\DoxyCodeLine{00151\ \textcolor{preprocessor}{\#endif}}
\DoxyCodeLine{00152\ \textcolor{preprocessor}{\#define\ dabs(x)\ (doublereal)abs(x)}}
\DoxyCodeLine{00153\ \textcolor{preprocessor}{\#ifndef\ min}}
\DoxyCodeLine{00154\ \textcolor{preprocessor}{\#define\ min(a,b)\ ((a)\ <=\ (b)\ ?\ (a)\ :\ (b))}}
\DoxyCodeLine{00155\ \textcolor{preprocessor}{\#endif}}
\DoxyCodeLine{00156\ \textcolor{preprocessor}{\#ifndef\ max}}
\DoxyCodeLine{00157\ \textcolor{preprocessor}{\#define\ max(a,b)\ ((a)\ >=\ (b)\ ?\ (a)\ :\ (b))}}
\DoxyCodeLine{00158\ \textcolor{preprocessor}{\#endif}}
\DoxyCodeLine{00159\ \textcolor{preprocessor}{\#define\ dmin(a,b)\ (doublereal)min(a,b)}}
\DoxyCodeLine{00160\ \textcolor{preprocessor}{\#define\ dmax(a,b)\ (doublereal)max(a,b)}}
\DoxyCodeLine{00161\ }
\DoxyCodeLine{00162\ \textcolor{comment}{/*\ procedure\ parameter\ types\ for\ -\/A\ and\ -\/C++\ */}}
\DoxyCodeLine{00163\ }
\DoxyCodeLine{00164\ \textcolor{preprocessor}{\#define\ F2C\_proc\_par\_types\ 1}}
\DoxyCodeLine{00165\ \textcolor{preprocessor}{\#ifdef\ \_\_cplusplus}}
\DoxyCodeLine{00166\ \textcolor{keyword}{typedef}\ \textcolor{keywordtype}{int}\ \textcolor{comment}{/*\ Unknown\ procedure\ type\ */}\ (*U\_fp)(...);}
\DoxyCodeLine{00167\ \textcolor{keyword}{typedef}\ shortint\ (*J\_fp)(...);}
\DoxyCodeLine{00168\ \textcolor{keyword}{typedef}\ integer\ (*I\_fp)(...);}
\DoxyCodeLine{00169\ \textcolor{keyword}{typedef}\ real\ (*R\_fp)(...);}
\DoxyCodeLine{00170\ \textcolor{keyword}{typedef}\ doublereal\ (*D\_fp)(...),\ (*E\_fp)(...);}
\DoxyCodeLine{00171\ \textcolor{keyword}{typedef}\ \textcolor{comment}{/*\ Complex\ */}\ VOID\ (*C\_fp)(...);}
\DoxyCodeLine{00172\ \textcolor{keyword}{typedef}\ \textcolor{comment}{/*\ Double\ Complex\ */}\ VOID\ (*Z\_fp)(...);}
\DoxyCodeLine{00173\ \textcolor{keyword}{typedef}\ logical\ (*L\_fp)(...);}
\DoxyCodeLine{00174\ \textcolor{keyword}{typedef}\ shortlogical\ (*K\_fp)(...);}
\DoxyCodeLine{00175\ \textcolor{keyword}{typedef}\ \textcolor{comment}{/*\ Character\ */}\ VOID\ (*H\_fp)(...);}
\DoxyCodeLine{00176\ \textcolor{keyword}{typedef}\ \textcolor{comment}{/*\ Subroutine\ */}\ int\ (*S\_fp)(...);}
\DoxyCodeLine{00177\ \textcolor{preprocessor}{\#else}}
\DoxyCodeLine{00178\ \textcolor{keyword}{typedef}\ \textcolor{keywordtype}{int}\ \textcolor{comment}{/*\ Unknown\ procedure\ type\ */}\ (*U\_fp)(void);}
\DoxyCodeLine{00179\ \textcolor{keyword}{typedef}\ shortint\ (*J\_fp)(void);}
\DoxyCodeLine{00180\ \textcolor{keyword}{typedef}\ integer\ (*I\_fp)(void);}
\DoxyCodeLine{00181\ \textcolor{keyword}{typedef}\ real\ (*R\_fp)(void);}
\DoxyCodeLine{00182\ \textcolor{keyword}{typedef}\ doublereal\ (*D\_fp)(void),\ (*E\_fp)(void);}
\DoxyCodeLine{00183\ \textcolor{keyword}{typedef}\ \textcolor{comment}{/*\ Complex\ */}\ VOID\ (*C\_fp)(void);}
\DoxyCodeLine{00184\ \textcolor{keyword}{typedef}\ \textcolor{comment}{/*\ Double\ Complex\ */}\ VOID\ (*Z\_fp)(void);}
\DoxyCodeLine{00185\ \textcolor{keyword}{typedef}\ logical\ (*L\_fp)(void);}
\DoxyCodeLine{00186\ \textcolor{keyword}{typedef}\ shortlogical\ (*K\_fp)(void);}
\DoxyCodeLine{00187\ \textcolor{keyword}{typedef}\ \textcolor{comment}{/*\ Character\ */}\ VOID\ (*H\_fp)(void);}
\DoxyCodeLine{00188\ \textcolor{keyword}{typedef}\ \textcolor{comment}{/*\ Subroutine\ */}\ int\ (*S\_fp)(void);}
\DoxyCodeLine{00189\ \textcolor{preprocessor}{\#endif}}
\DoxyCodeLine{00190\ \textcolor{comment}{/*\ E\_fp\ is\ for\ real\ functions\ when\ -\/R\ is\ not\ specified\ */}}
\DoxyCodeLine{00191\ \textcolor{keyword}{typedef}\ VOID\ C\_f;\ \ \ \ \ \ \ \textcolor{comment}{/*\ complex\ function\ */}}
\DoxyCodeLine{00192\ \textcolor{keyword}{typedef}\ VOID\ H\_f;\ \ \ \ \ \ \ \textcolor{comment}{/*\ character\ function\ */}}
\DoxyCodeLine{00193\ \textcolor{keyword}{typedef}\ VOID\ Z\_f;\ \ \ \ \ \ \ \textcolor{comment}{/*\ double\ complex\ function\ */}}
\DoxyCodeLine{00194\ \textcolor{keyword}{typedef}\ doublereal\ E\_f;\ \textcolor{comment}{/*\ real\ function\ with\ -\/R\ not\ specified\ */}}
\DoxyCodeLine{00195\ }
\DoxyCodeLine{00196\ \textcolor{comment}{/*\ undef\ any\ lower-\/case\ symbols\ that\ your\ C\ compiler\ predefines,\ e.g.:\ */}}
\DoxyCodeLine{00197\ }
\DoxyCodeLine{00198\ \textcolor{preprocessor}{\#ifndef\ Skip\_f2c\_Undefs}}
\DoxyCodeLine{00199\ \textcolor{preprocessor}{\#undef\ cray}}
\DoxyCodeLine{00200\ \textcolor{preprocessor}{\#undef\ gcos}}
\DoxyCodeLine{00201\ \textcolor{preprocessor}{\#undef\ mc68010}}
\DoxyCodeLine{00202\ \textcolor{preprocessor}{\#undef\ mc68020}}
\DoxyCodeLine{00203\ \textcolor{preprocessor}{\#undef\ mips}}
\DoxyCodeLine{00204\ \textcolor{preprocessor}{\#undef\ pdp11}}
\DoxyCodeLine{00205\ \textcolor{preprocessor}{\#undef\ sgi}}
\DoxyCodeLine{00206\ \textcolor{preprocessor}{\#undef\ sparc}}
\DoxyCodeLine{00207\ \textcolor{preprocessor}{\#undef\ sun}}
\DoxyCodeLine{00208\ \textcolor{preprocessor}{\#undef\ sun2}}
\DoxyCodeLine{00209\ \textcolor{preprocessor}{\#undef\ sun3}}
\DoxyCodeLine{00210\ \textcolor{preprocessor}{\#undef\ sun4}}
\DoxyCodeLine{00211\ \textcolor{preprocessor}{\#undef\ u370}}
\DoxyCodeLine{00212\ \textcolor{preprocessor}{\#undef\ u3b}}
\DoxyCodeLine{00213\ \textcolor{preprocessor}{\#undef\ u3b2}}
\DoxyCodeLine{00214\ \textcolor{preprocessor}{\#undef\ u3b5}}
\DoxyCodeLine{00215\ \textcolor{preprocessor}{\#undef\ unix}}
\DoxyCodeLine{00216\ \textcolor{preprocessor}{\#undef\ vax}}
\DoxyCodeLine{00217\ \textcolor{preprocessor}{\#endif}}
\DoxyCodeLine{00218\ \textcolor{preprocessor}{\#endif}}

\end{DoxyCode}
