sec1-3.htm

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

	text-indent:-18.0pt;}
@list l5:level9
	{mso-level-tab-stop:324.0pt;
	mso-level-number-position:left;
	text-indent:-18.0pt;}
@list l6
	{mso-list-id:1779793076;
	mso-list-type:hybrid;
	mso-list-template-ids:-1264282810 1225816452 67698691 67698693 67698689 67698691 67698693 67698689 67698691 67698693;}
@list l6:level1
	{mso-level-number-format:image;
	list-style-image:url("Sec1-3.files/image002.gif");
	mso-level-text:\F06C;
	mso-level-tab-stop:48.0pt;
	mso-level-number-position:left;
	margin-left:48.0pt;
	text-indent:-24.0pt;
	font-family:Symbol;
	color:windowtext;}
@list l6:level2
	{mso-level-tab-stop:72.0pt;
	mso-level-number-position:left;
	text-indent:-18.0pt;}
@list l6:level3
	{mso-level-tab-stop:108.0pt;
	mso-level-number-position:left;
	text-indent:-18.0pt;}
@list l6:level4
	{mso-level-tab-stop:144.0pt;
	mso-level-number-position:left;
	text-indent:-18.0pt;}
@list l6:level5
	{mso-level-tab-stop:180.0pt;
	mso-level-number-position:left;
	text-indent:-18.0pt;}
@list l6:level6
	{mso-level-tab-stop:216.0pt;
	mso-level-number-position:left;
	text-indent:-18.0pt;}
@list l6:level7
	{mso-level-tab-stop:252.0pt;
	mso-level-number-position:left;
	text-indent:-18.0pt;}
@list l6:level8
	{mso-level-tab-stop:288.0pt;
	mso-level-number-position:left;
	text-indent:-18.0pt;}
@list l6:level9
	{mso-level-tab-stop:324.0pt;
	mso-level-number-position:left;
	text-indent:-18.0pt;}
@list l7
	{mso-list-id:1788622755;
	mso-list-type:hybrid;
	mso-list-template-ids:-1351311952 -88445512 67698713 67698715 67698703 67698713 67698715 67698703 67698713 67698715;}
@list l7:level1
	{mso-level-number-format:alpha-lower;
	mso-level-text:"%1\)";
	mso-level-tab-stop:18.0pt;
	mso-level-number-position:left;
	margin-left:18.0pt;
	text-indent:-18.0pt;}
@list l7:level2
	{mso-level-tab-stop:72.0pt;
	mso-level-number-position:left;
	text-indent:-18.0pt;}
@list l7:level3
	{mso-level-tab-stop:108.0pt;
	mso-level-number-position:left;
	text-indent:-18.0pt;}
@list l7:level4
	{mso-level-tab-stop:144.0pt;
	mso-level-number-position:left;
	text-indent:-18.0pt;}
@list l7:level5
	{mso-level-tab-stop:180.0pt;
	mso-level-number-position:left;
	text-indent:-18.0pt;}
@list l7:level6
	{mso-level-tab-stop:216.0pt;
	mso-level-number-position:left;
	text-indent:-18.0pt;}
@list l7:level7
	{mso-level-tab-stop:252.0pt;
	mso-level-number-position:left;
	text-indent:-18.0pt;}
@list l7:level8
	{mso-level-tab-stop:288.0pt;
	mso-level-number-position:left;
	text-indent:-18.0pt;}
@list l7:level9
	{mso-level-tab-stop:324.0pt;
	mso-level-number-position:left;
	text-indent:-18.0pt;}
@list l8
	{mso-list-id:1979258233;
	mso-list-type:hybrid;
	mso-list-template-ids:-590306560 636542566 67698713 67698715 67698703 67698713 67698715 67698703 67698713 67698715;}
@list l8:level1
	{mso-level-number-format:image;
	list-style-image:url("Sec1-3.files/image001.gif");
	mso-level-text:\F06C;
	mso-level-tab-stop:48.0pt;
	mso-level-number-position:left;
	margin-left:48.0pt;
	text-indent:-24.0pt;
	font-family:Symbol;
	color:windowtext;}
@list l8:level2
	{mso-level-tab-stop:72.0pt;
	mso-level-number-position:left;
	text-indent:-18.0pt;}
@list l8:level3
	{mso-level-tab-stop:108.0pt;
	mso-level-number-position:left;
	text-indent:-18.0pt;}
@list l8:level4
	{mso-level-tab-stop:144.0pt;
	mso-level-number-position:left;
	text-indent:-18.0pt;}
@list l8:level5
	{mso-level-tab-stop:180.0pt;
	mso-level-number-position:left;
	text-indent:-18.0pt;}
@list l8:level6
	{mso-level-tab-stop:216.0pt;
	mso-level-number-position:left;
	text-indent:-18.0pt;}
@list l8:level7
	{mso-level-tab-stop:252.0pt;
	mso-level-number-position:left;
	text-indent:-18.0pt;}
@list l8:level8
	{mso-level-tab-stop:288.0pt;
	mso-level-number-position:left;
	text-indent:-18.0pt;}
@list l8:level9
	{mso-level-tab-stop:324.0pt;
	mso-level-number-position:left;
	text-indent:-18.0pt;}
ol
	{margin-bottom:0cm;}
ul
	{margin-bottom:0cm;}
