sec1-5.htm

Fortran77和90/95编程入门,用于教学

lang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt;font-family:宋体;
mso-bidi-font-family:"Arial Unicode MS";mso-font-kerning:0pt'>QuickWin</span></span><span
lang=ZH-CN style='font-size:12.0pt;mso-bidi-font-size:10.0pt;font-family:宋体;
mso-bidi-font-family:"Arial Unicode MS";mso-font-kerning:0pt'>库在不必深入了解</span><span
lang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt;font-family:宋体;
mso-bidi-font-family:"Arial Unicode MS";mso-font-kerning:0pt'>Windows</span><span
lang=ZH-CN style='font-size:12.0pt;mso-bidi-font-size:10.0pt;font-family:宋体;
mso-bidi-font-family:"Arial Unicode MS";mso-font-kerning:0pt'>系统的情况下简便地开发出具有</span><span
lang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt;font-family:宋体;
mso-bidi-font-family:"Arial Unicode MS";mso-font-kerning:0pt'>Windows</span><span
lang=ZH-CN style='font-size:12.0pt;mso-bidi-font-size:10.0pt;font-family:宋体;
mso-bidi-font-family:"Arial Unicode MS";mso-font-kerning:0pt'>图形界面特点应用程序，甚至可以更进一步地利用</span><span
lang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt;font-family:宋体;
mso-bidi-font-family:"Arial Unicode MS";mso-font-kerning:0pt'>Windows API</span><span
lang=ZH-CN style='font-size:12.0pt;mso-bidi-font-size:10.0pt;font-family:宋体;
mso-bidi-font-family:"Arial Unicode MS";mso-font-kerning:0pt'>函数接口进行</span><span
lang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt;font-family:宋体;
mso-bidi-font-family:"Arial Unicode MS";mso-font-kerning:0pt'>Windows</span><span
lang=ZH-CN style='font-size:12.0pt;mso-bidi-font-size:10.0pt;font-family:宋体;
mso-bidi-font-family:"Arial Unicode MS";mso-font-kerning:0pt'>程序设计。</span><span
lang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt;font-family:宋体;
mso-bidi-font-family:"Arial Unicode MS";mso-font-kerning:0pt'><o:p></o:p></span></p>

<p class=MsoNormal style='margin-left:45.0pt;text-indent:-24.0pt;line-height:
17.0pt;mso-line-height-rule:exactly;mso-list:l0 level1 lfo2;tab-stops:list 45.0pt'><![if !supportLists]><span
lang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt;font-family:Symbol;
mso-fareast-font-family:Symbol;mso-bidi-font-family:Symbol;mso-font-kerning:
0pt'><span style='mso-list:Ignore'><img width=13 height=13
src="Sec1-5.files/image001.gif" alt="*"><span style='font:7.0pt "Times New Roman"'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</span></span></span><![endif]><span lang=ZH-CN style='font-size:12.0pt;
mso-bidi-font-size:10.0pt;font-family:宋体;mso-bidi-font-family:"Arial Unicode MS";
mso-font-kerning:0pt'>可以方便地与</span><span lang=EN-US style='font-size:12.0pt;
mso-bidi-font-size:10.0pt;font-family:宋体;mso-bidi-font-family:"Arial Unicode MS";
mso-font-kerning:0pt'>Visual C/C++</span><span lang=ZH-CN style='font-size:
12.0pt;mso-bidi-font-size:10.0pt;font-family:宋体;mso-bidi-font-family:"Arial Unicode MS";
mso-font-kerning:0pt'>、</span><span lang=EN-US style='font-size:12.0pt;
mso-bidi-font-size:10.0pt;font-family:宋体;mso-bidi-font-family:"Arial Unicode MS";
mso-font-kerning:0pt'>MASM</span><span lang=ZH-CN style='font-size:12.0pt;
mso-bidi-font-size:10.0pt;font-family:宋体;mso-bidi-font-family:"Arial Unicode MS";
mso-font-kerning:0pt'>和</span><span lang=EN-US style='font-size:12.0pt;
mso-bidi-font-size:10.0pt;font-family:宋体;mso-bidi-font-family:"Arial Unicode MS";
mso-font-kerning:0pt'>Visual Basic</span><span lang=ZH-CN style='font-size:
12.0pt;mso-bidi-font-size:10.0pt;font-family:宋体;mso-bidi-font-family:"Arial Unicode MS";
mso-font-kerning:0pt'>进行混合语言编程，以充分利用各个语言所具有的优点。</span><span lang=EN-US
style='font-size:12.0pt;mso-bidi-font-size:10.0pt;font-family:宋体;mso-bidi-font-family:
"Arial Unicode MS";mso-font-kerning:0pt'><o:p></o:p></span></p>

