<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style></head>
<body class='hmmessage'><div dir='ltr'>
<br> <BR><div><div id="SkyDrivePlaceholder"></div><hr id="stopSpelling"><br>
<style><!--
.ExternalClass .ecxhmmessage P
{padding:0px;}
.ExternalClass body.ecxhmmessage
{font-size:10pt;font-family:Tahoma;}
--></style>
<div dir="ltr">
Dear All,<br>I keep on my doctorate program.Grads is one of softwares which will be used on my studies.<br>My fortran code to open and see files extended "dat" is below,but ż cant open file extented dat,,any idea? <br> Thanks for your assistance.</div><div dir="ltr">Regards,<br> Ali Demir KESKŻNER <br> <br> <font color="#008000" size="2"><font color="#008000" size="2"></div><p dir="ltr">program points</p><div dir="ltr">
</font></font><font color="#0000ff" size="2"><font color="#0000ff" size="2">integer</font></font><font size="2"> nmax</font><font color="#808080" size="2"><font color="#808080" size="2">,</font></font><font size="2"> u</font></div><div dir="ltr"><font size="2">
</div><p dir="ltr"> </p></font><p dir="ltr"><font color="#0000ff" size="2"><font color="#0000ff" size="2">parameter</font></font><font size="2"> </font><font color="#808080" size="2"><font color="#808080" size="2">(</font></font><font size="2">nmax</font><font color="#808080" size="2"><font color="#808080" size="2">=</font></font><font size="2">1000</font><font color="#808080" size="2"><font color="#808080" size="2">,</font></font><font size="2"> u</font><font color="#808080" size="2"><font color="#808080" size="2">=</font></font><font size="2">20</font><font color="#808080" size="2"><font color="#808080" size="2">)</font></font></p><div dir="ltr"><font color="#808080" size="2"><font color="#808080" size="2">
</font></font><font size="2"></div><p dir="ltr"> </p></font><p dir="ltr"><font color="#0000ff" size="2"><font color="#0000ff" size="2">real</font></font><font size="2"> x</font><font color="#808080" size="2"><font color="#808080" size="2">(</font></font><font size="2">nmax</font><font color="#808080" size="2"><font color="#808080" size="2">),</font></font><font size="2"> y</font><font color="#808080" size="2"><font color="#808080" size="2">(</font></font><font size="2">nmax</font><font color="#808080" size="2"><font color="#808080" size="2">),</font></font><font size="2"> z</font><font color="#808080" size="2"><font color="#808080" size="2">(</font></font><font size="2">nmax</font><font color="#808080" size="2"><font color="#808080" size="2">)</font></font></p><div dir="ltr"><font color="#808080" size="2"><font color="#808080" size="2">
</font></font><font size="2"></div><p dir="ltr"> </p></font><p dir="ltr"><font color="#0000ff" size="2"><font color="#0000ff" size="2">open</font></font><font size="2"> </font><font color="#808080" size="2"><font color="#808080" size="2">(</font></font><font size="2">u</font><font color="#808080" size="2"><font color="#808080" size="2">,</font></font><font size="2"> FILE</font><font color="#808080" size="2"><font color="#808080" size="2">=</font></font><font color="#ff00ff" size="2"><font color="#ff00ff" size="2">'points.dat'</font></font><font color="#808080" size="2"><font color="#808080" size="2">,</font></font><font size="2"> STATUS</font><font color="#808080" size="2"><font color="#808080" size="2">=</font></font><font color="#ff00ff" size="2"><font color="#ff00ff" size="2">'OLD'</font></font><font color="#808080" size="2"><font color="#808080" size="2">)</font></font></p><div dir="ltr"><font color="#808080" size="2"><font color="#808080" size="2">
</font></font><font size="2"></div><p dir="ltr"> </p></font><p dir="ltr"><font color="#0000ff" size="2"><font color="#0000ff" size="2">read</font></font><font color="#808080" size="2"><font color="#808080" size="2">(</font></font><font size="2">u</font><font color="#808080" size="2"><font color="#808080" size="2">,*)</font></font><font size="2"> n</font></p><div dir="ltr"><font size="2">
</div><p dir="ltr"> </p></font><p dir="ltr"><font color="#0000ff" size="2"><font color="#0000ff" size="2">if</font></font><font size="2"> </font><font color="#808080" size="2"><font color="#808080" size="2">(</font></font><font size="2">n</font><font color="#808080" size="2"><font color="#808080" size="2">.</font></font><font color="#0000ff" size="2"><font color="#0000ff" size="2">GT</font></font><font color="#808080" size="2"><font color="#808080" size="2">.</font></font><font size="2">nmax</font><font color="#808080" size="2"><font color="#808080" size="2">)</font></font><font size="2"> </font><font color="#0000ff" size="2"><font color="#0000ff" size="2">then</font></font></p><div dir="ltr"><font color="#0000ff" size="2"><font color="#0000ff" size="2">
</font></font><font size="2"></div><p dir="ltr"> </p></font><p dir="ltr"><font color="#0000ff" size="2"><font color="#0000ff" size="2">write</font></font><font color="#808080" size="2"><font color="#808080" size="2">(*,*)</font></font><font size="2"> </font><font color="#ff00ff" size="2"><font color="#ff00ff" size="2">'Error: n = '</font></font><font color="#808080" size="2"><font color="#808080" size="2">,</font></font><font size="2"> n</font><font color="#808080" size="2"><font color="#808080" size="2">,</font></font><font size="2"> </font><font color="#ff00ff" size="2"><font color="#ff00ff" size="2">'is larger than nmax ='</font></font><font color="#808080" size="2"><font color="#808080" size="2">,</font></font><font size="2"> nmax</font></p><div dir="ltr"><font size="2">
</div><p dir="ltr"> </p></font><p dir="ltr"><font color="#0000ff" size="2"><font color="#0000ff" size="2">goto</font></font><font size="2"> 9999</font></p><div dir="ltr"><font size="2">
</div><p dir="ltr"> </p></font><p dir="ltr"><font color="#0000ff" size="2"><font color="#0000ff" size="2">end</font></font><font size="2"> </font><font color="#0000ff" size="2"><font color="#0000ff" size="2">if</font></font></p><div dir="ltr"><font color="#0000ff" size="2"><font color="#0000ff" size="2">
</font></font><font size="2"></div><p dir="ltr"> </p></font><p dir="ltr"><font color="#0000ff" size="2"><font color="#0000ff" size="2">do</font></font><font size="2"> 10 i</font><font color="#808080" size="2"><font color="#808080" size="2">=</font></font><font size="2"> 1</font><font color="#808080" size="2"><font color="#808080" size="2">,</font></font><font size="2"> n</font></p><div dir="ltr"><font size="2">
</div><p dir="ltr"> </p></font><p dir="ltr"><font color="#0000ff" size="2"><font color="#0000ff" size="2">read</font></font><font color="#808080" size="2"><font color="#808080" size="2">(</font></font><font size="2">u</font><font color="#808080" size="2"><font color="#808080" size="2">,</font></font><font size="2">100</font><font color="#808080" size="2"><font color="#808080" size="2">)</font></font><font size="2"> x</font><font color="#808080" size="2"><font color="#808080" size="2">(</font></font><font size="2">i</font><font color="#808080" size="2"><font color="#808080" size="2">),</font></font><font size="2"> y</font><font color="#808080" size="2"><font color="#808080" size="2">(</font></font><font size="2">i</font><font color="#808080" size="2"><font color="#808080" size="2">),</font></font><font size="2"> z</font><font color="#808080" size="2"><font color="#808080" size="2">(</font></font><font size="2">i</font><font color="#808080" size="2"><font color="#808080" size="2">)</font></font></p><div dir="ltr"><font color="#808080" size="2"><font color="#808080" size="2">
</font></font><font size="2"></div><p dir="ltr"> </p></font><p dir="ltr"><font color="#ff0000" size="2"><font color="#ff0000" size="2">10</font></font><font size="2"> </font><font color="#0000ff" size="2"><font color="#0000ff" size="2">end</font></font><font size="2"> </font><font color="#0000ff" size="2"><font color="#0000ff" size="2">do</font></font></p><div dir="ltr"><font color="#0000ff" size="2"><font color="#0000ff" size="2">
</font></font><font size="2"></div><p dir="ltr"> </p></font><p dir="ltr"><font color="#ff0000" size="2"><font color="#ff0000" size="2">100</font></font><font size="2"> </font><font color="#0000ff" size="2"><font color="#0000ff" size="2">format</font></font><font size="2"> </font><font color="#808080" size="2"><font color="#808080" size="2">(</font></font><font size="2">3</font><font color="#808080" size="2"><font color="#808080" size="2">(</font></font><font size="2">F10</font><font color="#808080" size="2"><font color="#808080" size="2">.</font></font><font size="2">4</font><font color="#808080" size="2"><font color="#808080" size="2">))</font></font></p><div dir="ltr"><font color="#808080" size="2"><font color="#808080" size="2">
</font></font><font size="2"></div><p dir="ltr"> </p></font><p dir="ltr"><font color="#0000ff" size="2"><font color="#0000ff" size="2">close</font></font><font size="2"> </font><font color="#808080" size="2"><font color="#808080" size="2">(</font></font><font size="2">u</font><font color="#808080" size="2"><font color="#808080" size="2">)</font></font></p><div dir="ltr"><font color="#808080" size="2"><font color="#808080" size="2">
</font></font><font size="2"></div><p dir="ltr"> </p></font><p dir="ltr"><font color="#ff0000" size="2"><font color="#ff0000" size="2">9999</font></font><font size="2"> stop</font></p><div dir="ltr"><font size="2">
</div><p dir="ltr"> </p></font><p dir="ltr"><font color="#0000ff" size="2"><font color="#0000ff" size="2">end</font></font></p><font color="#0000ff" size="2"><font color="#0000ff" size="2"></font></font></div> </div></body>
</html>