-->
</style>
<!--[if gte mso 10]>
<style>
 /* Style Definitions */
 table.MsoNormalTable
	{mso-style-name:普通表格;
	mso-tstyle-rowband-size:0;
	mso-tstyle-colband-size:0;
	mso-style-noshow:yes;
	mso-style-parent:"";
	mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
	mso-para-margin:0cm;
	mso-para-margin-bottom:.0001pt;
	mso-pagination:widow-orphan;
	font-size:10.0pt;
	font-family:"Times New Roman";
	mso-fareast-font-family:"Times New Roman";}
table.MsoTableGrid
	{mso-style-name:网格型;
	mso-tstyle-rowband-size:0;
	mso-tstyle-colband-size:0;
	border:solid windowtext 1.0pt;
	mso-border-alt:solid windowtext .5pt;
	mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
	mso-border-insideh:.5pt solid windowtext;
	mso-border-insidev:.5pt solid windowtext;
	mso-para-margin:0cm;
	mso-para-margin-bottom:.0001pt;
	text-align:justify;
	text-justify:inter-ideograph;
	mso-pagination:none;
	font-size:10.0pt;
	font-family:"Times New Roman";
	mso-fareast-font-family:宋体;
	mso-fareast-language:ZH-CN;}
</style>
<![endif]--><!--[if gte mso 9]><xml>
 <o:shapedefaults v:ext="edit" spidmax="11266">
  <o:colormru v:ext="edit" colors="#fcc,#669,#99f,#ccecff,#9fc,#c5ffe2,#d9ffec,#dfe"/>
  <o:colormenu v:ext="edit" fillcolor="#dfe"/>
 </o:shapedefaults></xml><![endif]--><!--[if gte mso 9]><xml>
 <o:shapelayout v:ext="edit">
  <o:idmap v:ext="edit" data="1"/>
 </o:shapelayout></xml><![endif]-->
</head>

<body bgcolor="#DDFFEE" lang=ZH-TW link=blue vlink=purple style='tab-interval:
21.0pt;text-justify-trim:punctuation'>

<div class=Section1 style='layout-grid:15.6pt'>

<p align=center style='margin:0cm;margin-bottom:.0001pt;text-align:center'><b
style='mso-bidi-font-weight:normal'><span lang=EN-US style='font-size:22.0pt;
font-family:"Times New Roman";mso-fareast-font-family:华文细黑;color:#333399'>Fortran</span></b><b
style='mso-bidi-font-weight:normal'><span lang=ZH-CN style='font-size:22.0pt;
font-family:华文细黑;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:
"Times New Roman";mso-bidi-font-family:"Times New Roman";color:#333399'>程序的基本组成</span></b><b
style='mso-bidi-font-weight:normal'><span lang=EN-US style='font-size:22.0pt;
font-family:"Times New Roman";mso-fareast-font-family:华文细黑;color:#333399'><o:p></o:p></span></b></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'><a
name="第1_3_1"><span lang=EN-US style='font-size:16.0pt;mso-bidi-font-size:12.0pt;
mso-fareast-font-family:楷体_GB2312'>1.3.1</span></a><span style='mso-bookmark:
第1_3_1'></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;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:宋体'><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;mso-char-indent-size:12pt'><span
lang=EN-US style='font-size:12.0pt;font-family:宋体;color:#660066'>Fortran</span><span
lang=ZH-CN style='font-size:12.0pt;font-family:宋体;color:#660066'>允许使用的字符如下</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='line-height:17.0pt;mso-line-height-rule:exactly'><span
lang=ZH-CN style='font-size:12.0pt;font-family:宋体'>英文字母</span><span lang=EN-US
style='font-size:12.0pt;font-family:宋体'><span style='mso-tab-count:1'>&nbsp;&nbsp; </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:宋体'>A B C D E F G H I J K L M N O P Q R S T
U V W X Y Z <o:p></o:p></span></p>

<p class=MsoNormal style='line-height:17.0pt;mso-line-height-rule:exactly'><span
lang=ZH-CN style='font-size:12.0pt;font-family:宋体'>阿拉伯数字</span><span
lang=EN-US style='font-size:12.0pt;font-family:宋体'><span style='mso-tab-count:
1'> </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:宋体'>0 1 2 3 4 5 6 7 8 9<o:p></o:p></span></p>

<p class=MsoNormal style='line-height:17.0pt;mso-line-height-rule:exactly'><span
lang=ZH-CN style='font-size:12.0pt;font-family:宋体'>特殊符号</span><span lang=EN-US
style='font-size:12.0pt;font-family:宋体'><span style='mso-tab-count:1'>&nbsp;&nbsp; </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:宋体'> = + - * / ( ) , . ': <span
style='color:#FF3399'>&quot; ! % &amp; ; &lt; &gt; $</span> <span
style='color:#FF3399'>? _ (F90</span></span><span lang=ZH-CN style='font-size:
12.0pt;font-family:宋体;color:#FF3399'>中新增的字符</span><span lang=EN-US
style='font-size:12.0pt;font-family:宋体;color:#FF3399'>)</span><span lang=EN-US
style='font-size:12.0pt;font-family:宋体;color:red'><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 79.5pt 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:宋体'>$</span><span
lang=ZH-CN style='font-size:12.0pt;font-family:宋体'>”和“</span><span lang=EN-US