<p class=MsoNormal style='margin-left:45.0pt;text-indent:-24.0pt;line-height:
17.0pt;mso-line-height-rule:exactly;mso-list:l0 level1 lfo2;tab-stops:list 45.0pt'><![if !supportLists]><span
lang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt;font-family:Symbol;
mso-fareast-font-family:Symbol;mso-bidi-font-family:Symbol;mso-font-kerning:
0pt'><span style='mso-list:Ignore'><img width=13 height=13
src="Sec1-5.files/image001.gif" alt="*"><span style='font:7.0pt "Times New Roman"'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</span></span></span><![endif]><span lang=ZH-CN style='font-size:12.0pt;
mso-bidi-font-size:10.0pt;font-family:宋体;mso-bidi-font-family:"Arial Unicode MS";
mso-font-kerning:0pt'>所建立的动态链接<span class=GramE>库可以</span>被</span><span
lang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt;font-family:宋体;
mso-bidi-font-family:"Arial Unicode MS";mso-font-kerning:0pt'>Excel</span><span
lang=ZH-CN style='font-size:12.0pt;mso-bidi-font-size:10.0pt;font-family:宋体;
mso-bidi-font-family:"Arial Unicode MS";mso-font-kerning:0pt'>中的</span><span
lang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt;font-family:宋体;
mso-bidi-font-family:"Arial Unicode MS";mso-font-kerning:0pt'>VBA</span><span
lang=ZH-CN style='font-size:12.0pt;mso-bidi-font-size:10.0pt;font-family:宋体;
mso-bidi-font-family:"Arial Unicode MS";mso-font-kerning:0pt'>调用，使开发出的应用程序与</span><span
lang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt;font-family:宋体;
mso-bidi-font-family:"Arial Unicode MS";mso-font-kerning:0pt'>Excel</span><span
lang=ZH-CN style='font-size:12.0pt;mso-bidi-font-size:10.0pt;font-family:宋体;
mso-bidi-font-family:"Arial Unicode MS";mso-font-kerning:0pt'>相结合。</span><span
lang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt;font-family:宋体;
mso-bidi-font-family:"Arial Unicode MS";mso-font-kerning:0pt'><o:p></o:p></span></p>

<pre style='text-indent:36.7pt;mso-char-indent-count:3.06;line-height:17.0pt;
mso-line-height-rule:exactly;mso-char-indent-size:11.95pt'><span lang=EN-US
style='font-size:12.0pt;mso-bidi-font-size:10.0pt;font-family:宋体'><o:p>&nbsp;</o:p></span></pre>

