Are you sure that the file points.dat exists in the directory you are running the program from?<br />Otherwise, it looks OK to me, except that it's Fortran 77, which is as old as the hills. I would have thought that a PhD student would be using Fortran 90/95 at least..................<div> </div>________________<br />Derek Goring<br />Mulgor Consulting Ltd<br />24 Brockworth Place<br />Christchurch, New Zealand<br />Phone: 64 3 942 5452<br />Mobile: 64 212 777 639<br />Website: www.mulgor.co.nz<br> <div style="font-family: times new roman, new york, times, serif; font-size: 12pt;"> <div style="font-family: times new roman, new york, times, serif; font-size: 12pt;"> <div dir="ltr" > <font size="2" face="Arial"> <hr size="1"> <b><span style="font-weight:bold;">From:</span></b> Ali Demir <jdemir1@hotmail.com><br> <b><span style="font-weight: bold;">To:</span></b> gradsusr@gradsusr.org <br> <b><span style="font-weight:
bold;">Sent:</span></b> Wednesday, 28 November 2012 8:22 AM<br> <b><span style="font-weight: bold;">Subject:</span></b> [gradsusr] Fortran Code<br> </font> </div> <br><div id=yiv1651334523><html>
<head>
<style><!--
#yiv1651334523 .yiv1651334523hmmessage P
{
margin:0px;padding:0px;}
#yiv1651334523 body.yiv1651334523hmmessage
{
font-size:10pt;font-family:Tahoma;}
--></style></head>
<div><div dir='ltr'>
<br> <br><div><div id="yiv1651334523SkyDrivePlaceholder"></div><hr id="yiv1651334523stopSpelling"><br>
<style><!--
#yiv1651334523 .yiv1651334523ExternalClass .yiv1651334523ecxhmmessage P
{padding:0px;}
#yiv1651334523 .yiv1651334523ExternalClass body.yiv1651334523ecxhmmessage
{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 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></div>
</html></div><br />_______________________________________________<BR>gradsusr mailing list<BR><a ymailto="mailto:gradsusr@gradsusr.org" href="mailto:gradsusr@gradsusr.org">gradsusr@gradsusr.org</a><BR><a href="http://gradsusr.org/mailman/listinfo/gradsusr" target=_blank >http://gradsusr.org/mailman/listinfo/gradsusr</a><BR><br><br> </div> </div>