…lines 1–34 unchanged (34 lines)
35 initMenu('',false,false,'search.php','Recherche');
36});
37/* @license-end */</script>
38<div id="main-nav"></div>
39<div id="nav-path" class="navpath">
40 <ul>
41<li class="navelem"><a class="el" href="dir_a772e3069001940b0633c6a305062f73.html">tests</a></li><li class="navelem"><a class="el" href="dir_4efb71908f8f3ec8ce18fd279b2c03b0.html">f</a></li> </ul>
42</div>
43</div><!-- top -->
44<div class="header">
45 <div class="headertitle">
46<div class="title">test8.f</div> </div>
47</div><!--header-->
48<div class="contents">
49<a href="a00989.html">Aller à la documentation de ce fichier.</a><div class="fragment"><div class="line"><a name="l00001"></a><span class="lineno"> 1</span> <span class="comment">C* This file is part of MED.</span></div>
50<div class="line"><a name="l00002"></a><span class="lineno"> 2</span> <span class="comment">C*</span></div>
51<div class="line"><a name="l00003"></a><span class="lineno"> 3</span> <span class="comment">C* COPYRIGHT (C) 1999 - 2021 EDF R&D, CEA/DEN</span></div>
52<div class="line"><a name="l00004"></a><span class="lineno"> 4</span> <span class="comment">C* MED is free software: you can redistribute it and/or modify</span></div>
53<div class="line"><a name="l00005"></a><span class="lineno"> 5</span> <span class="comment">C* it under the terms of the GNU Lesser General Public License as published by</span></div>
54<div class="line"><a name="l00006"></a><span class="lineno"> 6</span> <span class="comment">C* the Free Software Foundation, either version 3 of the License, or</span></div>
55<div class="line"><a name="l00007"></a><span class="lineno"> 7</span> <span class="comment">C* (at your option) any later version.</span></div>
56<div class="line"><a name="l00008"></a><span class="lineno"> 8</span> <span class="comment">C*</span></div>
57<div class="line"><a name="l00009"></a><span class="lineno"> 9</span> <span class="comment">C* MED is distributed in the hope that it will be useful,</span></div>
…lines 58–80 unchanged (23 lines)
81<div class="line"><a name="l00033"></a><span class="lineno"> 33</span>  <span class="keywordtype">integer</span> mdim, sdim</div>
82<div class="line"><a name="l00034"></a><span class="lineno"> 34</span>  <span class="keywordtype">character*64</span> nomfam</div>
83<div class="line"><a name="l00035"></a><span class="lineno"> 35</span>  <span class="keywordtype">integer</span> numfam</div>
84<div class="line"><a name="l00036"></a><span class="lineno"> 36</span>  <span class="keywordtype">integer</span> ngro</div>
85<div class="line"><a name="l00037"></a><span class="lineno"> 37</span>  <span class="keywordtype">character*80</span> gro</div>
86<div class="line"><a name="l00038"></a><span class="lineno"> 38</span>  <span class="keywordtype">integer</span> nfamn</div>
87<div class="line"><a name="l00039"></a><span class="lineno"> 39</span>  <span class="keywordtype">character*16</span> <a class="code" href="a02228_ad8ab729381f270b100f3d05b6c6676fc.html#ad8ab729381f270b100f3d05b6c6676fc">str</a></div>
88<div class="line"><a name="l00040"></a><span class="lineno"> 40</span>  <span class="keywordtype">character*16</span> nomcoo(2)</div>
89<div class="line"><a name="l00041"></a><span class="lineno"> 41</span>  <span class="keywordtype">character*16</span> unicoo(2)</div>
90<div class="line"><a name="l00042"></a><span class="lineno"> 42</span>  </div>
91<div class="line"><a name="l00043"></a><span class="lineno"> 43</span>  parameter( mdim = 2, nfamn = 2 , sdim = 2)</div>
92<div class="line"><a name="l00044"></a><span class="lineno"> 44</span>  <span class="keyword">data</span> maa /<span class="stringliteral">"maa1"</span>/</div>
93<div class="line"><a name="l00045"></a><span class="lineno"> 45</span>  <span class="keyword">data</span> nomcoo /<span class="stringliteral">"x"</span>,<span class="stringliteral">"y"</span>/, unicoo /<span class="stringliteral">"cm"</span>,<span class="stringliteral">"cm"</span>/</div>
94<div class="line"><a name="l00046"></a><span class="lineno"> 46</span>  </div>
95<div class="line"><a name="l00047"></a><span class="lineno"> 47</span> <span class="comment">C ** Creation du fichier test8.med **</span></div>
96<div class="line"><a name="l00048"></a><span class="lineno"> 48</span>  <span class="keyword">call </span><a class="code" href="a02336_ga68bd28216f39b6aac3f3cdeb58ca0343.html#ga68bd28216f39b6aac3f3cdeb58ca0343">mfiope</a>(fid,<span class="stringliteral">'test8.med'</span>,med_acc_rdwr, cret)</div>
97<div class="line"><a name="l00049"></a><span class="lineno"> 49</span>  print *,cret</div>
98<div class="line"><a name="l00050"></a><span class="lineno"> 50</span>  <span class="keywordflow">if</span> (cret .ne. 0 ) <span class="keywordflow">then</span></div>
99<div class="line"><a name="l00051"></a><span class="lineno"> 51</span>  print *,<span class="stringliteral">'Erreur creation du fichier'</span></div>
100<div class="line"><a name="l00052"></a><span class="lineno"> 52</span>  <span class="keyword">call </span>efexit(-1)</div>
101<div class="line"><a name="l00053"></a><span class="lineno"> 53</span> <span class="keywordflow"> endif</span> </div>
102<div class="line"><a name="l00054"></a><span class="lineno"> 54</span>  </div>
103<div class="line"><a name="l00055"></a><span class="lineno"> 55</span> <span class="comment">C ** Creation du maillage maa de dimension 2 **</span></div>
104<div class="line"><a name="l00056"></a><span class="lineno"> 56</span>  <span class="keyword">call </span><a class="code" href="a02342_ga2197e06484561ced5e71f6edd39fd1fd.html#ga2197e06484561ced5e71f6edd39fd1fd">mmhcre</a>(fid,maa,mdim,sdim,med_unstructured_mesh,</div>
105<div class="line"><a name="l00057"></a><span class="lineno"> 57</span>  & <span class="stringliteral">'un maillage pour test8'</span>,<span class="stringliteral">""</span>,med_sort_dtit,</div>
106<div class="line"><a name="l00058"></a><span class="lineno"> 58</span>  & med_cartesian,nomcoo,unicoo,cret) </div>
107<div class="line"><a name="l00059"></a><span class="lineno"> 59</span>  print *,cret</div>
108<div class="line"><a name="l00060"></a><span class="lineno"> 60</span>  <span class="keywordflow">if</span> (cret .ne. 0 ) <span class="keywordflow">then</span></div>
109<div class="line"><a name="l00061"></a><span class="lineno"> 61</span>  print *,<span class="stringliteral">'Erreur creation du maillage'</span></div>
110<div class="line"><a name="l00062"></a><span class="lineno"> 62</span>  <span class="keyword">call </span>efexit(-1)</div>
…lines 111–120 unchanged (10 lines)
121<div class="line"><a name="l00073"></a><span class="lineno"> 73</span> <span class="comment">C ** **</span></div>
122<div class="line"><a name="l00074"></a><span class="lineno"> 74</span>  </div>
123<div class="line"><a name="l00075"></a><span class="lineno"> 75</span> <span class="comment">C * Creation de la famille 0 **</span></div>
124<div class="line"><a name="l00076"></a><span class="lineno"> 76</span>  numfam = 0</div>
125<div class="line"><a name="l00077"></a><span class="lineno"> 77</span>  nomfam=<span class="stringliteral">"FAMILLE_0"</span></div>
126<div class="line"><a name="l00078"></a><span class="lineno"> 78</span>  ngro = 0</div>
127<div class="line"><a name="l00079"></a><span class="lineno"> 79</span>  <span class="keyword">call </span><a class="code" href="a02334_gafbaf17c3b2fa18a5ff7ec5fdc1d6ee34.html#gafbaf17c3b2fa18a5ff7ec5fdc1d6ee34">mfacre</a>(fid,maa,nomfam,numfam,ngro,gro,cret)</div>
128<div class="line"><a name="l00080"></a><span class="lineno"> 80</span>  print *,cret</div>
129<div class="line"><a name="l00081"></a><span class="lineno"> 81</span>  <span class="keywordflow">if</span> (cret .ne. 0 ) <span class="keywordflow">then</span></div>
130<div class="line"><a name="l00082"></a><span class="lineno"> 82</span>  print *,<span class="stringliteral">'Erreur creation de la famille 0'</span></div>
131<div class="line"><a name="l00083"></a><span class="lineno"> 83</span>  <span class="keyword">call </span>efexit(-1)</div>
132<div class="line"><a name="l00084"></a><span class="lineno"> 84</span> <span class="keywordflow"> endif</span> </div>
133<div class="line"><a name="l00085"></a><span class="lineno"> 85</span>  </div>
134<div class="line"><a name="l00086"></a><span class="lineno"> 86</span> <span class="comment">C * Creation pour correspondre aux cas tests precedents, 3 familles *</span></div>
135<div class="line"><a name="l00087"></a><span class="lineno"> 87</span> <span class="comment">C * d'elements (-1,-2,-3) et deux familles de noeuds (1,2) *</span></div>
136<div class="line"><a name="l00088"></a><span class="lineno"> 88</span>  <span class="keywordflow">do</span> numfam=-1,-3,-1</div>
137<div class="line"><a name="l00089"></a><span class="lineno"> 89</span>  <span class="keyword">write</span>(<a class="code" href="a02228_ad8ab729381f270b100f3d05b6c6676fc.html#ad8ab729381f270b100f3d05b6c6676fc">str</a>,<span class="stringliteral">'(I1.0)'</span>) (-numfam)</div>
138<div class="line"><a name="l00090"></a><span class="lineno"> 90</span>  nomfam = <span class="stringliteral">"FAMILLE_ELEMENT_"</span>//<a class="code" href="a02228_ad8ab729381f270b100f3d05b6c6676fc.html#ad8ab729381f270b100f3d05b6c6676fc">str</a></div>
139<div class="line"><a name="l00091"></a><span class="lineno"> 91</span>  gro=<span class="stringliteral">"groupe1"</span></div>
140<div class="line"><a name="l00092"></a><span class="lineno"> 92</span>  ngro = 1</div>
141<div class="line"><a name="l00093"></a><span class="lineno"> 93</span>  <span class="keyword">call </span><a class="code" href="a02334_gafbaf17c3b2fa18a5ff7ec5fdc1d6ee34.html#gafbaf17c3b2fa18a5ff7ec5fdc1d6ee34">mfacre</a>(fid,maa,nomfam,numfam,ngro,gro,cret)</div>
142<div class="line"><a name="l00094"></a><span class="lineno"> 94</span>  print *,cret</div>
143<div class="line"><a name="l00095"></a><span class="lineno"> 95</span>  <span class="keywordflow">if</span> (cret .ne. 0 ) <span class="keywordflow">then</span></div>
144<div class="line"><a name="l00096"></a><span class="lineno"> 96</span>  print *,<span class="stringliteral">'Erreur creation de famille'</span></div>
145<div class="line"><a name="l00097"></a><span class="lineno"> 97</span>  <span class="keyword">call </span>efexit(-1)</div>
146<div class="line"><a name="l00098"></a><span class="lineno"> 98</span> <span class="keywordflow"> endif</span> </div>
147<div class="line"><a name="l00099"></a><span class="lineno"> 99</span> <span class="keywordflow"> end do</span></div>
148<div class="line"><a name="l00100"></a><span class="lineno"> 100</span>  </div>
149<div class="line"><a name="l00101"></a><span class="lineno"> 101</span>  <span class="keywordflow">do</span> numfam=1,nfamn</div>
150<div class="line"><a name="l00102"></a><span class="lineno"> 102</span>  <span class="keyword">write</span>(<a class="code" href="a02228_ad8ab729381f270b100f3d05b6c6676fc.html#ad8ab729381f270b100f3d05b6c6676fc">str</a>,<span class="stringliteral">'(I1.0)'</span>) numfam</div>
151<div class="line"><a name="l00103"></a><span class="lineno"> 103</span>  nomfam = <span class="stringliteral">"FAMILLE_NOEUD_"</span>//<a class="code" href="a02228_ad8ab729381f270b100f3d05b6c6676fc.html#ad8ab729381f270b100f3d05b6c6676fc">str</a></div>
152<div class="line"><a name="l00104"></a><span class="lineno"> 104</span>  gro=<span class="stringliteral">"groupe1"</span></div>
153<div class="line"><a name="l00105"></a><span class="lineno"> 105</span>  ngro = 1</div>
154<div class="line"><a name="l00106"></a><span class="lineno"> 106</span>  <span class="keyword">call </span><a class="code" href="a02334_gafbaf17c3b2fa18a5ff7ec5fdc1d6ee34.html#gafbaf17c3b2fa18a5ff7ec5fdc1d6ee34">mfacre</a>(fid,maa,nomfam,numfam,ngro,gro,cret)</div>
155<div class="line"><a name="l00107"></a><span class="lineno"> 107</span>  print *,cret</div>
156<div class="line"><a name="l00108"></a><span class="lineno"> 108</span>  <span class="keywordflow">if</span> (cret .ne. 0 ) <span class="keywordflow">then</span></div>
157<div class="line"><a name="l00109"></a><span class="lineno"> 109</span>  print *,<span class="stringliteral">'Erreur creation de famille'</span></div>
158<div class="line"><a name="l00110"></a><span class="lineno"> 110</span>  <span class="keyword">call </span>efexit(-1)</div>
159<div class="line"><a name="l00111"></a><span class="lineno"> 111</span> <span class="keywordflow"> endif</span> </div>
160<div class="line"><a name="l00112"></a><span class="lineno"> 112</span> <span class="keywordflow"> end do</span></div>
161<div class="line"><a name="l00113"></a><span class="lineno"> 113</span>  </div>
162<div class="line"><a name="l00114"></a><span class="lineno"> 114</span>  </div>
163<div class="line"><a name="l00115"></a><span class="lineno"> 115</span> <span class="comment">C * Fermeture du fichier *</span></div>
164<div class="line"><a name="l00116"></a><span class="lineno"> 116</span>  <span class="keyword">call </span><a class="code" href="a02336_gabaf92f77da8cad332344587fca32c410.html#gabaf92f77da8cad332344587fca32c410">mficlo</a>(fid,cret)</div>
165<div class="line"><a name="l00117"></a><span class="lineno"> 117</span>  print *,cret</div>
166<div class="line"><a name="l00118"></a><span class="lineno"> 118</span>  <span class="keywordflow">if</span> (cret .ne. 0 ) <span class="keywordflow">then</span></div>
167<div class="line"><a name="l00119"></a><span class="lineno"> 119</span>  print *,<span class="stringliteral">'Erreur fermeture du fichier'</span></div>
168<div class="line"><a name="l00120"></a><span class="lineno"> 120</span>  <span class="keyword">call </span>efexit(-1)</div>
169<div class="line"><a name="l00121"></a><span class="lineno"> 121</span> <span class="keywordflow"> endif</span> </div>
170<div class="line"><a name="l00122"></a><span class="lineno"> 122</span> <span class="comment">C</span></div>
171<div class="line"><a name="l00123"></a><span class="lineno"> 123</span>  <span class="keyword">end </span></div>
172<div class="line"><a name="l00124"></a><span class="lineno"> 124</span>  </div>
173<div class="line"><a name="l00125"></a><span class="lineno"> 125</span>  </div>
174<div class="line"><a name="l00126"></a><span class="lineno"> 126</span>  </div>
175<div class="line"><a name="l00127"></a><span class="lineno"> 127</span>  </div>
176<div class="line"><a name="l00128"></a><span class="lineno"> 128</span>  </div>
177<div class="line"><a name="l00129"></a><span class="lineno"> 129</span>  </div>
178</div><!-- fragment --></div><!-- contents -->
179<div class="ttc" id="aa00989_ab43583601b0bf5a77f82ad47cde94a89_html_ab43583601b0bf5a77f82ad47cde94a89"><div class="ttname"><a href="a00989_ab43583601b0bf5a77f82ad47cde94a89.html#ab43583601b0bf5a77f82ad47cde94a89">test8</a></div><div class="ttdeci">program test8</div><div class="ttdef"><b>Definition:</b> <a href="a00989_source.html#l00024">test8.f:24</a></div></div>
180<div class="ttc" id="aa02336_gabaf92f77da8cad332344587fca32c410_html_gabaf92f77da8cad332344587fca32c410"><div class="ttname"><a href="a02336_gabaf92f77da8cad332344587fca32c410.html#gabaf92f77da8cad332344587fca32c410">mficlo</a></div><div class="ttdeci">subroutine mficlo(fid, cret)</div><div class="ttdoc">Fermeture d'un fichier MED.</div><div class="ttdef"><b>Definition:</b> <a href="a02012_source.html#l00082">medfile.f:82</a></div></div>
181<div class="ttc" id="aa02342_ga2197e06484561ced5e71f6edd39fd1fd_html_ga2197e06484561ced5e71f6edd39fd1fd"><div class="ttname"><a href="a02342_ga2197e06484561ced5e71f6edd39fd1fd.html#ga2197e06484561ced5e71f6edd39fd1fd">mmhcre</a></div><div class="ttdeci">subroutine mmhcre(fid, name, sdim, mdim, mtype, desc, dtunit, stype, atype, aname, aunit, cret)</div><div class="ttdoc">Cette routine permet de créer un maillage dans un fichier.</div><div class="ttdef"><b>Definition:</b> <a href="a02033_source.html#l00020">medmesh.f:20</a></div></div>
182<div class="ttc" id="aa02336_ga68bd28216f39b6aac3f3cdeb58ca0343_html_ga68bd28216f39b6aac3f3cdeb58ca0343"><div class="ttname"><a href="a02336_ga68bd28216f39b6aac3f3cdeb58ca0343.html#ga68bd28216f39b6aac3f3cdeb58ca0343">mfiope</a></div><div class="ttdeci">subroutine mfiope(fid, name, access, cret)</div><div class="ttdoc">Ouverture d'un fichier MED.</div><div class="ttdef"><b>Definition:</b> <a href="a02012_source.html#l00042">medfile.f:42</a></div></div>
183<div class="ttc" id="aa02334_gafbaf17c3b2fa18a5ff7ec5fdc1d6ee34_html_gafbaf17c3b2fa18a5ff7ec5fdc1d6ee34"><div class="ttname"><a href="a02334_gafbaf17c3b2fa18a5ff7ec5fdc1d6ee34.html#gafbaf17c3b2fa18a5ff7ec5fdc1d6ee34">mfacre</a></div><div class="ttdeci">subroutine mfacre(fid, name, fname, fnum, ngro, gname, cret)</div><div class="ttdoc">Cette routine permet la création d'une famille portant sur les entités d'un maillage.</div><div class="ttdef"><b>Definition:</b> <a href="a02006_source.html#l00019">medfamily.f:19</a></div></div>
184<div class="ttc" id="aa02228_ad8ab729381f270b100f3d05b6c6676fc_html_ad8ab729381f270b100f3d05b6c6676fc"><div class="ttname"><a href="a02228_ad8ab729381f270b100f3d05b6c6676fc.html#ad8ab729381f270b100f3d05b6c6676fc">str</a></div><div class="ttdeci">#define str(s)</div><div class="ttdef"><b>Definition:</b> <a href="a02228_source.html#l00126">mdump2.c:126</a></div></div>
185<!-- start footer part -->
186<hr class="footer"/><address class="footer"><small>
187Généré le Vendredi 8 Octobre 2021 13:44:06 pour MED fichier par  <a href="http://www.doxygen.org/index.html">
188<img class="footer" src="doxygen.png" alt="doxygen"/>
189</a> 1.8.16
190</small></address>
191</body>
192</html>
193