<p class=MsoNormal style='text-indent:24.0pt;mso-char-indent-count:2.0;
line-height:17.0pt;mso-line-height-rule:exactly;tab-stops:45.8pt 91.6pt 137.4pt 183.2pt 229.0pt 274.8pt 320.6pt 366.4pt 412.2pt 458.0pt 503.8pt 549.6pt 595.4pt 641.2pt 687.0pt 732.8pt;
mso-char-indent-size:12pt'><span lang=ZH-CN style='font-size:12.0pt;mso-bidi-font-size:
10.0pt;font-family:宋体;mso-bidi-font-family:"Arial Unicode MS";mso-font-kerning:
0pt'>这个</span><span lang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt;
font-family:宋体;mso-bidi-font-family:"Arial Unicode MS";mso-font-kerning:0pt'>Fortran</span><span
lang=ZH-CN style='font-size:12.0pt;mso-bidi-font-size:10.0pt;font-family:宋体;
mso-bidi-font-family:"Arial Unicode MS";mso-font-kerning:0pt'>系统软件有多个版本和名称：</span><span
lang=EN-US style='font-size:12.0pt;mso-bidi-font-size:10.0pt;font-family:宋体;
mso-bidi-font-family:"Arial Unicode MS";mso-font-kerning:0pt'>Microsoft Fortran
PowerStation</span><span lang=EN-US style='font-size:12.0pt;font-family:宋体'> </span><span
lang=ZH-CN style='font-size:12.0pt;font-family:宋体'>→</span><span lang=EN-US
style='font-size:12.0pt;font-family:宋体'> Digital Visual Fortran </span><span
lang=ZH-CN style='font-size:12.0pt;font-family:宋体'>→</span><span lang=EN-US
style='font-size:12.0pt;font-family:宋体'> Compaq Visual Fortran</span><span
lang=ZH-CN style='font-size:12.0pt;font-family:宋体'>，最新的版本是</span><span
lang=EN-US style='font-size:12.0pt;font-family:宋体'>2001</span><span lang=ZH-CN
style='font-size:12.0pt;font-family:宋体'>年推出的</span><span lang=EN-US
style='font-size:12.0pt;font-family:宋体'>Compaq Visual Fortran6.6</span><span
lang=ZH-CN style='font-size:12.0pt;font-family:宋体'>，我们将使用</span><span
lang=EN-US style='font-size:12.0pt;font-family:宋体'>6.1</span><span lang=ZH-CN
style='font-size:12.0pt;font-family:宋体'>版。根据</span><span lang=EN-US
style='font-size:12.0pt;font-family:宋体'>CPU</span><span lang=ZH-CN
style='font-size:12.0pt;font-family:宋体'>芯片</span><span lang=EN-US
style='font-size:12.0pt;font-family:宋体'>(x86</span><span lang=ZH-CN
style='font-size:12.0pt;font-family:宋体'>和</span><span lang=EN-US
style='font-size:12.0pt;font-family:宋体'>Alpha)</span><span lang=ZH-CN
style='font-size:12.0pt;font-family:宋体'>和操作平台</span><span lang=EN-US
style='font-size:12.0pt;font-family:宋体'>(<span class=SpellE>Win,Unix</span>)</span><span
lang=ZH-CN style='font-size:12.0pt;font-family:宋体'>的不同</span><a
name="_Hlk530993386"></a><a href="pages/Compaq%20Fortran%20Home%20Page.htm"><span
style='mso-bookmark:_Hlk530993386'><span lang=EN-US style='font-size:12.0pt;
font-family:宋体'>Compaq Fortran</span></span><span style='mso-bookmark:_Hlk530993386'></span></a><span
lang=ZH-CN style='font-size:12.0pt;font-family:宋体'>有</span><span lang=EN-US
style='font-size:12.0pt;font-family:宋体'><a
href="pages/Compaq%20Fortran%20Products.htm"><span lang=ZH-CN>一系列版本</span></a></span><span
lang=ZH-CN style='font-size:12.0pt;font-family:宋体'>。</span><span lang=EN-US
style='font-size:12.0pt;font-family:宋体'><o:p></o:p></span></p>

<p class=MsoNormal align=center style='margin-top:15.6pt;margin-right:0cm;
margin-bottom:15.6pt;margin-left:0cm;mso-para-margin-top:1.0gd;mso-para-margin-right:
0cm;mso-para-margin-bottom:1.0gd;mso-para-margin-left:0cm;text-align:center;
tab-stops:45.8pt 91.6pt 137.4pt 183.2pt 229.0pt 274.8pt 320.6pt 366.4pt 412.2pt 458.0pt 503.8pt 549.6pt 595.4pt 641.2pt 687.0pt 732.8pt'><a
name="第1_5_2"><span lang=EN-US style='font-size:16.0pt;mso-bidi-font-size:12.0pt;
mso-fareast-font-family:楷体_GB2312'>1.5.2</span></a><span style='mso-bookmark:
第1_5_2'></span><span lang=ZH-CN style='font-size:16.0pt;mso-bidi-font-size:
12.0pt;font-family:楷体_GB2312;mso-ascii-font-family:"Times New Roman";
color:red'>安装和运行</span><b><span lang=EN-US style='font-size:16.0pt;mso-bidi-font-size:
12.0pt;mso-fareast-font-family:楷体_GB2312'><o:p></o:p></span></b></p>

