<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://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.15"/>
<meta name="viewport" content="width=device-width, initial-scale=1"/>
<title>dfnTrans: /Users/nataliia/Desktop/dfnGen-docs/Docs_PT/ParticleTracking_source/ReadGridInit.c 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="../../navtreedata.js"></script>
<script type="text/javascript" src="../../navtree.js"></script>
<script type="text/javascript">
/* @license magnet:?xt=urn:btih:cf05388f2679ee054f2beb29a391d25f4e673ac3&amp;dn=gpl-2.0.txt GPL-v2 */
  $(document).ready(initResizable);
/* @license-end */</script>
<link href="../../search/search.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="../../search/searchdata.js"></script>
<script type="text/javascript" src="../../search/search.js"></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 id="projectalign" style="padding-left: 0.5em;">
   <div id="projectname">dfnTrans
   </div>
   <div id="projectbrief">Code for Particle Tracking simulations in 3D DFN</div>
  </td>
 </tr>
 </tbody>
</table>
</div>
<!-- end header part -->
<!-- Generated by Doxygen 1.8.15 -->
<script type="text/javascript">
/* @license magnet:?xt=urn:btih:cf05388f2679ee054f2beb29a391d25f4e673ac3&amp;dn=gpl-2.0.txt GPL-v2 */
var searchBox = new SearchBox("searchBox", "../../search",false,'Search');
/* @license-end */
</script>
<script type="text/javascript" src="../../menudata.js"></script>
<script type="text/javascript" src="../../menu.js"></script>
<script type="text/javascript">
/* @license magnet:?xt=urn:btih:cf05388f2679ee054f2beb29a391d25f4e673ac3&amp;dn=gpl-2.0.txt GPL-v2 */
$(function() {
  initMenu('../../',true,false,'search.php','Search');
  $(document).ready(function() { init_search(); });
});
/* @license-end */</script>
<div id="main-nav"></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">
/* @license magnet:?xt=urn:btih:cf05388f2679ee054f2beb29a391d25f4e673ac3&amp;dn=gpl-2.0.txt GPL-v2 */
$(document).ready(function(){initNavTree('d8/d0d/_read_grid_init_8c_source.html','../../');});
/* @license-end */
</script>
<div id="doc-content">
<!-- window showing the filter options -->
<div id="MSearchSelectWindow"
     onmouseover="return searchBox.OnSearchSelectShow()"
     onmouseout="return searchBox.OnSearchSelectHide()"
     onkeydown="return searchBox.OnSearchSelectKey(event)">
</div>

<!-- iframe showing the search results (closed by default) -->
<div id="MSearchResultsWindow">
<iframe src="javascript:void(0)" frameborder="0" 
        name="MSearchResults" id="MSearchResults">
</iframe>
</div>

<div class="header">
  <div class="headertitle">
