<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/> <meta http-equiv="X-UA-Compatible" content="IE=9"/> <meta name="generator" content="Doxygen 1.8.8"/> <title>SphinxBase: include/sphinxbase/f2c.h Source File</title> <link href="tabs.css" rel="stylesheet" type="text/css"/> <script type="text/javascript" src="jquery.js"></script> <script type="text/javascript" src="dynsections.js"></script> <link href="navtree.css" rel="stylesheet" type="text/css"/> <script type="text/javascript" src="resize.js"></script> <script type="text/javascript" src="navtree.js"></script> <script type="text/javascript"> $(document).ready(initResizable); $(window).load(resizeHeight); </script> <link href="doxygen.css" rel="stylesheet" type="text/css" /> </head> <body> <div id="top"><!-- do not remove this div, it is closed by doxygen! --> <div id="titlearea"> <table cellspacing="0" cellpadding="0"> <tbody> <tr style="height: 56px;"> <td style="padding-left: 0.5em;"> <div id="projectname">SphinxBase  <span id="projectnumber">0.6</span> </div> </td> </tr> </tbody> </table> </div> <!-- end header part --> <!-- Generated by Doxygen 1.8.8 --> <div id="navrow1" class="tabs"> <ul class="tablist"> <li><a href="index.html"><span>Main Page</span></a></li> <li><a href="pages.html"><span>Related Pages</span></a></li> <li><a href="annotated.html"><span>Data Structures</span></a></li> <li class="current"><a href="files.html"><span>Files</span></a></li> </ul> </div> <div id="navrow2" class="tabs2"> <ul class="tablist"> <li><a href="files.html"><span>File List</span></a></li> <li><a href="globals.html"><span>Globals</span></a></li> </ul> </div> </div><!-- top --> <div id="side-nav" class="ui-resizable side-nav-resizable"> <div id="nav-tree"> <div id="nav-tree-contents"> <div id="nav-sync" class="sync"></div> </div> </div> <div id="splitbar" style="-moz-user-select:none;" class="ui-resizable-handle"> </div> </div> <script type="text/javascript"> $(document).ready(function(){initNavTree('f2c_8h_source.html','');}); </script> <div id="doc-content"> <div class="header"> <div class="headertitle"> <div class="title">f2c.h</div> </div> </div><!--header--> <div class="contents"> <div class="fragment"><div class="line"><a name="l00001"></a><span class="lineno"> 1</span> <span class="comment">/* -*- c-basic-offset: 4; indent-tabs-mode: nil -*- */</span></div> <div class="line"><a name="l00002"></a><span class="lineno"> 2</span> <span class="comment">/* f2c.h -- Standard Fortran to C header file */</span></div> <div class="line"><a name="l00003"></a><span class="lineno"> 3</span> </div> <div class="line"><a name="l00008"></a><span class="lineno"> 8</span> <span class="preprocessor">#ifndef F2C_INCLUDE</span></div> <div class="line"><a name="l00009"></a><span class="lineno"> 9</span> <span class="preprocessor">#define F2C_INCLUDE</span></div> <div class="line"><a name="l00010"></a><span class="lineno"> 10</span> </div> <div class="line"><a name="l00011"></a><span class="lineno"> 11</span> <span class="keyword">typedef</span> <span class="keywordtype">int</span> integer;</div> <div class="line"><a name="l00012"></a><span class="lineno"> 12</span> <span class="keyword">typedef</span> <span class="keywordtype">char</span> *address;</div> <div class="line"><a name="l00013"></a><span class="lineno"> 13</span> <span class="keyword">typedef</span> <span class="keywordtype">short</span> <span class="keywordtype">int</span> shortint;</div> <div class="line"><a name="l00014"></a><span class="lineno"> 14</span> <span class="keyword">typedef</span> <span class="keywordtype">float</span> real;</div> <div class="line"><a name="l00015"></a><span class="lineno"> 15</span> <span class="keyword">typedef</span> <span class="keywordtype">double</span> doublereal;</div> <div class="line"><a name="l00016"></a><span class="lineno"><a class="line" href="structcomplex.html"> 16</a></span> <span class="keyword">typedef</span> <span class="keyword">struct </span>{ real r, i; } <a class="code" href="structcomplex.html">complex</a>;</div> <div class="line"><a name="l00017"></a><span class="lineno"><a class="line" href="structdoublecomplex.html"> 17</a></span> <span class="keyword">typedef</span> <span class="keyword">struct </span>{ doublereal r, i; } <a class="code" href="structdoublecomplex.html">doublecomplex</a>;</div> <div class="line"><a name="l00018"></a><span class="lineno"> 18</span> <span class="keyword">typedef</span> <span class="keywordtype">int</span> logical;</div> <div class="line"><a name="l00019"></a><span class="lineno"> 19</span> <span class="keyword">typedef</span> <span class="keywordtype">short</span> <span class="keywordtype">int</span> shortlogical;</div> <div class="line"><a name="l00020"></a><span class="lineno"> 20</span> <span class="keyword">typedef</span> <span class="keywordtype">char</span> logical1;</div> <div class="line"><a name="l00021"></a><span class="lineno"> 21</span> <span class="keyword">typedef</span> <span class="keywordtype">char</span> integer1;</div> <div class="line"><a name="l00022"></a><span class="lineno"> 22</span> </div> <div class="line"><a name="l00023"></a><span class="lineno"> 23</span> <span class="preprocessor">#define TRUE_ (1)</span></div> <div class="line"><a name="l00024"></a><span class="lineno"> 24</span> <span class="preprocessor">#define FALSE_ (0)</span></div> <div class="line"><a name="l00025"></a><span class="lineno"> 25</span> </div> <div class="line"><a name="l00026"></a><span class="lineno"> 26</span> <span class="comment">/* Extern is for use with -E */</span></div> <div class="line"><a name="l00027"></a><span class="lineno"> 27</span> <span class="preprocessor">#ifndef Extern</span></div> <div class="line"><a name="l00028"></a><span class="lineno"> 28</span> <span class="preprocessor">#define Extern extern</span></div> <div class="line"><a name="l00029"></a><span class="lineno"> 29</span> <span class="preprocessor">#endif</span></div> <div class="line"><a name="l00030"></a><span class="lineno"> 30</span> </div> <div class="line"><a name="l00031"></a><span class="lineno"> 31</span> <span class="comment">/* I/O stuff */</span></div> <div class="line"><a name="l00032"></a><span class="lineno"> 32</span> </div> <div class="line"><a name="l00033"></a><span class="lineno"> 33</span> <span class="preprocessor">#ifdef f2c_i2</span></div> <div class="line"><a name="l00034"></a><span class="lineno"> 34</span> <span class="comment">/* for -i2 */</span></div> <div class="line"><a name="l00035"></a><span class="lineno"> 35</span> <span class="keyword">typedef</span> <span class="keywordtype">short</span> flag;</div> <div class="line"><a name="l00036"></a><span class="lineno"> 36</span> <span class="keyword">typedef</span> <span class="keywordtype">short</span> ftnlen;</div> <div class="line"><a name="l00037"></a><span class="lineno"> 37</span> <span class="keyword">typedef</span> <span class="keywordtype">short</span> ftnint;</div> <div class="line"><a name="l00038"></a><span class="lineno"> 38</span> <span class="preprocessor">#else</span></div> <div class="line"><a name="l00039"></a><span class="lineno"> 39</span> <span class="keyword">typedef</span> <span class="keywordtype">int</span> flag;</div> <div class="line"><a name="l00040"></a><span class="lineno"> 40</span> <span class="keyword">typedef</span> <span class="keywordtype">int</span> ftnlen;</div> <div class="line"><a name="l00041"></a><span class="lineno"> 41</span> <span class="keyword">typedef</span> <span class="keywordtype">int</span> ftnint;</div> <div class="line"><a name="l00042"></a><span class="lineno"> 42</span> <span class="preprocessor">#endif</span></div> <div class="line"><a name="l00043"></a><span class="lineno"> 43</span> </div> <div class="line"><a name="l00044"></a><span class="lineno"> 44</span> <span class="comment">/*external read, write*/</span></div> <div class="line"><a name="l00045"></a><span class="lineno"><a class="line" href="structcilist.html"> 45</a></span> <span class="keyword">typedef</span> <span class="keyword">struct</span></div> <div class="line"><a name="l00046"></a><span class="lineno"> 46</span> { flag cierr;</div> <div class="line"><a name="l00047"></a><span class="lineno"> 47</span>  ftnint ciunit;</div> <div class="line"><a name="l00048"></a><span class="lineno"> 48</span>  flag ciend;</div> <div class="line"><a name="l00049"></a><span class="lineno"> 49</span>  <span class="keywordtype">char</span> *cifmt;</div> <div class="line"><a name="l00050"></a><span class="lineno"> 50</span>  ftnint cirec;</div> <div class="line"><a name="l00051"></a><span class="lineno"> 51</span> } <a class="code" href="structcilist.html">cilist</a>;</div> <div class="line"><a name="l00052"></a><span class="lineno"> 52</span> </div> <div class="line"><a name="l00053"></a><span class="lineno"> 53</span> <span class="comment">/*internal read, write*/</span></div> <div class="line"><a name="l00054"></a><span class="lineno"><a class="line" href="structicilist.html"> 54</a></span> <span class="keyword">typedef</span> <span class="keyword">struct</span></div> <div class="line"><a name="l00055"></a><span class="lineno"> 55</span> { flag icierr;</div> <div class="line"><a name="l00056"></a><span class="lineno"> 56</span>  <span class="keywordtype">char</span> *iciunit;</div> <div class="line"><a name="l00057"></a><span class="lineno"> 57</span>  flag iciend;</div> <div class="line"><a name="l00058"></a><span class="lineno"> 58</span>  <span class="keywordtype">char</span> *icifmt;</div> <div class="line"><a name="l00059"></a><span class="lineno"> 59</span>  ftnint icirlen;</div> <div class="line"><a name="l00060"></a><span class="lineno"> 60</span>  ftnint icirnum;</div> <div class="line"><a name="l00061"></a><span class="lineno"> 61</span> } <a class="code" href="structicilist.html">icilist</a>;</div> <div class="line"><a name="l00062"></a><span class="lineno"> 62</span> </div> <div class="line"><a name="l00063"></a><span class="lineno"> 63</span> <span class="comment">/*open*/</span></div> <div class="line"><a name="l00064"></a><span class="lineno"><a class="line" href="structolist.html"> 64</a></span> <span class="keyword">typedef</span> <span class="keyword">struct</span></div> <div class="line"><a name="l00065"></a><span class="lineno"> 65</span> { flag oerr;</div> <div class="line"><a name="l00066"></a><span class="lineno"> 66</span>  ftnint ounit;</div> <div class="line"><a name="l00067"></a><span class="lineno"> 67</span>  <span class="keywordtype">char</span> *ofnm;</div> <div class="line"><a name="l00068"></a><span class="lineno"> 68</span>  ftnlen ofnmlen;</div> <div class="line"><a name="l00069"></a><span class="lineno"> 69</span>  <span class="keywordtype">char</span> *osta;</div> <div class="line"><a name="l00070"></a><span class="lineno"> 70</span>  <span class="keywordtype">char</span> *oacc;</div> <div class="line"><a name="l00071"></a><span class="lineno"> 71</span>  <span class="keywordtype">char</span> *ofm;</div> <div class="line"><a name="l00072"></a><span class="lineno"> 72</span>  ftnint orl;</div> <div class="line"><a name="l00073"></a><span class="lineno"> 73</span>  <span class="keywordtype">char</span> *oblnk;</div> <div class="line"><a name="l00074"></a><span class="lineno"> 74</span> } <a class="code" href="structolist.html">olist</a>;</div> <div class="line"><a name="l00075"></a><span class="lineno"> 75</span> </div> <div class="line"><a name="l00076"></a><span class="lineno"> 76</span> <span class="comment">/*close*/</span></div> <div class="line"><a name="l00077"></a><span class="lineno"><a class="line" href="structcllist.html"> 77</a></span> <span class="keyword">typedef</span> <span class="keyword">struct</span></div> <div class="line"><a name="l00078"></a><span class="lineno"> 78</span> { flag cerr;</div> <div class="line"><a name="l00079"></a><span class="lineno"> 79</span>  ftnint cunit;</div> <div class="line"><a name="l00080"></a><span class="lineno"> 80</span>  <span class="keywordtype">char</span> *csta;</div> <div class="line"><a name="l00081"></a><span class="lineno"> 81</span> } <a class="code" href="structcllist.html">cllist</a>;</div> <div class="line"><a name="l00082"></a><span class="lineno"> 82</span> </div> <div class="line"><a name="l00083"></a><span class="lineno"> 83</span> <span class="comment">/*rewind, backspace, endfile*/</span></div> <div class="line"><a name="l00084"></a><span class="lineno"><a class="line" href="structalist.html"> 84</a></span> <span class="keyword">typedef</span> <span class="keyword">struct</span></div> <div class="line"><a name="l00085"></a><span class="lineno"> 85</span> { flag aerr;</div> <div class="line"><a name="l00086"></a><span class="lineno"> 86</span>  ftnint aunit;</div> <div class="line"><a name="l00087"></a><span class="lineno"> 87</span> } <a class="code" href="structalist.html">alist</a>;</div> <div class="line"><a name="l00088"></a><span class="lineno"> 88</span> </div> <div class="line"><a name="l00089"></a><span class="lineno"> 89</span> <span class="comment">/* inquire */</span></div> <div class="line"><a name="l00090"></a><span class="lineno"><a class="line" href="structinlist.html"> 90</a></span> <span class="keyword">typedef</span> <span class="keyword">struct</span></div> <div class="line"><a name="l00091"></a><span class="lineno"> 91</span> { flag inerr;</div> <div class="line"><a name="l00092"></a><span class="lineno"> 92</span>  ftnint inunit;</div> <div class="line"><a name="l00093"></a><span class="lineno"> 93</span>  <span class="keywordtype">char</span> *infile;</div> <div class="line"><a name="l00094"></a><span class="lineno"> 94</span>  ftnlen infilen;</div> <div class="line"><a name="l00095"></a><span class="lineno"> 95</span>  ftnint *inex; <span class="comment">/*parameters in standard's order*/</span></div> <div class="line"><a name="l00096"></a><span class="lineno"> 96</span>  ftnint *inopen;</div> <div class="line"><a name="l00097"></a><span class="lineno"> 97</span>  ftnint *innum;</div> <div class="line"><a name="l00098"></a><span class="lineno"> 98</span>  ftnint *innamed;</div> <div class="line"><a name="l00099"></a><span class="lineno"> 99</span>  <span class="keywordtype">char</span> *inname;</div> <div class="line"><a name="l00100"></a><span class="lineno"> 100</span>  ftnlen innamlen;</div> <div class="line"><a name="l00101"></a><span class="lineno"> 101</span>  <span class="keywordtype">char</span> *inacc;</div> <div class="line"><a name="l00102"></a><span class="lineno"> 102</span>  ftnlen inacclen;</div> <div class="line"><a name="l00103"></a><span class="lineno"> 103</span>  <span class="keywordtype">char</span> *inseq;</div> <div class="line"><a name="l00104"></a><span class="lineno"> 104</span>  ftnlen inseqlen;</div> <div class="line"><a name="l00105"></a><span class="lineno"> 105</span>  <span class="keywordtype">char</span> *indir;</div> <div class="line"><a name="l00106"></a><span class="lineno"> 106</span>  ftnlen indirlen;</div> <div class="line"><a name="l00107"></a><span class="lineno"> 107</span>  <span class="keywordtype">char</span> *infmt;</div> <div class="line"><a name="l00108"></a><span class="lineno"> 108</span>  ftnlen infmtlen;</div> <div class="line"><a name="l00109"></a><span class="lineno"> 109</span>  <span class="keywordtype">char</span> *inform;</div> <div class="line"><a name="l00110"></a><span class="lineno"> 110</span>  ftnint informlen;</div> <div class="line"><a name="l00111"></a><span class="lineno"> 111</span>  <span class="keywordtype">char</span> *inunf;</div> <div class="line"><a name="l00112"></a><span class="lineno"> 112</span>  ftnlen inunflen;</div> <div class="line"><a name="l00113"></a><span class="lineno"> 113</span>  ftnint *inrecl;</div> <div class="line"><a name="l00114"></a><span class="lineno"> 114</span>  ftnint *innrec;</div> <div class="line"><a name="l00115"></a><span class="lineno"> 115</span>  <span class="keywordtype">char</span> *inblank;</div> <div class="line"><a name="l00116"></a><span class="lineno"> 116</span>  ftnlen inblanklen;</div> <div class="line"><a name="l00117"></a><span class="lineno"> 117</span> } <a class="code" href="structinlist.html">inlist</a>;</div> <div class="line"><a name="l00118"></a><span class="lineno"> 118</span> </div> <div class="line"><a name="l00119"></a><span class="lineno"> 119</span> <span class="preprocessor">#define VOID void</span></div> <div class="line"><a name="l00120"></a><span class="lineno"> 120</span> </div> <div class="line"><a name="l00121"></a><span class="lineno"><a class="line" href="unionMultitype.html"> 121</a></span> <span class="keyword">union </span><a class="code" href="unionMultitype.html">Multitype</a> { <span class="comment">/* for multiple entry points */</span></div> <div class="line"><a name="l00122"></a><span class="lineno"> 122</span>  shortint h;</div> <div class="line"><a name="l00123"></a><span class="lineno"> 123</span>  integer i;</div> <div class="line"><a name="l00124"></a><span class="lineno"> 124</span>  real r;</div> <div class="line"><a name="l00125"></a><span class="lineno"> 125</span>  doublereal d;</div> <div class="line"><a name="l00126"></a><span class="lineno"> 126</span>  <a class="code" href="structcomplex.html">complex</a> c;</div> <div class="line"><a name="l00127"></a><span class="lineno"> 127</span>  <a class="code" href="structdoublecomplex.html">doublecomplex</a> z;</div> <div class="line"><a name="l00128"></a><span class="lineno"> 128</span>  };</div> <div class="line"><a name="l00129"></a><span class="lineno"> 129</span> </div> <div class="line"><a name="l00130"></a><span class="lineno"> 130</span> <span class="keyword">typedef</span> <span class="keyword">union </span><a class="code" href="unionMultitype.html">Multitype</a> <a class="code" href="unionMultitype.html">Multitype</a>;</div> <div class="line"><a name="l00131"></a><span class="lineno"> 131</span> </div> <div class="line"><a name="l00132"></a><span class="lineno"> 132</span> <span class="keyword">typedef</span> <span class="keywordtype">long</span> Long; <span class="comment">/* No longer used; formerly in Namelist */</span></div> <div class="line"><a name="l00133"></a><span class="lineno"> 133</span> </div> <div class="line"><a name="l00134"></a><span class="lineno"><a class="line" href="structVardesc.html"> 134</a></span> <span class="keyword">struct </span><a class="code" href="structVardesc.html">Vardesc</a> { <span class="comment">/* for Namelist */</span></div> <div class="line"><a name="l00135"></a><span class="lineno"> 135</span>  <span class="keywordtype">char</span> *name;</div> <div class="line"><a name="l00136"></a><span class="lineno"> 136</span>  <span class="keywordtype">char</span> *addr;</div> <div class="line"><a name="l00137"></a><span class="lineno"> 137</span>  ftnlen *dims;</div> <div class="line"><a name="l00138"></a><span class="lineno"> 138</span>  <span class="keywordtype">int</span> type;</div> <div class="line"><a name="l00139"></a><span class="lineno"> 139</span>  };</div> <div class="line"><a name="l00140"></a><span class="lineno"> 140</span> <span class="keyword">typedef</span> <span class="keyword">struct </span><a class="code" href="structVardesc.html">Vardesc</a> <a class="code" href="structVardesc.html">Vardesc</a>;</div> <div class="line"><a name="l00141"></a><span class="lineno"> 141</span> </div> <div class="line"><a name="l00142"></a><span class="lineno"><a class="line" href="structNamelist.html"> 142</a></span> <span class="keyword">struct </span><a class="code" href="structNamelist.html">Namelist</a> {</div> <div class="line"><a name="l00143"></a><span class="lineno"> 143</span>  <span class="keywordtype">char</span> *name;</div> <div class="line"><a name="l00144"></a><span class="lineno"> 144</span>  <a class="code" href="structVardesc.html">Vardesc</a> **vars;</div> <div class="line"><a name="l00145"></a><span class="lineno"> 145</span>  <span class="keywordtype">int</span> nvars;</div> <div class="line"><a name="l00146"></a><span class="lineno"> 146</span>  };</div> <div class="line"><a name="l00147"></a><span class="lineno"> 147</span> <span class="keyword">typedef</span> <span class="keyword">struct </span><a class="code" href="structNamelist.html">Namelist</a> <a class="code" href="structNamelist.html">Namelist</a>;</div> <div class="line"><a name="l00148"></a><span class="lineno"> 148</span> </div> <div class="line"><a name="l00149"></a><span class="lineno"> 149</span> <span class="preprocessor">#ifndef abs</span></div> <div class="line"><a name="l00150"></a><span class="lineno"> 150</span> <span class="preprocessor">#define abs(x) ((x) >= 0 ? (x) : -(x))</span></div> <div class="line"><a name="l00151"></a><span class="lineno"> 151</span> <span class="preprocessor">#endif</span></div> <div class="line"><a name="l00152"></a><span class="lineno"> 152</span> <span class="preprocessor">#define dabs(x) (doublereal)abs(x)</span></div> <div class="line"><a name="l00153"></a><span class="lineno"> 153</span> <span class="preprocessor">#ifndef min</span></div> <div class="line"><a name="l00154"></a><span class="lineno"> 154</span> <span class="preprocessor">#define min(a,b) ((a) <= (b) ? (a) : (b))</span></div> <div class="line"><a name="l00155"></a><span class="lineno"> 155</span> <span class="preprocessor">#endif</span></div> <div class="line"><a name="l00156"></a><span class="lineno"> 156</span> <span class="preprocessor">#ifndef max</span></div> <div class="line"><a name="l00157"></a><span class="lineno"> 157</span> <span class="preprocessor">#define max(a,b) ((a) >= (b) ? (a) : (b))</span></div> <div class="line"><a name="l00158"></a><span class="lineno"> 158</span> <span class="preprocessor">#endif</span></div> <div class="line"><a name="l00159"></a><span class="lineno"> 159</span> <span class="preprocessor">#define dmin(a,b) (doublereal)min(a,b)</span></div> <div class="line"><a name="l00160"></a><span class="lineno"> 160</span> <span class="preprocessor">#define dmax(a,b) (doublereal)max(a,b)</span></div> <div class="line"><a name="l00161"></a><span class="lineno"> 161</span> </div> <div class="line"><a name="l00162"></a><span class="lineno"> 162</span> <span class="comment">/* procedure parameter types for -A and -C++ */</span></div> <div class="line"><a name="l00163"></a><span class="lineno"> 163</span> </div> <div class="line"><a name="l00164"></a><span class="lineno"> 164</span> <span class="preprocessor">#define F2C_proc_par_types 1</span></div> <div class="line"><a name="l00165"></a><span class="lineno"> 165</span> <span class="preprocessor">#ifdef __cplusplus</span></div> <div class="line"><a name="l00166"></a><span class="lineno"> 166</span> <span class="keyword">typedef</span> <span class="keywordtype">int</span> <span class="comment">/* Unknown procedure type */</span> (*U_fp)(...);</div> <div class="line"><a name="l00167"></a><span class="lineno"> 167</span> <span class="keyword">typedef</span> shortint (*J_fp)(...);</div> <div class="line"><a name="l00168"></a><span class="lineno"> 168</span> <span class="keyword">typedef</span> integer (*I_fp)(...);</div> <div class="line"><a name="l00169"></a><span class="lineno"> 169</span> <span class="keyword">typedef</span> real (*R_fp)(...);</div> <div class="line"><a name="l00170"></a><span class="lineno"> 170</span> <span class="keyword">typedef</span> doublereal (*D_fp)(...), (*E_fp)(...);</div> <div class="line"><a name="l00171"></a><span class="lineno"> 171</span> <span class="keyword">typedef</span> <span class="comment">/* Complex */</span> VOID (*C_fp)(...);</div> <div class="line"><a name="l00172"></a><span class="lineno"> 172</span> <span class="keyword">typedef</span> <span class="comment">/* Double Complex */</span> VOID (*Z_fp)(...);</div> <div class="line"><a name="l00173"></a><span class="lineno"> 173</span> <span class="keyword">typedef</span> logical (*L_fp)(...);</div> <div class="line"><a name="l00174"></a><span class="lineno"> 174</span> <span class="keyword">typedef</span> shortlogical (*K_fp)(...);</div> <div class="line"><a name="l00175"></a><span class="lineno"> 175</span> <span class="keyword">typedef</span> <span class="comment">/* Character */</span> VOID (*H_fp)(...);</div> <div class="line"><a name="l00176"></a><span class="lineno"> 176</span> <span class="keyword">typedef</span> <span class="comment">/* Subroutine */</span> int (*S_fp)(...);</div> <div class="line"><a name="l00177"></a><span class="lineno"> 177</span> <span class="preprocessor">#else</span></div> <div class="line"><a name="l00178"></a><span class="lineno"> 178</span> <span class="keyword">typedef</span> <span class="keywordtype">int</span> <span class="comment">/* Unknown procedure type */</span> (*U_fp)(void);</div> <div class="line"><a name="l00179"></a><span class="lineno"> 179</span> <span class="keyword">typedef</span> shortint (*J_fp)(void);</div> <div class="line"><a name="l00180"></a><span class="lineno"> 180</span> <span class="keyword">typedef</span> integer (*I_fp)(void);</div> <div class="line"><a name="l00181"></a><span class="lineno"> 181</span> <span class="keyword">typedef</span> real (*R_fp)(void);</div> <div class="line"><a name="l00182"></a><span class="lineno"> 182</span> <span class="keyword">typedef</span> doublereal (*D_fp)(void), (*E_fp)(void);</div> <div class="line"><a name="l00183"></a><span class="lineno"> 183</span> <span class="keyword">typedef</span> <span class="comment">/* Complex */</span> VOID (*C_fp)(void);</div> <div class="line"><a name="l00184"></a><span class="lineno"> 184</span> <span class="keyword">typedef</span> <span class="comment">/* Double Complex */</span> VOID (*Z_fp)(void);</div> <div class="line"><a name="l00185"></a><span class="lineno"> 185</span> <span class="keyword">typedef</span> logical (*L_fp)(void);</div> <div class="line"><a name="l00186"></a><span class="lineno"> 186</span> <span class="keyword">typedef</span> shortlogical (*K_fp)(void);</div> <div class="line"><a name="l00187"></a><span class="lineno"> 187</span> <span class="keyword">typedef</span> <span class="comment">/* Character */</span> VOID (*H_fp)(void);</div> <div class="line"><a name="l00188"></a><span class="lineno"> 188</span> <span class="keyword">typedef</span> <span class="comment">/* Subroutine */</span> int (*S_fp)(void);</div> <div class="line"><a name="l00189"></a><span class="lineno"> 189</span> <span class="preprocessor">#endif</span></div> <div class="line"><a name="l00190"></a><span class="lineno"> 190</span> <span class="comment">/* E_fp is for real functions when -R is not specified */</span></div> <div class="line"><a name="l00191"></a><span class="lineno"> 191</span> <span class="keyword">typedef</span> VOID C_f; <span class="comment">/* complex function */</span></div> <div class="line"><a name="l00192"></a><span class="lineno"> 192</span> <span class="keyword">typedef</span> VOID H_f; <span class="comment">/* character function */</span></div> <div class="line"><a name="l00193"></a><span class="lineno"> 193</span> <span class="keyword">typedef</span> VOID Z_f; <span class="comment">/* double complex function */</span></div> <div class="line"><a name="l00194"></a><span class="lineno"> 194</span> <span class="keyword">typedef</span> doublereal E_f; <span class="comment">/* real function with -R not specified */</span></div> <div class="line"><a name="l00195"></a><span class="lineno"> 195</span> </div> <div class="line"><a name="l00196"></a><span class="lineno"> 196</span> <span class="comment">/* undef any lower-case symbols that your C compiler predefines, e.g.: */</span></div> <div class="line"><a name="l00197"></a><span class="lineno"> 197</span> </div> <div class="line"><a name="l00198"></a><span class="lineno"> 198</span> <span class="preprocessor">#ifndef Skip_f2c_Undefs</span></div> <div class="line"><a name="l00199"></a><span class="lineno"> 199</span> <span class="preprocessor">#undef cray</span></div> <div class="line"><a name="l00200"></a><span class="lineno"> 200</span> <span class="preprocessor">#undef gcos</span></div> <div class="line"><a name="l00201"></a><span class="lineno"> 201</span> <span class="preprocessor">#undef mc68010</span></div> <div class="line"><a name="l00202"></a><span class="lineno"> 202</span> <span class="preprocessor">#undef mc68020</span></div> <div class="line"><a name="l00203"></a><span class="lineno"> 203</span> <span class="preprocessor">#undef mips</span></div> <div class="line"><a name="l00204"></a><span class="lineno"> 204</span> <span class="preprocessor">#undef pdp11</span></div> <div class="line"><a name="l00205"></a><span class="lineno"> 205</span> <span class="preprocessor">#undef sgi</span></div> <div class="line"><a name="l00206"></a><span class="lineno"> 206</span> <span class="preprocessor">#undef sparc</span></div> <div class="line"><a name="l00207"></a><span class="lineno"> 207</span> <span class="preprocessor">#undef sun</span></div> <div class="line"><a name="l00208"></a><span class="lineno"> 208</span> <span class="preprocessor">#undef sun2</span></div> <div class="line"><a name="l00209"></a><span class="lineno"> 209</span> <span class="preprocessor">#undef sun3</span></div> <div class="line"><a name="l00210"></a><span class="lineno"> 210</span> <span class="preprocessor">#undef sun4</span></div> <div class="line"><a name="l00211"></a><span class="lineno"> 211</span> <span class="preprocessor">#undef u370</span></div> <div class="line"><a name="l00212"></a><span class="lineno"> 212</span> <span class="preprocessor">#undef u3b</span></div> <div class="line"><a name="l00213"></a><span class="lineno"> 213</span> <span class="preprocessor">#undef u3b2</span></div> <div class="line"><a name="l00214"></a><span class="lineno"> 214</span> <span class="preprocessor">#undef u3b5</span></div> <div class="line"><a name="l00215"></a><span class="lineno"> 215</span> <span class="preprocessor">#undef unix</span></div> <div class="line"><a name="l00216"></a><span class="lineno"> 216</span> <span class="preprocessor">#undef vax</span></div> <div class="line"><a name="l00217"></a><span class="lineno"> 217</span> <span class="preprocessor">#endif</span></div> <div class="line"><a name="l00218"></a><span class="lineno"> 218</span> <span class="preprocessor">#endif</span></div> <div class="ttc" id="structNamelist_html"><div class="ttname"><a href="structNamelist.html">Namelist</a></div><div class="ttdef"><b>Definition:</b> <a href="f2c_8h_source.html#l00142">f2c.h:142</a></div></div> <div class="ttc" id="structicilist_html"><div class="ttname"><a href="structicilist.html">icilist</a></div><div class="ttdef"><b>Definition:</b> <a href="f2c_8h_source.html#l00054">f2c.h:54</a></div></div> <div class="ttc" id="unionMultitype_html"><div class="ttname"><a href="unionMultitype.html">Multitype</a></div><div class="ttdef"><b>Definition:</b> <a href="f2c_8h_source.html#l00121">f2c.h:121</a></div></div> <div class="ttc" id="structinlist_html"><div class="ttname"><a href="structinlist.html">inlist</a></div><div class="ttdef"><b>Definition:</b> <a href="f2c_8h_source.html#l00090">f2c.h:90</a></div></div> <div class="ttc" id="structolist_html"><div class="ttname"><a href="structolist.html">olist</a></div><div class="ttdef"><b>Definition:</b> <a href="f2c_8h_source.html#l00064">f2c.h:64</a></div></div> <div class="ttc" id="structcilist_html"><div class="ttname"><a href="structcilist.html">cilist</a></div><div class="ttdef"><b>Definition:</b> <a href="f2c_8h_source.html#l00045">f2c.h:45</a></div></div> <div class="ttc" id="structalist_html"><div class="ttname"><a href="structalist.html">alist</a></div><div class="ttdef"><b>Definition:</b> <a href="f2c_8h_source.html#l00084">f2c.h:84</a></div></div> <div class="ttc" id="structcllist_html"><div class="ttname"><a href="structcllist.html">cllist</a></div><div class="ttdef"><b>Definition:</b> <a href="f2c_8h_source.html#l00077">f2c.h:77</a></div></div> <div class="ttc" id="structcomplex_html"><div class="ttname"><a href="structcomplex.html">complex</a></div><div class="ttdef"><b>Definition:</b> <a href="f2c_8h_source.html#l00016">f2c.h:16</a></div></div> <div class="ttc" id="structVardesc_html"><div class="ttname"><a href="structVardesc.html">Vardesc</a></div><div class="ttdef"><b>Definition:</b> <a href="f2c_8h_source.html#l00134">f2c.h:134</a></div></div> <div class="ttc" id="structdoublecomplex_html"><div class="ttname"><a href="structdoublecomplex.html">doublecomplex</a></div><div class="ttdef"><b>Definition:</b> <a href="f2c_8h_source.html#l00017">f2c.h:17</a></div></div> </div><!-- fragment --></div><!-- contents --> </div><!-- doc-content --> <!-- start footer part --> <div id="nav-path" class="navpath"><!-- id is needed for treeview function! --> <ul> <li class="navelem"><a class="el" href="dir_d44c64559bbebec7f509842c48db8b23.html">include</a></li><li class="navelem"><a class="el" href="dir_e3d154c296a8e9be2797a4f81e9375b2.html">sphinxbase</a></li><li class="navelem"><b>f2c.h</b></li> <li class="footer">Generated on Sat Oct 18 2014 15:21:16 for SphinxBase by <a href="http://www.doxygen.org/index.html"> <img class="footer" src="doxygen.png" alt="doxygen"/></a> 1.8.8 </li> </ul> </div> </body> </html>