<p class=MsoNormal style='text-indent:24.0pt;mso-char-indent-count:2.0;
line-height:17.0pt;mso-line-height-rule:exactly;tab-stops:45.8pt 91.6pt 137.4pt 183.2pt 229.0pt 274.8pt 320.6pt 366.4pt 412.2pt 458.0pt 503.8pt 549.6pt 595.4pt 641.2pt 687.0pt 732.8pt;
mso-char-indent-size:12pt'><span lang=ZH-CN style='font-size:12.0pt;font-family:
宋体'>校内下载地址：</span><span lang=EN-US style='font-size:12.0pt;font-family:宋体'>ftp://202.38.68.153/Pub/Programming/Fortran/Compaq
Visual Fortran 6.1 <span class=SpellE>Professional.zip</span> (209MB)</span><span
lang=ZH-CN style='font-size:12.0pt;font-family:宋体'>，完全安装时占硬盘空间</span><span
lang=EN-US style='font-size:12.0pt;font-family:宋体'>300MB</span><span
lang=ZH-CN style='font-size:12.0pt;font-family:宋体'>左右，默认安装目录名是</span><span
lang=EN-US style='font-size:12.0pt;font-family:宋体'>Microsoft Visual Studio</span><span
lang=ZH-CN style='font-size:12.0pt;font-family:宋体'>。在网络中心</span><span
lang=EN-US style='font-size:12.0pt;font-family:宋体'>3</span><span lang=ZH-CN
style='font-size:12.0pt;font-family:宋体'>楼</span><span lang=EN-US
style='font-size:12.0pt;font-family:宋体'>C</span><span lang=ZH-CN
style='font-size:12.0pt;font-family:宋体'>区后排</span><span lang=EN-US
style='font-size:12.0pt;font-family:宋体'>40</span><span lang=ZH-CN
style='font-size:12.0pt;font-family:宋体'>台机子上已安装。</span><span lang=EN-US
style='font-size:12.0pt;font-family:宋体'><o:p></o:p></span></p>

<p class=MsoNormal style='text-indent:24.0pt;mso-char-indent-count:2.0;
line-height:17.0pt;mso-line-height-rule:exactly;tab-stops:45.8pt 91.6pt 137.4pt 183.2pt 229.0pt 274.8pt 320.6pt 366.4pt 412.2pt 458.0pt 503.8pt 549.6pt 595.4pt 641.2pt 687.0pt 732.8pt;
mso-char-indent-size:12pt'><span lang=ZH-CN style='font-size:12.0pt;font-family:
宋体'>安装步骤：点击文件名，</span><span class=SpellE><span lang=EN-US style='font-size:
12.0pt;font-family:宋体'>winzip</span></span><span lang=ZH-CN style='font-size:
12.0pt;font-family:宋体'>打开原文件名目录后找到</span><span lang=EN-US style='font-size:
12.0pt;font-family:宋体'>sn.txt</span><span lang=ZH-CN style='font-size:12.0pt;
font-family:宋体'>，<span class=GramE>点击此文件打开</span>并录下序列号，点击</span><span
lang=EN-US style='font-size:12.0pt;font-family:宋体'>install</span><span
lang=ZH-CN style='font-size:12.0pt;font-family:宋体'>按钮进行安装。</span><span
lang=EN-US style='font-size:12.0pt;font-family:宋体'><o:p></o:p></span></p>

<p class=MsoNormal style='text-indent:24.0pt;mso-char-indent-count:2.0;
line-height:17.0pt;mso-line-height-rule:exactly;tab-stops:45.8pt 91.6pt 137.4pt 183.2pt 229.0pt 274.8pt 320.6pt 366.4pt 412.2pt 458.0pt 503.8pt 549.6pt 595.4pt 641.2pt 687.0pt 732.8pt;
mso-char-indent-size:12pt'><span lang=ZH-CN style='font-size:12.0pt;font-family:
宋体'>运行步骤：源程序的编译可以直接点击</span><span lang=EN-US style='font-size:12.0pt;
font-family:宋体'>Developer Studio(DFDEV.EXE)</span><span lang=ZH-CN
style='font-size:12.0pt;font-family:宋体'>界面上的</span><span lang=EN-US
style='font-size:12.0pt;font-family:宋体'>Build</span><span lang=ZH-CN
style='font-size:12.0pt;font-family:宋体'>按钮</span><span lang=EN-US
style='font-size:12.0pt;font-family:宋体'>,</span><span lang=ZH-CN
style='font-size:12.0pt;font-family:宋体'>或在</span><span lang=EN-US
style='font-size:12.0pt;font-family:宋体'>DOS</span><span lang=ZH-CN
style='font-size:12.0pt;font-family:宋体'>窗口下键入</span><span class=SpellE><span
lang=EN-US style='font-size:12.0pt;font-family:宋体'>df</span></span><span
lang=EN-US style='font-size:12.0pt;font-family:宋体'> filename</span><span
lang=ZH-CN style='font-size:12.0pt;font-family:宋体'>，</span><span lang=EN-US
style='font-size:12.0pt;font-family:宋体'>f77 filename(.f)</span><span
lang=ZH-CN style='font-size:12.0pt;font-family:宋体'>和</span><span lang=EN-US
style='font-size:12.0pt;font-family:宋体'>f90 filename(.f90)</span><span
lang=ZH-CN style='font-size:12.0pt;font-family:宋体'>进行编译，扩展名可省略，</span><span
class=SpellE><span lang=EN-US style='font-size:12.0pt;font-family:宋体'>df</span></span><span
lang=EN-US style='font-size:12.0pt;font-family:宋体'>/?</span><span lang=ZH-CN
style='font-size:12.0pt;font-family:宋体'>，</span><span lang=EN-US
style='font-size:12.0pt;font-family:宋体'>f77/?</span><span lang=ZH-CN
style='font-size:12.0pt;font-family:宋体'>，</span><span lang=EN-US
style='font-size:12.0pt;font-family:宋体'>f90/? </span><span lang=ZH-CN
style='font-size:12.0pt;font-family:宋体'>是编译选项帮助。</span><span class=SpellE><span
lang=EN-US style='font-size:12.0pt;font-family:宋体'>df</span></span><span
lang=EN-US style='font-size:12.0pt;font-family:宋体'> /fixed filename</span><span
lang=ZH-CN style='font-size:12.0pt;font-family:宋体'>或</span><span class=SpellE><span
lang=EN-US style='font-size:12.0pt;font-family:宋体'>df</span></span><span
lang=EN-US style='font-size:12.0pt;font-family:宋体'> /free filename</span><span
lang=ZH-CN style='font-size:12.0pt;font-family:宋体'>是特别指定文件格式是固定或自由时的选项。</span><span
lang=EN-US style='font-size:12.0pt;font-family:宋体'><o:p></o:p></span></p>