<div class="title">ReadGridInit.c</div>  </div>
</div><!--header-->
<div class="contents">
<a href="../../d8/d0d/_read_grid_init_8c.html">Go to the documentation of this file.</a><div class="fragment"><div class="line"><a name="l00001"></a><span class="lineno">    1</span>&#160;<span class="preprocessor">#include &lt;stdio.h&gt;</span></div><div class="line"><a name="l00002"></a><span class="lineno">    2</span>&#160;<span class="preprocessor">#include &lt;search.h&gt;</span></div><div class="line"><a name="l00003"></a><span class="lineno">    3</span>&#160;<span class="preprocessor">#include &lt;stdlib.h&gt;</span></div><div class="line"><a name="l00004"></a><span class="lineno">    4</span>&#160;<span class="preprocessor">#include &lt;math.h&gt;</span></div><div class="line"><a name="l00005"></a><span class="lineno">    5</span>&#160;<span class="preprocessor">#include &lt;string.h&gt;</span></div><div class="line"><a name="l00006"></a><span class="lineno">    6</span>&#160;<span class="preprocessor">#include &quot;<a class="code" href="../../d0/d75/_func_def_8h.html">FuncDef.h</a>&quot;</span></div><div class="line"><a name="l00007"></a><span class="lineno">    7</span>&#160;<span class="preprocessor">#include &lt;unistd.h&gt;</span></div><div class="line"><a name="l00008"></a><span class="lineno">    8</span>&#160;</div><div class="line"><a name="l00009"></a><span class="lineno">    9</span>&#160;<span class="keyword">struct </span><a class="code" href="../../d9/d26/structinpfile.html">inpfile</a> {</div><div class="line"><a name="l00010"></a><span class="lineno">   10</span>&#160;    <span class="keywordtype">char</span> <a class="code" href="../../d9/d26/structinpfile.html#a66e8759aa38ee20350f04cdc58dee702">filename</a>[120];</div><div class="line"><a name="l00011"></a><span class="lineno">   11</span>&#160;    <span class="keywordtype">long</span> <span class="keywordtype">int</span> <a class="code" href="../../d9/d26/structinpfile.html#a23ae60bf94767194de9a09a4eee8cc1d">flag</a>;</div><div class="line"><a name="l00012"></a><span class="lineno">   12</span>&#160;    <span class="keywordtype">double</span> <a class="code" href="../../d9/d26/structinpfile.html#a57ff2cce78c35a8a128927da9eeccfbc">param</a>;</div><div class="line"><a name="l00013"></a><span class="lineno">   13</span>&#160;};</div><div class="line"><a name="l00014"></a><span class="lineno">   14</span>&#160;</div><div class="line"><a name="l00016"></a><span class="lineno"><a class="line" href="../../d8/d0d/_read_grid_init_8c.html#a361538379ec6b2e063a620235b010bfc">   16</a></span>&#160;<span class="keywordtype">void</span> <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a361538379ec6b2e063a620235b010bfc">ReadInit</a>()</div><div class="line"><a name="l00019"></a><span class="lineno">   19</span>&#160;{</div><div class="line"><a name="l00020"></a><span class="lineno">   20</span>&#160;    </div><div class="line"><a name="l00021"></a><span class="lineno">   21</span>&#160;    <span class="comment">/************** opening file params.txt ***************************************/</span></div><div class="line"><a name="l00022"></a><span class="lineno">   22</span>&#160;    <span class="keywordtype">int</span> i, nf;</div><div class="line"><a name="l00023"></a><span class="lineno">   23</span>&#160;    <span class="keywordtype">char</span> cs;</div><div class="line"><a name="l00024"></a><span class="lineno">   24</span>&#160;    </div><div class="line"><a name="l00025"></a><span class="lineno">   25</span>&#160;    <span class="keyword">struct </span><a class="code" href="../../d9/d26/structinpfile.html">inpfile</a> inputfile;</div><div class="line"><a name="l00026"></a><span class="lineno">   26</span>&#160;    </div><div class="line"><a name="l00027"></a><span class="lineno">   27</span>&#160;    inputfile=<a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a2afbea1a5d0b14d8a098f551fe055420">Control_File</a>(<span class="stringliteral">&quot;param:&quot;</span>, 6);</div><div class="line"><a name="l00028"></a><span class="lineno">   28</span>&#160;    </div><div class="line"><a name="l00029"></a><span class="lineno">   29</span>&#160;    printf(<span class="stringliteral">&quot;\n OPEN AND READ FILE: %s \n \n&quot;</span>, inputfile.filename);</div><div class="line"><a name="l00030"></a><span class="lineno">   30</span>&#160;    </div><div class="line"><a name="l00031"></a><span class="lineno">   31</span>&#160;    FILE *fpp=<a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a205add90a27292ac5f18188fa35bcdf5">OpenFile</a> (inputfile.filename,<span class="stringliteral">&quot;r&quot;</span>);</div><div class="line"><a name="l00032"></a><span class="lineno">   32</span>&#160;    </div><div class="line"><a name="l00033"></a><span class="lineno">   33</span>&#160;    <span class="keywordflow">if</span> (fscanf(fpp,<span class="stringliteral">&quot;%d\n&quot;</span>,&amp;<a class="code" href="../../d0/d75/_func_def_8h.html#accb317d0fcd1e5a1683184b91a49ff11">nfract</a>)!=1)</div><div class="line"><a name="l00034"></a><span class="lineno">   34</span>&#160;        printf(<span class="stringliteral">&quot;Error&quot;</span>);</div><div class="line"><a name="l00035"></a><span class="lineno">   35</span>&#160;    </div><div class="line"><a name="l00036"></a><span class="lineno">   36</span>&#160;    </div><div class="line"><a name="l00037"></a><span class="lineno">   37</span>&#160;    printf(<span class="stringliteral">&quot; Number of fractures in the domain = %d \n&quot;</span>, <a class="code" href="../../d0/d75/_func_def_8h.html#accb317d0fcd1e5a1683184b91a49ff11">nfract</a>);</div><div class="line"><a name="l00038"></a><span class="lineno">   38</span>&#160;    </div><div class="line"><a name="l00039"></a><span class="lineno">   39</span>&#160;    <span class="comment">/********************** opening an inp file ***************************/</span></div><div class="line"><a name="l00040"></a><span class="lineno">   40</span>&#160;    </div><div class="line"><a name="l00041"></a><span class="lineno">   41</span>&#160;    <span class="keywordtype">int</span> nn,  j;</div><div class="line"><a name="l00042"></a><span class="lineno">   42</span>&#160;    </div><div class="line"><a name="l00043"></a><span class="lineno">   43</span>&#160;    inputfile=<a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a2afbea1a5d0b14d8a098f551fe055420">Control_File</a>(<span class="stringliteral">&quot;inp:&quot;</span>, 4);</div><div class="line"><a name="l00044"></a><span class="lineno">   44</span>&#160;    </div><div class="line"><a name="l00045"></a><span class="lineno">   45</span>&#160;    printf(<span class="stringliteral">&quot;\n OPEN AND READ AVS FILE: %s \n \n&quot;</span>, inputfile.filename);</div><div class="line"><a name="l00046"></a><span class="lineno">   46</span>&#160;    </div><div class="line"><a name="l00047"></a><span class="lineno">   47</span>&#160;    FILE *fp = <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a205add90a27292ac5f18188fa35bcdf5">OpenFile</a> (inputfile.filename,<span class="stringliteral">&quot;r&quot;</span>);</div><div class="line"><a name="l00048"></a><span class="lineno">   48</span>&#160;    </div><div class="line"><a name="l00049"></a><span class="lineno">   49</span>&#160;    <span class="keywordflow">if</span> (fscanf(fp, <span class="stringliteral">&quot;%d %d %d %d %d\n&quot;</span>, &amp;<a class="code" href="../../d0/d75/_func_def_8h.html#a0049b706bb5b3980868a5b1e1b3fac0c">nnodes</a>, &amp;<a class="code" href="../../d0/d75/_func_def_8h.html#a5225ceefbfdde0f9cb32cb84174a4863">ncells</a>, &amp;nn, &amp;nn, &amp;nn )!=5)</div><div class="line"><a name="l00050"></a><span class="lineno">   50</span>&#160;        printf(<span class="stringliteral">&quot;Error&quot;</span>);</div><div class="line"><a name="l00051"></a><span class="lineno">   51</span>&#160;    </div><div class="line"><a name="l00052"></a><span class="lineno">   52</span>&#160;    </div><div class="line"><a name="l00053"></a><span class="lineno">   53</span>&#160;    printf(<span class="stringliteral">&quot; Total number of nodes: %d, Total number of elements (triangles): %d\n&quot;</span>, <a class="code" href="../../d0/d75/_func_def_8h.html#a0049b706bb5b3980868a5b1e1b3fac0c">nnodes</a>, <a class="code" href="../../d0/d75/_func_def_8h.html#a5225ceefbfdde0f9cb32cb84174a4863">ncells</a>);</div><div class="line"><a name="l00054"></a><span class="lineno">   54</span>&#160;    </div><div class="line"><a name="l00055"></a><span class="lineno">   55</span>&#160;    fclose(fp);</div><div class="line"><a name="l00056"></a><span class="lineno">   56</span>&#160;    </div><div class="line"><a name="l00057"></a><span class="lineno">   57</span>&#160;    <span class="comment">/******************* open and read stor file *******************************/</span></div><div class="line"><a name="l00058"></a><span class="lineno">   58</span>&#160;    </div><div class="line"><a name="l00059"></a><span class="lineno">   59</span>&#160;    <span class="keywordtype">unsigned</span>  <span class="keywordtype">int</span> nedges;</div><div class="line"><a name="l00060"></a><span class="lineno">   60</span>&#160;    <span class="keywordtype">unsigned</span>  <span class="keywordtype">int</span> snode_edge;</div><div class="line"><a name="l00061"></a><span class="lineno">   61</span>&#160;    <span class="keywordtype">int</span> area_coef;</div><div class="line"><a name="l00062"></a><span class="lineno">   62</span>&#160;    </div><div class="line"><a name="l00063"></a><span class="lineno">   63</span>&#160;    </div><div class="line"><a name="l00064"></a><span class="lineno">   64</span>&#160;    inputfile = <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a2afbea1a5d0b14d8a098f551fe055420">Control_File</a>(<span class="stringliteral">&quot;stor:&quot;</span>,5 );</div><div class="line"><a name="l00065"></a><span class="lineno">   65</span>&#160;    </div><div class="line"><a name="l00066"></a><span class="lineno">   66</span>&#160;    printf(<span class="stringliteral">&quot;\n OPEN AND READ STOR FILE: %s\n \n&quot;</span>, inputfile.filename);</div><div class="line"><a name="l00067"></a><span class="lineno">   67</span>&#160;    </div><div class="line"><a name="l00068"></a><span class="lineno">   68</span>&#160;    FILE *fps = <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a205add90a27292ac5f18188fa35bcdf5">OpenFile</a> (inputfile.filename,<span class="stringliteral">&quot;r&quot;</span>);</div><div class="line"><a name="l00069"></a><span class="lineno">   69</span>&#160;    </div><div class="line"><a name="l00070"></a><span class="lineno">   70</span>&#160;    <span class="comment">/* Read the head of the file */</span></div><div class="line"><a name="l00071"></a><span class="lineno">   71</span>&#160;    <span class="keywordflow">for</span> (i=0; i&lt;2; i++)</div><div class="line"><a name="l00072"></a><span class="lineno">   72</span>&#160;    {</div><div class="line"><a name="l00073"></a><span class="lineno">   73</span>&#160;        <span class="keywordflow">do</span></div><div class="line"><a name="l00074"></a><span class="lineno">   74</span>&#160;            cs=fgetc(fps);</div><div class="line"><a name="l00075"></a><span class="lineno">   75</span>&#160;        <span class="keywordflow">while</span> (cs!=<span class="charliteral">&#39;\n&#39;</span>);</div><div class="line"><a name="l00076"></a><span class="lineno">   76</span>&#160;        </div><div class="line"><a name="l00077"></a><span class="lineno">   77</span>&#160;    }</div><div class="line"><a name="l00078"></a><span class="lineno">   78</span>&#160;    <span class="keywordtype">int</span> node1;</div><div class="line"><a name="l00079"></a><span class="lineno">   79</span>&#160;    <span class="keywordflow">if</span> (fscanf (fps,<span class="stringliteral">&quot; %d %d %d %d %d \n&quot;</span>, &amp;nedges, &amp;node1, &amp;snode_edge, &amp;area_coef, &amp;<a class="code" href="../../d0/d75/_func_def_8h.html#a9bbb8dd86b166646cdce87a545a36fa7">max_neighb</a> )!=5)</div><div class="line"><a name="l00080"></a><span class="lineno">   80</span>&#160;        printf(<span class="stringliteral">&quot;Error&quot;</span>);</div><div class="line"><a name="l00081"></a><span class="lineno">   81</span>&#160;    </div><div class="line"><a name="l00082"></a><span class="lineno">   82</span>&#160;    printf (<span class="stringliteral">&quot; Total number of edges in Voronoy polygons = %d, total number of nodes = %d \n&quot;</span>, nedges, node1);</div><div class="line"><a name="l00083"></a><span class="lineno">   83</span>&#160;    <span class="keywordflow">if</span> (node1!=<a class="code" href="../../d0/d75/_func_def_8h.html#a0049b706bb5b3980868a5b1e1b3fac0c">nnodes</a>)</div><div class="line"><a name="l00084"></a><span class="lineno">   84</span>&#160;        printf(<span class="stringliteral">&quot;the number of nodes in inp is not equal to number of nodes in stor file! \n&quot;</span>);</div><div class="line"><a name="l00085"></a><span class="lineno">   85</span>&#160;    </div><div class="line"><a name="l00086"></a><span class="lineno">   86</span>&#160;    fclose(fps);</div><div class="line"><a name="l00087"></a><span class="lineno">   87</span>&#160;    <span class="comment">/***** after reading the number of nodes &quot;nnodes&quot;</span></div><div class="line"><a name="l00088"></a><span class="lineno">   88</span>&#160;<span class="comment">     the number of fractures &quot;nfract&quot;</span></div><div class="line"><a name="l00089"></a><span class="lineno">   89</span>&#160;<span class="comment">     the number of cells &quot;ncells&quot;</span></div><div class="line"><a name="l00090"></a><span class="lineno">   90</span>&#160;<span class="comment">     the memory is allocated for data structures ************************/</span></div><div class="line"><a name="l00091"></a><span class="lineno">   91</span>&#160;    </div><div class="line"><a name="l00092"></a><span class="lineno">   92</span>&#160;    <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>=(<span class="keyword">struct </span><a class="code" href="../../db/d7c/structvertex.html">vertex</a>*) malloc (<a class="code" href="../../d0/d75/_func_def_8h.html#a0049b706bb5b3980868a5b1e1b3fac0c">nnodes</a>*<span class="keyword">sizeof</span>(<span class="keyword">struct</span> <a class="code" href="../../db/d7c/structvertex.html">vertex</a>));</div><div class="line"><a name="l00093"></a><span class="lineno">   93</span>&#160;    </div><div class="line"><a name="l00094"></a><span class="lineno">   94</span>&#160;    <span class="keywordflow">for</span> (i=0; i&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#a0049b706bb5b3980868a5b1e1b3fac0c">nnodes</a>; i++)</div><div class="line"><a name="l00095"></a><span class="lineno">   95</span>&#160;    {</div><div class="line"><a name="l00096"></a><span class="lineno">   96</span>&#160;        <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#a82e41673a29352ee0f004ae7890d5266">indnodes</a>=(<span class="keywordtype">unsigned</span> <span class="keywordtype">int</span>*) malloc(<a class="code" href="../../d0/d75/_func_def_8h.html#a9bbb8dd86b166646cdce87a545a36fa7">max_neighb</a>*<span class="keyword">sizeof</span>(<span class="keywordtype">unsigned</span> <span class="keywordtype">int</span>));</div><div class="line"><a name="l00097"></a><span class="lineno">   97</span>&#160;        <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#aeabf5788639be2723927c854aa11cd33">type</a>=(<span class="keywordtype">unsigned</span> <span class="keywordtype">int</span>*) malloc(<a class="code" href="../../d0/d75/_func_def_8h.html#a9bbb8dd86b166646cdce87a545a36fa7">max_neighb</a>*<span class="keyword">sizeof</span>(<span class="keywordtype">unsigned</span> <span class="keywordtype">int</span>));</div><div class="line"><a name="l00098"></a><span class="lineno">   98</span>&#160;        <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#a9934ed428ad1db71c9aa1e601649791c">flux</a>=(<span class="keywordtype">double</span>*) malloc(<a class="code" href="../../d0/d75/_func_def_8h.html#a9bbb8dd86b166646cdce87a545a36fa7">max_neighb</a>*<span class="keyword">sizeof</span>(<span class="keywordtype">double</span>));</div><div class="line"><a name="l00099"></a><span class="lineno">   99</span>&#160;        <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#aff6495cfbefb8dffd8714d7c68810ca6">area</a>=(<span class="keywordtype">double</span>*) malloc(<a class="code" href="../../d0/d75/_func_def_8h.html#a9bbb8dd86b166646cdce87a545a36fa7">max_neighb</a>*<span class="keyword">sizeof</span>(<span class="keywordtype">double</span>));</div><div class="line"><a name="l00100"></a><span class="lineno">  100</span>&#160;        <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#a583032cadaa99e8f5c044d3bd10191cf">cells</a>=(<span class="keywordtype">unsigned</span>  <span class="keywordtype">int</span>**) malloc (<a class="code" href="../../d0/d75/_func_def_8h.html#a9bbb8dd86b166646cdce87a545a36fa7">max_neighb</a>*<span class="keyword">sizeof</span>(<span class="keywordtype">unsigned</span> <span class="keywordtype">int</span>*));</div><div class="line"><a name="l00101"></a><span class="lineno">  101</span>&#160;        <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#adc1951216db706914f5963da2e58accc">fracts</a>=(<span class="keywordtype">unsigned</span>  <span class="keywordtype">int</span>**) malloc (<a class="code" href="../../d0/d75/_func_def_8h.html#a9bbb8dd86b166646cdce87a545a36fa7">max_neighb</a>*<span class="keyword">sizeof</span>(<span class="keywordtype">unsigned</span>  <span class="keywordtype">int</span>*));</div><div class="line"><a name="l00102"></a><span class="lineno">  102</span>&#160;        <span class="keywordflow">for</span> (j=0; j&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#a9bbb8dd86b166646cdce87a545a36fa7">max_neighb</a>; j++)</div><div class="line"><a name="l00103"></a><span class="lineno">  103</span>&#160;        {</div><div class="line"><a name="l00104"></a><span class="lineno">  104</span>&#160;            <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#a583032cadaa99e8f5c044d3bd10191cf">cells</a>[j]=(<span class="keywordtype">unsigned</span>  <span class="keywordtype">int</span>*)malloc(4*<span class="keyword">sizeof</span>(<span class="keywordtype">unsigned</span>  <span class="keywordtype">int</span>));</div><div class="line"><a name="l00105"></a><span class="lineno">  105</span>&#160;            <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#adc1951216db706914f5963da2e58accc">fracts</a>[j]=(<span class="keywordtype">unsigned</span>  <span class="keywordtype">int</span>*)malloc(4*<span class="keyword">sizeof</span>(<span class="keywordtype">unsigned</span>  <span class="keywordtype">int</span>));</div><div class="line"><a name="l00106"></a><span class="lineno">  106</span>&#160;        }</div><div class="line"><a name="l00107"></a><span class="lineno">  107</span>&#160;    }</div><div class="line"><a name="l00108"></a><span class="lineno">  108</span>&#160;    </div><div class="line"><a name="l00109"></a><span class="lineno">  109</span>&#160;    <span class="keywordflow">if</span> (<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>==NULL)</div><div class="line"><a name="l00110"></a><span class="lineno">  110</span>&#160;        printf(<span class="stringliteral">&quot;Allocation memory problem - node\n&quot;</span>);</div><div class="line"><a name="l00111"></a><span class="lineno">  111</span>&#160;    </div><div class="line"><a name="l00112"></a><span class="lineno">  112</span>&#160;    <span class="comment">/********** allocate memory for cell structure *****************************/</span></div><div class="line"><a name="l00113"></a><span class="lineno">  113</span>&#160;    </div><div class="line"><a name="l00114"></a><span class="lineno">  114</span>&#160;    <a class="code" href="../../d0/d75/_func_def_8h.html#a26a18460ba7bc9d4e9ace81fda1819ee">cell</a>=(<span class="keyword">struct </span><a class="code" href="../../d9/db2/structelement.html">element</a>*) malloc (<a class="code" href="../../d0/d75/_func_def_8h.html#a5225ceefbfdde0f9cb32cb84174a4863">ncells</a>*<span class="keyword">sizeof</span>(<span class="keyword">struct</span> <a class="code" href="../../d9/db2/structelement.html">element</a>));</div><div class="line"><a name="l00115"></a><span class="lineno">  115</span>&#160;    </div><div class="line"><a name="l00116"></a><span class="lineno">  116</span>&#160;    <span class="keywordflow">if</span> (<a class="code" href="../../d0/d75/_func_def_8h.html#a26a18460ba7bc9d4e9ace81fda1819ee">cell</a>==NULL)</div><div class="line"><a name="l00117"></a><span class="lineno">  117</span>&#160;        printf(<span class="stringliteral">&quot;Allocation memory problem - cell\n&quot;</span>);</div><div class="line"><a name="l00118"></a><span class="lineno">  118</span>&#160;    </div><div class="line"><a name="l00119"></a><span class="lineno">  119</span>&#160;    <span class="comment">/********** allocate memory for fracture structure *****************************/</span></div><div class="line"><a name="l00120"></a><span class="lineno">  120</span>&#160;    </div><div class="line"><a name="l00121"></a><span class="lineno">  121</span>&#160;    <a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>=(<span class="keyword">struct </span><a class="code" href="../../da/d20/structmaterial.html">material</a>*)malloc (<a class="code" href="../../d0/d75/_func_def_8h.html#accb317d0fcd1e5a1683184b91a49ff11">nfract</a>*<span class="keyword">sizeof</span>(<span class="keyword">struct</span> <a class="code" href="../../da/d20/structmaterial.html">material</a>));</div><div class="line"><a name="l00122"></a><span class="lineno">  122</span>&#160;    </div><div class="line"><a name="l00123"></a><span class="lineno">  123</span>&#160;    <span class="keywordflow">if</span> (<a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>==NULL)</div><div class="line"><a name="l00124"></a><span class="lineno">  124</span>&#160;        printf(<span class="stringliteral">&quot;Allocation memory problem - fracture\n&quot;</span>);</div><div class="line"><a name="l00125"></a><span class="lineno">  125</span>&#160;    </div><div class="line"><a name="l00126"></a><span class="lineno">  126</span>&#160;    printf(<span class="stringliteral">&quot;\n Memory allocation is done successfully \n&quot;</span>);</div><div class="line"><a name="l00127"></a><span class="lineno">  127</span>&#160;    <span class="comment">/*****************reading the orientation angle and norm components</span></div><div class="line"><a name="l00128"></a><span class="lineno">  128</span>&#160;<span class="comment">     of every fracture from params.txt file*************************/</span></div><div class="line"><a name="l00129"></a><span class="lineno">  129</span>&#160;    </div><div class="line"><a name="l00130"></a><span class="lineno">  130</span>&#160;    inputfile=<a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a484100bd5902d4efcdd15c21d1cb9048">Control_File_Optional</a>(<span class="stringliteral">&quot;poly:&quot;</span>, 5);</div><div class="line"><a name="l00131"></a><span class="lineno">  131</span>&#160;    <span class="keywordflow">if</span> (inputfile.flag&gt;0)</div><div class="line"><a name="l00132"></a><span class="lineno">  132</span>&#160;    {</div><div class="line"><a name="l00133"></a><span class="lineno">  133</span>&#160;        printf(<span class="stringliteral">&quot;\n OPEN AND READ FILE: %s \n \n&quot;</span>, inputfile.filename);</div><div class="line"><a name="l00134"></a><span class="lineno">  134</span>&#160;        </div><div class="line"><a name="l00135"></a><span class="lineno">  135</span>&#160;        FILE *fpo=<a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a205add90a27292ac5f18188fa35bcdf5">OpenFile</a> (inputfile.filename,<span class="stringliteral">&quot;r&quot;</span>);</div><div class="line"><a name="l00136"></a><span class="lineno">  136</span>&#160;        </div><div class="line"><a name="l00137"></a><span class="lineno">  137</span>&#160;        <span class="keywordtype">int</span> nnf=0.0;</div><div class="line"><a name="l00138"></a><span class="lineno">  138</span>&#160;        </div><div class="line"><a name="l00139"></a><span class="lineno">  139</span>&#160;        <span class="keywordflow">for</span> (i=0; i&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#accb317d0fcd1e5a1683184b91a49ff11">nfract</a>; i++)</div><div class="line"><a name="l00140"></a><span class="lineno">  140</span>&#160;        {</div><div class="line"><a name="l00141"></a><span class="lineno">  141</span>&#160;            </div><div class="line"><a name="l00142"></a><span class="lineno">  142</span>&#160;            <span class="keywordflow">if</span>( fscanf(fpo,<span class="stringliteral">&quot;%d %d  %f %f %f %d %f %f %d\n&quot;</span>,&amp;nf,&amp;nnf, &amp;<a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>[i].<a class="code" href="../../da/d20/structmaterial.html#add2db22d2a9dd5c1c2ec6f14038d43f6">theta</a>,</div><div class="line"><a name="l00143"></a><span class="lineno">  143</span>&#160;                       &amp;<a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>[i].<a class="code" href="../../da/d20/structmaterial.html#a64fad3469b934d7e29be84f2d9b7d7a3">nvect_xy</a>[0], &amp;<a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>[i].<a class="code" href="../../da/d20/structmaterial.html#a64fad3469b934d7e29be84f2d9b7d7a3">nvect_xy</a>[1], &amp;nnf,</div><div class="line"><a name="l00144"></a><span class="lineno">  144</span>&#160;                       &amp;<a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>[i].<a class="code" href="../../da/d20/structmaterial.html#aa0a097a3f8fe23d9b3bd41d80cbfacfd">nvect_z</a>[0], &amp;<a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>[i].<a class="code" href="../../da/d20/structmaterial.html#aa0a097a3f8fe23d9b3bd41d80cbfacfd">nvect_z</a>[1], &amp;nnf)!=9)</div><div class="line"><a name="l00145"></a><span class="lineno">  145</span>&#160;                printf(<span class="stringliteral">&quot;Error&quot;</span>);</div><div class="line"><a name="l00146"></a><span class="lineno">  146</span>&#160;            </div><div class="line"><a name="l00147"></a><span class="lineno">  147</span>&#160;        }</div><div class="line"><a name="l00148"></a><span class="lineno">  148</span>&#160;        </div><div class="line"><a name="l00149"></a><span class="lineno">  149</span>&#160;        fclose(fpo);</div><div class="line"><a name="l00150"></a><span class="lineno">  150</span>&#160;    }</div><div class="line"><a name="l00151"></a><span class="lineno">  151</span>&#160;    <span class="keywordflow">else</span></div><div class="line"><a name="l00152"></a><span class="lineno">  152</span>&#160;        </div><div class="line"><a name="l00153"></a><span class="lineno">  153</span>&#160;    {</div><div class="line"><a name="l00154"></a><span class="lineno">  154</span>&#160;        <span class="keywordtype">int</span> nnf;</div><div class="line"><a name="l00155"></a><span class="lineno">  155</span>&#160;        <span class="keywordflow">for</span> (i=0; i&lt;7; i++)</div><div class="line"><a name="l00156"></a><span class="lineno">  156</span>&#160;        {</div><div class="line"><a name="l00157"></a><span class="lineno">  157</span>&#160;            <span class="keywordflow">do</span></div><div class="line"><a name="l00158"></a><span class="lineno">  158</span>&#160;                cs=fgetc(fpp);</div><div class="line"><a name="l00159"></a><span class="lineno">  159</span>&#160;            <span class="keywordflow">while</span> (cs!=<span class="charliteral">&#39;\n&#39;</span>);</div><div class="line"><a name="l00160"></a><span class="lineno">  160</span>&#160;            </div><div class="line"><a name="l00161"></a><span class="lineno">  161</span>&#160;        }</div><div class="line"><a name="l00162"></a><span class="lineno">  162</span>&#160;        </div><div class="line"><a name="l00163"></a><span class="lineno">  163</span>&#160;        <span class="keywordflow">for</span> (i=0; i&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#accb317d0fcd1e5a1683184b91a49ff11">nfract</a>; i++)</div><div class="line"><a name="l00164"></a><span class="lineno">  164</span>&#160;        {</div><div class="line"><a name="l00165"></a><span class="lineno">  165</span>&#160;            <span class="keywordflow">if</span> (fscanf(fpp,<span class="stringliteral">&quot;%d %f  %f %f %d %f %f %d %d\n&quot;</span>,&amp;nf, &amp;<a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>[i].<a class="code" href="../../da/d20/structmaterial.html#add2db22d2a9dd5c1c2ec6f14038d43f6">theta</a>,</div><div class="line"><a name="l00166"></a><span class="lineno">  166</span>&#160;                       &amp;<a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>[i].<a class="code" href="../../da/d20/structmaterial.html#a64fad3469b934d7e29be84f2d9b7d7a3">nvect_xy</a>[0], &amp;<a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>[i].<a class="code" href="../../da/d20/structmaterial.html#a64fad3469b934d7e29be84f2d9b7d7a3">nvect_xy</a>[1], &amp;nnf,</div><div class="line"><a name="l00167"></a><span class="lineno">  167</span>&#160;                       &amp;<a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>[i].<a class="code" href="../../da/d20/structmaterial.html#aa0a097a3f8fe23d9b3bd41d80cbfacfd">nvect_z</a>[0], &amp;<a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>[i].<a class="code" href="../../da/d20/structmaterial.html#aa0a097a3f8fe23d9b3bd41d80cbfacfd">nvect_z</a>[1],&amp;nnf, &amp;nnf)!=9)</div><div class="line"><a name="l00168"></a><span class="lineno">  168</span>&#160;                printf(<span class="stringliteral">&quot;Error&quot;</span>);</div><div class="line"><a name="l00169"></a><span class="lineno">  169</span>&#160;            </div><div class="line"><a name="l00170"></a><span class="lineno">  170</span>&#160;        }</div><div class="line"><a name="l00171"></a><span class="lineno">  171</span>&#160;    }</div><div class="line"><a name="l00172"></a><span class="lineno">  172</span>&#160;    fclose(fpp);</div><div class="line"><a name="l00173"></a><span class="lineno">  173</span>&#160;    </div><div class="line"><a name="l00174"></a><span class="lineno">  174</span>&#160;    <span class="keywordflow">return</span>;</div><div class="line"><a name="l00175"></a><span class="lineno">  175</span>&#160;}</div><div class="line"><a name="l00177"></a><span class="lineno">  177</span>&#160;</div><div class="line"><a name="l00178"></a><span class="lineno">  178</span>&#160;</div><div class="line"><a name="l00179"></a><span class="lineno">  179</span>&#160;</div><div class="line"><a name="l00180"></a><span class="lineno"><a class="line" href="../../d8/d0d/_read_grid_init_8c.html#a60556e448bef6314a77260487c969ced">  180</a></span>&#160;<span class="keywordtype">void</span>  <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a60556e448bef6314a77260487c969ced">ReadDataFiles</a> ()</div><div class="line"><a name="l00183"></a><span class="lineno">  183</span>&#160;{</div><div class="line"><a name="l00184"></a><span class="lineno">  184</span>&#160;    </div><div class="line"><a name="l00185"></a><span class="lineno">  185</span>&#160;    <span class="keyword">struct </span><a class="code" href="../../d9/d26/structinpfile.html">inpfile</a> inputfile;</div><div class="line"><a name="l00186"></a><span class="lineno">  186</span>&#160;    </div><div class="line"><a name="l00187"></a><span class="lineno">  187</span>&#160;    </div><div class="line"><a name="l00188"></a><span class="lineno">  188</span>&#160;    <span class="keywordtype">unsigned</span>   <span class="keywordtype">int</span> nedges;</div><div class="line"><a name="l00189"></a><span class="lineno">  189</span>&#160;    <span class="keywordtype">unsigned</span>   <span class="keywordtype">int</span> snode_edge;</div><div class="line"><a name="l00190"></a><span class="lineno">  190</span>&#160;    <span class="keywordtype">unsigned</span>   <span class="keywordtype">int</span> area_coef;</div><div class="line"><a name="l00191"></a><span class="lineno">  191</span>&#160;    <span class="keywordtype">unsigned</span>   <span class="keywordtype">int</span> n1, j, l, ln;</div><div class="line"><a name="l00192"></a><span class="lineno">  192</span>&#160;    <span class="keywordtype">unsigned</span>   <span class="keywordtype">int</span> nnv;</div><div class="line"><a name="l00193"></a><span class="lineno">  193</span>&#160;    <span class="keywordtype">unsigned</span>   <span class="keywordtype">int</span> ncv;</div><div class="line"><a name="l00194"></a><span class="lineno">  194</span>&#160;    <span class="keywordtype">char</span> c[3],line[20], cs;</div><div class="line"><a name="l00195"></a><span class="lineno">  195</span>&#160;    <span class="keywordtype">unsigned</span> <span class="keywordtype">long</span> i;</div><div class="line"><a name="l00196"></a><span class="lineno">  196</span>&#160;    </div><div class="line"><a name="l00197"></a><span class="lineno">  197</span>&#160;    <span class="comment">/* Header of inp and stor files: */</span></div><div class="line"><a name="l00198"></a><span class="lineno">  198</span>&#160;    <span class="comment">/* nedges - total number  of edges in Voronoy polygons in whole domain */</span></div><div class="line"><a name="l00199"></a><span class="lineno">  199</span>&#160;    <span class="comment">/* snode_edge - number of edges + number of nodes +1 */</span></div><div class="line"><a name="l00200"></a><span class="lineno">  200</span>&#160;    <span class="comment">/* area_coef - Can be (1,3, or 4) number of area coefficients. The area/distance coefficients are the area of a Voronoi face divided by the Delaunay edge length. This coefficient is either written as a scalar (1), a vector area (3), or both vector and scalar areas are written (4). */</span></div><div class="line"><a name="l00201"></a><span class="lineno">  201</span>&#160;    <span class="comment">/* max_neighb - maximum number of neighboring nodes */</span></div><div class="line"><a name="l00202"></a><span class="lineno">  202</span>&#160;    <span class="comment">/* nnv - number of nodes variables */</span></div><div class="line"><a name="l00203"></a><span class="lineno">  203</span>&#160;    <span class="comment">/* ncv - number of cells variables */</span></div><div class="line"><a name="l00204"></a><span class="lineno">  204</span>&#160;    </div><div class="line"><a name="l00205"></a><span class="lineno">  205</span>&#160;    inputfile = <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a2afbea1a5d0b14d8a098f551fe055420">Control_File</a>(<span class="stringliteral">&quot;inp:&quot;</span>,4 );</div><div class="line"><a name="l00206"></a><span class="lineno">  206</span>&#160;    </div><div class="line"><a name="l00207"></a><span class="lineno">  207</span>&#160;    FILE *fp = <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a205add90a27292ac5f18188fa35bcdf5">OpenFile</a> (inputfile.<a class="code" href="../../d9/d26/structinpfile.html#a66e8759aa38ee20350f04cdc58dee702">filename</a>,<span class="stringliteral">&quot;r&quot;</span>);</div><div class="line"><a name="l00208"></a><span class="lineno">  208</span>&#160;    </div><div class="line"><a name="l00209"></a><span class="lineno">  209</span>&#160;    printf(<span class="stringliteral">&quot;\n OPEN AND READ FILE: %s \n &quot;</span>,inputfile.<a class="code" href="../../d9/d26/structinpfile.html#a66e8759aa38ee20350f04cdc58dee702">filename</a>);</div><div class="line"><a name="l00210"></a><span class="lineno">  210</span>&#160;    </div><div class="line"><a name="l00211"></a><span class="lineno">  211</span>&#160;    <span class="keywordflow">if</span> (fscanf(fp, <span class="stringliteral">&quot;%d %d %d %d %d\n&quot;</span>, &amp;n1, &amp;n1, &amp;nnv, &amp;ncv, &amp;n1 )!=5)</div><div class="line"><a name="l00212"></a><span class="lineno">  212</span>&#160;        printf(<span class="stringliteral">&quot;Error&quot;</span>);</div><div class="line"><a name="l00213"></a><span class="lineno">  213</span>&#160;    </div><div class="line"><a name="l00214"></a><span class="lineno">  214</span>&#160;    </div><div class="line"><a name="l00215"></a><span class="lineno">  215</span>&#160;    <span class="comment">/* read 3D coordinations: x in [0], y in [1], and z in [2] for every node i+1 */</span></div><div class="line"><a name="l00216"></a><span class="lineno">  216</span>&#160;    </div><div class="line"><a name="l00217"></a><span class="lineno">  217</span>&#160;    <span class="keywordflow">for</span> (i=0; i&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#a0049b706bb5b3980868a5b1e1b3fac0c">nnodes</a>; i++)</div><div class="line"><a name="l00218"></a><span class="lineno">  218</span>&#160;    {</div><div class="line"><a name="l00219"></a><span class="lineno">  219</span>&#160;        <span class="keywordflow">if</span> (fscanf(fp,<span class="stringliteral">&quot;%d  %lf %lf %lf \n&quot;</span>, &amp;n1, &amp;<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].coord[0], &amp;<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].coord[1], &amp;<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].coord[2])!=4)</div><div class="line"><a name="l00220"></a><span class="lineno">  220</span>&#160;            printf(<span class="stringliteral">&quot;Error&quot;</span>);</div><div class="line"><a name="l00221"></a><span class="lineno">  221</span>&#160;    }</div><div class="line"><a name="l00222"></a><span class="lineno">  222</span>&#160;    </div><div class="line"><a name="l00223"></a><span class="lineno">  223</span>&#160;    <span class="comment">// printf(&quot;\n Nodes 3D coordinations are read  \n&quot;);</span></div><div class="line"><a name="l00224"></a><span class="lineno">  224</span>&#160;    </div><div class="line"><a name="l00225"></a><span class="lineno">  225</span>&#160;    <span class="comment">/* read a connectivity list: number of fracture and 3 node numbers for each cell (triangle) */</span></div><div class="line"><a name="l00226"></a><span class="lineno">  226</span>&#160;    </div><div class="line"><a name="l00227"></a><span class="lineno">  227</span>&#160;    <span class="keywordtype">unsigned</span>  <span class="keywordtype">int</span> current_fract=1, previous_fract=1;</div><div class="line"><a name="l00228"></a><span class="lineno">  228</span>&#160;    <span class="keywordtype">unsigned</span>  <span class="keywordtype">int</span> cell_f=0;</div><div class="line"><a name="l00229"></a><span class="lineno">  229</span>&#160;    </div><div class="line"><a name="l00230"></a><span class="lineno">  230</span>&#160;    <a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>[0].<a class="code" href="../../da/d20/structmaterial.html#a528c4eed064175c3377dde7380d17ddc">firstcell</a>=1;</div><div class="line"><a name="l00231"></a><span class="lineno">  231</span>&#160;    </div><div class="line"><a name="l00232"></a><span class="lineno">  232</span>&#160;    <span class="keywordflow">for</span> (i=0; i&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#a5225ceefbfdde0f9cb32cb84174a4863">ncells</a>; i++)</div><div class="line"><a name="l00233"></a><span class="lineno">  233</span>&#160;    {</div><div class="line"><a name="l00234"></a><span class="lineno">  234</span>&#160;        <span class="keywordflow">if</span> (fscanf(fp, <span class="stringliteral">&quot;%d  %d  %c %c %c %d %d %d \n&quot;</span>, &amp;n1, &amp;<a class="code" href="../../d0/d75/_func_def_8h.html#a26a18460ba7bc9d4e9ace81fda1819ee">cell</a>[i].<a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>,</div><div class="line"><a name="l00235"></a><span class="lineno">  235</span>&#160;                   &amp;c[0],&amp;c[1],&amp;c[2], &amp;<a class="code" href="../../d0/d75/_func_def_8h.html#a26a18460ba7bc9d4e9ace81fda1819ee">cell</a>[i].node_ind[0], &amp;<a class="code" href="../../d0/d75/_func_def_8h.html#a26a18460ba7bc9d4e9ace81fda1819ee">cell</a>[i].node_ind[1], &amp;<a class="code" href="../../d0/d75/_func_def_8h.html#a26a18460ba7bc9d4e9ace81fda1819ee">cell</a>[i].node_ind[2])!=8)</div><div class="line"><a name="l00236"></a><span class="lineno">  236</span>&#160;            printf(<span class="stringliteral">&quot;Error&quot;</span>);</div><div class="line"><a name="l00237"></a><span class="lineno">  237</span>&#160;        </div><div class="line"><a name="l00238"></a><span class="lineno">  238</span>&#160;        current_fract=<a class="code" href="../../d0/d75/_func_def_8h.html#a26a18460ba7bc9d4e9ace81fda1819ee">cell</a>[i].<a class="code" href="../../d9/db2/structelement.html#af51b08146a1c495aadf45e7f085e1267">fracture</a>;</div><div class="line"><a name="l00239"></a><span class="lineno">  239</span>&#160;        <span class="keywordflow">if</span> (current_fract!=previous_fract)</div><div class="line"><a name="l00240"></a><span class="lineno">  240</span>&#160;        {</div><div class="line"><a name="l00241"></a><span class="lineno">  241</span>&#160;            <a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>[current_fract-1].<a class="code" href="../../da/d20/structmaterial.html#a528c4eed064175c3377dde7380d17ddc">firstcell</a>=i+1;</div><div class="line"><a name="l00242"></a><span class="lineno">  242</span>&#160;            previous_fract=current_fract;</div><div class="line"><a name="l00243"></a><span class="lineno">  243</span>&#160;            <a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>[current_fract-2].<a class="code" href="../../da/d20/structmaterial.html#a84365556a52eb9959d6d869dda76433c">numbcells</a>=i+1-<a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>[current_fract-2].<a class="code" href="../../da/d20/structmaterial.html#a528c4eed064175c3377dde7380d17ddc">firstcell</a>;</div><div class="line"><a name="l00244"></a><span class="lineno">  244</span>&#160;            cell_f=i;</div><div class="line"><a name="l00245"></a><span class="lineno">  245</span>&#160;        }</div><div class="line"><a name="l00246"></a><span class="lineno">  246</span>&#160;    }</div><div class="line"><a name="l00247"></a><span class="lineno">  247</span>&#160;    </div><div class="line"><a name="l00248"></a><span class="lineno">  248</span>&#160;    <a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>[<a class="code" href="../../d0/d75/_func_def_8h.html#accb317d0fcd1e5a1683184b91a49ff11">nfract</a>-1].<a class="code" href="../../da/d20/structmaterial.html#a84365556a52eb9959d6d869dda76433c">numbcells</a>=<a class="code" href="../../d0/d75/_func_def_8h.html#a5225ceefbfdde0f9cb32cb84174a4863">ncells</a>-cell_f;</div><div class="line"><a name="l00249"></a><span class="lineno">  249</span>&#160;    </div><div class="line"><a name="l00250"></a><span class="lineno">  250</span>&#160;    </div><div class="line"><a name="l00251"></a><span class="lineno">  251</span>&#160;    <span class="comment">/* read the next lines, which show node attributes and thier order in next data block */</span></div><div class="line"><a name="l00252"></a><span class="lineno">  252</span>&#160;    </div><div class="line"><a name="l00253"></a><span class="lineno">  253</span>&#160;    <span class="keywordflow">if</span> (fscanf(fp, <span class="stringliteral">&quot;%d&quot;</span>, &amp;n1)!=1)</div><div class="line"><a name="l00254"></a><span class="lineno">  254</span>&#160;        printf(<span class="stringliteral">&quot;Error&quot;</span>);</div><div class="line"><a name="l00255"></a><span class="lineno">  255</span>&#160;    </div><div class="line"><a name="l00256"></a><span class="lineno">  256</span>&#160;    <span class="keywordtype">int</span> k=1,imt1_ind=0, itp1_ind=0, ni[nnv];</div><div class="line"><a name="l00257"></a><span class="lineno">  257</span>&#160;    <span class="keywordtype">char</span>  var_name[20];</div><div class="line"><a name="l00258"></a><span class="lineno">  258</span>&#160;    </div><div class="line"><a name="l00259"></a><span class="lineno">  259</span>&#160;    <span class="keywordflow">for</span> (i=0; i&lt;nnv; i++)</div><div class="line"><a name="l00260"></a><span class="lineno">  260</span>&#160;    {</div><div class="line"><a name="l00261"></a><span class="lineno">  261</span>&#160;        <span class="keywordflow">if</span> (fscanf(fp, <span class="stringliteral">&quot;%d&quot;</span>, &amp;ni[i])!=1)</div><div class="line"><a name="l00262"></a><span class="lineno">  262</span>&#160;            printf(<span class="stringliteral">&quot;Error&quot;</span>);</div><div class="line"><a name="l00263"></a><span class="lineno">  263</span>&#160;        k=k*ni[i];</div><div class="line"><a name="l00264"></a><span class="lineno">  264</span>&#160;    }</div><div class="line"><a name="l00265"></a><span class="lineno">  265</span>&#160;    </div><div class="line"><a name="l00266"></a><span class="lineno">  266</span>&#160;    <span class="keywordflow">if</span> (k!=1)</div><div class="line"><a name="l00267"></a><span class="lineno">  267</span>&#160;        printf(<span class="stringliteral">&quot; Please check nodes attributes in inp file\n&quot;</span>);</div><div class="line"><a name="l00268"></a><span class="lineno">  268</span>&#160;    </div><div class="line"><a name="l00269"></a><span class="lineno">  269</span>&#160;    <span class="comment">/* read node&#39;s attribute&#39;s names and search for imt1 and itp1 */</span></div><div class="line"><a name="l00270"></a><span class="lineno">  270</span>&#160;    <span class="keywordflow">for</span> (i=0; i&lt;nnv; i++)</div><div class="line"><a name="l00271"></a><span class="lineno">  271</span>&#160;    {</div><div class="line"><a name="l00272"></a><span class="lineno">  272</span>&#160;        <span class="keywordflow">if</span> (fscanf(fp, <span class="stringliteral">&quot;%s %s \n&quot;</span>, var_name, line)!=2)</div><div class="line"><a name="l00273"></a><span class="lineno">  273</span>&#160;            printf(<span class="stringliteral">&quot;Error&quot;</span>);</div><div class="line"><a name="l00274"></a><span class="lineno">  274</span>&#160;        <span class="keywordtype">int</span> res=strncmp(var_name,<span class="stringliteral">&quot;imt1,&quot;</span>,5);</div><div class="line"><a name="l00275"></a><span class="lineno">  275</span>&#160;        <span class="keywordflow">if</span> (res==0)</div><div class="line"><a name="l00276"></a><span class="lineno">  276</span>&#160;            imt1_ind=i;</div><div class="line"><a name="l00277"></a><span class="lineno">  277</span>&#160;        </div><div class="line"><a name="l00278"></a><span class="lineno">  278</span>&#160;        <span class="keywordtype">int</span> res1=strncmp(var_name,<span class="stringliteral">&quot;itp1,&quot;</span>,5);</div><div class="line"><a name="l00279"></a><span class="lineno">  279</span>&#160;        <span class="keywordflow">if</span> (res1==0)</div><div class="line"><a name="l00280"></a><span class="lineno">  280</span>&#160;            itp1_ind=i;</div><div class="line"><a name="l00281"></a><span class="lineno">  281</span>&#160;    }</div><div class="line"><a name="l00282"></a><span class="lineno">  282</span>&#160;    <span class="comment">/* read variables imt1 - node material (in our case it is fracture id) and itp1 - type of node */</span></div><div class="line"><a name="l00283"></a><span class="lineno">  283</span>&#160;    <span class="comment">/* type of node: 0 - interior; 10- exterior; 2- interior interface; 12- exterior interface */</span></div><div class="line"><a name="l00284"></a><span class="lineno">  284</span>&#160;    </div><div class="line"><a name="l00285"></a><span class="lineno">  285</span>&#160;    </div><div class="line"><a name="l00286"></a><span class="lineno">  286</span>&#160;    <span class="keywordtype">double</span> fn;</div><div class="line"><a name="l00287"></a><span class="lineno">  287</span>&#160;    <span class="keywordtype">int</span> fr=0, currentfr=1;</div><div class="line"><a name="l00288"></a><span class="lineno">  288</span>&#160;    k=0;</div><div class="line"><a name="l00289"></a><span class="lineno">  289</span>&#160;    <a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>[k].<a class="code" href="../../da/d20/structmaterial.html#a82946cb78555ad8c4c14a12fbd7aa3f8">firstnode</a>=1;</div><div class="line"><a name="l00290"></a><span class="lineno">  290</span>&#160;    </div><div class="line"><a name="l00291"></a><span class="lineno">  291</span>&#160;    <span class="keywordflow">for</span> (i=0; i&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#a0049b706bb5b3980868a5b1e1b3fac0c">nnodes</a>; i++)</div><div class="line"><a name="l00292"></a><span class="lineno">  292</span>&#160;    {</div><div class="line"><a name="l00293"></a><span class="lineno">  293</span>&#160;        <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#aa2cd06573422bc415cb8f38a67232de7">fracture</a>[0]=0;</div><div class="line"><a name="l00294"></a><span class="lineno">  294</span>&#160;        <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#aa2cd06573422bc415cb8f38a67232de7">fracture</a>[1]=0;</div><div class="line"><a name="l00295"></a><span class="lineno">  295</span>&#160;        <span class="keywordflow">for</span> (j=0; j&lt;itp1_ind+2; j++)</div><div class="line"><a name="l00296"></a><span class="lineno">  296</span>&#160;        {</div><div class="line"><a name="l00297"></a><span class="lineno">  297</span>&#160;            <span class="keywordflow">if</span> (fscanf(fp, <span class="stringliteral">&quot;%lf &quot;</span>, &amp;fn)!=1)</div><div class="line"><a name="l00298"></a><span class="lineno">  298</span>&#160;                printf(<span class="stringliteral">&quot;Error&quot;</span>);</div><div class="line"><a name="l00299"></a><span class="lineno">  299</span>&#160;            </div><div class="line"><a name="l00300"></a><span class="lineno">  300</span>&#160;            </div><div class="line"><a name="l00301"></a><span class="lineno">  301</span>&#160;            <span class="keywordflow">if</span> (j==imt1_ind+1)</div><div class="line"><a name="l00302"></a><span class="lineno">  302</span>&#160;            {</div><div class="line"><a name="l00303"></a><span class="lineno">  303</span>&#160;                fr=(int)fn;</div><div class="line"><a name="l00304"></a><span class="lineno">  304</span>&#160;                <span class="keywordflow">if</span> (currentfr != fr)</div><div class="line"><a name="l00305"></a><span class="lineno">  305</span>&#160;                {</div><div class="line"><a name="l00306"></a><span class="lineno">  306</span>&#160;                    <a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>[k].<a class="code" href="../../da/d20/structmaterial.html#a9bbfaca53483df79578f4ae037867851">lastnode</a>=i;</div><div class="line"><a name="l00307"></a><span class="lineno">  307</span>&#160;                    k=k+1;</div><div class="line"><a name="l00308"></a><span class="lineno">  308</span>&#160;                    <a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>[k].<a class="code" href="../../da/d20/structmaterial.html#a82946cb78555ad8c4c14a12fbd7aa3f8">firstnode</a>=i+1;</div><div class="line"><a name="l00309"></a><span class="lineno">  309</span>&#160;                    currentfr=fr;</div><div class="line"><a name="l00310"></a><span class="lineno">  310</span>&#160;                }</div><div class="line"><a name="l00311"></a><span class="lineno">  311</span>&#160;                <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#aa2cd06573422bc415cb8f38a67232de7">fracture</a>[0]=(int)fn;</div><div class="line"><a name="l00312"></a><span class="lineno">  312</span>&#160;            }</div><div class="line"><a name="l00313"></a><span class="lineno">  313</span>&#160;            <span class="keywordflow">if</span> (j==itp1_ind+1)</div><div class="line"><a name="l00314"></a><span class="lineno">  314</span>&#160;                <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#aa8c5c50393696a507d20dda8ec69fd51">typeN</a>=(int)fn;</div><div class="line"><a name="l00315"></a><span class="lineno">  315</span>&#160;        }</div><div class="line"><a name="l00316"></a><span class="lineno">  316</span>&#160;        </div><div class="line"><a name="l00317"></a><span class="lineno">  317</span>&#160;        <span class="keywordflow">do</span></div><div class="line"><a name="l00318"></a><span class="lineno">  318</span>&#160;            cs=fgetc(fp);</div><div class="line"><a name="l00319"></a><span class="lineno">  319</span>&#160;        <span class="keywordflow">while</span> (cs!=<span class="charliteral">&#39;\n&#39;</span>);</div><div class="line"><a name="l00320"></a><span class="lineno">  320</span>&#160;    }</div><div class="line"><a name="l00321"></a><span class="lineno">  321</span>&#160;    <a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>[<a class="code" href="../../d0/d75/_func_def_8h.html#accb317d0fcd1e5a1683184b91a49ff11">nfract</a>-1].<a class="code" href="../../da/d20/structmaterial.html#a9bbfaca53483df79578f4ae037867851">lastnode</a>=<a class="code" href="../../d0/d75/_func_def_8h.html#a0049b706bb5b3980868a5b1e1b3fac0c">nnodes</a>;</div><div class="line"><a name="l00322"></a><span class="lineno">  322</span>&#160;    <span class="comment">// printf(&quot; \n Material types and type of nodes are read \n&quot;);</span></div><div class="line"><a name="l00323"></a><span class="lineno">  323</span>&#160;    fclose(fp) ;</div><div class="line"><a name="l00324"></a><span class="lineno">  324</span>&#160;    </div><div class="line"><a name="l00325"></a><span class="lineno">  325</span>&#160;    </div><div class="line"><a name="l00326"></a><span class="lineno">  326</span>&#160;    </div><div class="line"><a name="l00327"></a><span class="lineno">  327</span>&#160;    <span class="comment">/******************* open and read stor file *******************************/</span></div><div class="line"><a name="l00328"></a><span class="lineno">  328</span>&#160;    </div><div class="line"><a name="l00329"></a><span class="lineno">  329</span>&#160;    inputfile = <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a2afbea1a5d0b14d8a098f551fe055420">Control_File</a>(<span class="stringliteral">&quot;stor:&quot;</span>,5 );</div><div class="line"><a name="l00330"></a><span class="lineno">  330</span>&#160;    </div><div class="line"><a name="l00331"></a><span class="lineno">  331</span>&#160;    FILE *fps= <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a205add90a27292ac5f18188fa35bcdf5">OpenFile</a> (inputfile.<a class="code" href="../../d9/d26/structinpfile.html#a66e8759aa38ee20350f04cdc58dee702">filename</a>,<span class="stringliteral">&quot;r&quot;</span>);</div><div class="line"><a name="l00332"></a><span class="lineno">  332</span>&#160;    </div><div class="line"><a name="l00333"></a><span class="lineno">  333</span>&#160;    printf(<span class="stringliteral">&quot;\n OPEN AND READ FILE: %s \n \n&quot;</span>, inputfile.<a class="code" href="../../d9/d26/structinpfile.html#a66e8759aa38ee20350f04cdc58dee702">filename</a>);</div><div class="line"><a name="l00334"></a><span class="lineno">  334</span>&#160;    </div><div class="line"><a name="l00335"></a><span class="lineno">  335</span>&#160;    <span class="comment">/* Read the head of the file */</span></div><div class="line"><a name="l00336"></a><span class="lineno">  336</span>&#160;    <span class="keywordflow">for</span> (i=0; i&lt;2; i++)</div><div class="line"><a name="l00337"></a><span class="lineno">  337</span>&#160;    {</div><div class="line"><a name="l00338"></a><span class="lineno">  338</span>&#160;        <span class="keywordflow">do</span></div><div class="line"><a name="l00339"></a><span class="lineno">  339</span>&#160;            cs=fgetc(fps);</div><div class="line"><a name="l00340"></a><span class="lineno">  340</span>&#160;        <span class="keywordflow">while</span> (cs!=<span class="charliteral">&#39;\n&#39;</span>);</div><div class="line"><a name="l00341"></a><span class="lineno">  341</span>&#160;    }</div><div class="line"><a name="l00342"></a><span class="lineno">  342</span>&#160;    </div><div class="line"><a name="l00343"></a><span class="lineno">  343</span>&#160;    <span class="keywordtype">unsigned</span> <span class="keywordtype">int</span>  node1;</div><div class="line"><a name="l00344"></a><span class="lineno">  344</span>&#160;    <span class="keywordflow">if</span> (fscanf (fps,<span class="stringliteral">&quot; %d %d %d %d %d \n&quot;</span>, &amp;nedges, &amp;node1, &amp;snode_edge, &amp;area_coef, &amp;<a class="code" href="../../d0/d75/_func_def_8h.html#a9bbb8dd86b166646cdce87a545a36fa7">max_neighb</a> )!=5)</div><div class="line"><a name="l00345"></a><span class="lineno">  345</span>&#160;        printf(<span class="stringliteral">&quot;Error&quot;</span>);</div><div class="line"><a name="l00346"></a><span class="lineno">  346</span>&#160;    </div><div class="line"><a name="l00347"></a><span class="lineno">  347</span>&#160;    <span class="keywordflow">if</span> (node1!=<a class="code" href="../../d0/d75/_func_def_8h.html#a0049b706bb5b3980868a5b1e1b3fac0c">nnodes</a>)</div><div class="line"><a name="l00348"></a><span class="lineno">  348</span>&#160;        printf(<span class="stringliteral">&quot;the number of nodes in inp file is not equal to number of nodes in stor file! \n&quot;</span>);</div><div class="line"><a name="l00349"></a><span class="lineno">  349</span>&#160;    </div><div class="line"><a name="l00350"></a><span class="lineno">  350</span>&#160;    </div><div class="line"><a name="l00351"></a><span class="lineno">  351</span>&#160;    <span class="comment">/* Read volumes of Voronoy polygons. Each polygon and it&#39;s volume is associated</span></div><div class="line"><a name="l00352"></a><span class="lineno">  352</span>&#160;<span class="comment">     with one node (that is a center of polygon) *************************/</span></div><div class="line"><a name="l00353"></a><span class="lineno">  353</span>&#160;    </div><div class="line"><a name="l00354"></a><span class="lineno">  354</span>&#160;    <span class="keywordflow">for</span> (i=0; i&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#a0049b706bb5b3980868a5b1e1b3fac0c">nnodes</a>; i++)</div><div class="line"><a name="l00355"></a><span class="lineno">  355</span>&#160;    {</div><div class="line"><a name="l00356"></a><span class="lineno">  356</span>&#160;        <span class="keywordflow">if</span> (fscanf(fps,<span class="stringliteral">&quot;%lf&quot;</span>, &amp;<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].pvolume)!=1)</div><div class="line"><a name="l00357"></a><span class="lineno">  357</span>&#160;            printf(<span class="stringliteral">&quot;Error&quot;</span>);</div><div class="line"><a name="l00358"></a><span class="lineno">  358</span>&#160;    }</div><div class="line"><a name="l00359"></a><span class="lineno">  359</span>&#160;    <span class="comment">// printf(&quot; \n Volumes of Voronoi polygons are read \n&quot;);</span></div><div class="line"><a name="l00360"></a><span class="lineno">  360</span>&#160;    </div><div class="line"><a name="l00361"></a><span class="lineno">  361</span>&#160;    <span class="comment">/* Read an array with number of neighbors for each node */</span></div><div class="line"><a name="l00362"></a><span class="lineno">  362</span>&#160;    </div><div class="line"><a name="l00363"></a><span class="lineno">  363</span>&#160;    <span class="keywordtype">unsigned</span> <span class="keywordtype">int</span> cn,pn;</div><div class="line"><a name="l00364"></a><span class="lineno">  364</span>&#160;    </div><div class="line"><a name="l00365"></a><span class="lineno">  365</span>&#160;    <span class="keywordflow">if</span> (fscanf(fps, <span class="stringliteral">&quot;%d&quot;</span>, &amp;pn)!=1)</div><div class="line"><a name="l00366"></a><span class="lineno">  366</span>&#160;        printf(<span class="stringliteral">&quot;Error&quot;</span>);</div><div class="line"><a name="l00367"></a><span class="lineno">  367</span>&#160;    </div><div class="line"><a name="l00368"></a><span class="lineno">  368</span>&#160;    <span class="keywordflow">for</span> (i=0; i&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#a0049b706bb5b3980868a5b1e1b3fac0c">nnodes</a>; i++)</div><div class="line"><a name="l00369"></a><span class="lineno">  369</span>&#160;    {</div><div class="line"><a name="l00370"></a><span class="lineno">  370</span>&#160;        <span class="keywordflow">if</span> (fscanf(fps, <span class="stringliteral">&quot;%d&quot;</span>, &amp;cn)!=1)</div><div class="line"><a name="l00371"></a><span class="lineno">  371</span>&#160;            printf(<span class="stringliteral">&quot;Error&quot;</span>);</div><div class="line"><a name="l00372"></a><span class="lineno">  372</span>&#160;        <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#acf83b561551952403148f73fe032f57b">numneighb</a>=cn-pn;</div><div class="line"><a name="l00373"></a><span class="lineno">  373</span>&#160;        pn=cn;</div><div class="line"><a name="l00374"></a><span class="lineno">  374</span>&#160;    }</div><div class="line"><a name="l00375"></a><span class="lineno">  375</span>&#160;    </div><div class="line"><a name="l00376"></a><span class="lineno">  376</span>&#160;    <span class="comment">/* Read indexes of neighboring nodes (including its node number)*/</span></div><div class="line"><a name="l00377"></a><span class="lineno">  377</span>&#160;    </div><div class="line"><a name="l00378"></a><span class="lineno">  378</span>&#160;    <span class="keywordflow">for</span> (i=0; i&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#a0049b706bb5b3980868a5b1e1b3fac0c">nnodes</a>; i++)</div><div class="line"><a name="l00379"></a><span class="lineno">  379</span>&#160;    {</div><div class="line"><a name="l00380"></a><span class="lineno">  380</span>&#160;        <span class="keywordflow">for</span> (j=0; j&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#acf83b561551952403148f73fe032f57b">numneighb</a>; j++)</div><div class="line"><a name="l00381"></a><span class="lineno">  381</span>&#160;        {</div><div class="line"><a name="l00382"></a><span class="lineno">  382</span>&#160;            <span class="keywordflow">if</span> (fscanf(fps, <span class="stringliteral">&quot;%d&quot;</span>, &amp;<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].indnodes[j])!=1)</div><div class="line"><a name="l00383"></a><span class="lineno">  383</span>&#160;                printf(<span class="stringliteral">&quot;Error&quot;</span>);</div><div class="line"><a name="l00384"></a><span class="lineno">  384</span>&#160;        }</div><div class="line"><a name="l00385"></a><span class="lineno">  385</span>&#160;    }</div><div class="line"><a name="l00386"></a><span class="lineno">  386</span>&#160;    <span class="comment">// printf(&quot;  \n Number of neighbors of each node and their indices are read \n &quot;);</span></div><div class="line"><a name="l00387"></a><span class="lineno">  387</span>&#160;    </div><div class="line"><a name="l00388"></a><span class="lineno">  388</span>&#160;    <span class="comment">/***Read pointers to area cofficients, zeros and diagonal elements in stor file **/</span></div><div class="line"><a name="l00389"></a><span class="lineno">  389</span>&#160;    </div><div class="line"><a name="l00390"></a><span class="lineno">  390</span>&#160;    <span class="keywordflow">for</span> (i=0; i&lt;nedges; i++)</div><div class="line"><a name="l00391"></a><span class="lineno">  391</span>&#160;    {</div><div class="line"><a name="l00392"></a><span class="lineno">  392</span>&#160;        <span class="keywordflow">if</span> (fscanf(fps, <span class="stringliteral">&quot;%d&quot;</span>,&amp;cn)!=1)</div><div class="line"><a name="l00393"></a><span class="lineno">  393</span>&#160;            printf(<span class="stringliteral">&quot;Error&quot;</span>);</div><div class="line"><a name="l00394"></a><span class="lineno">  394</span>&#160;    }</div><div class="line"><a name="l00395"></a><span class="lineno">  395</span>&#160;    </div><div class="line"><a name="l00396"></a><span class="lineno">  396</span>&#160;    <span class="comment">/*read zeros*/</span></div><div class="line"><a name="l00397"></a><span class="lineno">  397</span>&#160;    <span class="keywordflow">for</span> (i=0; i&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#a0049b706bb5b3980868a5b1e1b3fac0c">nnodes</a>+1; i++)</div><div class="line"><a name="l00398"></a><span class="lineno">  398</span>&#160;    {</div><div class="line"><a name="l00399"></a><span class="lineno">  399</span>&#160;        <span class="keywordflow">if</span> (fscanf(fps, <span class="stringliteral">&quot;%d&quot;</span>,&amp;cn)!=1)</div><div class="line"><a name="l00400"></a><span class="lineno">  400</span>&#160;            printf(<span class="stringliteral">&quot;Error&quot;</span>);</div><div class="line"><a name="l00401"></a><span class="lineno">  401</span>&#160;    }</div><div class="line"><a name="l00402"></a><span class="lineno">  402</span>&#160;    <span class="comment">/* read diagonal elements*/</span></div><div class="line"><a name="l00403"></a><span class="lineno">  403</span>&#160;    </div><div class="line"><a name="l00404"></a><span class="lineno">  404</span>&#160;    <span class="keywordtype">int</span> count=0, count1=0;</div><div class="line"><a name="l00405"></a><span class="lineno">  405</span>&#160;    </div><div class="line"><a name="l00406"></a><span class="lineno">  406</span>&#160;    <span class="keywordflow">if</span> (fscanf(fps, <span class="stringliteral">&quot;%d&quot;</span>, &amp;pn)!=1)</div><div class="line"><a name="l00407"></a><span class="lineno">  407</span>&#160;        printf(<span class="stringliteral">&quot;Error&quot;</span>);</div><div class="line"><a name="l00408"></a><span class="lineno">  408</span>&#160;    <span class="keywordflow">for</span> (i=0; i&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#a0049b706bb5b3980868a5b1e1b3fac0c">nnodes</a>-1; i++)</div><div class="line"><a name="l00409"></a><span class="lineno">  409</span>&#160;    {</div><div class="line"><a name="l00410"></a><span class="lineno">  410</span>&#160;        <span class="keywordflow">if</span> (fscanf(fps, <span class="stringliteral">&quot;%d&quot;</span>, &amp;cn)!=1)</div><div class="line"><a name="l00411"></a><span class="lineno">  411</span>&#160;            printf(<span class="stringliteral">&quot;Error&quot;</span>);</div><div class="line"><a name="l00412"></a><span class="lineno">  412</span>&#160;        count=count+cn-pn;</div><div class="line"><a name="l00413"></a><span class="lineno">  413</span>&#160;        count1=count1+<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#acf83b561551952403148f73fe032f57b">numneighb</a>;</div><div class="line"><a name="l00414"></a><span class="lineno">  414</span>&#160;        pn=cn;</div><div class="line"><a name="l00415"></a><span class="lineno">  415</span>&#160;    }</div><div class="line"><a name="l00416"></a><span class="lineno">  416</span>&#160;    <span class="comment">/**** reading area coefficients *************************/</span></div><div class="line"><a name="l00417"></a><span class="lineno">  417</span>&#160;    </div><div class="line"><a name="l00418"></a><span class="lineno">  418</span>&#160;    <span class="keywordflow">for</span> (i=0; i&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#a0049b706bb5b3980868a5b1e1b3fac0c">nnodes</a>; i++)</div><div class="line"><a name="l00419"></a><span class="lineno">  419</span>&#160;    {</div><div class="line"><a name="l00420"></a><span class="lineno">  420</span>&#160;        <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#a7588fad77cf759d8db0957c9e957e23a">aperture</a>=0.0;</div><div class="line"><a name="l00421"></a><span class="lineno">  421</span>&#160;        <span class="keywordflow">for</span> (j=0; j&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#a9bbb8dd86b166646cdce87a545a36fa7">max_neighb</a>; j++)</div><div class="line"><a name="l00422"></a><span class="lineno">  422</span>&#160;        {</div><div class="line"><a name="l00423"></a><span class="lineno">  423</span>&#160;            <span class="keywordflow">if</span> (j&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].numneighb)</div><div class="line"><a name="l00424"></a><span class="lineno">  424</span>&#160;            {</div><div class="line"><a name="l00425"></a><span class="lineno">  425</span>&#160;                <span class="keywordflow">if</span> (fscanf(fps, <span class="stringliteral">&quot;%lf&quot;</span>, &amp;<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].area[j])!=1)</div><div class="line"><a name="l00426"></a><span class="lineno">  426</span>&#160;                    printf(<span class="stringliteral">&quot;Error&quot;</span>);</div><div class="line"><a name="l00427"></a><span class="lineno">  427</span>&#160;                </div><div class="line"><a name="l00428"></a><span class="lineno">  428</span>&#160;            }</div><div class="line"><a name="l00429"></a><span class="lineno">  429</span>&#160;        }</div><div class="line"><a name="l00430"></a><span class="lineno">  430</span>&#160;    }</div><div class="line"><a name="l00431"></a><span class="lineno">  431</span>&#160;    fclose(fps);</div><div class="line"><a name="l00432"></a><span class="lineno">  432</span>&#160;    <span class="comment">/****** reading aperture file **************************/</span></div><div class="line"><a name="l00435"></a><span class="lineno">  435</span>&#160;    inputfile=<a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a2afbea1a5d0b14d8a098f551fe055420">Control_File</a>(<span class="stringliteral">&quot;aperture:&quot;</span>,9);</div><div class="line"><a name="l00436"></a><span class="lineno">  436</span>&#160;    <span class="keywordtype">int</span> res;</div><div class="line"><a name="l00437"></a><span class="lineno">  437</span>&#160;    res=strncmp(inputfile.<a class="code" href="../../d9/d26/structinpfile.html#a66e8759aa38ee20350f04cdc58dee702">filename</a>,<span class="stringliteral">&quot;yes&quot;</span>,3);</div><div class="line"><a name="l00438"></a><span class="lineno">  438</span>&#160;    </div><div class="line"><a name="l00439"></a><span class="lineno">  439</span>&#160;    <span class="keywordflow">if</span> (res==0)</div><div class="line"><a name="l00440"></a><span class="lineno">  440</span>&#160;    {</div><div class="line"><a name="l00441"></a><span class="lineno">  441</span>&#160;        </div><div class="line"><a name="l00442"></a><span class="lineno">  442</span>&#160;        <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a977295cc5cf9eca6fa850ec922f4a6b0">ReadAperture</a>();</div><div class="line"><a name="l00443"></a><span class="lineno">  443</span>&#160;    }</div><div class="line"><a name="l00444"></a><span class="lineno">  444</span>&#160;    <span class="keywordflow">else</span></div><div class="line"><a name="l00445"></a><span class="lineno">  445</span>&#160;    {</div><div class="line"><a name="l00446"></a><span class="lineno">  446</span>&#160;        printf(<span class="stringliteral">&quot;\n There is no aperture file is defined. All fractures will have constant aperture equal to &#39;thickness&#39; parameter. \n&quot;</span>);</div><div class="line"><a name="l00447"></a><span class="lineno">  447</span>&#160;        </div><div class="line"><a name="l00448"></a><span class="lineno">  448</span>&#160;        <span class="keywordflow">for</span> (i=0; i&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#a0049b706bb5b3980868a5b1e1b3fac0c">nnodes</a>; i++)</div><div class="line"><a name="l00449"></a><span class="lineno">  449</span>&#160;            <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].aperture=<a class="code" href="../../d0/d75/_func_def_8h.html#a20238819f2c84ce6d3f083ded9ac612d">thickness</a>;</div><div class="line"><a name="l00450"></a><span class="lineno">  450</span>&#160;    }</div><div class="line"><a name="l00451"></a><span class="lineno">  451</span>&#160;    </div><div class="line"><a name="l00452"></a><span class="lineno">  452</span>&#160;    </div><div class="line"><a name="l00453"></a><span class="lineno">  453</span>&#160;  </div><div class="line"><a name="l00454"></a><span class="lineno">  454</span>&#160;    printf(<span class="stringliteral">&quot;\n----------------FLOW SOLUTION DATA READING--------------------\n&quot;</span>);</div><div class="line"><a name="l00455"></a><span class="lineno">  455</span>&#160;    </div><div class="line"><a name="l00456"></a><span class="lineno">  456</span>&#160;    <a class="code" href="../../d0/d75/_func_def_8h.html#a8a3e3776115006efbafec148de4200e0">fehm</a>=0;</div><div class="line"><a name="l00457"></a><span class="lineno">  457</span>&#160;    <a class="code" href="../../d0/d75/_func_def_8h.html#a7f54a7ad2e8c4f2214887aeac797ce91">pflotran</a>=0;</div><div class="line"><a name="l00458"></a><span class="lineno">  458</span>&#160;    </div><div class="line"><a name="l00459"></a><span class="lineno">  459</span>&#160;    inputfile=<a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a2afbea1a5d0b14d8a098f551fe055420">Control_File</a>(<span class="stringliteral">&quot;FEHM:&quot;</span>,5);</div><div class="line"><a name="l00460"></a><span class="lineno">  460</span>&#160;    res=strncmp(inputfile.<a class="code" href="../../d9/d26/structinpfile.html#a66e8759aa38ee20350f04cdc58dee702">filename</a>,<span class="stringliteral">&quot;yes&quot;</span>,3);</div><div class="line"><a name="l00461"></a><span class="lineno">  461</span>&#160;    <span class="keywordflow">if</span> (res==0)</div><div class="line"><a name="l00462"></a><span class="lineno">  462</span>&#160;    {</div><div class="line"><a name="l00463"></a><span class="lineno">  463</span>&#160;        <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a9bf66a3ae3be79cacf8836e88dbdcef1">ReadFEHMfile</a>(nedges);</div><div class="line"><a name="l00464"></a><span class="lineno">  464</span>&#160;        <a class="code" href="../../d0/d75/_func_def_8h.html#a8a3e3776115006efbafec148de4200e0">fehm</a>=1;</div><div class="line"><a name="l00465"></a><span class="lineno">  465</span>&#160;    }</div><div class="line"><a name="l00466"></a><span class="lineno">  466</span>&#160;    <span class="keywordflow">else</span></div><div class="line"><a name="l00467"></a><span class="lineno">  467</span>&#160;    {</div><div class="line"><a name="l00468"></a><span class="lineno">  468</span>&#160;        inputfile=<a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a2afbea1a5d0b14d8a098f551fe055420">Control_File</a>(<span class="stringliteral">&quot;PFLOTRAN:&quot;</span>,9);</div><div class="line"><a name="l00469"></a><span class="lineno">  469</span>&#160;        res=strncmp(inputfile.<a class="code" href="../../d9/d26/structinpfile.html#a66e8759aa38ee20350f04cdc58dee702">filename</a>,<span class="stringliteral">&quot;yes&quot;</span>,3);</div><div class="line"><a name="l00470"></a><span class="lineno">  470</span>&#160;        <span class="keywordflow">if</span> (res==0)</div><div class="line"><a name="l00471"></a><span class="lineno">  471</span>&#160;        {</div><div class="line"><a name="l00472"></a><span class="lineno">  472</span>&#160;            <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a335450331ee81be8a4f3dfda40186f5b">ReadPFLOTRANfile</a>(nedges);</div><div class="line"><a name="l00473"></a><span class="lineno">  473</span>&#160;            <a class="code" href="../../d0/d75/_func_def_8h.html#a7f54a7ad2e8c4f2214887aeac797ce91">pflotran</a>=1;</div><div class="line"><a name="l00474"></a><span class="lineno">  474</span>&#160;        }</div><div class="line"><a name="l00475"></a><span class="lineno">  475</span>&#160;        <span class="keywordflow">else</span></div><div class="line"><a name="l00476"></a><span class="lineno">  476</span>&#160;        {</div><div class="line"><a name="l00477"></a><span class="lineno">  477</span>&#160;            printf(<span class="stringliteral">&quot;\n FLOW SOLUTION SOURCE IS NOT DEFINED. Program is terminated. \n&quot;</span>);</div><div class="line"><a name="l00478"></a><span class="lineno">  478</span>&#160;            exit(1);</div><div class="line"><a name="l00479"></a><span class="lineno">  479</span>&#160;        }</div><div class="line"><a name="l00480"></a><span class="lineno">  480</span>&#160;    }</div><div class="line"><a name="l00481"></a><span class="lineno">  481</span>&#160;    </div><div class="line"><a name="l00482"></a><span class="lineno">  482</span>&#160;  </div><div class="line"><a name="l00483"></a><span class="lineno">  483</span>&#160;    <span class="comment">/***** ordering neighboring nodes, fluxes and area coefficients ******/</span></div><div class="line"><a name="l00484"></a><span class="lineno">  484</span>&#160;    <span class="keywordflow">for</span> (i=0; i&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#a0049b706bb5b3980868a5b1e1b3fac0c">nnodes</a>; i++)</div><div class="line"><a name="l00485"></a><span class="lineno">  485</span>&#160;    {</div><div class="line"><a name="l00486"></a><span class="lineno">  486</span>&#160;        <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#acf83b561551952403148f73fe032f57b">numneighb</a>=(<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#acf83b561551952403148f73fe032f57b">numneighb</a>)-1;</div><div class="line"><a name="l00487"></a><span class="lineno">  487</span>&#160;        l=0;</div><div class="line"><a name="l00488"></a><span class="lineno">  488</span>&#160;        <span class="keywordflow">for</span> (j=0; j&lt;(<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#acf83b561551952403148f73fe032f57b">numneighb</a>)+1; j++)</div><div class="line"><a name="l00489"></a><span class="lineno">  489</span>&#160;        {</div><div class="line"><a name="l00490"></a><span class="lineno">  490</span>&#160;            <span class="keywordflow">if</span> (<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].indnodes[j]!=i+1)</div><div class="line"><a name="l00491"></a><span class="lineno">  491</span>&#160;            {</div><div class="line"><a name="l00492"></a><span class="lineno">  492</span>&#160;                <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#a82e41673a29352ee0f004ae7890d5266">indnodes</a>[l]=<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#a82e41673a29352ee0f004ae7890d5266">indnodes</a>[j];</div><div class="line"><a name="l00493"></a><span class="lineno">  493</span>&#160;                </div><div class="line"><a name="l00494"></a><span class="lineno">  494</span>&#160;                <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#aeabf5788639be2723927c854aa11cd33">type</a>[l]=<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#a82e41673a29352ee0f004ae7890d5266">indnodes</a>[l]-1].<a class="code" href="../../db/d7c/structvertex.html#aa8c5c50393696a507d20dda8ec69fd51">typeN</a>;</div><div class="line"><a name="l00495"></a><span class="lineno">  495</span>&#160;                <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#a9934ed428ad1db71c9aa1e601649791c">flux</a>[l]=<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#a9934ed428ad1db71c9aa1e601649791c">flux</a>[j];</div><div class="line"><a name="l00496"></a><span class="lineno">  496</span>&#160;                </div><div class="line"><a name="l00497"></a><span class="lineno">  497</span>&#160;                </div><div class="line"><a name="l00498"></a><span class="lineno">  498</span>&#160;                <span class="keywordflow">if</span> (<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].area[j]&lt;0)</div><div class="line"><a name="l00499"></a><span class="lineno">  499</span>&#160;                    <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#aff6495cfbefb8dffd8714d7c68810ca6">area</a>[l]=<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#aff6495cfbefb8dffd8714d7c68810ca6">area</a>[j]*(-1.0);</div><div class="line"><a name="l00500"></a><span class="lineno">  500</span>&#160;                <span class="keywordflow">else</span></div><div class="line"><a name="l00501"></a><span class="lineno">  501</span>&#160;                    <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#aff6495cfbefb8dffd8714d7c68810ca6">area</a>[l]=<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#aff6495cfbefb8dffd8714d7c68810ca6">area</a>[j];</div><div class="line"><a name="l00502"></a><span class="lineno">  502</span>&#160;                </div><div class="line"><a name="l00503"></a><span class="lineno">  503</span>&#160;                </div><div class="line"><a name="l00504"></a><span class="lineno">  504</span>&#160;                </div><div class="line"><a name="l00505"></a><span class="lineno">  505</span>&#160;                <span class="keywordflow">for</span> (k=0; k&lt;4; k++)</div><div class="line"><a name="l00506"></a><span class="lineno">  506</span>&#160;                {</div><div class="line"><a name="l00507"></a><span class="lineno">  507</span>&#160;                    <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#a583032cadaa99e8f5c044d3bd10191cf">cells</a>[l][k]=0;</div><div class="line"><a name="l00508"></a><span class="lineno">  508</span>&#160;                    <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#adc1951216db706914f5963da2e58accc">fracts</a>[l][k]=0;</div><div class="line"><a name="l00509"></a><span class="lineno">  509</span>&#160;                }</div><div class="line"><a name="l00510"></a><span class="lineno">  510</span>&#160;                l++;</div><div class="line"><a name="l00511"></a><span class="lineno">  511</span>&#160;            }</div><div class="line"><a name="l00512"></a><span class="lineno">  512</span>&#160;        }</div><div class="line"><a name="l00513"></a><span class="lineno">  513</span>&#160;    }</div><div class="line"><a name="l00514"></a><span class="lineno">  514</span>&#160;    </div><div class="line"><a name="l00515"></a><span class="lineno">  515</span>&#160;    </div><div class="line"><a name="l00516"></a><span class="lineno">  516</span>&#160;    <span class="comment">/***** search for neighboring cells *******************/</span></div><div class="line"><a name="l00517"></a><span class="lineno">  517</span>&#160;    </div><div class="line"><a name="l00518"></a><span class="lineno">  518</span>&#160;    <span class="keywordflow">for</span> (ln=0; ln&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#a5225ceefbfdde0f9cb32cb84174a4863">ncells</a>; ln++)</div><div class="line"><a name="l00519"></a><span class="lineno">  519</span>&#160;    {</div><div class="line"><a name="l00520"></a><span class="lineno">  520</span>&#160;        </div><div class="line"><a name="l00521"></a><span class="lineno">  521</span>&#160;        </div><div class="line"><a name="l00522"></a><span class="lineno">  522</span>&#160;        <a class="code" href="../../d0/d75/_func_def_8h.html#a26a18460ba7bc9d4e9ace81fda1819ee">cell</a>[ln].<a class="code" href="../../d9/db2/structelement.html#ab6062a713eca6e7458529ea45dea64d3">veloc_ind</a>[0]=0;</div><div class="line"><a name="l00523"></a><span class="lineno">  523</span>&#160;        <a class="code" href="../../d0/d75/_func_def_8h.html#a26a18460ba7bc9d4e9ace81fda1819ee">cell</a>[ln].<a class="code" href="../../d9/db2/structelement.html#ab6062a713eca6e7458529ea45dea64d3">veloc_ind</a>[1]=0;</div><div class="line"><a name="l00524"></a><span class="lineno">  524</span>&#160;        <a class="code" href="../../d0/d75/_func_def_8h.html#a26a18460ba7bc9d4e9ace81fda1819ee">cell</a>[ln].<a class="code" href="../../d9/db2/structelement.html#ab6062a713eca6e7458529ea45dea64d3">veloc_ind</a>[2]=0;</div><div class="line"><a name="l00525"></a><span class="lineno">  525</span>&#160;        </div><div class="line"><a name="l00526"></a><span class="lineno">  526</span>&#160;        <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a9730ad314b17991a43fca06a97274ff1">AdjacentCells</a>(ln, <a class="code" href="../../d0/d75/_func_def_8h.html#a26a18460ba7bc9d4e9ace81fda1819ee">cell</a>[ln].node_ind[0],<a class="code" href="../../d0/d75/_func_def_8h.html#a26a18460ba7bc9d4e9ace81fda1819ee">cell</a>[ln].node_ind[1],<a class="code" href="../../d0/d75/_func_def_8h.html#a26a18460ba7bc9d4e9ace81fda1819ee">cell</a>[ln].node_ind[2]);</div><div class="line"><a name="l00527"></a><span class="lineno">  527</span>&#160;        <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a9730ad314b17991a43fca06a97274ff1">AdjacentCells</a>(ln, <a class="code" href="../../d0/d75/_func_def_8h.html#a26a18460ba7bc9d4e9ace81fda1819ee">cell</a>[ln].node_ind[1],<a class="code" href="../../d0/d75/_func_def_8h.html#a26a18460ba7bc9d4e9ace81fda1819ee">cell</a>[ln].node_ind[2],<a class="code" href="../../d0/d75/_func_def_8h.html#a26a18460ba7bc9d4e9ace81fda1819ee">cell</a>[ln].node_ind[0]);</div><div class="line"><a name="l00528"></a><span class="lineno">  528</span>&#160;        <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a9730ad314b17991a43fca06a97274ff1">AdjacentCells</a>(ln, <a class="code" href="../../d0/d75/_func_def_8h.html#a26a18460ba7bc9d4e9ace81fda1819ee">cell</a>[ln].node_ind[2],<a class="code" href="../../d0/d75/_func_def_8h.html#a26a18460ba7bc9d4e9ace81fda1819ee">cell</a>[ln].node_ind[0],<a class="code" href="../../d0/d75/_func_def_8h.html#a26a18460ba7bc9d4e9ace81fda1819ee">cell</a>[ln].node_ind[1]);</div><div class="line"><a name="l00529"></a><span class="lineno">  529</span>&#160;        </div><div class="line"><a name="l00530"></a><span class="lineno">  530</span>&#160;        </div><div class="line"><a name="l00531"></a><span class="lineno">  531</span>&#160;    } <span class="comment">//loop on ln</span></div><div class="line"><a name="l00532"></a><span class="lineno">  532</span>&#160;    </div><div class="line"><a name="l00533"></a><span class="lineno">  533</span>&#160;    </div><div class="line"><a name="l00534"></a><span class="lineno">  534</span>&#160;    </div><div class="line"><a name="l00535"></a><span class="lineno">  535</span>&#160;    </div><div class="line"><a name="l00536"></a><span class="lineno">  536</span>&#160;    <span class="keywordflow">return</span>;</div><div class="line"><a name="l00537"></a><span class="lineno">  537</span>&#160;}</div><div class="line"><a name="l00539"></a><span class="lineno">  539</span>&#160;</div><div class="line"><a name="l00540"></a><span class="lineno"><a class="line" href="../../d8/d0d/_read_grid_init_8c.html#a9730ad314b17991a43fca06a97274ff1">  540</a></span>&#160;<span class="keywordtype">void</span> <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a9730ad314b17991a43fca06a97274ff1">AdjacentCells</a>(<span class="keywordtype">int</span>  ln, <span class="keywordtype">int</span> in, <span class="keywordtype">int</span>  jn, <span class="keywordtype">int</span>  kn)</div><div class="line"><a name="l00542"></a><span class="lineno">  542</span>&#160;{</div><div class="line"><a name="l00543"></a><span class="lineno">  543</span>&#160;    <span class="keywordtype">int</span> jj,kk;</div><div class="line"><a name="l00544"></a><span class="lineno">  544</span>&#160;    <span class="keywordflow">for</span>(jj=0; jj&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[in-1].<a class="code" href="../../db/d7c/structvertex.html#acf83b561551952403148f73fe032f57b">numneighb</a>; jj++)</div><div class="line"><a name="l00545"></a><span class="lineno">  545</span>&#160;    {</div><div class="line"><a name="l00546"></a><span class="lineno">  546</span>&#160;        <span class="keywordflow">if</span> (<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[in-1].indnodes[jj]==jn)</div><div class="line"><a name="l00547"></a><span class="lineno">  547</span>&#160;        {</div><div class="line"><a name="l00548"></a><span class="lineno">  548</span>&#160;            <span class="keywordflow">for</span> (kk=0; kk&lt;4; kk++)</div><div class="line"><a name="l00549"></a><span class="lineno">  549</span>&#160;            {</div><div class="line"><a name="l00550"></a><span class="lineno">  550</span>&#160;                <span class="keywordflow">if</span> (<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[in-1].cells[jj][kk]==0)</div><div class="line"><a name="l00551"></a><span class="lineno">  551</span>&#160;                {</div><div class="line"><a name="l00552"></a><span class="lineno">  552</span>&#160;                    <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[in-1].<a class="code" href="../../db/d7c/structvertex.html#a583032cadaa99e8f5c044d3bd10191cf">cells</a>[jj][kk]=ln+1;</div><div class="line"><a name="l00553"></a><span class="lineno">  553</span>&#160;                    <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[in-1].<a class="code" href="../../db/d7c/structvertex.html#adc1951216db706914f5963da2e58accc">fracts</a>[jj][kk]=<a class="code" href="../../d0/d75/_func_def_8h.html#a26a18460ba7bc9d4e9ace81fda1819ee">cell</a>[ln].<a class="code" href="../../d9/db2/structelement.html#af51b08146a1c495aadf45e7f085e1267">fracture</a>;</div><div class="line"><a name="l00554"></a><span class="lineno">  554</span>&#160;                    <span class="keywordflow">if</span> (<a class="code" href="../../d0/d75/_func_def_8h.html#a26a18460ba7bc9d4e9ace81fda1819ee">cell</a>[ln].<a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a> != <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[in-1].<a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>[0])</div><div class="line"><a name="l00555"></a><span class="lineno">  555</span>&#160;                        <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[in-1].<a class="code" href="../../db/d7c/structvertex.html#aa2cd06573422bc415cb8f38a67232de7">fracture</a>[1]=<a class="code" href="../../d0/d75/_func_def_8h.html#a26a18460ba7bc9d4e9ace81fda1819ee">cell</a>[ln].<a class="code" href="../../d9/db2/structelement.html#af51b08146a1c495aadf45e7f085e1267">fracture</a>;</div><div class="line"><a name="l00556"></a><span class="lineno">  556</span>&#160;                    <span class="keywordflow">break</span>;</div><div class="line"><a name="l00557"></a><span class="lineno">  557</span>&#160;                }</div><div class="line"><a name="l00558"></a><span class="lineno">  558</span>&#160;            }</div><div class="line"><a name="l00559"></a><span class="lineno">  559</span>&#160;        }</div><div class="line"><a name="l00560"></a><span class="lineno">  560</span>&#160;        </div><div class="line"><a name="l00561"></a><span class="lineno">  561</span>&#160;        <span class="keywordflow">if</span> (<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[in-1].indnodes[jj]==kn)</div><div class="line"><a name="l00562"></a><span class="lineno">  562</span>&#160;        {</div><div class="line"><a name="l00563"></a><span class="lineno">  563</span>&#160;            <span class="keywordflow">for</span> (kk=0; kk&lt;4; kk++)</div><div class="line"><a name="l00564"></a><span class="lineno">  564</span>&#160;            {</div><div class="line"><a name="l00565"></a><span class="lineno">  565</span>&#160;                <span class="keywordflow">if</span> (<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[in-1].cells[jj][kk]==0)</div><div class="line"><a name="l00566"></a><span class="lineno">  566</span>&#160;                {</div><div class="line"><a name="l00567"></a><span class="lineno">  567</span>&#160;                    <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[in-1].<a class="code" href="../../db/d7c/structvertex.html#a583032cadaa99e8f5c044d3bd10191cf">cells</a>[jj][kk]=ln+1;</div><div class="line"><a name="l00568"></a><span class="lineno">  568</span>&#160;                    <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[in-1].<a class="code" href="../../db/d7c/structvertex.html#adc1951216db706914f5963da2e58accc">fracts</a>[jj][kk]=<a class="code" href="../../d0/d75/_func_def_8h.html#a26a18460ba7bc9d4e9ace81fda1819ee">cell</a>[ln].<a class="code" href="../../d9/db2/structelement.html#af51b08146a1c495aadf45e7f085e1267">fracture</a>;</div><div class="line"><a name="l00569"></a><span class="lineno">  569</span>&#160;                    <span class="keywordflow">if</span> (<a class="code" href="../../d0/d75/_func_def_8h.html#a26a18460ba7bc9d4e9ace81fda1819ee">cell</a>[ln].<a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a> != <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[in-1].<a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>[0])</div><div class="line"><a name="l00570"></a><span class="lineno">  570</span>&#160;                        <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[in-1].<a class="code" href="../../db/d7c/structvertex.html#aa2cd06573422bc415cb8f38a67232de7">fracture</a>[1]=<a class="code" href="../../d0/d75/_func_def_8h.html#a26a18460ba7bc9d4e9ace81fda1819ee">cell</a>[ln].<a class="code" href="../../d9/db2/structelement.html#af51b08146a1c495aadf45e7f085e1267">fracture</a>;</div><div class="line"><a name="l00571"></a><span class="lineno">  571</span>&#160;                    <span class="keywordflow">break</span>;</div><div class="line"><a name="l00572"></a><span class="lineno">  572</span>&#160;                }</div><div class="line"><a name="l00573"></a><span class="lineno">  573</span>&#160;            }</div><div class="line"><a name="l00574"></a><span class="lineno">  574</span>&#160;        }</div><div class="line"><a name="l00575"></a><span class="lineno">  575</span>&#160;    } <span class="comment">//loop on jj</span></div><div class="line"><a name="l00576"></a><span class="lineno">  576</span>&#160;    </div><div class="line"><a name="l00577"></a><span class="lineno">  577</span>&#160;    <span class="keywordflow">return</span>;</div><div class="line"><a name="l00578"></a><span class="lineno">  578</span>&#160;}</div><div class="line"><a name="l00580"></a><span class="lineno">  580</span>&#160;</div><div class="line"><a name="l00581"></a><span class="lineno"><a class="line" href="../../d8/d0d/_read_grid_init_8c.html#adf46a0a89792c3085aa47f07957c6955">  581</a></span>&#160;<span class="keywordtype">void</span> <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#adf46a0a89792c3085aa47f07957c6955">ReadBoundaryNodes</a>()</div><div class="line"><a name="l00583"></a><span class="lineno">  583</span>&#160;{</div><div class="line"><a name="l00584"></a><span class="lineno">  584</span>&#160;    <span class="keyword">struct </span><a class="code" href="../../d9/d26/structinpfile.html">inpfile</a> inputfile;</div><div class="line"><a name="l00585"></a><span class="lineno">  585</span>&#160;    </div><div class="line"><a name="l00586"></a><span class="lineno">  586</span>&#160;    inputfile = <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a2afbea1a5d0b14d8a098f551fe055420">Control_File</a>(<span class="stringliteral">&quot;boundary:&quot;</span>,9 );</div><div class="line"><a name="l00587"></a><span class="lineno">  587</span>&#160;    </div><div class="line"><a name="l00588"></a><span class="lineno">  588</span>&#160;    printf(<span class="stringliteral">&quot;\n OPEN AND READ FILE: %s \n &quot;</span>, inputfile.filename);</div><div class="line"><a name="l00589"></a><span class="lineno">  589</span>&#160;    printf(<span class="stringliteral">&quot;\n Read the number and indices of nodes defined in flow in and flow out zones  \n&quot;</span>);</div><div class="line"><a name="l00590"></a><span class="lineno">  590</span>&#160;    </div><div class="line"><a name="l00591"></a><span class="lineno">  591</span>&#160;    FILE *fpc = <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a205add90a27292ac5f18188fa35bcdf5">OpenFile</a> (inputfile.filename,<span class="stringliteral">&quot;r&quot;</span>);</div><div class="line"><a name="l00592"></a><span class="lineno">  592</span>&#160;    </div><div class="line"><a name="l00593"></a><span class="lineno">  593</span>&#160;    <span class="keywordtype">int</span> zonenumb_in=0, zonenumb_out=0;</div><div class="line"><a name="l00594"></a><span class="lineno">  594</span>&#160;    <span class="comment">/* input from control.dat file */</span></div><div class="line"><a name="l00595"></a><span class="lineno">  595</span>&#160;    inputfile = <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a9bb4185d1b46d02dc42d5889e4d70ebf">Control_Data</a>(<span class="stringliteral">&quot;in-flow-boundary:&quot;</span>,17 );</div><div class="line"><a name="l00596"></a><span class="lineno">  596</span>&#160;    zonenumb_in=inputfile.flag;</div><div class="line"><a name="l00597"></a><span class="lineno">  597</span>&#160;    inputfile = <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a9bb4185d1b46d02dc42d5889e4d70ebf">Control_Data</a>(<span class="stringliteral">&quot;out-flow-boundary:&quot;</span>,18 );</div><div class="line"><a name="l00598"></a><span class="lineno">  598</span>&#160;    zonenumb_out=inputfile.flag;</div><div class="line"><a name="l00599"></a><span class="lineno">  599</span>&#160;    </div><div class="line"><a name="l00600"></a><span class="lineno">  600</span>&#160;    <span class="keywordtype">char</span> <a class="code" href="../../d9/d26/structinpfile.html#a66e8759aa38ee20350f04cdc58dee702">filename</a>[125];</div><div class="line"><a name="l00601"></a><span class="lineno">  601</span>&#160;    <span class="keywordtype">char</span>  line[10]={0};</div><div class="line"><a name="l00602"></a><span class="lineno">  602</span>&#160;    <span class="keywordtype">int</span>  nzone_out, i,  fn, nn, res, nf, flag1=0, flag2=0;</div><div class="line"><a name="l00603"></a><span class="lineno">  603</span>&#160;    <span class="keywordflow">if</span> (fscanf(fpc, <span class="stringliteral">&quot;%s \n&quot;</span>, line)!=1)</div><div class="line"><a name="l00604"></a><span class="lineno">  604</span>&#160;        i=i;</div><div class="line"><a name="l00605"></a><span class="lineno">  605</span>&#160;    <span class="keywordflow">do</span></div><div class="line"><a name="l00606"></a><span class="lineno">  606</span>&#160;    {</div><div class="line"><a name="l00607"></a><span class="lineno">  607</span>&#160;        fn=0;</div><div class="line"><a name="l00608"></a><span class="lineno">  608</span>&#160;        <span class="keywordflow">if</span> (fscanf(fpc,<span class="stringliteral">&quot; %d  %s \n&quot;</span>, &amp;fn, line)!=2)</div><div class="line"><a name="l00609"></a><span class="lineno">  609</span>&#160;            fn=fn;</div><div class="line"><a name="l00610"></a><span class="lineno">  610</span>&#160;        </div><div class="line"><a name="l00611"></a><span class="lineno">  611</span>&#160;        </div><div class="line"><a name="l00612"></a><span class="lineno">  612</span>&#160;        <span class="keywordflow">if</span>  (fn==zonenumb_in)</div><div class="line"><a name="l00613"></a><span class="lineno">  613</span>&#160;            </div><div class="line"><a name="l00614"></a><span class="lineno">  614</span>&#160;        {</div><div class="line"><a name="l00615"></a><span class="lineno">  615</span>&#160;            flag1=1;</div><div class="line"><a name="l00616"></a><span class="lineno">  616</span>&#160;            <span class="keywordflow">if</span> (fscanf(fpc, <span class="stringliteral">&quot; %s \n &quot;</span>, line)!=1)</div><div class="line"><a name="l00617"></a><span class="lineno">  617</span>&#160;                flag1=flag1;</div><div class="line"><a name="l00618"></a><span class="lineno">  618</span>&#160;            </div><div class="line"><a name="l00619"></a><span class="lineno">  619</span>&#160;            <span class="keywordflow">if</span> (fscanf(fpc, <span class="stringliteral">&quot; %d&quot;</span>, &amp;<a class="code" href="../../d0/d75/_func_def_8h.html#a6d971fbeb47db134f84ff99053b7c47d">nzone_in</a>)!=1)</div><div class="line"><a name="l00620"></a><span class="lineno">  620</span>&#160;                <a class="code" href="../../d0/d75/_func_def_8h.html#a6d971fbeb47db134f84ff99053b7c47d">nzone_in</a>=<a class="code" href="../../d0/d75/_func_def_8h.html#a6d971fbeb47db134f84ff99053b7c47d">nzone_in</a>;</div><div class="line"><a name="l00621"></a><span class="lineno">  621</span>&#160;            <span class="comment">/***** memory allocation for nodezone_in nodes ******/</span></div><div class="line"><a name="l00622"></a><span class="lineno">  622</span>&#160;            <a class="code" href="../../d0/d75/_func_def_8h.html#ae04e94bac8fc762dd97706043f25eaa4">nodezonein</a>=(<span class="keywordtype">unsigned</span> <span class="keywordtype">int</span>*) malloc (<a class="code" href="../../d0/d75/_func_def_8h.html#a6d971fbeb47db134f84ff99053b7c47d">nzone_in</a>*<span class="keyword">sizeof</span>(<span class="keywordtype">unsigned</span> <span class="keywordtype">int</span>));</div><div class="line"><a name="l00623"></a><span class="lineno">  623</span>&#160;            </div><div class="line"><a name="l00624"></a><span class="lineno">  624</span>&#160;            <span class="keywordflow">for</span> (i=0; i&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#a6d971fbeb47db134f84ff99053b7c47d">nzone_in</a>; i++)</div><div class="line"><a name="l00625"></a><span class="lineno">  625</span>&#160;            {</div><div class="line"><a name="l00626"></a><span class="lineno">  626</span>&#160;                <span class="keywordflow">if</span> (fscanf(fpc,<span class="stringliteral">&quot; %d &quot;</span>, &amp;nf)!=1)</div><div class="line"><a name="l00627"></a><span class="lineno">  627</span>&#160;                    i=i;</div><div class="line"><a name="l00628"></a><span class="lineno">  628</span>&#160;                <a class="code" href="../../d0/d75/_func_def_8h.html#ae04e94bac8fc762dd97706043f25eaa4">nodezonein</a>[i]=nf;</div><div class="line"><a name="l00629"></a><span class="lineno">  629</span>&#160;                </div><div class="line"><a name="l00630"></a><span class="lineno">  630</span>&#160;                <span class="keywordflow">if</span>(<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[<a class="code" href="../../d0/d75/_func_def_8h.html#ae04e94bac8fc762dd97706043f25eaa4">nodezonein</a>[i]-1].typeN&lt;300)</div><div class="line"><a name="l00631"></a><span class="lineno">  631</span>&#160;                    <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[<a class="code" href="../../d0/d75/_func_def_8h.html#ae04e94bac8fc762dd97706043f25eaa4">nodezonein</a>[i]-1].<a class="code" href="../../db/d7c/structvertex.html#aa8c5c50393696a507d20dda8ec69fd51">typeN</a>=<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[<a class="code" href="../../d0/d75/_func_def_8h.html#ae04e94bac8fc762dd97706043f25eaa4">nodezonein</a>[i]-1].<a class="code" href="../../db/d7c/structvertex.html#aa8c5c50393696a507d20dda8ec69fd51">typeN</a>+300;</div><div class="line"><a name="l00632"></a><span class="lineno">  632</span>&#160;            }</div><div class="line"><a name="l00633"></a><span class="lineno">  633</span>&#160;        }</div><div class="line"><a name="l00634"></a><span class="lineno">  634</span>&#160;        <span class="keywordflow">else</span></div><div class="line"><a name="l00635"></a><span class="lineno">  635</span>&#160;        {</div><div class="line"><a name="l00636"></a><span class="lineno">  636</span>&#160;            </div><div class="line"><a name="l00637"></a><span class="lineno">  637</span>&#160;            <span class="keywordflow">if</span> (fn==zonenumb_out)</div><div class="line"><a name="l00638"></a><span class="lineno">  638</span>&#160;                </div><div class="line"><a name="l00639"></a><span class="lineno">  639</span>&#160;            {</div><div class="line"><a name="l00640"></a><span class="lineno">  640</span>&#160;                flag2=1;</div><div class="line"><a name="l00641"></a><span class="lineno">  641</span>&#160;                <span class="keywordflow">if</span> (fscanf(fpc, <span class="stringliteral">&quot; %s &quot;</span>, line)!=1)</div><div class="line"><a name="l00642"></a><span class="lineno">  642</span>&#160;                    fn=fn;</div><div class="line"><a name="l00643"></a><span class="lineno">  643</span>&#160;                <span class="keywordflow">if</span> (fscanf(fpc, <span class="stringliteral">&quot; %d&quot;</span>,&amp;nzone_out)!=1)</div><div class="line"><a name="l00644"></a><span class="lineno">  644</span>&#160;                    nzone_out=nzone_out;</div><div class="line"><a name="l00645"></a><span class="lineno">  645</span>&#160;                <span class="comment">/***** memory allocation for nodezoneout nodes ******/</span></div><div class="line"><a name="l00646"></a><span class="lineno">  646</span>&#160;                <a class="code" href="../../d0/d75/_func_def_8h.html#a8e227a7bdba87548413eeac3daae26a6">nodezoneout</a>=(<span class="keywordtype">unsigned</span> <span class="keywordtype">int</span>*) malloc (nzone_out*<span class="keyword">sizeof</span>(<span class="keywordtype">unsigned</span> <span class="keywordtype">int</span>));</div><div class="line"><a name="l00647"></a><span class="lineno">  647</span>&#160;                </div><div class="line"><a name="l00648"></a><span class="lineno">  648</span>&#160;                <span class="keywordflow">for</span> (i=0; i&lt;nzone_out; i++)</div><div class="line"><a name="l00649"></a><span class="lineno">  649</span>&#160;                {</div><div class="line"><a name="l00650"></a><span class="lineno">  650</span>&#160;                    <span class="keywordflow">if</span> (fscanf(fpc,<span class="stringliteral">&quot; %d &quot;</span>, &amp;nf)!=1)</div><div class="line"><a name="l00651"></a><span class="lineno">  651</span>&#160;                        nf=nf;</div><div class="line"><a name="l00652"></a><span class="lineno">  652</span>&#160;                    <a class="code" href="../../d0/d75/_func_def_8h.html#a8e227a7bdba87548413eeac3daae26a6">nodezoneout</a>[i]=nf;</div><div class="line"><a name="l00653"></a><span class="lineno">  653</span>&#160;                    <span class="keywordflow">if</span>(<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[<a class="code" href="../../d0/d75/_func_def_8h.html#a8e227a7bdba87548413eeac3daae26a6">nodezoneout</a>[i]-1].typeN&lt;200)</div><div class="line"><a name="l00654"></a><span class="lineno">  654</span>&#160;                        <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[<a class="code" href="../../d0/d75/_func_def_8h.html#a8e227a7bdba87548413eeac3daae26a6">nodezoneout</a>[i]-1].<a class="code" href="../../db/d7c/structvertex.html#aa8c5c50393696a507d20dda8ec69fd51">typeN</a>=<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[<a class="code" href="../../d0/d75/_func_def_8h.html#a8e227a7bdba87548413eeac3daae26a6">nodezoneout</a>[i]-1].<a class="code" href="../../db/d7c/structvertex.html#aa8c5c50393696a507d20dda8ec69fd51">typeN</a>+200;</div><div class="line"><a name="l00655"></a><span class="lineno">  655</span>&#160;                }</div><div class="line"><a name="l00656"></a><span class="lineno">  656</span>&#160;            }</div><div class="line"><a name="l00657"></a><span class="lineno">  657</span>&#160;            <span class="keywordflow">else</span></div><div class="line"><a name="l00658"></a><span class="lineno">  658</span>&#160;            {</div><div class="line"><a name="l00659"></a><span class="lineno">  659</span>&#160;                <span class="keywordflow">if</span> (fscanf(fpc, <span class="stringliteral">&quot; %s  &quot;</span>, line)!=1)</div><div class="line"><a name="l00660"></a><span class="lineno">  660</span>&#160;                    nn=nn;</div><div class="line"><a name="l00661"></a><span class="lineno">  661</span>&#160;                </div><div class="line"><a name="l00662"></a><span class="lineno">  662</span>&#160;                <span class="keywordflow">if</span> (fscanf(fpc, <span class="stringliteral">&quot; %d &quot;</span>, &amp;nn)!=1)</div><div class="line"><a name="l00663"></a><span class="lineno">  663</span>&#160;                    nn=nn;</div><div class="line"><a name="l00664"></a><span class="lineno">  664</span>&#160;                </div><div class="line"><a name="l00665"></a><span class="lineno">  665</span>&#160;                <span class="keywordflow">for</span> (i=0; i&lt;nn; i++)</div><div class="line"><a name="l00666"></a><span class="lineno">  666</span>&#160;                {</div><div class="line"><a name="l00667"></a><span class="lineno">  667</span>&#160;                    <span class="keywordflow">if</span> (fscanf(fpc,<span class="stringliteral">&quot; %d &quot;</span>, &amp;nf)!=1)</div><div class="line"><a name="l00668"></a><span class="lineno">  668</span>&#160;                        nf=nf;</div><div class="line"><a name="l00669"></a><span class="lineno">  669</span>&#160;                }</div><div class="line"><a name="l00670"></a><span class="lineno">  670</span>&#160;            }</div><div class="line"><a name="l00671"></a><span class="lineno">  671</span>&#160;        }</div><div class="line"><a name="l00672"></a><span class="lineno">  672</span>&#160;    }</div><div class="line"><a name="l00673"></a><span class="lineno">  673</span>&#160;    <span class="keywordflow">while</span> ((res=strncmp(line,<span class="stringliteral">&quot;stop&quot;</span>, 4)));</div><div class="line"><a name="l00674"></a><span class="lineno">  674</span>&#160;    </div><div class="line"><a name="l00675"></a><span class="lineno">  675</span>&#160;    <span class="keywordflow">if</span> ((flag1=0) || (flag2=0))</div><div class="line"><a name="l00676"></a><span class="lineno">  676</span>&#160;    {</div><div class="line"><a name="l00677"></a><span class="lineno">  677</span>&#160;        printf(<span class="stringliteral">&quot;Please check zones in boundary zone file.\n&quot;</span>);</div><div class="line"><a name="l00678"></a><span class="lineno">  678</span>&#160;        exit(1);</div><div class="line"><a name="l00679"></a><span class="lineno">  679</span>&#160;    }</div><div class="line"><a name="l00680"></a><span class="lineno">  680</span>&#160;    </div><div class="line"><a name="l00681"></a><span class="lineno">  681</span>&#160;    printf(<span class="stringliteral">&quot;\n Number of nodes %d in flow-in zone.  \n&quot;</span>, <a class="code" href="../../d0/d75/_func_def_8h.html#a6d971fbeb47db134f84ff99053b7c47d">nzone_in</a>);</div><div class="line"><a name="l00682"></a><span class="lineno">  682</span>&#160;    printf(<span class="stringliteral">&quot;\n Number of nodes %d in flow-out  zone.  \n&quot;</span>, nzone_out);</div><div class="line"><a name="l00683"></a><span class="lineno">  683</span>&#160;    </div><div class="line"><a name="l00684"></a><span class="lineno">  684</span>&#160;    fclose(fpc);</div><div class="line"><a name="l00685"></a><span class="lineno">  685</span>&#160;    </div><div class="line"><a name="l00686"></a><span class="lineno">  686</span>&#160;    <span class="comment">/*** calculate the sum of mass fluxes on in-flow boundary and on out-flow boundary</span></div><div class="line"><a name="l00687"></a><span class="lineno">  687</span>&#160;<span class="comment">     ***/</span></div><div class="line"><a name="l00688"></a><span class="lineno">  688</span>&#160;    </div><div class="line"><a name="l00689"></a><span class="lineno">  689</span>&#160;    <span class="keywordtype">unsigned</span> <span class="keywordtype">int</span> j;</div><div class="line"><a name="l00690"></a><span class="lineno">  690</span>&#160;    <span class="keywordtype">double</span> sum_in=0,sum_out=0.0;</div><div class="line"><a name="l00691"></a><span class="lineno">  691</span>&#160;    </div><div class="line"><a name="l00692"></a><span class="lineno">  692</span>&#160;    <span class="keywordflow">for</span> (i=0; i&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#a6d971fbeb47db134f84ff99053b7c47d">nzone_in</a>; i++)</div><div class="line"><a name="l00693"></a><span class="lineno">  693</span>&#160;    {</div><div class="line"><a name="l00694"></a><span class="lineno">  694</span>&#160;        <span class="keywordflow">for</span> (j=0; j&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[<a class="code" href="../../d0/d75/_func_def_8h.html#ae04e94bac8fc762dd97706043f25eaa4">nodezonein</a>[i]-1].<a class="code" href="../../db/d7c/structvertex.html#acf83b561551952403148f73fe032f57b">numneighb</a>; j++)</div><div class="line"><a name="l00695"></a><span class="lineno">  695</span>&#160;        {</div><div class="line"><a name="l00696"></a><span class="lineno">  696</span>&#160;            sum_in=sum_in+<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[<a class="code" href="../../d0/d75/_func_def_8h.html#ae04e94bac8fc762dd97706043f25eaa4">nodezonein</a>[i]-1].<a class="code" href="../../db/d7c/structvertex.html#a9934ed428ad1db71c9aa1e601649791c">flux</a>[j];</div><div class="line"><a name="l00697"></a><span class="lineno">  697</span>&#160;        }</div><div class="line"><a name="l00698"></a><span class="lineno">  698</span>&#160;    }</div><div class="line"><a name="l00699"></a><span class="lineno">  699</span>&#160;    <a class="code" href="../../d0/d75/_func_def_8h.html#aa27b8bb0d1e8acff46eaadd07476ed04">totalFluxIn</a>=sum_in/<a class="code" href="../../d0/d75/_func_def_8h.html#a6f8c052f8417728038991f7f2826d38d">density</a>;</div><div class="line"><a name="l00700"></a><span class="lineno">  700</span>&#160;</div><div class="line"><a name="l00701"></a><span class="lineno">  701</span>&#160;    printf (<span class="stringliteral">&quot;Total in-flow volumetric flux = %12.5e [m^3/s] \n&quot;</span>, <a class="code" href="../../d0/d75/_func_def_8h.html#aa27b8bb0d1e8acff46eaadd07476ed04">totalFluxIn</a>);</div><div class="line"><a name="l00702"></a><span class="lineno">  702</span>&#160;    </div><div class="line"><a name="l00703"></a><span class="lineno">  703</span>&#160;    FILE *fluxin;</div><div class="line"><a name="l00704"></a><span class="lineno">  704</span>&#160;    sprintf(<a class="code" href="../../d9/d26/structinpfile.html#a66e8759aa38ee20350f04cdc58dee702">filename</a>,<span class="stringliteral">&quot;%s/inputflux_m3s&quot;</span>,<a class="code" href="../../d0/d75/_func_def_8h.html#a396d7f3e7653807b76887efe794f2eb7">maindir</a>);</div><div class="line"><a name="l00705"></a><span class="lineno">  705</span>&#160;    fluxin = <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a205add90a27292ac5f18188fa35bcdf5">OpenFile</a>(<a class="code" href="../../d9/d26/structinpfile.html#a66e8759aa38ee20350f04cdc58dee702">filename</a>,<span class="stringliteral">&quot;w&quot;</span>);</div><div class="line"><a name="l00706"></a><span class="lineno">  706</span>&#160;    fprintf(fluxin,<span class="stringliteral">&quot;%12.5e\n&quot;</span>,<a class="code" href="../../d0/d75/_func_def_8h.html#aa27b8bb0d1e8acff46eaadd07476ed04">totalFluxIn</a>);</div><div class="line"><a name="l00707"></a><span class="lineno">  707</span>&#160;    fclose(fluxin);</div><div class="line"><a name="l00708"></a><span class="lineno">  708</span>&#160;    </div><div class="line"><a name="l00709"></a><span class="lineno">  709</span>&#160;    <span class="keywordflow">for</span> (i=0; i&lt;nzone_out; i++)</div><div class="line"><a name="l00710"></a><span class="lineno">  710</span>&#160;    {</div><div class="line"><a name="l00711"></a><span class="lineno">  711</span>&#160;        <span class="keywordflow">for</span> (j=0; j&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[<a class="code" href="../../d0/d75/_func_def_8h.html#a8e227a7bdba87548413eeac3daae26a6">nodezoneout</a>[i]-1].<a class="code" href="../../db/d7c/structvertex.html#acf83b561551952403148f73fe032f57b">numneighb</a>; j++)</div><div class="line"><a name="l00712"></a><span class="lineno">  712</span>&#160;        {</div><div class="line"><a name="l00713"></a><span class="lineno">  713</span>&#160;            sum_out=sum_out+<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[<a class="code" href="../../d0/d75/_func_def_8h.html#a8e227a7bdba87548413eeac3daae26a6">nodezoneout</a>[i]-1].<a class="code" href="../../db/d7c/structvertex.html#a9934ed428ad1db71c9aa1e601649791c">flux</a>[j];</div><div class="line"><a name="l00714"></a><span class="lineno">  714</span>&#160;        }</div><div class="line"><a name="l00715"></a><span class="lineno">  715</span>&#160;    }</div><div class="line"><a name="l00716"></a><span class="lineno">  716</span>&#160;    sum_out=sum_out/<a class="code" href="../../d0/d75/_func_def_8h.html#a6f8c052f8417728038991f7f2826d38d">density</a>;</div><div class="line"><a name="l00717"></a><span class="lineno">  717</span>&#160;    </div><div class="line"><a name="l00718"></a><span class="lineno">  718</span>&#160;</div><div class="line"><a name="l00719"></a><span class="lineno">  719</span>&#160;    printf (<span class="stringliteral">&quot;Total out-flow volumetric flux = %12.5e [m^3/s]\n&quot;</span>, sum_out);</div><div class="line"><a name="l00720"></a><span class="lineno">  720</span>&#160;    </div><div class="line"><a name="l00721"></a><span class="lineno">  721</span>&#160;    </div><div class="line"><a name="l00722"></a><span class="lineno">  722</span>&#160;    <span class="comment">/***************************/</span></div><div class="line"><a name="l00723"></a><span class="lineno">  723</span>&#160;    </div><div class="line"><a name="l00724"></a><span class="lineno">  724</span>&#160;    <span class="keywordflow">return</span>;</div><div class="line"><a name="l00725"></a><span class="lineno">  725</span>&#160;}</div><div class="line"><a name="l00727"></a><span class="lineno">  727</span>&#160;</div><div class="line"><a name="l00728"></a><span class="lineno"><a class="line" href="../../d8/d0d/_read_grid_init_8c.html#a205add90a27292ac5f18188fa35bcdf5">  728</a></span>&#160;FILE *<a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a205add90a27292ac5f18188fa35bcdf5">OpenFile</a>(<span class="keywordtype">char</span> filen[120], <span class="keywordtype">char</span> fileopt[2])</div><div class="line"><a name="l00730"></a><span class="lineno">  730</span>&#160;{</div><div class="line"><a name="l00731"></a><span class="lineno">  731</span>&#160;    FILE* filepointer;</div><div class="line"><a name="l00732"></a><span class="lineno">  732</span>&#160;    </div><div class="line"><a name="l00733"></a><span class="lineno">  733</span>&#160;    <span class="keywordflow">if</span> ((filepointer = fopen (filen,fileopt)) == NULL)</div><div class="line"><a name="l00734"></a><span class="lineno">  734</span>&#160;    {</div><div class="line"><a name="l00735"></a><span class="lineno">  735</span>&#160;        printf (<span class="stringliteral">&quot;File %s could not be opened. Program is terminated. \n&quot;</span>, filen);</div><div class="line"><a name="l00736"></a><span class="lineno">  736</span>&#160;        exit(1);</div><div class="line"><a name="l00737"></a><span class="lineno">  737</span>&#160;    }</div><div class="line"><a name="l00738"></a><span class="lineno">  738</span>&#160;    </div><div class="line"><a name="l00739"></a><span class="lineno">  739</span>&#160;    <span class="keywordflow">return</span> filepointer;</div><div class="line"><a name="l00740"></a><span class="lineno">  740</span>&#160;}</div><div class="line"><a name="l00742"></a><span class="lineno"><a class="line" href="../../d8/d0d/_read_grid_init_8c.html#a335450331ee81be8a4f3dfda40186f5b">  742</a></span>&#160;<span class="keywordtype">void</span> <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a335450331ee81be8a4f3dfda40186f5b">ReadPFLOTRANfile</a>(<span class="keywordtype">int</span> nedges)</div><div class="line"><a name="l00744"></a><span class="lineno">  744</span>&#160;{</div><div class="line"><a name="l00745"></a><span class="lineno">  745</span>&#160;    </div><div class="line"><a name="l00746"></a><span class="lineno">  746</span>&#160;    <span class="keyword">struct </span><a class="code" href="../../d9/d26/structinpfile.html">inpfile</a> inputfile;</div><div class="line"><a name="l00747"></a><span class="lineno">  747</span>&#160;    <span class="keywordtype">int</span> n1=0, n2=0,i,n_flux,j,k, res1;</div><div class="line"><a name="l00748"></a><span class="lineno">  748</span>&#160;    <span class="keywordtype">char</span> wordc[60];</div><div class="line"><a name="l00749"></a><span class="lineno">  749</span>&#160;    <span class="keywordtype">int</span> n_area;</div><div class="line"><a name="l00750"></a><span class="lineno">  750</span>&#160;    <span class="keywordtype">double</span> floatnumber, areavalue;</div><div class="line"><a name="l00751"></a><span class="lineno">  751</span>&#160;    <span class="keywordtype">double</span> length;</div><div class="line"><a name="l00752"></a><span class="lineno">  752</span>&#160;    <a class="code" href="../../d0/d75/_func_def_8h.html#a6f8c052f8417728038991f7f2826d38d">density</a>=1.0;</div><div class="line"><a name="l00753"></a><span class="lineno">  753</span>&#160;    </div><div class="line"><a name="l00754"></a><span class="lineno">  754</span>&#160;    </div><div class="line"><a name="l00755"></a><span class="lineno">  755</span>&#160;    </div><div class="line"><a name="l00756"></a><span class="lineno">  756</span>&#160;    inputfile = <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a2afbea1a5d0b14d8a098f551fe055420">Control_File</a>(<span class="stringliteral">&quot;PFLOTRAN_vel:&quot;</span>,13 );</div><div class="line"><a name="l00757"></a><span class="lineno">  757</span>&#160;    </div><div class="line"><a name="l00758"></a><span class="lineno">  758</span>&#160;    FILE *pf= <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a205add90a27292ac5f18188fa35bcdf5">OpenFile</a> (inputfile.<a class="code" href="../../d9/d26/structinpfile.html#a66e8759aa38ee20350f04cdc58dee702">filename</a>,<span class="stringliteral">&quot;r&quot;</span>);</div><div class="line"><a name="l00759"></a><span class="lineno">  759</span>&#160;    </div><div class="line"><a name="l00760"></a><span class="lineno">  760</span>&#160;    printf(<span class="stringliteral">&quot;\n PFLOTRAN: OPEN AND READ FILE: %s \n \n&quot;</span>, inputfile.<a class="code" href="../../d9/d26/structinpfile.html#a66e8759aa38ee20350f04cdc58dee702">filename</a>);</div><div class="line"><a name="l00761"></a><span class="lineno">  761</span>&#160;    </div><div class="line"><a name="l00762"></a><span class="lineno">  762</span>&#160;    <span class="comment">// reading fluxes</span></div><div class="line"><a name="l00763"></a><span class="lineno">  763</span>&#160;    <span class="keywordtype">double</span> l_flux=0.0;</div><div class="line"><a name="l00764"></a><span class="lineno">  764</span>&#160;    <span class="keywordtype">double</span> l_dens=0.0;</div><div class="line"><a name="l00765"></a><span class="lineno">  765</span>&#160;    <span class="keywordtype">double</span> l_area=0.0;</div><div class="line"><a name="l00766"></a><span class="lineno">  766</span>&#160;    <span class="keywordtype">char</span> cs, csp;</div><div class="line"><a name="l00767"></a><span class="lineno">  767</span>&#160;    n1=0;</div><div class="line"><a name="l00768"></a><span class="lineno">  768</span>&#160;    n2=0;</div><div class="line"><a name="l00769"></a><span class="lineno">  769</span>&#160;    <span class="keywordtype">int</span> <a class="code" href="../../d9/d26/structinpfile.html#a23ae60bf94767194de9a09a4eee8cc1d">flag</a>=0;</div><div class="line"><a name="l00770"></a><span class="lineno">  770</span>&#160;    n_flux=(nedges-<a class="code" href="../../d0/d75/_func_def_8h.html#a0049b706bb5b3980868a5b1e1b3fac0c">nnodes</a>)/2.;</div><div class="line"><a name="l00771"></a><span class="lineno">  771</span>&#160;    </div><div class="line"><a name="l00772"></a><span class="lineno">  772</span>&#160;    <span class="comment">// check the darcyvel file format;</span></div><div class="line"><a name="l00773"></a><span class="lineno">  773</span>&#160;    csp=<span class="charliteral">&#39; &#39;</span>;</div><div class="line"><a name="l00774"></a><span class="lineno">  774</span>&#160;    </div><div class="line"><a name="l00775"></a><span class="lineno">  775</span>&#160;    </div><div class="line"><a name="l00776"></a><span class="lineno">  776</span>&#160;    <span class="keywordflow">do</span></div><div class="line"><a name="l00777"></a><span class="lineno">  777</span>&#160;    {</div><div class="line"><a name="l00778"></a><span class="lineno">  778</span>&#160;        cs=fgetc(pf);</div><div class="line"><a name="l00779"></a><span class="lineno">  779</span>&#160;        <span class="keywordflow">if</span> ((cs!=<span class="charliteral">&#39; &#39;</span>) &amp;&amp; (csp==<span class="charliteral">&#39; &#39;</span>))</div><div class="line"><a name="l00780"></a><span class="lineno">  780</span>&#160;            n2++;</div><div class="line"><a name="l00781"></a><span class="lineno">  781</span>&#160;        csp=cs;</div><div class="line"><a name="l00782"></a><span class="lineno">  782</span>&#160;    }</div><div class="line"><a name="l00783"></a><span class="lineno">  783</span>&#160;    <span class="keywordflow">while</span> (cs!=<span class="charliteral">&#39;\n&#39;</span>);</div><div class="line"><a name="l00784"></a><span class="lineno">  784</span>&#160;    </div><div class="line"><a name="l00785"></a><span class="lineno">  785</span>&#160;    <span class="keywordflow">if</span> (n2&gt;5)</div><div class="line"><a name="l00786"></a><span class="lineno">  786</span>&#160;        <a class="code" href="../../d9/d26/structinpfile.html#a23ae60bf94767194de9a09a4eee8cc1d">flag</a>=1;</div><div class="line"><a name="l00787"></a><span class="lineno">  787</span>&#160;    <span class="comment">// if the old darcy velocity format is used, the uge file is read for area coefficients</span></div><div class="line"><a name="l00788"></a><span class="lineno">  788</span>&#160;    </div><div class="line"><a name="l00789"></a><span class="lineno">  789</span>&#160;    <span class="keywordflow">if</span> (<a class="code" href="../../d9/d26/structinpfile.html#a23ae60bf94767194de9a09a4eee8cc1d">flag</a>==0)</div><div class="line"><a name="l00790"></a><span class="lineno">  790</span>&#160;    {</div><div class="line"><a name="l00791"></a><span class="lineno">  791</span>&#160;        printf(<span class="stringliteral">&quot; THE VELOCITY FILE FORMAT IS INCORRECT \n&quot;</span>);</div><div class="line"><a name="l00792"></a><span class="lineno">  792</span>&#160;        exit(1);   </div><div class="line"><a name="l00793"></a><span class="lineno">  793</span>&#160;    }</div><div class="line"><a name="l00794"></a><span class="lineno">  794</span>&#160;    <span class="comment">/********************/</span></div><div class="line"><a name="l00795"></a><span class="lineno">  795</span>&#160;    </div><div class="line"><a name="l00796"></a><span class="lineno">  796</span>&#160;    n2=0;</div><div class="line"><a name="l00797"></a><span class="lineno">  797</span>&#160;    rewind(pf);</div><div class="line"><a name="l00798"></a><span class="lineno">  798</span>&#160;    </div><div class="line"><a name="l00799"></a><span class="lineno">  799</span>&#160;    <span class="keywordflow">for</span> (i=0; i&lt;n_flux; i++)</div><div class="line"><a name="l00800"></a><span class="lineno">  800</span>&#160;    {</div><div class="line"><a name="l00801"></a><span class="lineno">  801</span>&#160;        <span class="keywordflow">if</span> (<a class="code" href="../../d9/d26/structinpfile.html#a23ae60bf94767194de9a09a4eee8cc1d">flag</a>==0)</div><div class="line"><a name="l00802"></a><span class="lineno">  802</span>&#160;        {</div><div class="line"><a name="l00803"></a><span class="lineno">  803</span>&#160;            <span class="keywordflow">if</span> (fscanf(pf,<span class="stringliteral">&quot; %d  %d  %lf %lf  &quot;</span>, &amp;n1, &amp;n2, &amp;l_flux, &amp;l_dens)!=4)</div><div class="line"><a name="l00804"></a><span class="lineno">  804</span>&#160;                printf(<span class="stringliteral">&quot;Error&quot;</span>);</div><div class="line"><a name="l00805"></a><span class="lineno">  805</span>&#160;        }</div><div class="line"><a name="l00806"></a><span class="lineno">  806</span>&#160;        <span class="keywordflow">else</span></div><div class="line"><a name="l00807"></a><span class="lineno">  807</span>&#160;            </div><div class="line"><a name="l00808"></a><span class="lineno">  808</span>&#160;            <span class="keywordflow">if</span> (fscanf(pf,<span class="stringliteral">&quot; %d  %d  %lf %lf %lf  &quot;</span>, &amp;n1, &amp;n2, &amp;l_flux, &amp;l_dens, &amp;l_area)!=5)</div><div class="line"><a name="l00809"></a><span class="lineno">  809</span>&#160;                printf(<span class="stringliteral">&quot;Error&quot;</span>);</div><div class="line"><a name="l00810"></a><span class="lineno">  810</span>&#160;        </div><div class="line"><a name="l00811"></a><span class="lineno">  811</span>&#160;        </div><div class="line"><a name="l00812"></a><span class="lineno">  812</span>&#160;        <span class="keywordflow">for</span> (j=0; j&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[n1-1].<a class="code" href="../../db/d7c/structvertex.html#acf83b561551952403148f73fe032f57b">numneighb</a>; j++)</div><div class="line"><a name="l00813"></a><span class="lineno">  813</span>&#160;        {</div><div class="line"><a name="l00814"></a><span class="lineno">  814</span>&#160;            <span class="keywordflow">if</span> (<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[n1-1].indnodes[j]==n2)</div><div class="line"><a name="l00815"></a><span class="lineno">  815</span>&#160;            {</div><div class="line"><a name="l00816"></a><span class="lineno">  816</span>&#160;                </div><div class="line"><a name="l00817"></a><span class="lineno">  817</span>&#160;                <span class="keywordflow">if</span> (<a class="code" href="../../d9/d26/structinpfile.html#a23ae60bf94767194de9a09a4eee8cc1d">flag</a>!=0)</div><div class="line"><a name="l00818"></a><span class="lineno">  818</span>&#160;                    <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[n1-1].<a class="code" href="../../db/d7c/structvertex.html#aff6495cfbefb8dffd8714d7c68810ca6">area</a>[j]=l_area;</div><div class="line"><a name="l00819"></a><span class="lineno">  819</span>&#160;                </div><div class="line"><a name="l00820"></a><span class="lineno">  820</span>&#160;                </div><div class="line"><a name="l00821"></a><span class="lineno">  821</span>&#160;                <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[n1-1].<a class="code" href="../../db/d7c/structvertex.html#a9934ed428ad1db71c9aa1e601649791c">flux</a>[j]=l_flux*(<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[n1-1].<a class="code" href="../../db/d7c/structvertex.html#aff6495cfbefb8dffd8714d7c68810ca6">area</a>[j]);</div><div class="line"><a name="l00822"></a><span class="lineno">  822</span>&#160;                </div><div class="line"><a name="l00823"></a><span class="lineno">  823</span>&#160;                </div><div class="line"><a name="l00824"></a><span class="lineno">  824</span>&#160;                </div><div class="line"><a name="l00825"></a><span class="lineno">  825</span>&#160;                <span class="keywordflow">for</span> (k=0; k&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[n2-1].<a class="code" href="../../db/d7c/structvertex.html#acf83b561551952403148f73fe032f57b">numneighb</a>; k++)</div><div class="line"><a name="l00826"></a><span class="lineno">  826</span>&#160;                {</div><div class="line"><a name="l00827"></a><span class="lineno">  827</span>&#160;                    <span class="keywordflow">if</span> (<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[n2-1].indnodes[k]==n1)</div><div class="line"><a name="l00828"></a><span class="lineno">  828</span>&#160;                    {</div><div class="line"><a name="l00829"></a><span class="lineno">  829</span>&#160;                        </div><div class="line"><a name="l00830"></a><span class="lineno">  830</span>&#160;                        <span class="keywordflow">if</span> (<a class="code" href="../../d9/d26/structinpfile.html#a23ae60bf94767194de9a09a4eee8cc1d">flag</a>!=0)</div><div class="line"><a name="l00831"></a><span class="lineno">  831</span>&#160;                            <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[n2-1].<a class="code" href="../../db/d7c/structvertex.html#aff6495cfbefb8dffd8714d7c68810ca6">area</a>[k]=l_area;</div><div class="line"><a name="l00832"></a><span class="lineno">  832</span>&#160;                        <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[n2-1].<a class="code" href="../../db/d7c/structvertex.html#a9934ed428ad1db71c9aa1e601649791c">flux</a>[k]=l_flux*(-1.0)*<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[n2-1].<a class="code" href="../../db/d7c/structvertex.html#aff6495cfbefb8dffd8714d7c68810ca6">area</a>[k];</div><div class="line"><a name="l00833"></a><span class="lineno">  833</span>&#160;                        </div><div class="line"><a name="l00834"></a><span class="lineno">  834</span>&#160;                        </div><div class="line"><a name="l00835"></a><span class="lineno">  835</span>&#160;                        <span class="keywordflow">break</span>;</div><div class="line"><a name="l00836"></a><span class="lineno">  836</span>&#160;                    }</div><div class="line"><a name="l00837"></a><span class="lineno">  837</span>&#160;                }</div><div class="line"><a name="l00838"></a><span class="lineno">  838</span>&#160;                <span class="keywordflow">break</span>;</div><div class="line"><a name="l00839"></a><span class="lineno">  839</span>&#160;            }</div><div class="line"><a name="l00840"></a><span class="lineno">  840</span>&#160;        }</div><div class="line"><a name="l00841"></a><span class="lineno">  841</span>&#160;    }</div><div class="line"><a name="l00842"></a><span class="lineno">  842</span>&#160;    </div><div class="line"><a name="l00843"></a><span class="lineno">  843</span>&#160;    </div><div class="line"><a name="l00844"></a><span class="lineno">  844</span>&#160;    </div><div class="line"><a name="l00845"></a><span class="lineno">  845</span>&#160;    fclose(pf);</div><div class="line"><a name="l00846"></a><span class="lineno">  846</span>&#160;    </div><div class="line"><a name="l00847"></a><span class="lineno">  847</span>&#160;    inputfile = <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a2afbea1a5d0b14d8a098f551fe055420">Control_File</a>(<span class="stringliteral">&quot;PFLOTRAN_cell:&quot;</span>,14 );</div><div class="line"><a name="l00848"></a><span class="lineno">  848</span>&#160;    </div><div class="line"><a name="l00849"></a><span class="lineno">  849</span>&#160;    FILE *fp= <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a205add90a27292ac5f18188fa35bcdf5">OpenFile</a> (inputfile.<a class="code" href="../../d9/d26/structinpfile.html#a66e8759aa38ee20350f04cdc58dee702">filename</a>,<span class="stringliteral">&quot;r&quot;</span>);</div><div class="line"><a name="l00850"></a><span class="lineno">  850</span>&#160;    </div><div class="line"><a name="l00851"></a><span class="lineno">  851</span>&#160;    printf(<span class="stringliteral">&quot;\n PFLOTRAN: OPEN AND READ FILE: %s \n \n&quot;</span>, inputfile.<a class="code" href="../../d9/d26/structinpfile.html#a66e8759aa38ee20350f04cdc58dee702">filename</a>);</div><div class="line"><a name="l00852"></a><span class="lineno">  852</span>&#160;    </div><div class="line"><a name="l00853"></a><span class="lineno">  853</span>&#160;    </div><div class="line"><a name="l00854"></a><span class="lineno">  854</span>&#160;    <span class="comment">//reading pressure</span></div><div class="line"><a name="l00855"></a><span class="lineno">  855</span>&#160;    printf(<span class="stringliteral">&quot; Reading pressure \n&quot;</span>);</div><div class="line"><a name="l00856"></a><span class="lineno">  856</span>&#160;    <span class="keywordtype">double</span> maxpr=0.0, minpr=100.0, l_pres=0.0;</div><div class="line"><a name="l00857"></a><span class="lineno">  857</span>&#160;    <span class="keywordflow">for</span> (i=0; i&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#a0049b706bb5b3980868a5b1e1b3fac0c">nnodes</a>; i++)</div><div class="line"><a name="l00858"></a><span class="lineno">  858</span>&#160;    {</div><div class="line"><a name="l00859"></a><span class="lineno">  859</span>&#160;        <span class="keywordflow">if</span> (fscanf(fp,<span class="stringliteral">&quot; %d %lf %lf %lf %lf \n&quot;</span>, &amp;n1, &amp;l_flux, &amp;l_flux, &amp;l_dens, &amp;l_pres)!=5)</div><div class="line"><a name="l00860"></a><span class="lineno">  860</span>&#160;            printf(<span class="stringliteral">&quot;Error&quot;</span>);</div><div class="line"><a name="l00861"></a><span class="lineno">  861</span>&#160;        <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[n1-1].<a class="code" href="../../db/d7c/structvertex.html#a54ac97be271319fa385aef0685ea0641">pressure</a>=l_pres/pow(10,6);</div><div class="line"><a name="l00862"></a><span class="lineno">  862</span>&#160;        </div><div class="line"><a name="l00863"></a><span class="lineno">  863</span>&#160;        <span class="keywordflow">if</span> (<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[n1-1].pressure&gt;maxpr)</div><div class="line"><a name="l00864"></a><span class="lineno">  864</span>&#160;            maxpr=<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[n1-1].<a class="code" href="../../db/d7c/structvertex.html#a54ac97be271319fa385aef0685ea0641">pressure</a>;</div><div class="line"><a name="l00865"></a><span class="lineno">  865</span>&#160;        <span class="keywordflow">if</span> (<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[n1-1].pressure&lt;minpr)</div><div class="line"><a name="l00866"></a><span class="lineno">  866</span>&#160;            minpr=<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[n1-1].<a class="code" href="../../db/d7c/structvertex.html#a54ac97be271319fa385aef0685ea0641">pressure</a>;</div><div class="line"><a name="l00867"></a><span class="lineno">  867</span>&#160;    }</div><div class="line"><a name="l00868"></a><span class="lineno">  868</span>&#160;    fclose(fp);</div><div class="line"><a name="l00869"></a><span class="lineno">  869</span>&#160;    printf(<span class="stringliteral">&quot; MAX pressure %5.8e [MPa]; MIN pressure %5.8e [MPa] \n&quot;</span>, maxpr, minpr);</div><div class="line"><a name="l00870"></a><span class="lineno">  870</span>&#160;    </div><div class="line"><a name="l00871"></a><span class="lineno">  871</span>&#160;    <span class="comment">// update cell volumes according to aperture</span></div><div class="line"><a name="l00872"></a><span class="lineno">  872</span>&#160;</div><div class="line"><a name="l00873"></a><span class="lineno">  873</span>&#160;    <span class="keywordflow">for</span> (i=0; i&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#a0049b706bb5b3980868a5b1e1b3fac0c">nnodes</a>; i++)</div><div class="line"><a name="l00874"></a><span class="lineno">  874</span>&#160;        <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].pvolume=<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].pvolume*<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].aperture;</div><div class="line"><a name="l00875"></a><span class="lineno">  875</span>&#160;    </div><div class="line"><a name="l00876"></a><span class="lineno">  876</span>&#160;    <span class="keywordflow">return</span>;</div><div class="line"><a name="l00877"></a><span class="lineno">  877</span>&#160;}</div><div class="line"><a name="l00879"></a><span class="lineno"><a class="line" href="../../d8/d0d/_read_grid_init_8c.html#a9bf66a3ae3be79cacf8836e88dbdcef1">  879</a></span>&#160;<span class="keywordtype">void</span> <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a9bf66a3ae3be79cacf8836e88dbdcef1">ReadFEHMfile</a>(<span class="keywordtype">int</span> nedges)</div><div class="line"><a name="l00881"></a><span class="lineno">  881</span>&#160;{</div><div class="line"><a name="l00882"></a><span class="lineno">  882</span>&#160;    </div><div class="line"><a name="l00883"></a><span class="lineno">  883</span>&#160;    <span class="keywordtype">int</span> i, j;</div><div class="line"><a name="l00884"></a><span class="lineno">  884</span>&#160;    <span class="keywordtype">char</span> cs, line[16];</div><div class="line"><a name="l00885"></a><span class="lineno">  885</span>&#160;</div><div class="line"><a name="l00886"></a><span class="lineno">  886</span>&#160;    <span class="keyword">struct </span><a class="code" href="../../d9/d26/structinpfile.html">inpfile</a> inputfile;</div><div class="line"><a name="l00887"></a><span class="lineno">  887</span>&#160;</div><div class="line"><a name="l00888"></a><span class="lineno">  888</span>&#160;    inputfile = <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a2afbea1a5d0b14d8a098f551fe055420">Control_File</a>(<span class="stringliteral">&quot;FEHM_fin:&quot;</span>,9 );</div><div class="line"><a name="l00889"></a><span class="lineno">  889</span>&#160;</div><div class="line"><a name="l00890"></a><span class="lineno">  890</span>&#160;    FILE *fpr= <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a205add90a27292ac5f18188fa35bcdf5">OpenFile</a> (inputfile.filename,<span class="stringliteral">&quot;r&quot;</span>);</div><div class="line"><a name="l00891"></a><span class="lineno">  891</span>&#160;</div><div class="line"><a name="l00892"></a><span class="lineno">  892</span>&#160;    printf(<span class="stringliteral">&quot;\n FEHM: OPEN AND READ FILE: %s \n \n&quot;</span>, inputfile.filename);</div><div class="line"><a name="l00893"></a><span class="lineno">  893</span>&#160;</div><div class="line"><a name="l00894"></a><span class="lineno">  894</span>&#160;    <span class="comment">/* Read the head of the file */</span></div><div class="line"><a name="l00895"></a><span class="lineno">  895</span>&#160;    <span class="keywordflow">for</span> (i=0; i&lt;4; i++)</div><div class="line"><a name="l00896"></a><span class="lineno">  896</span>&#160;    {   </div><div class="line"><a name="l00897"></a><span class="lineno">  897</span>&#160;        <span class="keywordflow">do</span>  </div><div class="line"><a name="l00898"></a><span class="lineno">  898</span>&#160;            cs=fgetc(fpr);</div><div class="line"><a name="l00899"></a><span class="lineno">  899</span>&#160;        <span class="keywordflow">while</span> (cs!=<span class="charliteral">&#39;\n&#39;</span>);</div><div class="line"><a name="l00900"></a><span class="lineno">  900</span>&#160;    }</div><div class="line"><a name="l00901"></a><span class="lineno">  901</span>&#160;     <span class="keywordtype">unsigned</span> <span class="keywordtype">int</span> par_flag=0;</div><div class="line"><a name="l00902"></a><span class="lineno">  902</span>&#160;    <span class="comment">/* reading the pressure on nodes , Pressure in MPa units*/</span></div><div class="line"><a name="l00903"></a><span class="lineno">  903</span>&#160;    <span class="keywordflow">do</span></div><div class="line"><a name="l00904"></a><span class="lineno">  904</span>&#160;   {</div><div class="line"><a name="l00905"></a><span class="lineno">  905</span>&#160;    <span class="keywordflow">if</span> (fscanf(fpr, <span class="stringliteral">&quot;%s \n&quot;</span>,line)!=1)</div><div class="line"><a name="l00906"></a><span class="lineno">  906</span>&#160;        i=i;</div><div class="line"><a name="l00907"></a><span class="lineno">  907</span>&#160;    <span class="keywordtype">double</span> maxpr=0.0, minpr=100.0;</div><div class="line"><a name="l00908"></a><span class="lineno">  908</span>&#160;    </div><div class="line"><a name="l00909"></a><span class="lineno">  909</span>&#160;    <span class="keywordtype">int</span> res=strncmp(line,<span class="stringliteral">&quot;pressure&quot;</span>,8);</div><div class="line"><a name="l00910"></a><span class="lineno">  910</span>&#160;    <span class="keywordflow">if</span> (res==0)</div><div class="line"><a name="l00911"></a><span class="lineno">  911</span>&#160;    {   </div><div class="line"><a name="l00912"></a><span class="lineno">  912</span>&#160;        par_flag=1;</div><div class="line"><a name="l00913"></a><span class="lineno">  913</span>&#160;        printf(<span class="stringliteral">&quot; Reading %s\n&quot;</span>,line);</div><div class="line"><a name="l00914"></a><span class="lineno">  914</span>&#160;        <span class="keywordflow">for</span> (i=0; i&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#a0049b706bb5b3980868a5b1e1b3fac0c">nnodes</a>; i++)</div><div class="line"><a name="l00915"></a><span class="lineno">  915</span>&#160;        {   </div><div class="line"><a name="l00916"></a><span class="lineno">  916</span>&#160;            <span class="keywordflow">if</span> (fscanf(fpr,<span class="stringliteral">&quot;%lf&quot;</span>,&amp;<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].pressure)!=1)</div><div class="line"><a name="l00917"></a><span class="lineno">  917</span>&#160;                i=i;</div><div class="line"><a name="l00918"></a><span class="lineno">  918</span>&#160;            <span class="keywordflow">if</span> (<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].pressure&gt;maxpr)</div><div class="line"><a name="l00919"></a><span class="lineno">  919</span>&#160;                maxpr=<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#a54ac97be271319fa385aef0685ea0641">pressure</a>;</div><div class="line"><a name="l00920"></a><span class="lineno">  920</span>&#160;            <span class="keywordflow">if</span> (<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].pressure&lt;minpr)</div><div class="line"><a name="l00921"></a><span class="lineno">  921</span>&#160;                minpr=<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#a54ac97be271319fa385aef0685ea0641">pressure</a>;</div><div class="line"><a name="l00922"></a><span class="lineno">  922</span>&#160;        }</div><div class="line"><a name="l00923"></a><span class="lineno">  923</span>&#160; printf(<span class="stringliteral">&quot; MAX pressure %5.8e MIN pressure %5.8e \n&quot;</span>, maxpr, minpr);</div><div class="line"><a name="l00924"></a><span class="lineno">  924</span>&#160;    } </div><div class="line"><a name="l00925"></a><span class="lineno">  925</span>&#160;      }</div><div class="line"><a name="l00926"></a><span class="lineno">  926</span>&#160;     <span class="keywordflow">while</span> ((par_flag!=1)||(fgets(line,16,fpr)!=NULL));</div><div class="line"><a name="l00927"></a><span class="lineno">  927</span>&#160;</div><div class="line"><a name="l00928"></a><span class="lineno">  928</span>&#160;    <span class="keywordflow">if</span> (par_flag==0)</div><div class="line"><a name="l00929"></a><span class="lineno">  929</span>&#160;    printf(<span class="stringliteral">&quot; !!! THERE IS NO PRESSURE DATA !!! \n&quot;</span>);</div><div class="line"><a name="l00930"></a><span class="lineno">  930</span>&#160;    <span class="comment">/* reading fluxes on edges*/</span></div><div class="line"><a name="l00931"></a><span class="lineno">  931</span>&#160;</div><div class="line"><a name="l00932"></a><span class="lineno">  932</span>&#160;   rewind(fpr);</div><div class="line"><a name="l00933"></a><span class="lineno">  933</span>&#160;    par_flag=0;</div><div class="line"><a name="l00934"></a><span class="lineno">  934</span>&#160;    <span class="keywordflow">do</span></div><div class="line"><a name="l00935"></a><span class="lineno">  935</span>&#160;    {</div><div class="line"><a name="l00936"></a><span class="lineno">  936</span>&#160;    <span class="keywordflow">if</span> (fscanf(fpr, <span class="stringliteral">&quot;%s&quot;</span>,line)!=1)</div><div class="line"><a name="l00937"></a><span class="lineno">  937</span>&#160;        i=i;</div><div class="line"><a name="l00938"></a><span class="lineno">  938</span>&#160;    <span class="keywordtype">int</span> res1=strncmp(line,<span class="stringliteral">&quot;flux&quot;</span>,4);</div><div class="line"><a name="l00939"></a><span class="lineno">  939</span>&#160;    <span class="keywordflow">if</span> (res1==0)</div><div class="line"><a name="l00940"></a><span class="lineno">  940</span>&#160;    {</div><div class="line"><a name="l00941"></a><span class="lineno">  941</span>&#160;       par_flag=1;</div><div class="line"><a name="l00942"></a><span class="lineno">  942</span>&#160;        printf(<span class="stringliteral">&quot;\n Reading %s\n&quot;</span>,line);</div><div class="line"><a name="l00943"></a><span class="lineno">  943</span>&#160;</div><div class="line"><a name="l00944"></a><span class="lineno">  944</span>&#160;  </div><div class="line"><a name="l00945"></a><span class="lineno">  945</span>&#160;</div><div class="line"><a name="l00946"></a><span class="lineno">  946</span>&#160;    <span class="keywordflow">if</span> (fscanf(fpr,<span class="stringliteral">&quot;%d\n&quot;</span>,&amp;i)!=1)</div><div class="line"><a name="l00947"></a><span class="lineno">  947</span>&#160;        i=i;</div><div class="line"><a name="l00948"></a><span class="lineno">  948</span>&#160;</div><div class="line"><a name="l00949"></a><span class="lineno">  949</span>&#160;    <span class="keywordflow">if</span> (nedges!=i)</div><div class="line"><a name="l00950"></a><span class="lineno">  950</span>&#160;    {</div><div class="line"><a name="l00951"></a><span class="lineno">  951</span>&#160;        printf(<span class="stringliteral">&quot;number of edges in *.fin file (%d )is not the same as number of edges in *.stor file (%d)!\n&quot;</span>,i, nedges);</div><div class="line"><a name="l00952"></a><span class="lineno">  952</span>&#160;    }</div><div class="line"><a name="l00953"></a><span class="lineno">  953</span>&#160;    <span class="comment">/* reading fluxes */</span></div><div class="line"><a name="l00954"></a><span class="lineno">  954</span>&#160;</div><div class="line"><a name="l00955"></a><span class="lineno">  955</span>&#160;    <span class="keywordflow">for</span> (i=0; i&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#a0049b706bb5b3980868a5b1e1b3fac0c">nnodes</a>; i++)</div><div class="line"><a name="l00956"></a><span class="lineno">  956</span>&#160;    {</div><div class="line"><a name="l00957"></a><span class="lineno">  957</span>&#160;        <span class="keywordflow">for</span> (j=0; j&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#a9bbb8dd86b166646cdce87a545a36fa7">max_neighb</a>; j++)</div><div class="line"><a name="l00958"></a><span class="lineno">  958</span>&#160;        {</div><div class="line"><a name="l00959"></a><span class="lineno">  959</span>&#160;            <span class="keywordflow">if</span> (j&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].numneighb)</div><div class="line"><a name="l00960"></a><span class="lineno">  960</span>&#160;            {</div><div class="line"><a name="l00961"></a><span class="lineno">  961</span>&#160;                <span class="keywordflow">if</span>( fscanf(fpr, <span class="stringliteral">&quot;%lf&quot;</span>, &amp;<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].flux[j])!=1)</div><div class="line"><a name="l00962"></a><span class="lineno">  962</span>&#160;                    i=i;</div><div class="line"><a name="l00963"></a><span class="lineno">  963</span>&#160;            }</div><div class="line"><a name="l00964"></a><span class="lineno">  964</span>&#160;        }</div><div class="line"><a name="l00965"></a><span class="lineno">  965</span>&#160;    }</div><div class="line"><a name="l00966"></a><span class="lineno">  966</span>&#160;printf(<span class="stringliteral">&quot;\n Fluxes  are read from FEHM file \n&quot;</span>);</div><div class="line"><a name="l00967"></a><span class="lineno">  967</span>&#160;    }</div><div class="line"><a name="l00968"></a><span class="lineno">  968</span>&#160;</div><div class="line"><a name="l00969"></a><span class="lineno">  969</span>&#160; }</div><div class="line"><a name="l00970"></a><span class="lineno">  970</span>&#160;     <span class="keywordflow">while</span> ((par_flag!=1)||(fgets(line,16,fpr)!=NULL));</div><div class="line"><a name="l00971"></a><span class="lineno">  971</span>&#160;</div><div class="line"><a name="l00972"></a><span class="lineno">  972</span>&#160;    <span class="keywordflow">if</span> (par_flag==0)</div><div class="line"><a name="l00973"></a><span class="lineno">  973</span>&#160;    printf(<span class="stringliteral">&quot; !!! THERE IS NO FLUX DATA !!! \n&quot;</span>);</div><div class="line"><a name="l00974"></a><span class="lineno">  974</span>&#160;</div><div class="line"><a name="l00975"></a><span class="lineno">  975</span>&#160; fclose(fpr);</div><div class="line"><a name="l00976"></a><span class="lineno">  976</span>&#160;</div><div class="line"><a name="l00977"></a><span class="lineno">  977</span>&#160;    <span class="keywordflow">return</span>;</div><div class="line"><a name="l00978"></a><span class="lineno">  978</span>&#160;}</div><div class="line"><a name="l00979"></a><span class="lineno">  979</span>&#160;</div><div class="line"><a name="l00981"></a><span class="lineno"><a class="line" href="../../d8/d0d/_read_grid_init_8c.html#aee37300c235f6fed3eea46ac342e7be6">  981</a></span>&#160;<span class="keywordtype">void</span> <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#aee37300c235f6fed3eea46ac342e7be6">WritingInit</a>()</div><div class="line"><a name="l00985"></a><span class="lineno">  985</span>&#160;{</div><div class="line"><a name="l00986"></a><span class="lineno">  986</span>&#160;    </div><div class="line"><a name="l00987"></a><span class="lineno">  987</span>&#160;    <span class="keywordtype">char</span> <a class="code" href="../../d9/d26/structinpfile.html#a66e8759aa38ee20350f04cdc58dee702">filename</a>[125];</div><div class="line"><a name="l00988"></a><span class="lineno">  988</span>&#160;    sprintf(<a class="code" href="../../d9/d26/structinpfile.html#a66e8759aa38ee20350f04cdc58dee702">filename</a>,<span class="stringliteral">&quot;%s/nodes&quot;</span>,<a class="code" href="../../d0/d75/_func_def_8h.html#a396d7f3e7653807b76887efe794f2eb7">maindir</a>);</div><div class="line"><a name="l00989"></a><span class="lineno">  989</span>&#160;    FILE *wp = <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a205add90a27292ac5f18188fa35bcdf5">OpenFile</a> (<a class="code" href="../../d9/d26/structinpfile.html#a66e8759aa38ee20350f04cdc58dee702">filename</a>,<span class="stringliteral">&quot;w&quot;</span>);</div><div class="line"><a name="l00990"></a><span class="lineno">  990</span>&#160;    printf(<span class="stringliteral">&quot;\n Output initial data structure  \n&quot;</span>);</div><div class="line"><a name="l00991"></a><span class="lineno">  991</span>&#160;    <span class="comment">/************* output to file node ************************/</span></div><div class="line"><a name="l00992"></a><span class="lineno">  992</span>&#160;    <span class="keywordtype">int</span> i,j,k;</div><div class="line"><a name="l00993"></a><span class="lineno">  993</span>&#160;    <span class="keywordflow">for</span> (i=0; i&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#a0049b706bb5b3980868a5b1e1b3fac0c">nnodes</a>; i++)</div><div class="line"><a name="l00994"></a><span class="lineno">  994</span>&#160;    {</div><div class="line"><a name="l00995"></a><span class="lineno">  995</span>&#160;        fprintf(wp,<span class="stringliteral">&quot;\n Node %d, type %d, x=%5.8e, y=%5.8e, z=%5.8e, aperture=%5.8e, \n&quot;</span>,i+1,</div><div class="line"><a name="l00996"></a><span class="lineno">  996</span>&#160;                <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].typeN, <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].coord[0],<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].coord[1],<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].coord[2], <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].aperture);</div><div class="line"><a name="l00997"></a><span class="lineno">  997</span>&#160;        fprintf(wp, <span class="stringliteral">&quot; Fracture(s) %d %d \n&quot;</span>, <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>[0], <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>[1]);</div><div class="line"><a name="l00998"></a><span class="lineno">  998</span>&#160;        <span class="keywordflow">if</span> (<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>[1]==0)</div><div class="line"><a name="l00999"></a><span class="lineno">  999</span>&#160;            fprintf(wp, <span class="stringliteral">&quot; Vx  %5.8e Vy %5.8e \n&quot;</span>, <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].velocity[0][0],<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].velocity[0][1] );</div><div class="line"><a name="l01000"></a><span class="lineno"> 1000</span>&#160;        <span class="keywordflow">else</span></div><div class="line"><a name="l01001"></a><span class="lineno"> 1001</span>&#160;        {</div><div class="line"><a name="l01002"></a><span class="lineno"> 1002</span>&#160;            fprintf(wp, <span class="stringliteral">&quot; Vx  %5.8e Vy %5.8e \n&quot;</span>, <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].velocity[0][0],<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].velocity[0][1] );</div><div class="line"><a name="l01003"></a><span class="lineno"> 1003</span>&#160;            fprintf(wp, <span class="stringliteral">&quot; Vx  %5.8e Vy %5.8e \n&quot;</span>, <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].velocity[1][0],<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].velocity[1][1] );</div><div class="line"><a name="l01004"></a><span class="lineno"> 1004</span>&#160;            fprintf(wp, <span class="stringliteral">&quot; Vx  %5.8e Vy %5.8e \n&quot;</span>, <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].velocity[2][0],<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].velocity[2][1] );</div><div class="line"><a name="l01005"></a><span class="lineno"> 1005</span>&#160;            fprintf(wp, <span class="stringliteral">&quot; Vx  %5.8e Vy %5.8e \n&quot;</span>, <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].velocity[3][0],<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].velocity[3][1] );</div><div class="line"><a name="l01006"></a><span class="lineno"> 1006</span>&#160;        }</div><div class="line"><a name="l01007"></a><span class="lineno"> 1007</span>&#160;        fprintf(wp,<span class="stringliteral">&quot; Pressure %5.8e,   Volume %5.8e , Connections %d \n&quot;</span>,</div><div class="line"><a name="l01008"></a><span class="lineno"> 1008</span>&#160;                <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].pressure,  <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].pvolume, <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].numneighb);</div><div class="line"><a name="l01009"></a><span class="lineno"> 1009</span>&#160;        </div><div class="line"><a name="l01010"></a><span class="lineno"> 1010</span>&#160;        <span class="keywordflow">for</span> (j=0; j&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#acf83b561551952403148f73fe032f57b">numneighb</a>; j++)</div><div class="line"><a name="l01011"></a><span class="lineno"> 1011</span>&#160;        {</div><div class="line"><a name="l01012"></a><span class="lineno"> 1012</span>&#160;            fprintf(wp,<span class="stringliteral">&quot; Face %d  %d (type %d), flux %5.8e, area %5.8e, cells:\n&quot;</span>,</div><div class="line"><a name="l01013"></a><span class="lineno"> 1013</span>&#160;                    i+1,<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].indnodes[j], <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].type[j], <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].flux[j], <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].area[j]);</div><div class="line"><a name="l01014"></a><span class="lineno"> 1014</span>&#160;            </div><div class="line"><a name="l01015"></a><span class="lineno"> 1015</span>&#160;            <span class="keywordflow">for</span> (k=0; k&lt;4; k++)</div><div class="line"><a name="l01016"></a><span class="lineno"> 1016</span>&#160;            {</div><div class="line"><a name="l01017"></a><span class="lineno"> 1017</span>&#160;                <span class="keywordflow">if</span> (<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].cells[j][k]!=0)</div><div class="line"><a name="l01018"></a><span class="lineno"> 1018</span>&#160;                    fprintf(wp,<span class="stringliteral">&quot;(%d) %d  in fracture %d; &quot;</span>, k+1,</div><div class="line"><a name="l01019"></a><span class="lineno"> 1019</span>&#160;                            <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].cells[j][k],<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].fracts[j][k]);</div><div class="line"><a name="l01020"></a><span class="lineno"> 1020</span>&#160;            }</div><div class="line"><a name="l01021"></a><span class="lineno"> 1021</span>&#160;            </div><div class="line"><a name="l01022"></a><span class="lineno"> 1022</span>&#160;            fprintf(wp,<span class="stringliteral">&quot;\n&quot;</span>);</div><div class="line"><a name="l01023"></a><span class="lineno"> 1023</span>&#160;        } <span class="comment">//loop j</span></div><div class="line"><a name="l01024"></a><span class="lineno"> 1024</span>&#160;    } <span class="comment">//loop i</span></div><div class="line"><a name="l01025"></a><span class="lineno"> 1025</span>&#160;    fclose(wp);</div><div class="line"><a name="l01026"></a><span class="lineno"> 1026</span>&#160;    </div><div class="line"><a name="l01027"></a><span class="lineno"> 1027</span>&#160;    </div><div class="line"><a name="l01028"></a><span class="lineno"> 1028</span>&#160;    <span class="comment">// printf(&quot;\n Node&#39;s init data is written into  file \n&quot;);</span></div><div class="line"><a name="l01029"></a><span class="lineno"> 1029</span>&#160;    <span class="comment">/* Fracture&#39;s structure includes indices of cells that belong to fructure and three nodes numbers*/</span></div><div class="line"><a name="l01030"></a><span class="lineno"> 1030</span>&#160;    sprintf(<a class="code" href="../../d9/d26/structinpfile.html#a66e8759aa38ee20350f04cdc58dee702">filename</a>,<span class="stringliteral">&quot;%s/fractures&quot;</span>,<a class="code" href="../../d0/d75/_func_def_8h.html#a396d7f3e7653807b76887efe794f2eb7">maindir</a>);</div><div class="line"><a name="l01031"></a><span class="lineno"> 1031</span>&#160;    FILE *wf = <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a205add90a27292ac5f18188fa35bcdf5">OpenFile</a> (<a class="code" href="../../d9/d26/structinpfile.html#a66e8759aa38ee20350f04cdc58dee702">filename</a>,<span class="stringliteral">&quot;w&quot;</span>);</div><div class="line"><a name="l01032"></a><span class="lineno"> 1032</span>&#160;    </div><div class="line"><a name="l01033"></a><span class="lineno"> 1033</span>&#160;    <span class="keywordflow">for</span> (i=0; i&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#accb317d0fcd1e5a1683184b91a49ff11">nfract</a>; i++)</div><div class="line"><a name="l01034"></a><span class="lineno"> 1034</span>&#160;    {</div><div class="line"><a name="l01035"></a><span class="lineno"> 1035</span>&#160;        fprintf(wf,<span class="stringliteral">&quot;\n Fracture %d first node# %d last node# %d and theta %f\n&quot;</span>,</div><div class="line"><a name="l01036"></a><span class="lineno"> 1036</span>&#160;                i+1, <a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>[i].firstnode, <a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>[i].lastnode, <a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>[i].theta);</div><div class="line"><a name="l01037"></a><span class="lineno"> 1037</span>&#160;        fprintf(wf,<span class="stringliteral">&quot;\n Fracture %d has %d cells, starting from %d \n&quot;</span>, i+1,</div><div class="line"><a name="l01038"></a><span class="lineno"> 1038</span>&#160;                <a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>[i].numbcells, <a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>[i].firstcell);</div><div class="line"><a name="l01039"></a><span class="lineno"> 1039</span>&#160;        </div><div class="line"><a name="l01040"></a><span class="lineno"> 1040</span>&#160;        <span class="keywordflow">for</span> (j=0; j&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>[i].<a class="code" href="../../da/d20/structmaterial.html#a84365556a52eb9959d6d869dda76433c">numbcells</a>; j++)</div><div class="line"><a name="l01041"></a><span class="lineno"> 1041</span>&#160;        {</div><div class="line"><a name="l01042"></a><span class="lineno"> 1042</span>&#160;            fprintf(wf,<span class="stringliteral">&quot; cell %d, nodes: %d %d %d \n&quot;</span>, <a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>[i].firstcell+j,</div><div class="line"><a name="l01043"></a><span class="lineno"> 1043</span>&#160;                    <a class="code" href="../../d0/d75/_func_def_8h.html#a26a18460ba7bc9d4e9ace81fda1819ee">cell</a>[<a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>[i].firstcell+j-1].node_ind[0],</div><div class="line"><a name="l01044"></a><span class="lineno"> 1044</span>&#160;                    <a class="code" href="../../d0/d75/_func_def_8h.html#a26a18460ba7bc9d4e9ace81fda1819ee">cell</a>[<a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>[i].firstcell+j-1].node_ind[1],</div><div class="line"><a name="l01045"></a><span class="lineno"> 1045</span>&#160;                    <a class="code" href="../../d0/d75/_func_def_8h.html#a26a18460ba7bc9d4e9ace81fda1819ee">cell</a>[<a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>[i].firstcell+j-1].node_ind[2]);</div><div class="line"><a name="l01046"></a><span class="lineno"> 1046</span>&#160;            </div><div class="line"><a name="l01047"></a><span class="lineno"> 1047</span>&#160;        }<span class="comment">//loop j</span></div><div class="line"><a name="l01048"></a><span class="lineno"> 1048</span>&#160;        </div><div class="line"><a name="l01049"></a><span class="lineno"> 1049</span>&#160;    }   <span class="comment">//loop i</span></div><div class="line"><a name="l01050"></a><span class="lineno"> 1050</span>&#160;    </div><div class="line"><a name="l01051"></a><span class="lineno"> 1051</span>&#160;    fclose(wf);</div><div class="line"><a name="l01052"></a><span class="lineno"> 1052</span>&#160;    <span class="keywordflow">return</span>;</div><div class="line"><a name="l01053"></a><span class="lineno"> 1053</span>&#160;}</div><div class="line"><a name="l01055"></a><span class="lineno"><a class="line" href="../../d8/d0d/_read_grid_init_8c.html#aac796a2c642d933ded40275edb457d16"> 1055</a></span>&#160;<span class="keywordtype">void</span> <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#aac796a2c642d933ded40275edb457d16">CheckGrid</a>()</div><div class="line"><a name="l01059"></a><span class="lineno"> 1059</span>&#160;{</div><div class="line"><a name="l01060"></a><span class="lineno"> 1060</span>&#160;    </div><div class="line"><a name="l01061"></a><span class="lineno"> 1061</span>&#160;    <span class="keywordtype">int</span> i, j, k, r=0;</div><div class="line"><a name="l01062"></a><span class="lineno"> 1062</span>&#160;    printf(<span class="stringliteral">&quot;  GRID CHECK starts \n&quot;</span>);</div><div class="line"><a name="l01063"></a><span class="lineno"> 1063</span>&#160;    <span class="keywordflow">for</span> (i=0; i&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#a0049b706bb5b3980868a5b1e1b3fac0c">nnodes</a>; i++)</div><div class="line"><a name="l01064"></a><span class="lineno"> 1064</span>&#160;    {</div><div class="line"><a name="l01065"></a><span class="lineno"> 1065</span>&#160;        <span class="keywordflow">if</span> ((<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].typeN==0) || (<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].typeN==10))</div><div class="line"><a name="l01066"></a><span class="lineno"> 1066</span>&#160;        {</div><div class="line"><a name="l01067"></a><span class="lineno"> 1067</span>&#160;            r=0;</div><div class="line"><a name="l01068"></a><span class="lineno"> 1068</span>&#160;            <span class="keywordflow">for</span> (j=0; j&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#acf83b561551952403148f73fe032f57b">numneighb</a>; j++)</div><div class="line"><a name="l01069"></a><span class="lineno"> 1069</span>&#160;            {</div><div class="line"><a name="l01070"></a><span class="lineno"> 1070</span>&#160;                <span class="keywordflow">for</span> (k=0; k&lt;4; k++)</div><div class="line"><a name="l01071"></a><span class="lineno"> 1071</span>&#160;                {</div><div class="line"><a name="l01072"></a><span class="lineno"> 1072</span>&#160;                    <span class="keywordflow">if</span> ((<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].fracts[j][k]!=<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>[0]) &amp;&amp; (<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].fracts[j][k]!=0))</div><div class="line"><a name="l01073"></a><span class="lineno"> 1073</span>&#160;                    {</div><div class="line"><a name="l01074"></a><span class="lineno"> 1074</span>&#160;                        printf(<span class="stringliteral">&quot;GRID ERROR: fracture %d node %d / fracture %d \n&quot;</span>, <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>[0], i+1,<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].fracts[j][k]);</div><div class="line"><a name="l01075"></a><span class="lineno"> 1075</span>&#160;                        printf(<span class="stringliteral">&quot; node %d  %lf  %lf  %lf \n&quot;</span>,  i+1, <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i+1].coord[0],  <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i+1].coord[1],<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i+1].coord[2]);</div><div class="line"><a name="l01076"></a><span class="lineno"> 1076</span>&#160;                        r++;</div><div class="line"><a name="l01077"></a><span class="lineno"> 1077</span>&#160;                        <span class="keywordflow">break</span>;</div><div class="line"><a name="l01078"></a><span class="lineno"> 1078</span>&#160;                    }</div><div class="line"><a name="l01079"></a><span class="lineno"> 1079</span>&#160;                }</div><div class="line"><a name="l01080"></a><span class="lineno"> 1080</span>&#160;                <span class="keywordflow">if</span> (r&gt;0)</div><div class="line"><a name="l01081"></a><span class="lineno"> 1081</span>&#160;                    <span class="keywordflow">break</span>;</div><div class="line"><a name="l01082"></a><span class="lineno"> 1082</span>&#160;            }</div><div class="line"><a name="l01083"></a><span class="lineno"> 1083</span>&#160;            </div><div class="line"><a name="l01084"></a><span class="lineno"> 1084</span>&#160;        }</div><div class="line"><a name="l01085"></a><span class="lineno"> 1085</span>&#160;    }</div><div class="line"><a name="l01086"></a><span class="lineno"> 1086</span>&#160;    printf(<span class="stringliteral">&quot;  GRID CHECK is done \n&quot;</span>);</div><div class="line"><a name="l01087"></a><span class="lineno"> 1087</span>&#160;    <span class="keywordflow">return</span>;</div><div class="line"><a name="l01088"></a><span class="lineno"> 1088</span>&#160;}</div><div class="line"><a name="l01090"></a><span class="lineno"><a class="line" href="../../d8/d0d/_read_grid_init_8c.html#a2afbea1a5d0b14d8a098f551fe055420"> 1090</a></span>&#160;<span class="keyword">struct </span><a class="code" href="../../d9/d26/structinpfile.html">inpfile</a> <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a2afbea1a5d0b14d8a098f551fe055420">Control_File</a>(char fileobject[], int ctr)</div><div class="line"><a name="l01093"></a><span class="lineno"> 1093</span>&#160;{</div><div class="line"><a name="l01094"></a><span class="lineno"> 1094</span>&#160;    </div><div class="line"><a name="l01095"></a><span class="lineno"> 1095</span>&#160;    FILE *cf=<a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a205add90a27292ac5f18188fa35bcdf5">OpenFile</a>(<a class="code" href="../../d0/d75/_func_def_8h.html#aa867dd168d29d6a51276df24caa862ce">controlfile</a>,<span class="stringliteral">&quot;r&quot;</span>);</div><div class="line"><a name="l01096"></a><span class="lineno"> 1096</span>&#160;    <span class="keyword">struct </span><a class="code" href="../../d9/d26/structinpfile.html">inpfile</a> inputfile;</div><div class="line"><a name="l01097"></a><span class="lineno"> 1097</span>&#160;    <span class="keywordtype">char</span> fileline[120];</div><div class="line"><a name="l01098"></a><span class="lineno"> 1098</span>&#160;    <span class="keywordtype">char</span>* fileend=<span class="stringliteral">&quot;END&quot;</span>;</div><div class="line"><a name="l01099"></a><span class="lineno"> 1099</span>&#160;    </div><div class="line"><a name="l01100"></a><span class="lineno"> 1100</span>&#160;    <span class="keywordtype">int</span>  end=0;</div><div class="line"><a name="l01101"></a><span class="lineno"> 1101</span>&#160;    inputfile.<a class="code" href="../../d9/d26/structinpfile.html#a57ff2cce78c35a8a128927da9eeccfbc">param</a>=0.0;</div><div class="line"><a name="l01102"></a><span class="lineno"> 1102</span>&#160;    inputfile.<a class="code" href="../../d9/d26/structinpfile.html#a23ae60bf94767194de9a09a4eee8cc1d">flag</a>=-1;</div><div class="line"><a name="l01103"></a><span class="lineno"> 1103</span>&#160;    <span class="keywordtype">int</span> res2=0, res1=0;</div><div class="line"><a name="l01104"></a><span class="lineno"> 1104</span>&#160;    <span class="keywordflow">do</span></div><div class="line"><a name="l01105"></a><span class="lineno"> 1105</span>&#160;    {</div><div class="line"><a name="l01106"></a><span class="lineno"> 1106</span>&#160;        <span class="keywordflow">if</span> (fscanf(cf,<span class="stringliteral">&quot;\n %s&quot;</span>,fileline)!=1)</div><div class="line"><a name="l01107"></a><span class="lineno"> 1107</span>&#160;            printf(<span class="stringliteral">&quot;ERROR&quot;</span>);</div><div class="line"><a name="l01108"></a><span class="lineno"> 1108</span>&#160;        </div><div class="line"><a name="l01109"></a><span class="lineno"> 1109</span>&#160;        end=0;</div><div class="line"><a name="l01110"></a><span class="lineno"> 1110</span>&#160;        res2=<a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a0bbf0ae1391d4e6a5a3fbc8d360d18b3">String_Compare</a>(fileline, fileend);</div><div class="line"><a name="l01111"></a><span class="lineno"> 1111</span>&#160;        <span class="keywordflow">if</span> (res2==0)</div><div class="line"><a name="l01112"></a><span class="lineno"> 1112</span>&#160;            end=strlen(fileend);</div><div class="line"><a name="l01113"></a><span class="lineno"> 1113</span>&#160;        </div><div class="line"><a name="l01114"></a><span class="lineno"> 1114</span>&#160;        res1=<a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a0bbf0ae1391d4e6a5a3fbc8d360d18b3">String_Compare</a>(fileline,fileobject);</div><div class="line"><a name="l01115"></a><span class="lineno"> 1115</span>&#160;        <span class="keywordflow">if</span> (res1==0)</div><div class="line"><a name="l01116"></a><span class="lineno"> 1116</span>&#160;        {</div><div class="line"><a name="l01117"></a><span class="lineno"> 1117</span>&#160;            <span class="keywordflow">if</span> (fscanf(cf,<span class="stringliteral">&quot;%s&quot;</span>,inputfile.<a class="code" href="../../d9/d26/structinpfile.html#a66e8759aa38ee20350f04cdc58dee702">filename</a>)!=1)</div><div class="line"><a name="l01118"></a><span class="lineno"> 1118</span>&#160;                printf(<span class="stringliteral">&quot;Error&quot;</span>);</div><div class="line"><a name="l01119"></a><span class="lineno"> 1119</span>&#160;            inputfile.<a class="code" href="../../d9/d26/structinpfile.html#a23ae60bf94767194de9a09a4eee8cc1d">flag</a>=1;</div><div class="line"><a name="l01120"></a><span class="lineno"> 1120</span>&#160;            end=strlen(fileend);</div><div class="line"><a name="l01121"></a><span class="lineno"> 1121</span>&#160;        }</div><div class="line"><a name="l01122"></a><span class="lineno"> 1122</span>&#160;    }</div><div class="line"><a name="l01123"></a><span class="lineno"> 1123</span>&#160;    <span class="keywordflow">while</span> (end!=strlen(fileend));</div><div class="line"><a name="l01124"></a><span class="lineno"> 1124</span>&#160;    </div><div class="line"><a name="l01125"></a><span class="lineno"> 1125</span>&#160;    <span class="keywordflow">if</span> (inputfile.<a class="code" href="../../d9/d26/structinpfile.html#a23ae60bf94767194de9a09a4eee8cc1d">flag</a>&lt;0)</div><div class="line"><a name="l01126"></a><span class="lineno"> 1126</span>&#160;    {</div><div class="line"><a name="l01127"></a><span class="lineno"> 1127</span>&#160;        printf(<span class="stringliteral">&quot;\n There is no %s input found in %s. Program is terminated. \n&quot;</span>, fileobject, <a class="code" href="../../d0/d75/_func_def_8h.html#aa867dd168d29d6a51276df24caa862ce">controlfile</a>);</div><div class="line"><a name="l01128"></a><span class="lineno"> 1128</span>&#160;        exit(1);</div><div class="line"><a name="l01129"></a><span class="lineno"> 1129</span>&#160;    }</div><div class="line"><a name="l01130"></a><span class="lineno"> 1130</span>&#160;    fclose(cf);</div><div class="line"><a name="l01131"></a><span class="lineno"> 1131</span>&#160;    <span class="keywordflow">return</span> inputfile;</div><div class="line"><a name="l01132"></a><span class="lineno"> 1132</span>&#160;}</div><div class="line"><a name="l01133"></a><span class="lineno"> 1133</span>&#160;</div><div class="line"><a name="l01135"></a><span class="lineno"><a class="line" href="../../d8/d0d/_read_grid_init_8c.html#a484100bd5902d4efcdd15c21d1cb9048"> 1135</a></span>&#160;<span class="keyword">struct </span><a class="code" href="../../d9/d26/structinpfile.html">inpfile</a> <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a484100bd5902d4efcdd15c21d1cb9048">Control_File_Optional</a>(char fileobject[], int ctr)</div><div class="line"><a name="l01138"></a><span class="lineno"> 1138</span>&#160;{</div><div class="line"><a name="l01139"></a><span class="lineno"> 1139</span>&#160;    </div><div class="line"><a name="l01140"></a><span class="lineno"> 1140</span>&#160;    FILE *cf=<a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a205add90a27292ac5f18188fa35bcdf5">OpenFile</a>(<a class="code" href="../../d0/d75/_func_def_8h.html#aa867dd168d29d6a51276df24caa862ce">controlfile</a>,<span class="stringliteral">&quot;r&quot;</span>);</div><div class="line"><a name="l01141"></a><span class="lineno"> 1141</span>&#160;    <span class="keyword">struct </span><a class="code" href="../../d9/d26/structinpfile.html">inpfile</a> inputfile;</div><div class="line"><a name="l01142"></a><span class="lineno"> 1142</span>&#160;    <span class="keywordtype">char</span> fileline[120];</div><div class="line"><a name="l01143"></a><span class="lineno"> 1143</span>&#160;    <span class="keywordtype">char</span>* fileend=<span class="stringliteral">&quot;END&quot;</span>;</div><div class="line"><a name="l01144"></a><span class="lineno"> 1144</span>&#160;    </div><div class="line"><a name="l01145"></a><span class="lineno"> 1145</span>&#160;    <span class="keywordtype">int</span>  end=0;</div><div class="line"><a name="l01146"></a><span class="lineno"> 1146</span>&#160;    inputfile.<a class="code" href="../../d9/d26/structinpfile.html#a57ff2cce78c35a8a128927da9eeccfbc">param</a>=0.0;</div><div class="line"><a name="l01147"></a><span class="lineno"> 1147</span>&#160;    inputfile.<a class="code" href="../../d9/d26/structinpfile.html#a23ae60bf94767194de9a09a4eee8cc1d">flag</a>=-1;</div><div class="line"><a name="l01148"></a><span class="lineno"> 1148</span>&#160;    <span class="keywordtype">int</span> res2=0, res1=0;</div><div class="line"><a name="l01149"></a><span class="lineno"> 1149</span>&#160;    <span class="keywordflow">do</span></div><div class="line"><a name="l01150"></a><span class="lineno"> 1150</span>&#160;    {</div><div class="line"><a name="l01151"></a><span class="lineno"> 1151</span>&#160;        <span class="keywordflow">if</span> (fscanf(cf,<span class="stringliteral">&quot;\n %s&quot;</span>,fileline)!=1)</div><div class="line"><a name="l01152"></a><span class="lineno"> 1152</span>&#160;            printf(<span class="stringliteral">&quot;ERROR&quot;</span>);</div><div class="line"><a name="l01153"></a><span class="lineno"> 1153</span>&#160;        </div><div class="line"><a name="l01154"></a><span class="lineno"> 1154</span>&#160;        end=0;</div><div class="line"><a name="l01155"></a><span class="lineno"> 1155</span>&#160;        res2=<a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a0bbf0ae1391d4e6a5a3fbc8d360d18b3">String_Compare</a>(fileline, fileend);</div><div class="line"><a name="l01156"></a><span class="lineno"> 1156</span>&#160;        <span class="keywordflow">if</span> (res2==0)</div><div class="line"><a name="l01157"></a><span class="lineno"> 1157</span>&#160;            end=strlen(fileend);</div><div class="line"><a name="l01158"></a><span class="lineno"> 1158</span>&#160;        </div><div class="line"><a name="l01159"></a><span class="lineno"> 1159</span>&#160;        res1=<a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a0bbf0ae1391d4e6a5a3fbc8d360d18b3">String_Compare</a>(fileline,fileobject);</div><div class="line"><a name="l01160"></a><span class="lineno"> 1160</span>&#160;        <span class="keywordflow">if</span> (res1==0)</div><div class="line"><a name="l01161"></a><span class="lineno"> 1161</span>&#160;        {</div><div class="line"><a name="l01162"></a><span class="lineno"> 1162</span>&#160;            <span class="keywordflow">if</span> (fscanf(cf,<span class="stringliteral">&quot;%s&quot;</span>,inputfile.<a class="code" href="../../d9/d26/structinpfile.html#a66e8759aa38ee20350f04cdc58dee702">filename</a>)!=1)</div><div class="line"><a name="l01163"></a><span class="lineno"> 1163</span>&#160;                printf(<span class="stringliteral">&quot;Error&quot;</span>);</div><div class="line"><a name="l01164"></a><span class="lineno"> 1164</span>&#160;            inputfile.<a class="code" href="../../d9/d26/structinpfile.html#a23ae60bf94767194de9a09a4eee8cc1d">flag</a>=1;</div><div class="line"><a name="l01165"></a><span class="lineno"> 1165</span>&#160;            end=strlen(fileend);</div><div class="line"><a name="l01166"></a><span class="lineno"> 1166</span>&#160;        }</div><div class="line"><a name="l01167"></a><span class="lineno"> 1167</span>&#160;    }</div><div class="line"><a name="l01168"></a><span class="lineno"> 1168</span>&#160;    <span class="keywordflow">while</span> (end!=strlen(fileend));</div><div class="line"><a name="l01169"></a><span class="lineno"> 1169</span>&#160;    </div><div class="line"><a name="l01170"></a><span class="lineno"> 1170</span>&#160;    fclose(cf);</div><div class="line"><a name="l01171"></a><span class="lineno"> 1171</span>&#160;    <span class="keywordflow">return</span> inputfile;</div><div class="line"><a name="l01172"></a><span class="lineno"> 1172</span>&#160;}</div><div class="line"><a name="l01173"></a><span class="lineno"> 1173</span>&#160;</div><div class="line"><a name="l01174"></a><span class="lineno"> 1174</span>&#160;</div><div class="line"><a name="l01176"></a><span class="lineno"><a class="line" href="../../d8/d0d/_read_grid_init_8c.html#a0bbf0ae1391d4e6a5a3fbc8d360d18b3"> 1176</a></span>&#160;<span class="keywordtype">int</span> <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a0bbf0ae1391d4e6a5a3fbc8d360d18b3">String_Compare</a>(<span class="keywordtype">char</span> string1[], <span class="keywordtype">char</span> string2[])</div><div class="line"><a name="l01178"></a><span class="lineno"> 1178</span>&#160;{</div><div class="line"><a name="l01179"></a><span class="lineno"> 1179</span>&#160;    <span class="keywordtype">int</span> resultc=1, res=0, k=0;</div><div class="line"><a name="l01180"></a><span class="lineno"> 1180</span>&#160;    </div><div class="line"><a name="l01181"></a><span class="lineno"> 1181</span>&#160;    <span class="keywordflow">for</span> (res=0; res&lt;strlen(string2); res++)</div><div class="line"><a name="l01182"></a><span class="lineno"> 1182</span>&#160;    {</div><div class="line"><a name="l01183"></a><span class="lineno"> 1183</span>&#160;        </div><div class="line"><a name="l01184"></a><span class="lineno"> 1184</span>&#160;        <span class="keywordflow">if</span> (string1[res]!=string2[res])</div><div class="line"><a name="l01185"></a><span class="lineno"> 1185</span>&#160;        {</div><div class="line"><a name="l01186"></a><span class="lineno"> 1186</span>&#160;            </div><div class="line"><a name="l01187"></a><span class="lineno"> 1187</span>&#160;            <span class="keywordflow">break</span>;</div><div class="line"><a name="l01188"></a><span class="lineno"> 1188</span>&#160;        }</div><div class="line"><a name="l01189"></a><span class="lineno"> 1189</span>&#160;        <span class="keywordflow">else</span></div><div class="line"><a name="l01190"></a><span class="lineno"> 1190</span>&#160;            k++;</div><div class="line"><a name="l01191"></a><span class="lineno"> 1191</span>&#160;    }</div><div class="line"><a name="l01192"></a><span class="lineno"> 1192</span>&#160;    <span class="keywordflow">if</span> (k==strlen(string2))</div><div class="line"><a name="l01193"></a><span class="lineno"> 1193</span>&#160;        resultc=0;</div><div class="line"><a name="l01194"></a><span class="lineno"> 1194</span>&#160;    </div><div class="line"><a name="l01195"></a><span class="lineno"> 1195</span>&#160;    <span class="keywordflow">return</span> resultc;</div><div class="line"><a name="l01196"></a><span class="lineno"> 1196</span>&#160;}</div><div class="line"><a name="l01197"></a><span class="lineno"> 1197</span>&#160;</div><div class="line"><a name="l01198"></a><span class="lineno"> 1198</span>&#160;</div><div class="line"><a name="l01200"></a><span class="lineno"> 1200</span>&#160;</div><div class="line"><a name="l01201"></a><span class="lineno"><a class="line" href="../../d8/d0d/_read_grid_init_8c.html#a9bb4185d1b46d02dc42d5889e4d70ebf"> 1201</a></span>&#160;<span class="keyword">struct </span><a class="code" href="../../d9/d26/structinpfile.html">inpfile</a> <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a9bb4185d1b46d02dc42d5889e4d70ebf">Control_Data</a>(char fileobject[], int ctr)</div><div class="line"><a name="l01204"></a><span class="lineno"> 1204</span>&#160;{ </div><div class="line"><a name="l01205"></a><span class="lineno"> 1205</span>&#160;    </div><div class="line"><a name="l01206"></a><span class="lineno"> 1206</span>&#160;    FILE *cf=<a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a205add90a27292ac5f18188fa35bcdf5">OpenFile</a>(<a class="code" href="../../d0/d75/_func_def_8h.html#aa867dd168d29d6a51276df24caa862ce">controlfile</a>,<span class="stringliteral">&quot;r&quot;</span>);</div><div class="line"><a name="l01207"></a><span class="lineno"> 1207</span>&#160;    <span class="keyword">struct </span><a class="code" href="../../d9/d26/structinpfile.html">inpfile</a> inputfile;</div><div class="line"><a name="l01208"></a><span class="lineno"> 1208</span>&#160;    <span class="keywordtype">char</span> fileline[120];</div><div class="line"><a name="l01209"></a><span class="lineno"> 1209</span>&#160;    <span class="keywordtype">int</span> end=0;</div><div class="line"><a name="l01210"></a><span class="lineno"> 1210</span>&#160;    <span class="keywordtype">char</span>* fileend=<span class="stringliteral">&quot;END&quot;</span>;</div><div class="line"><a name="l01211"></a><span class="lineno"> 1211</span>&#160;    </div><div class="line"><a name="l01212"></a><span class="lineno"> 1212</span>&#160;    inputfile.<a class="code" href="../../d9/d26/structinpfile.html#a23ae60bf94767194de9a09a4eee8cc1d">flag</a>=-1;</div><div class="line"><a name="l01213"></a><span class="lineno"> 1213</span>&#160;    inputfile.<a class="code" href="../../d9/d26/structinpfile.html#a57ff2cce78c35a8a128927da9eeccfbc">param</a>=0.0;</div><div class="line"><a name="l01214"></a><span class="lineno"> 1214</span>&#160;    <span class="keywordtype">int</span> res2=0, res1=0;</div><div class="line"><a name="l01215"></a><span class="lineno"> 1215</span>&#160;    <span class="keywordflow">do</span></div><div class="line"><a name="l01216"></a><span class="lineno"> 1216</span>&#160;    {</div><div class="line"><a name="l01217"></a><span class="lineno"> 1217</span>&#160;        <span class="keywordflow">if</span> (fscanf(cf,<span class="stringliteral">&quot;%s&quot;</span>,fileline)!=1)</div><div class="line"><a name="l01218"></a><span class="lineno"> 1218</span>&#160;            printf(<span class="stringliteral">&quot;ERROR&quot;</span>);</div><div class="line"><a name="l01219"></a><span class="lineno"> 1219</span>&#160;        </div><div class="line"><a name="l01220"></a><span class="lineno"> 1220</span>&#160;        end=0;</div><div class="line"><a name="l01221"></a><span class="lineno"> 1221</span>&#160;        res2=<a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a0bbf0ae1391d4e6a5a3fbc8d360d18b3">String_Compare</a>(fileline, fileend);</div><div class="line"><a name="l01222"></a><span class="lineno"> 1222</span>&#160;        <span class="keywordflow">if</span> (res2==0)</div><div class="line"><a name="l01223"></a><span class="lineno"> 1223</span>&#160;            end=strlen(fileend);     </div><div class="line"><a name="l01224"></a><span class="lineno"> 1224</span>&#160;        </div><div class="line"><a name="l01225"></a><span class="lineno"> 1225</span>&#160;        </div><div class="line"><a name="l01226"></a><span class="lineno"> 1226</span>&#160;        res1=<a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a0bbf0ae1391d4e6a5a3fbc8d360d18b3">String_Compare</a>(fileline,fileobject);</div><div class="line"><a name="l01227"></a><span class="lineno"> 1227</span>&#160;        <span class="keywordflow">if</span> (res1==0)</div><div class="line"><a name="l01228"></a><span class="lineno"> 1228</span>&#160;        {</div><div class="line"><a name="l01229"></a><span class="lineno"> 1229</span>&#160;            <span class="keywordflow">if</span> (fscanf(cf,<span class="stringliteral">&quot;%ld&quot;</span>,&amp;inputfile.<a class="code" href="../../d9/d26/structinpfile.html#a23ae60bf94767194de9a09a4eee8cc1d">flag</a>)!=1)</div><div class="line"><a name="l01230"></a><span class="lineno"> 1230</span>&#160;                printf(<span class="stringliteral">&quot;Error&quot;</span>);</div><div class="line"><a name="l01231"></a><span class="lineno"> 1231</span>&#160;            end=strlen(fileend);</div><div class="line"><a name="l01232"></a><span class="lineno"> 1232</span>&#160;            </div><div class="line"><a name="l01233"></a><span class="lineno"> 1233</span>&#160;        }</div><div class="line"><a name="l01234"></a><span class="lineno"> 1234</span>&#160;    }    </div><div class="line"><a name="l01235"></a><span class="lineno"> 1235</span>&#160;    <span class="keywordflow">while</span> (end!=strlen(fileend));  </div><div class="line"><a name="l01236"></a><span class="lineno"> 1236</span>&#160;    <span class="keywordflow">if</span> (inputfile.<a class="code" href="../../d9/d26/structinpfile.html#a23ae60bf94767194de9a09a4eee8cc1d">flag</a>&lt;0)</div><div class="line"><a name="l01237"></a><span class="lineno"> 1237</span>&#160;    {</div><div class="line"><a name="l01238"></a><span class="lineno"> 1238</span>&#160;        printf(<span class="stringliteral">&quot;\n There is no %s input found in %s. Program is terminated. \n&quot;</span>, fileobject, <a class="code" href="../../d0/d75/_func_def_8h.html#aa867dd168d29d6a51276df24caa862ce">controlfile</a>);   </div><div class="line"><a name="l01239"></a><span class="lineno"> 1239</span>&#160;        exit(1);</div><div class="line"><a name="l01240"></a><span class="lineno"> 1240</span>&#160;    }</div><div class="line"><a name="l01241"></a><span class="lineno"> 1241</span>&#160;    fclose(cf);</div><div class="line"><a name="l01242"></a><span class="lineno"> 1242</span>&#160;    <span class="keywordflow">return</span> inputfile;</div><div class="line"><a name="l01243"></a><span class="lineno"> 1243</span>&#160;} </div><div class="line"><a name="l01245"></a><span class="lineno"><a class="line" href="../../d8/d0d/_read_grid_init_8c.html#a922a07b425353141b29d8d57e830a7c1"> 1245</a></span>&#160;<span class="keyword">struct </span><a class="code" href="../../d9/d26/structinpfile.html">inpfile</a> <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a922a07b425353141b29d8d57e830a7c1">Control_Param</a>(char fileobject[], int ctr)</div><div class="line"><a name="l01248"></a><span class="lineno"> 1248</span>&#160;{ </div><div class="line"><a name="l01249"></a><span class="lineno"> 1249</span>&#160;    </div><div class="line"><a name="l01250"></a><span class="lineno"> 1250</span>&#160;    FILE *cf=<a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a205add90a27292ac5f18188fa35bcdf5">OpenFile</a>(<a class="code" href="../../d0/d75/_func_def_8h.html#aa867dd168d29d6a51276df24caa862ce">controlfile</a>,<span class="stringliteral">&quot;r&quot;</span>);</div><div class="line"><a name="l01251"></a><span class="lineno"> 1251</span>&#160;    <span class="keyword">struct </span><a class="code" href="../../d9/d26/structinpfile.html">inpfile</a> inputfile;</div><div class="line"><a name="l01252"></a><span class="lineno"> 1252</span>&#160;    <span class="keywordtype">char</span> fileline[120];</div><div class="line"><a name="l01253"></a><span class="lineno"> 1253</span>&#160;    <span class="keywordtype">char</span>* fileend=<span class="stringliteral">&quot;END&quot;</span>;</div><div class="line"><a name="l01254"></a><span class="lineno"> 1254</span>&#160;    <span class="keywordtype">int</span> end=0; </div><div class="line"><a name="l01255"></a><span class="lineno"> 1255</span>&#160;    inputfile.<a class="code" href="../../d9/d26/structinpfile.html#a57ff2cce78c35a8a128927da9eeccfbc">param</a>=0.0;</div><div class="line"><a name="l01256"></a><span class="lineno"> 1256</span>&#160;    inputfile.<a class="code" href="../../d9/d26/structinpfile.html#a23ae60bf94767194de9a09a4eee8cc1d">flag</a>=-1;</div><div class="line"><a name="l01257"></a><span class="lineno"> 1257</span>&#160;    </div><div class="line"><a name="l01258"></a><span class="lineno"> 1258</span>&#160;    <span class="keywordtype">int</span> res2=0, res1=0;</div><div class="line"><a name="l01259"></a><span class="lineno"> 1259</span>&#160;    <span class="keywordflow">do</span></div><div class="line"><a name="l01260"></a><span class="lineno"> 1260</span>&#160;    {</div><div class="line"><a name="l01261"></a><span class="lineno"> 1261</span>&#160;        <span class="keywordflow">if</span> (fscanf(cf,<span class="stringliteral">&quot;%s&quot;</span>,fileline)!=1)</div><div class="line"><a name="l01262"></a><span class="lineno"> 1262</span>&#160;            printf(<span class="stringliteral">&quot;ERROR&quot;</span>);</div><div class="line"><a name="l01263"></a><span class="lineno"> 1263</span>&#160;        </div><div class="line"><a name="l01264"></a><span class="lineno"> 1264</span>&#160;        end=0;</div><div class="line"><a name="l01265"></a><span class="lineno"> 1265</span>&#160;        res2=<a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a0bbf0ae1391d4e6a5a3fbc8d360d18b3">String_Compare</a>(fileline, fileend);</div><div class="line"><a name="l01266"></a><span class="lineno"> 1266</span>&#160;        <span class="keywordflow">if</span> (res2==0)</div><div class="line"><a name="l01267"></a><span class="lineno"> 1267</span>&#160;            end=strlen(fileend);</div><div class="line"><a name="l01268"></a><span class="lineno"> 1268</span>&#160;        </div><div class="line"><a name="l01269"></a><span class="lineno"> 1269</span>&#160;        res1=<a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a0bbf0ae1391d4e6a5a3fbc8d360d18b3">String_Compare</a>(fileline, fileobject);</div><div class="line"><a name="l01270"></a><span class="lineno"> 1270</span>&#160;        <span class="keywordflow">if</span> (res1==0)</div><div class="line"><a name="l01271"></a><span class="lineno"> 1271</span>&#160;        {</div><div class="line"><a name="l01272"></a><span class="lineno"> 1272</span>&#160;            <span class="keywordflow">if</span> (fscanf(cf,<span class="stringliteral">&quot;%lf&quot;</span>,&amp;inputfile.<a class="code" href="../../d9/d26/structinpfile.html#a57ff2cce78c35a8a128927da9eeccfbc">param</a>)!=1)</div><div class="line"><a name="l01273"></a><span class="lineno"> 1273</span>&#160;                printf(<span class="stringliteral">&quot;Error&quot;</span>);</div><div class="line"><a name="l01274"></a><span class="lineno"> 1274</span>&#160;            inputfile.<a class="code" href="../../d9/d26/structinpfile.html#a23ae60bf94767194de9a09a4eee8cc1d">flag</a>=1;</div><div class="line"><a name="l01275"></a><span class="lineno"> 1275</span>&#160;            end=strlen(fileend);</div><div class="line"><a name="l01276"></a><span class="lineno"> 1276</span>&#160;        }</div><div class="line"><a name="l01277"></a><span class="lineno"> 1277</span>&#160;    }</div><div class="line"><a name="l01278"></a><span class="lineno"> 1278</span>&#160;    <span class="keywordflow">while</span> (end!=strlen(fileend));</div><div class="line"><a name="l01279"></a><span class="lineno"> 1279</span>&#160;    </div><div class="line"><a name="l01280"></a><span class="lineno"> 1280</span>&#160;    <span class="keywordflow">if</span> (inputfile.<a class="code" href="../../d9/d26/structinpfile.html#a23ae60bf94767194de9a09a4eee8cc1d">flag</a>&lt;0)</div><div class="line"><a name="l01281"></a><span class="lineno"> 1281</span>&#160;    {</div><div class="line"><a name="l01282"></a><span class="lineno"> 1282</span>&#160;        printf(<span class="stringliteral">&quot;\n There is no %s input found in %s. Program is terminated. \n&quot;</span>, fileobject, <a class="code" href="../../d0/d75/_func_def_8h.html#aa867dd168d29d6a51276df24caa862ce">controlfile</a>);   </div><div class="line"><a name="l01283"></a><span class="lineno"> 1283</span>&#160;        exit(1);</div><div class="line"><a name="l01284"></a><span class="lineno"> 1284</span>&#160;    }</div><div class="line"><a name="l01285"></a><span class="lineno"> 1285</span>&#160;    fclose(cf);</div><div class="line"><a name="l01286"></a><span class="lineno"> 1286</span>&#160;    <span class="keywordflow">return</span> inputfile;</div><div class="line"><a name="l01287"></a><span class="lineno"> 1287</span>&#160;} </div><div class="line"><a name="l01289"></a><span class="lineno"><a class="line" href="../../d8/d0d/_read_grid_init_8c.html#a977295cc5cf9eca6fa850ec922f4a6b0"> 1289</a></span>&#160;<span class="keywordtype">void</span> <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a977295cc5cf9eca6fa850ec922f4a6b0">ReadAperture</a>()</div><div class="line"><a name="l01291"></a><span class="lineno"> 1291</span>&#160;{</div><div class="line"><a name="l01292"></a><span class="lineno"> 1292</span>&#160;       <span class="keyword">struct </span><a class="code" href="../../d9/d26/structinpfile.html">inpfile</a> inputfile;</div><div class="line"><a name="l01293"></a><span class="lineno"> 1293</span>&#160;    <span class="keywordtype">char</span> cs;</div><div class="line"><a name="l01294"></a><span class="lineno"> 1294</span>&#160;    <span class="keywordtype">int</span> i, res_a;    </div><div class="line"><a name="l01295"></a><span class="lineno"> 1295</span>&#160;    </div><div class="line"><a name="l01296"></a><span class="lineno"> 1296</span>&#160;    inputfile=<a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a2afbea1a5d0b14d8a098f551fe055420">Control_File</a>(<span class="stringliteral">&quot;aperture_type:&quot;</span>,14);</div><div class="line"><a name="l01297"></a><span class="lineno"> 1297</span>&#160;    </div><div class="line"><a name="l01298"></a><span class="lineno"> 1298</span>&#160;    res_a=strncmp(inputfile.<a class="code" href="../../d9/d26/structinpfile.html#a66e8759aa38ee20350f04cdc58dee702">filename</a>,<span class="stringliteral">&quot;frac&quot;</span>,4);</div><div class="line"><a name="l01299"></a><span class="lineno"> 1299</span>&#160;    <span class="comment">// if given aperture is const per fracture    </span></div><div class="line"><a name="l01300"></a><span class="lineno"> 1300</span>&#160;    <span class="keywordflow">if</span> (res_a==0)</div><div class="line"><a name="l01301"></a><span class="lineno"> 1301</span>&#160;    {</div><div class="line"><a name="l01302"></a><span class="lineno"> 1302</span>&#160;        </div><div class="line"><a name="l01303"></a><span class="lineno"> 1303</span>&#160;        inputfile = <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a2afbea1a5d0b14d8a098f551fe055420">Control_File</a>(<span class="stringliteral">&quot;aperture_file:&quot;</span>,14 );</div><div class="line"><a name="l01304"></a><span class="lineno"> 1304</span>&#160;        </div><div class="line"><a name="l01305"></a><span class="lineno"> 1305</span>&#160;        FILE *ad = <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a205add90a27292ac5f18188fa35bcdf5">OpenFile</a> (inputfile.<a class="code" href="../../d9/d26/structinpfile.html#a66e8759aa38ee20350f04cdc58dee702">filename</a>,<span class="stringliteral">&quot;r&quot;</span>);</div><div class="line"><a name="l01306"></a><span class="lineno"> 1306</span>&#160;        printf(<span class="stringliteral">&quot;\n OPEN AND READ FILE: %s \n &quot;</span>,inputfile.<a class="code" href="../../d9/d26/structinpfile.html#a66e8759aa38ee20350f04cdc58dee702">filename</a>); </div><div class="line"><a name="l01307"></a><span class="lineno"> 1307</span>&#160;        <span class="keywordtype">double</span> currentap=0.0, aperturem[<a class="code" href="../../d0/d75/_func_def_8h.html#accb317d0fcd1e5a1683184b91a49ff11">nfract</a>];</div><div class="line"><a name="l01308"></a><span class="lineno"> 1308</span>&#160;        </div><div class="line"><a name="l01309"></a><span class="lineno"> 1309</span>&#160;        <span class="keywordtype">int</span> apmat=0, zn; </div><div class="line"><a name="l01310"></a><span class="lineno"> 1310</span>&#160;        </div><div class="line"><a name="l01311"></a><span class="lineno"> 1311</span>&#160;        <span class="keywordflow">do</span> </div><div class="line"><a name="l01312"></a><span class="lineno"> 1312</span>&#160;            cs=fgetc(ad); </div><div class="line"><a name="l01313"></a><span class="lineno"> 1313</span>&#160;        <span class="keywordflow">while</span> (cs!=<span class="charliteral">&#39;\n&#39;</span>);</div><div class="line"><a name="l01314"></a><span class="lineno"> 1314</span>&#160;        </div><div class="line"><a name="l01315"></a><span class="lineno"> 1315</span>&#160;        <span class="keywordflow">for</span> (i=0; i&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#accb317d0fcd1e5a1683184b91a49ff11">nfract</a>; i++)</div><div class="line"><a name="l01316"></a><span class="lineno"> 1316</span>&#160;        {</div><div class="line"><a name="l01317"></a><span class="lineno"> 1317</span>&#160;            <span class="keywordflow">if</span> (fscanf(ad,<span class="stringliteral">&quot;%d %d %d %lf \n&quot;</span>, &amp;apmat, &amp;zn, &amp;zn, &amp;currentap)!=4)</div><div class="line"><a name="l01318"></a><span class="lineno"> 1318</span>&#160;                printf(<span class="stringliteral">&quot;Error&quot;</span>);</div><div class="line"><a name="l01319"></a><span class="lineno"> 1319</span>&#160;            apmat=apmat*(-1)-6;</div><div class="line"><a name="l01320"></a><span class="lineno"> 1320</span>&#160;            aperturem[apmat-1]=currentap;</div><div class="line"><a name="l01321"></a><span class="lineno"> 1321</span>&#160;        }</div><div class="line"><a name="l01322"></a><span class="lineno"> 1322</span>&#160;        fclose(ad);</div><div class="line"><a name="l01323"></a><span class="lineno"> 1323</span>&#160;        </div><div class="line"><a name="l01324"></a><span class="lineno"> 1324</span>&#160;        </div><div class="line"><a name="l01325"></a><span class="lineno"> 1325</span>&#160;        </div><div class="line"><a name="l01326"></a><span class="lineno"> 1326</span>&#160;        <span class="keywordflow">for</span> (i=0; i&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#a0049b706bb5b3980868a5b1e1b3fac0c">nnodes</a>; i++)</div><div class="line"><a name="l01327"></a><span class="lineno"> 1327</span>&#160;        {</div><div class="line"><a name="l01328"></a><span class="lineno"> 1328</span>&#160;            </div><div class="line"><a name="l01329"></a><span class="lineno"> 1329</span>&#160;            <span class="comment">// define an aperture of the cell with current node as cellcenter   </span></div><div class="line"><a name="l01330"></a><span class="lineno"> 1330</span>&#160;            <span class="keywordflow">if</span> (<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>[1]==0)</div><div class="line"><a name="l01331"></a><span class="lineno"> 1331</span>&#160;                <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#a7588fad77cf759d8db0957c9e957e23a">aperture</a>=aperturem[<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#aa2cd06573422bc415cb8f38a67232de7">fracture</a>[0]-1];</div><div class="line"><a name="l01332"></a><span class="lineno"> 1332</span>&#160;            <span class="keywordflow">else</span></div><div class="line"><a name="l01333"></a><span class="lineno"> 1333</span>&#160;            {</div><div class="line"><a name="l01334"></a><span class="lineno"> 1334</span>&#160;                <span class="keywordflow">if</span> (aperturem[<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>[0]-1]&gt;=aperturem[<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a>[1]-1])</div><div class="line"><a name="l01335"></a><span class="lineno"> 1335</span>&#160;                    <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#a7588fad77cf759d8db0957c9e957e23a">aperture</a>=aperturem[<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#aa2cd06573422bc415cb8f38a67232de7">fracture</a>[0]-1];</div><div class="line"><a name="l01336"></a><span class="lineno"> 1336</span>&#160;                <span class="keywordflow">else</span></div><div class="line"><a name="l01337"></a><span class="lineno"> 1337</span>&#160;                    <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#a7588fad77cf759d8db0957c9e957e23a">aperture</a>=aperturem[<a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#aa2cd06573422bc415cb8f38a67232de7">fracture</a>[1]-1];   </div><div class="line"><a name="l01338"></a><span class="lineno"> 1338</span>&#160;            }</div><div class="line"><a name="l01339"></a><span class="lineno"> 1339</span>&#160;            </div><div class="line"><a name="l01340"></a><span class="lineno"> 1340</span>&#160;        } </div><div class="line"><a name="l01341"></a><span class="lineno"> 1341</span>&#160;    }</div><div class="line"><a name="l01342"></a><span class="lineno"> 1342</span>&#160;    </div><div class="line"><a name="l01343"></a><span class="lineno"> 1343</span>&#160;    <span class="keywordflow">else</span></div><div class="line"><a name="l01344"></a><span class="lineno"> 1344</span>&#160;    {</div><div class="line"><a name="l01345"></a><span class="lineno"> 1345</span>&#160;        res_a=strncmp(inputfile.<a class="code" href="../../d9/d26/structinpfile.html#a66e8759aa38ee20350f04cdc58dee702">filename</a>,<span class="stringliteral">&quot;cell&quot;</span>,4);</div><div class="line"><a name="l01346"></a><span class="lineno"> 1346</span>&#160;        <span class="comment">// if given aperture is given per cell    </span></div><div class="line"><a name="l01347"></a><span class="lineno"> 1347</span>&#160;        <span class="keywordflow">if</span> (res_a==0)</div><div class="line"><a name="l01348"></a><span class="lineno"> 1348</span>&#160;        {</div><div class="line"><a name="l01349"></a><span class="lineno"> 1349</span>&#160;            </div><div class="line"><a name="l01350"></a><span class="lineno"> 1350</span>&#160;            inputfile = <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a2afbea1a5d0b14d8a098f551fe055420">Control_File</a>(<span class="stringliteral">&quot;aperture_file:&quot;</span>,14 );</div><div class="line"><a name="l01351"></a><span class="lineno"> 1351</span>&#160;            </div><div class="line"><a name="l01352"></a><span class="lineno"> 1352</span>&#160;            FILE *ada = <a class="code" href="../../d8/d0d/_read_grid_init_8c.html#a205add90a27292ac5f18188fa35bcdf5">OpenFile</a> (inputfile.<a class="code" href="../../d9/d26/structinpfile.html#a66e8759aa38ee20350f04cdc58dee702">filename</a>,<span class="stringliteral">&quot;r&quot;</span>);</div><div class="line"><a name="l01353"></a><span class="lineno"> 1353</span>&#160;            </div><div class="line"><a name="l01354"></a><span class="lineno"> 1354</span>&#160;            printf(<span class="stringliteral">&quot;\n OPEN AND READ FILE: %s \n &quot;</span>,inputfile.<a class="code" href="../../d9/d26/structinpfile.html#a66e8759aa38ee20350f04cdc58dee702">filename</a>); </div><div class="line"><a name="l01355"></a><span class="lineno"> 1355</span>&#160;            </div><div class="line"><a name="l01356"></a><span class="lineno"> 1356</span>&#160;            <span class="keywordtype">double</span> currentap=0.0;</div><div class="line"><a name="l01357"></a><span class="lineno"> 1357</span>&#160;            <span class="keywordtype">double</span> *aperturem;</div><div class="line"><a name="l01358"></a><span class="lineno"> 1358</span>&#160;            </div><div class="line"><a name="l01359"></a><span class="lineno"> 1359</span>&#160;            aperturem = (<span class="keywordtype">double</span>*)malloc(<a class="code" href="../../d0/d75/_func_def_8h.html#a0049b706bb5b3980868a5b1e1b3fac0c">nnodes</a>*<span class="keyword">sizeof</span>(<span class="keywordtype">double</span>));</div><div class="line"><a name="l01360"></a><span class="lineno"> 1360</span>&#160;            </div><div class="line"><a name="l01361"></a><span class="lineno"> 1361</span>&#160;            </div><div class="line"><a name="l01362"></a><span class="lineno"> 1362</span>&#160;            <span class="keywordtype">int</span> apmat=0; </div><div class="line"><a name="l01363"></a><span class="lineno"> 1363</span>&#160;            <span class="keywordtype">char</span> c;</div><div class="line"><a name="l01364"></a><span class="lineno"> 1364</span>&#160;            </div><div class="line"><a name="l01365"></a><span class="lineno"> 1365</span>&#160;            <span class="keywordflow">do</span> </div><div class="line"><a name="l01366"></a><span class="lineno"> 1366</span>&#160;            {</div><div class="line"><a name="l01367"></a><span class="lineno"> 1367</span>&#160;                </div><div class="line"><a name="l01368"></a><span class="lineno"> 1368</span>&#160;                c=fgetc(ada); </div><div class="line"><a name="l01369"></a><span class="lineno"> 1369</span>&#160;                </div><div class="line"><a name="l01370"></a><span class="lineno"> 1370</span>&#160;            }</div><div class="line"><a name="l01371"></a><span class="lineno"> 1371</span>&#160;            <span class="keywordflow">while</span> (c!=<span class="charliteral">&#39;\n&#39;</span>);</div><div class="line"><a name="l01372"></a><span class="lineno"> 1372</span>&#160;            </div><div class="line"><a name="l01373"></a><span class="lineno"> 1373</span>&#160;            <span class="keywordflow">for</span> (i=0; i&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#a0049b706bb5b3980868a5b1e1b3fac0c">nnodes</a>; i++)</div><div class="line"><a name="l01374"></a><span class="lineno"> 1374</span>&#160;            {</div><div class="line"><a name="l01375"></a><span class="lineno"> 1375</span>&#160;                <span class="keywordflow">if</span>(fscanf(ada,<span class="stringliteral">&quot;%d %lf \n&quot;</span>, &amp;apmat, &amp;currentap)!=2)</div><div class="line"><a name="l01376"></a><span class="lineno"> 1376</span>&#160;                    printf(<span class="stringliteral">&quot;Error&quot;</span>);</div><div class="line"><a name="l01377"></a><span class="lineno"> 1377</span>&#160;                </div><div class="line"><a name="l01378"></a><span class="lineno"> 1378</span>&#160;                aperturem[apmat-1]=currentap;</div><div class="line"><a name="l01379"></a><span class="lineno"> 1379</span>&#160;                </div><div class="line"><a name="l01380"></a><span class="lineno"> 1380</span>&#160;            }</div><div class="line"><a name="l01381"></a><span class="lineno"> 1381</span>&#160;            fclose(ada);</div><div class="line"><a name="l01382"></a><span class="lineno"> 1382</span>&#160;            </div><div class="line"><a name="l01383"></a><span class="lineno"> 1383</span>&#160;            </div><div class="line"><a name="l01384"></a><span class="lineno"> 1384</span>&#160;            </div><div class="line"><a name="l01385"></a><span class="lineno"> 1385</span>&#160;            <span class="keywordflow">for</span> (i=0; i&lt;<a class="code" href="../../d0/d75/_func_def_8h.html#a0049b706bb5b3980868a5b1e1b3fac0c">nnodes</a>; i++)</div><div class="line"><a name="l01386"></a><span class="lineno"> 1386</span>&#160;            {</div><div class="line"><a name="l01387"></a><span class="lineno"> 1387</span>&#160;                </div><div class="line"><a name="l01388"></a><span class="lineno"> 1388</span>&#160;                <span class="comment">// define an aperture of the cell with current node as cellcenter   </span></div><div class="line"><a name="l01389"></a><span class="lineno"> 1389</span>&#160;                </div><div class="line"><a name="l01390"></a><span class="lineno"> 1390</span>&#160;                <a class="code" href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a>[i].<a class="code" href="../../db/d7c/structvertex.html#a7588fad77cf759d8db0957c9e957e23a">aperture</a>=aperturem[i];</div><div class="line"><a name="l01391"></a><span class="lineno"> 1391</span>&#160;                </div><div class="line"><a name="l01392"></a><span class="lineno"> 1392</span>&#160;            }</div><div class="line"><a name="l01393"></a><span class="lineno"> 1393</span>&#160;            free(aperturem);</div><div class="line"><a name="l01394"></a><span class="lineno"> 1394</span>&#160;        }</div><div class="line"><a name="l01395"></a><span class="lineno"> 1395</span>&#160;        </div><div class="line"><a name="l01396"></a><span class="lineno"> 1396</span>&#160;    } </div><div class="line"><a name="l01397"></a><span class="lineno"> 1397</span>&#160;    <span class="keywordflow">return</span>;</div><div class="line"><a name="l01398"></a><span class="lineno"> 1398</span>&#160;}</div><div class="ttc" id="_func_def_8h_html_a6f8c052f8417728038991f7f2826d38d"><div class="ttname"><a href="../../d0/d75/_func_def_8h.html#a6f8c052f8417728038991f7f2826d38d">density</a></div><div class="ttdeci">double density</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d29/main_8c_source.html#l00047">main.c:47</a></div></div>
<div class="ttc" id="structvertex_html_a7588fad77cf759d8db0957c9e957e23a"><div class="ttname"><a href="../../db/d7c/structvertex.html#a7588fad77cf759d8db0957c9e957e23a">vertex::aperture</a></div><div class="ttdeci">double aperture</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d75/_func_def_8h_source.html#l00157">FuncDef.h:157</a></div></div>
<div class="ttc" id="structvertex_html"><div class="ttname"><a href="../../db/d7c/structvertex.html">vertex</a></div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d75/_func_def_8h_source.html#l00106">FuncDef.h:106</a></div></div>
<div class="ttc" id="structvertex_html_aa2cd06573422bc415cb8f38a67232de7"><div class="ttname"><a href="../../db/d7c/structvertex.html#aa2cd06573422bc415cb8f38a67232de7">vertex::fracture</a></div><div class="ttdeci">unsigned int fracture[2]</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d75/_func_def_8h_source.html#l00112">FuncDef.h:112</a></div></div>
<div class="ttc" id="structinpfile_html_a66e8759aa38ee20350f04cdc58dee702"><div class="ttname"><a href="../../d9/d26/structinpfile.html#a66e8759aa38ee20350f04cdc58dee702">inpfile::filename</a></div><div class="ttdeci">char filename[120]</div><div class="ttdef"><b>Definition:</b> <a href="../../d9/d45/_initial_part_positions_8c_source.html#l00011">InitialPartPositions.c:11</a></div></div>
<div class="ttc" id="_func_def_8h_html_a8a3e3776115006efbafec148de4200e0"><div class="ttname"><a href="../../d0/d75/_func_def_8h.html#a8a3e3776115006efbafec148de4200e0">fehm</a></div><div class="ttdeci">unsigned int fehm</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d29/main_8c_source.html#l00028">main.c:28</a></div></div>
<div class="ttc" id="_func_def_8h_html_aa867dd168d29d6a51276df24caa862ce"><div class="ttname"><a href="../../d0/d75/_func_def_8h.html#aa867dd168d29d6a51276df24caa862ce">controlfile</a></div><div class="ttdeci">char controlfile[120]</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d29/main_8c_source.html#l00044">main.c:44</a></div></div>
<div class="ttc" id="_read_grid_init_8c_html_a9bb4185d1b46d02dc42d5889e4d70ebf"><div class="ttname"><a href="../../d8/d0d/_read_grid_init_8c.html#a9bb4185d1b46d02dc42d5889e4d70ebf">Control_Data</a></div><div class="ttdeci">struct inpfile Control_Data(char fileobject[], int ctr)</div><div class="ttdef"><b>Definition:</b> <a href="../../d8/d0d/_read_grid_init_8c_source.html#l01201">ReadGridInit.c:1201</a></div></div>
<div class="ttc" id="_func_def_8h_html_a26a18460ba7bc9d4e9ace81fda1819ee"><div class="ttname"><a href="../../d0/d75/_func_def_8h.html#a26a18460ba7bc9d4e9ace81fda1819ee">cell</a></div><div class="ttdeci">struct element * cell</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d29/main_8c_source.html#l00042">main.c:42</a></div></div>
<div class="ttc" id="structmaterial_html_aa0a097a3f8fe23d9b3bd41d80cbfacfd"><div class="ttname"><a href="../../da/d20/structmaterial.html#aa0a097a3f8fe23d9b3bd41d80cbfacfd">material::nvect_z</a></div><div class="ttdeci">float nvect_z[2]</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d75/_func_def_8h_source.html#l00083">FuncDef.h:83</a></div></div>
<div class="ttc" id="_func_def_8h_html_accb317d0fcd1e5a1683184b91a49ff11"><div class="ttname"><a href="../../d0/d75/_func_def_8h.html#accb317d0fcd1e5a1683184b91a49ff11">nfract</a></div><div class="ttdeci">unsigned int nfract</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d29/main_8c_source.html#l00031">main.c:31</a></div></div>
<div class="ttc" id="_func_def_8h_html_a5225ceefbfdde0f9cb32cb84174a4863"><div class="ttname"><a href="../../d0/d75/_func_def_8h.html#a5225ceefbfdde0f9cb32cb84174a4863">ncells</a></div><div class="ttdeci">unsigned int ncells</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d29/main_8c_source.html#l00030">main.c:30</a></div></div>
<div class="ttc" id="_read_grid_init_8c_html_a361538379ec6b2e063a620235b010bfc"><div class="ttname"><a href="../../d8/d0d/_read_grid_init_8c.html#a361538379ec6b2e063a620235b010bfc">ReadInit</a></div><div class="ttdeci">void ReadInit()</div><div class="ttdef"><b>Definition:</b> <a href="../../d8/d0d/_read_grid_init_8c_source.html#l00016">ReadGridInit.c:16</a></div></div>
<div class="ttc" id="_read_grid_init_8c_html_a335450331ee81be8a4f3dfda40186f5b"><div class="ttname"><a href="../../d8/d0d/_read_grid_init_8c.html#a335450331ee81be8a4f3dfda40186f5b">ReadPFLOTRANfile</a></div><div class="ttdeci">void ReadPFLOTRANfile(int nedges)</div><div class="ttdef"><b>Definition:</b> <a href="../../d8/d0d/_read_grid_init_8c_source.html#l00742">ReadGridInit.c:742</a></div></div>
<div class="ttc" id="structelement_html_ab6062a713eca6e7458529ea45dea64d3"><div class="ttname"><a href="../../d9/db2/structelement.html#ab6062a713eca6e7458529ea45dea64d3">element::veloc_ind</a></div><div class="ttdeci">unsigned int veloc_ind[3]</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d75/_func_def_8h_source.html#l00170">FuncDef.h:170</a></div></div>
<div class="ttc" id="structvertex_html_acf83b561551952403148f73fe032f57b"><div class="ttname"><a href="../../db/d7c/structvertex.html#acf83b561551952403148f73fe032f57b">vertex::numneighb</a></div><div class="ttdeci">unsigned int numneighb</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d75/_func_def_8h_source.html#l00127">FuncDef.h:127</a></div></div>
<div class="ttc" id="_read_grid_init_8c_html_a0bbf0ae1391d4e6a5a3fbc8d360d18b3"><div class="ttname"><a href="../../d8/d0d/_read_grid_init_8c.html#a0bbf0ae1391d4e6a5a3fbc8d360d18b3">String_Compare</a></div><div class="ttdeci">int String_Compare(char string1[], char string2[])</div><div class="ttdef"><b>Definition:</b> <a href="../../d8/d0d/_read_grid_init_8c_source.html#l01176">ReadGridInit.c:1176</a></div></div>
<div class="ttc" id="structelement_html"><div class="ttname"><a href="../../d9/db2/structelement.html">element</a></div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d75/_func_def_8h_source.html#l00162">FuncDef.h:162</a></div></div>
<div class="ttc" id="structmaterial_html"><div class="ttname"><a href="../../da/d20/structmaterial.html">material</a></div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d75/_func_def_8h_source.html#l00074">FuncDef.h:74</a></div></div>
<div class="ttc" id="structmaterial_html_a528c4eed064175c3377dde7380d17ddc"><div class="ttname"><a href="../../da/d20/structmaterial.html#a528c4eed064175c3377dde7380d17ddc">material::firstcell</a></div><div class="ttdeci">unsigned int firstcell</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d75/_func_def_8h_source.html#l00092">FuncDef.h:92</a></div></div>
<div class="ttc" id="_func_def_8h_html_a20238819f2c84ce6d3f083ded9ac612d"><div class="ttname"><a href="../../d0/d75/_func_def_8h.html#a20238819f2c84ce6d3f083ded9ac612d">thickness</a></div><div class="ttdeci">double thickness</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d29/main_8c_source.html#l00049">main.c:49</a></div></div>
<div class="ttc" id="structmaterial_html_a82946cb78555ad8c4c14a12fbd7aa3f8"><div class="ttname"><a href="../../da/d20/structmaterial.html#a82946cb78555ad8c4c14a12fbd7aa3f8">material::firstnode</a></div><div class="ttdeci">unsigned int firstnode</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d75/_func_def_8h_source.html#l00086">FuncDef.h:86</a></div></div>
<div class="ttc" id="_read_grid_init_8c_html_a60556e448bef6314a77260487c969ced"><div class="ttname"><a href="../../d8/d0d/_read_grid_init_8c.html#a60556e448bef6314a77260487c969ced">ReadDataFiles</a></div><div class="ttdeci">void ReadDataFiles()</div><div class="ttdef"><b>Definition:</b> <a href="../../d8/d0d/_read_grid_init_8c_source.html#l00180">ReadGridInit.c:180</a></div></div>
<div class="ttc" id="_read_grid_init_8c_html_a205add90a27292ac5f18188fa35bcdf5"><div class="ttname"><a href="../../d8/d0d/_read_grid_init_8c.html#a205add90a27292ac5f18188fa35bcdf5">OpenFile</a></div><div class="ttdeci">FILE * OpenFile(char filen[120], char fileopt[2])</div><div class="ttdef"><b>Definition:</b> <a href="../../d8/d0d/_read_grid_init_8c_source.html#l00728">ReadGridInit.c:728</a></div></div>
<div class="ttc" id="structvertex_html_a9934ed428ad1db71c9aa1e601649791c"><div class="ttname"><a href="../../db/d7c/structvertex.html#a9934ed428ad1db71c9aa1e601649791c">vertex::flux</a></div><div class="ttdeci">double * flux</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d75/_func_def_8h_source.html#l00148">FuncDef.h:148</a></div></div>
<div class="ttc" id="_read_grid_init_8c_html_aee37300c235f6fed3eea46ac342e7be6"><div class="ttname"><a href="../../d8/d0d/_read_grid_init_8c.html#aee37300c235f6fed3eea46ac342e7be6">WritingInit</a></div><div class="ttdeci">void WritingInit()</div><div class="ttdef"><b>Definition:</b> <a href="../../d8/d0d/_read_grid_init_8c_source.html#l00981">ReadGridInit.c:981</a></div></div>
<div class="ttc" id="structmaterial_html_a84365556a52eb9959d6d869dda76433c"><div class="ttname"><a href="../../da/d20/structmaterial.html#a84365556a52eb9959d6d869dda76433c">material::numbcells</a></div><div class="ttdeci">unsigned int numbcells</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d75/_func_def_8h_source.html#l00095">FuncDef.h:95</a></div></div>
<div class="ttc" id="_func_def_8h_html_ab71244130eef93109128572e8ef83c2b"><div class="ttname"><a href="../../d0/d75/_func_def_8h.html#ab71244130eef93109128572e8ef83c2b">fracture</a></div><div class="ttdeci">struct material * fracture</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d29/main_8c_source.html#l00039">main.c:39</a></div></div>
<div class="ttc" id="_read_grid_init_8c_html_a977295cc5cf9eca6fa850ec922f4a6b0"><div class="ttname"><a href="../../d8/d0d/_read_grid_init_8c.html#a977295cc5cf9eca6fa850ec922f4a6b0">ReadAperture</a></div><div class="ttdeci">void ReadAperture()</div><div class="ttdef"><b>Definition:</b> <a href="../../d8/d0d/_read_grid_init_8c_source.html#l01289">ReadGridInit.c:1289</a></div></div>
<div class="ttc" id="structinpfile_html_a57ff2cce78c35a8a128927da9eeccfbc"><div class="ttname"><a href="../../d9/d26/structinpfile.html#a57ff2cce78c35a8a128927da9eeccfbc">inpfile::param</a></div><div class="ttdeci">double param</div><div class="ttdef"><b>Definition:</b> <a href="../../d9/d45/_initial_part_positions_8c_source.html#l00013">InitialPartPositions.c:13</a></div></div>
<div class="ttc" id="structvertex_html_a82e41673a29352ee0f004ae7890d5266"><div class="ttname"><a href="../../db/d7c/structvertex.html#a82e41673a29352ee0f004ae7890d5266">vertex::indnodes</a></div><div class="ttdeci">unsigned int * indnodes</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d75/_func_def_8h_source.html#l00136">FuncDef.h:136</a></div></div>
<div class="ttc" id="_func_def_8h_html_a6d971fbeb47db134f84ff99053b7c47d"><div class="ttname"><a href="../../d0/d75/_func_def_8h.html#a6d971fbeb47db134f84ff99053b7c47d">nzone_in</a></div><div class="ttdeci">unsigned int nzone_in</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d29/main_8c_source.html#l00035">main.c:35</a></div></div>
<div class="ttc" id="_func_def_8h_html_aa27b8bb0d1e8acff46eaadd07476ed04"><div class="ttname"><a href="../../d0/d75/_func_def_8h.html#aa27b8bb0d1e8acff46eaadd07476ed04">totalFluxIn</a></div><div class="ttdeci">double totalFluxIn</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d29/main_8c_source.html#l00052">main.c:52</a></div></div>
<div class="ttc" id="_func_def_8h_html_ae04e94bac8fc762dd97706043f25eaa4"><div class="ttname"><a href="../../d0/d75/_func_def_8h.html#ae04e94bac8fc762dd97706043f25eaa4">nodezonein</a></div><div class="ttdeci">unsigned int * nodezonein</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d29/main_8c_source.html#l00036">main.c:36</a></div></div>
<div class="ttc" id="_func_def_8h_html_a7f54a7ad2e8c4f2214887aeac797ce91"><div class="ttname"><a href="../../d0/d75/_func_def_8h.html#a7f54a7ad2e8c4f2214887aeac797ce91">pflotran</a></div><div class="ttdeci">unsigned int pflotran</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d29/main_8c_source.html#l00027">main.c:27</a></div></div>
<div class="ttc" id="structmaterial_html_a64fad3469b934d7e29be84f2d9b7d7a3"><div class="ttname"><a href="../../da/d20/structmaterial.html#a64fad3469b934d7e29be84f2d9b7d7a3">material::nvect_xy</a></div><div class="ttdeci">float nvect_xy[2]</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d75/_func_def_8h_source.html#l00080">FuncDef.h:80</a></div></div>
<div class="ttc" id="structvertex_html_aeabf5788639be2723927c854aa11cd33"><div class="ttname"><a href="../../db/d7c/structvertex.html#aeabf5788639be2723927c854aa11cd33">vertex::type</a></div><div class="ttdeci">unsigned int * type</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d75/_func_def_8h_source.html#l00145">FuncDef.h:145</a></div></div>
<div class="ttc" id="_read_grid_init_8c_html_aac796a2c642d933ded40275edb457d16"><div class="ttname"><a href="../../d8/d0d/_read_grid_init_8c.html#aac796a2c642d933ded40275edb457d16">CheckGrid</a></div><div class="ttdeci">void CheckGrid()</div><div class="ttdef"><b>Definition:</b> <a href="../../d8/d0d/_read_grid_init_8c_source.html#l01055">ReadGridInit.c:1055</a></div></div>
<div class="ttc" id="structinpfile_html_a23ae60bf94767194de9a09a4eee8cc1d"><div class="ttname"><a href="../../d9/d26/structinpfile.html#a23ae60bf94767194de9a09a4eee8cc1d">inpfile::flag</a></div><div class="ttdeci">long int flag</div><div class="ttdef"><b>Definition:</b> <a href="../../d9/d45/_initial_part_positions_8c_source.html#l00012">InitialPartPositions.c:12</a></div></div>
<div class="ttc" id="_read_grid_init_8c_html_a9bf66a3ae3be79cacf8836e88dbdcef1"><div class="ttname"><a href="../../d8/d0d/_read_grid_init_8c.html#a9bf66a3ae3be79cacf8836e88dbdcef1">ReadFEHMfile</a></div><div class="ttdeci">void ReadFEHMfile(int nedges)</div><div class="ttdef"><b>Definition:</b> <a href="../../d8/d0d/_read_grid_init_8c_source.html#l00879">ReadGridInit.c:879</a></div></div>
<div class="ttc" id="structmaterial_html_a9bbfaca53483df79578f4ae037867851"><div class="ttname"><a href="../../da/d20/structmaterial.html#a9bbfaca53483df79578f4ae037867851">material::lastnode</a></div><div class="ttdeci">unsigned int lastnode</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d75/_func_def_8h_source.html#l00089">FuncDef.h:89</a></div></div>
<div class="ttc" id="_func_def_8h_html_a0049b706bb5b3980868a5b1e1b3fac0c"><div class="ttname"><a href="../../d0/d75/_func_def_8h.html#a0049b706bb5b3980868a5b1e1b3fac0c">nnodes</a></div><div class="ttdeci">unsigned int nnodes</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d29/main_8c_source.html#l00029">main.c:29</a></div></div>
<div class="ttc" id="structvertex_html_a54ac97be271319fa385aef0685ea0641"><div class="ttname"><a href="../../db/d7c/structvertex.html#a54ac97be271319fa385aef0685ea0641">vertex::pressure</a></div><div class="ttdeci">double pressure</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d75/_func_def_8h_source.html#l00124">FuncDef.h:124</a></div></div>
<div class="ttc" id="structvertex_html_aff6495cfbefb8dffd8714d7c68810ca6"><div class="ttname"><a href="../../db/d7c/structvertex.html#aff6495cfbefb8dffd8714d7c68810ca6">vertex::area</a></div><div class="ttdeci">double * area</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d75/_func_def_8h_source.html#l00151">FuncDef.h:151</a></div></div>
<div class="ttc" id="_func_def_8h_html_a9d0d7da8d3c9e75857a16e168969f89d"><div class="ttname"><a href="../../d0/d75/_func_def_8h.html#a9d0d7da8d3c9e75857a16e168969f89d">node</a></div><div class="ttdeci">struct vertex * node</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d29/main_8c_source.html#l00040">main.c:40</a></div></div>
<div class="ttc" id="structvertex_html_adc1951216db706914f5963da2e58accc"><div class="ttname"><a href="../../db/d7c/structvertex.html#adc1951216db706914f5963da2e58accc">vertex::fracts</a></div><div class="ttdeci">unsigned int ** fracts</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d75/_func_def_8h_source.html#l00142">FuncDef.h:142</a></div></div>
<div class="ttc" id="structvertex_html_aa8c5c50393696a507d20dda8ec69fd51"><div class="ttname"><a href="../../db/d7c/structvertex.html#aa8c5c50393696a507d20dda8ec69fd51">vertex::typeN</a></div><div class="ttdeci">unsigned int typeN</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d75/_func_def_8h_source.html#l00109">FuncDef.h:109</a></div></div>
<div class="ttc" id="_read_grid_init_8c_html_a9730ad314b17991a43fca06a97274ff1"><div class="ttname"><a href="../../d8/d0d/_read_grid_init_8c.html#a9730ad314b17991a43fca06a97274ff1">AdjacentCells</a></div><div class="ttdeci">void AdjacentCells(int ln, int in, int jn, int kn)</div><div class="ttdef"><b>Definition:</b> <a href="../../d8/d0d/_read_grid_init_8c_source.html#l00540">ReadGridInit.c:540</a></div></div>
<div class="ttc" id="_func_def_8h_html_a9bbb8dd86b166646cdce87a545a36fa7"><div class="ttname"><a href="../../d0/d75/_func_def_8h.html#a9bbb8dd86b166646cdce87a545a36fa7">max_neighb</a></div><div class="ttdeci">unsigned int max_neighb</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d29/main_8c_source.html#l00032">main.c:32</a></div></div>
<div class="ttc" id="structinpfile_html"><div class="ttname"><a href="../../d9/d26/structinpfile.html">inpfile</a></div><div class="ttdef"><b>Definition:</b> <a href="../../d9/d45/_initial_part_positions_8c_source.html#l00010">InitialPartPositions.c:10</a></div></div>
<div class="ttc" id="_read_grid_init_8c_html_a2afbea1a5d0b14d8a098f551fe055420"><div class="ttname"><a href="../../d8/d0d/_read_grid_init_8c.html#a2afbea1a5d0b14d8a098f551fe055420">Control_File</a></div><div class="ttdeci">struct inpfile Control_File(char fileobject[], int ctr)</div><div class="ttdef"><b>Definition:</b> <a href="../../d8/d0d/_read_grid_init_8c_source.html#l01090">ReadGridInit.c:1090</a></div></div>
<div class="ttc" id="_func_def_8h_html"><div class="ttname"><a href="../../d0/d75/_func_def_8h.html">FuncDef.h</a></div></div>
<div class="ttc" id="_func_def_8h_html_a396d7f3e7653807b76887efe794f2eb7"><div class="ttname"><a href="../../d0/d75/_func_def_8h.html#a396d7f3e7653807b76887efe794f2eb7">maindir</a></div><div class="ttdeci">char maindir[125]</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d29/main_8c_source.html#l00043">main.c:43</a></div></div>
<div class="ttc" id="structmaterial_html_add2db22d2a9dd5c1c2ec6f14038d43f6"><div class="ttname"><a href="../../da/d20/structmaterial.html#add2db22d2a9dd5c1c2ec6f14038d43f6">material::theta</a></div><div class="ttdeci">float theta</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d75/_func_def_8h_source.html#l00077">FuncDef.h:77</a></div></div>
<div class="ttc" id="_read_grid_init_8c_html_a484100bd5902d4efcdd15c21d1cb9048"><div class="ttname"><a href="../../d8/d0d/_read_grid_init_8c.html#a484100bd5902d4efcdd15c21d1cb9048">Control_File_Optional</a></div><div class="ttdeci">struct inpfile Control_File_Optional(char fileobject[], int ctr)</div><div class="ttdef"><b>Definition:</b> <a href="../../d8/d0d/_read_grid_init_8c_source.html#l01135">ReadGridInit.c:1135</a></div></div>
<div class="ttc" id="_read_grid_init_8c_html_a922a07b425353141b29d8d57e830a7c1"><div class="ttname"><a href="../../d8/d0d/_read_grid_init_8c.html#a922a07b425353141b29d8d57e830a7c1">Control_Param</a></div><div class="ttdeci">struct inpfile Control_Param(char fileobject[], int ctr)</div><div class="ttdef"><b>Definition:</b> <a href="../../d8/d0d/_read_grid_init_8c_source.html#l01245">ReadGridInit.c:1245</a></div></div>
<div class="ttc" id="_read_grid_init_8c_html_adf46a0a89792c3085aa47f07957c6955"><div class="ttname"><a href="../../d8/d0d/_read_grid_init_8c.html#adf46a0a89792c3085aa47f07957c6955">ReadBoundaryNodes</a></div><div class="ttdeci">void ReadBoundaryNodes()</div><div class="ttdef"><b>Definition:</b> <a href="../../d8/d0d/_read_grid_init_8c_source.html#l00581">ReadGridInit.c:581</a></div></div>
<div class="ttc" id="structvertex_html_a583032cadaa99e8f5c044d3bd10191cf"><div class="ttname"><a href="../../db/d7c/structvertex.html#a583032cadaa99e8f5c044d3bd10191cf">vertex::cells</a></div><div class="ttdeci">unsigned int ** cells</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d75/_func_def_8h_source.html#l00139">FuncDef.h:139</a></div></div>
<div class="ttc" id="_func_def_8h_html_a8e227a7bdba87548413eeac3daae26a6"><div class="ttname"><a href="../../d0/d75/_func_def_8h.html#a8e227a7bdba87548413eeac3daae26a6">nodezoneout</a></div><div class="ttdeci">unsigned int * nodezoneout</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d29/main_8c_source.html#l00037">main.c:37</a></div></div>
<div class="ttc" id="structelement_html_af51b08146a1c495aadf45e7f085e1267"><div class="ttname"><a href="../../d9/db2/structelement.html#af51b08146a1c495aadf45e7f085e1267">element::fracture</a></div><div class="ttdeci">unsigned int fracture</div><div class="ttdef"><b>Definition:</b> <a href="../../d0/d75/_func_def_8h_source.html#l00164">FuncDef.h:164</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_f80ddb2df819b297fd9c7beccba09984.html">Docs_PT</a></li><li class="navelem"><a class="el" href="../../dir_966eb28a5fc4cd2ac9e3086fcb212f97.html">ParticleTracking_source</a></li><li class="navelem"><a class="el" href="../../d8/d0d/_read_grid_init_8c.html">ReadGridInit.c</a></li>
    <li class="footer">Generated by
    <a href="http://www.doxygen.org/index.html">
    <img class="footer" src="../../doxygen.png" alt="doxygen"/></a> 1.8.15 </li>
  </ul>
</div>
</body>
</html>