<p class=MsoNormal style='text-indent:24.0pt;mso-char-indent-count:2.0;
line-height:17.0pt;mso-line-height-rule:exactly;tab-stops:45.8pt 91.6pt 137.4pt 183.2pt 229.0pt 274.8pt 320.6pt 366.4pt 412.2pt 458.0pt 503.8pt 549.6pt 595.4pt 641.2pt 687.0pt 732.8pt;
mso-char-indent-size:12pt'><span lang=ZH-CN style='font-size:12.0pt;font-family:
宋体'>为了使用</span><span lang=EN-US style='font-size:12.0pt;font-family:宋体'>Developer
Studio</span><span lang=ZH-CN style='font-size:12.0pt;font-family:宋体'>开发</span><span
lang=EN-US style='font-size:12.0pt;font-family:宋体'>Fortran</span><span
lang=ZH-CN style='font-size:12.0pt;font-family:宋体'>程序，需要先建立所要编写程序的工程</span><span
lang=EN-US style='font-size:12.0pt;font-family:宋体'>(Project)</span><span
lang=ZH-CN style='font-size:12.0pt;font-family:宋体'>，工程中存放了建立特定程序所要的全部信息，包括程序原文件名及相互关系、所需<span
class=GramE>库文件</span>清单、编译器、链接器和建立程序所用的其他信息。编译时先建立工程的</span><span lang=EN-US
style='font-size:12.0pt;font-family:宋体'>workspace</span><span lang=ZH-CN
style='font-size:12.0pt;font-family:宋体'>，产生</span><span lang=EN-US
style='font-size:12.0pt;font-family:宋体'> .<span class=SpellE>dsw</span></span><span
lang=ZH-CN style='font-size:12.0pt;font-family:宋体'>文件，<span class=GramE>点击此文件</span>可重新打开此</span><span
lang=EN-US style='font-size:12.0pt;font-family:宋体'>workspace</span><span
lang=ZH-CN style='font-size:12.0pt;font-family:宋体'>和相关的源文件。编译另一个文件时需要将当前的</span><span
lang=EN-US style='font-size:12.0pt;font-family:宋体'>workspace</span><span
lang=ZH-CN style='font-size:12.0pt;font-family:宋体'>关闭，建立另一个文件的</span><span
lang=EN-US style='font-size:12.0pt;font-family:宋体'>workspace</span><span
lang=ZH-CN style='font-size:12.0pt;font-family:宋体'>。编译后产生的执行文件在默认的</span><span
lang=EN-US style='font-size:12.0pt;font-family:宋体'>Debug</span><span
lang=ZH-CN style='font-size:12.0pt;font-family:宋体'>目录下，还可再次选择</span><span
lang=EN-US style='font-size:12.0pt;font-family:宋体'>Release</span><span
lang=ZH-CN style='font-size:12.0pt;font-family:宋体'>选项进行编译，在默认的</span><span