📄 sec6-3.htm
字号:
lang=EN-US><o:p> </o:p></span></p>
<p class=MsoBodyTextIndent2 style='text-indent:73.45pt;mso-char-indent-count:
6.12;line-height:15.0pt;mso-line-height-rule:exactly;mso-char-indent-size:12pt'><span
lang=EN-US>SUBROUTINE CUBE<o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='text-indent:95.4pt;mso-char-indent-count:
7.95;line-height:15.0pt;mso-line-height-rule:exactly;mso-char-indent-size:12pt'><span
lang=EN-US>INCLUDE 'COMMON.FOR'<o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='text-indent:95.4pt;mso-char-indent-count:
7.95;line-height:15.0pt;mso-line-height-rule:exactly;mso-char-indent-size:12pt'><span
lang=EN-US>DO I=1,M<o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='text-indent:122.4pt;mso-char-indent-count:
10.2;line-height:15.0pt;mso-line-height-rule:exactly;mso-char-indent-size:12pt'><span
lang=EN-US>X(I)=Y(I)**3<o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='text-indent:95.4pt;mso-char-indent-count:
7.95;line-height:15.0pt;mso-line-height-rule:exactly;mso-char-indent-size:12pt'><span
lang=EN-US>END DO<o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='text-indent:95.4pt;mso-char-indent-count:
7.95;line-height:15.0pt;mso-line-height-rule:exactly;mso-char-indent-size:12pt'><span
lang=EN-US>RETURN<o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='text-indent:73.45pt;mso-char-indent-count:
6.12;line-height:15.0pt;mso-line-height-rule:exactly;mso-char-indent-size:12pt'><span
lang=EN-US>END</span></p>
<p class=MsoBodyTextIndent2 style='line-height:17.0pt;mso-line-height-rule:
exactly'><span lang=ZH-CN>包含文件</span><span lang=EN-US>COMMON.FOR</span><span
lang=ZH-CN>是：</span><span lang=EN-US><o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='text-indent:73.45pt;mso-char-indent-count:
6.12;line-height:15.0pt;mso-line-height-rule:exactly;mso-char-indent-size:12pt'><span
lang=EN-US>INTEGER,PARAMETER :: M=100<o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='text-indent:73.45pt;mso-char-indent-count:
6.12;line-height:15.0pt;mso-line-height-rule:exactly;mso-char-indent-size:12pt'><span
lang=EN-US>REAL,DIMENSION(M) :: X,Y</span></p>
<p style='margin-left:18.0pt;text-indent:-18.0pt;mso-list:l3 level1 lfo2;
tab-stops:list 18.0pt'><a name="第6_3_1e"></a><![if !supportLists]><span
lang=EN-US style='font-family:宋体;mso-bidi-font-family:宋体;color:red'><span
style='mso-list:Ignore'>e)<span style='font:7.0pt "Times New Roman"'>
</span></span></span><![endif]><span lang=ZH-CN style='font-family:宋体;
color:red'>模块</span><span lang=EN-US style='font-family:宋体;color:red'><o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='line-height:17.0pt;mso-line-height-rule:
exactly'><span lang=ZH-CN>模块是</span><span lang=EN-US>F90</span><span
lang=ZH-CN>中新增加的、使数据共享的最现代的手段。只要是出现在模块中的变量，都能与引用该模块的程序单元中的变量共享。模块中如果有内部过程，这些过程也可为各引用该模块的程序单元所共用，因而又起了过程库的作用。模块的共享关系示意图如下，双向箭头表示数据可存可取，单根连线表示模块内部过程供下面外部过程调用。</span></p>
<p class=MsoBodyTextIndent2 style='line-height:17.0pt;mso-line-height-rule:
exactly'><!--[if mso & !supportInlineShapes & supportFields]><span lang=EN-US><span
style='mso-element:field-begin;mso-field-lock:yes'></span><span
style='mso-spacerun:yes'> </span>SHAPE <span
style='mso-spacerun:yes'> </span>\* MERGEFORMAT <span style='mso-element:
field-separator'></span></span><![endif]--><span lang=EN-US><!--[if gte vml 1]><v:group
id="_x0000_s1076" editas="canvas" style='width:351pt;height:199.1pt;
mso-position-horizontal-relative:char;mso-position-vertical-relative:line'
coordorigin="4138,4470" coordsize="6081,3449">
<o:lock v:ext="edit" aspectratio="t"/>
<v:shapetype id="_x0000_t75" coordsize="21600,21600" o:spt="75"
o:preferrelative="t" path="m@4@5l@4@11@9@11@9@5xe" filled="f" stroked="f">
<v:stroke joinstyle="miter"/>
<v:formulas>
<v:f eqn="if lineDrawn pixelLineWidth 0"/>
<v:f eqn="sum @0 1 0"/>
<v:f eqn="sum 0 0 @1"/>
<v:f eqn="prod @2 1 2"/>
<v:f eqn="prod @3 21600 pixelWidth"/>
<v:f eqn="prod @3 21600 pixelHeight"/>
<v:f eqn="sum @0 0 1"/>
<v:f eqn="prod @6 1 2"/>
<v:f eqn="prod @7 21600 pixelWidth"/>
<v:f eqn="sum @8 21600 0"/>
<v:f eqn="prod @7 21600 pixelHeight"/>
<v:f eqn="sum @10 21600 0"/>
</v:formulas>
<v:path o:extrusionok="f" gradientshapeok="t" o:connecttype="rect"/>
<o:lock v:ext="edit" aspectratio="t"/>
</v:shapetype><v:shape id="_x0000_s1077" type="#_x0000_t75" style='position:absolute;
left:4138;top:4470;width:6081;height:3449' o:preferrelative="f">
<v:fill o:detectmouseclick="t"/>
<v:path o:extrusionok="t" o:connecttype="none"/>
</v:shape><v:shapetype id="_x0000_t202" coordsize="21600,21600" o:spt="202"
path="m,l,21600r21600,l21600,xe">
<v:stroke joinstyle="miter"/>
<v:path gradientshapeok="t" o:connecttype="rect"/>
</v:shapetype><v:shape id="_x0000_s1078" type="#_x0000_t202" style='position:absolute;
left:6750;top:5107;width:818;height:558'>
<v:textbox style='mso-next-textbox:#_x0000_s1078' inset=".5mm,0,.5mm,0">
<![if !mso]>
<table cellpadding=0 cellspacing=0 width="100%">
<tr>
<td><![endif]>
<div>
<p class=MsoNormal align=center style='text-align:center'><span
lang=ZH-CN style='font-size:14.0pt;font-family:宋体;mso-ascii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>数据</span><span
lang=EN-US style='font-size:14.0pt'><o:p></o:p></span></p>
</div>
<![if !mso]></td>
</tr>
</table>
<![endif]></v:textbox>
</v:shape><v:shape id="_x0000_s1079" type="#_x0000_t202" style='position:absolute;
left:6750;top:5665;width:818;height:559'>
<v:textbox style='mso-next-textbox:#_x0000_s1079' inset=".5mm,0,.5mm,0">
<![if !mso]>
<table cellpadding=0 cellspacing=0 width="100%">
<tr>
<td><![endif]>
<div>
<p class=MsoNormal align=center style='text-align:center'><span
lang=ZH-CN style='font-size:14.0pt;font-family:宋体;mso-ascii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>过程</span><span
lang=EN-US style='font-size:14.0pt'><o:p></o:p></span></p>
</div>
<![if !mso]></td>
</tr>
</table>
<![endif]></v:textbox>
</v:shape><v:shape id="_x0000_s1080" type="#_x0000_t202" style='position:absolute;
left:6750;top:4548;width:818;height:559' filled="f" stroked="f">
<v:textbox style='mso-next-textbox:#_x0000_s1080' inset=".5mm,0,.5mm,0">
<![if !mso]>
<table cellpadding=0 cellspacing=0 width="100%">
<tr>
<td><![endif]>
<div>
<p class=MsoNormal align=center style='text-align:center'><span
lang=ZH-CN style='font-size:14.0pt;font-family:宋体;mso-ascii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>模块</span><span
lang=EN-US style='font-size:14.0pt'><o:p></o:p></span></p>
</div>
<![if !mso]></td>
</tr>
</table>
<![endif]></v:textbox>
</v:shape><v:shape id="_x0000_s1081" type="#_x0000_t202" style='position:absolute;
left:6050;top:7172;width:817;height:558'>
<v:textbox style='mso-next-textbox:#_x0000_s1081' inset=".5mm,0,.5mm,0">
<![if !mso]>
<table cellpadding=0 cellspacing=0 width="100%">
<tr>
<td><![endif]>
<div>
<p class=MsoNormal align=center style='text-align:center'><span
lang=ZH-CN style='font-size:14.0pt;font-family:宋体;mso-ascii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>过程</span><span
lang=EN-US style='font-size:14.0pt'>1<o:p></o:p></span></p>
</div>
<![if !mso]></td>
</tr>
</table>
<![endif]></v:textbox>
</v:shape><v:shape id="_x0000_s1082" type="#_x0000_t202" style='position:absolute;
left:7438;top:7172;width:817;height:558'>
<v:textbox style='mso-next-textbox:#_x0000_s1082' inset=".5mm,0,.5mm,0">
<![if !mso]>
<table cellpadding=0 cellspacing=0 width="100%">
<tr>
<td><![endif]>
<div>
<p class=MsoNormal align=center style='text-align:center'><span
lang=ZH-CN style='font-size:14.0pt;font-family:宋体;mso-ascii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>过程</span><span
lang=EN-US style='font-size:14.0pt'>2<o:p></o:p></span></p>
</div>
<![if !mso]></td>
</tr>
</table>
<![endif]></v:textbox>
</v:shape><v:shape id="_x0000_s1083" type="#_x0000_t202" style='position:absolute;
left:8971;top:7172;width:817;height:558'>
<v:textbox style='mso-next-textbox:#_x0000_s1083' inset=".5mm,0,.5mm,0">
<![if !mso]>
<table cellpadding=0 cellspacing=0 width="100%">
<tr>
<td><![endif]>
<div>
<p class=MsoNormal align=center style='text-align:center'><span
lang=ZH-CN style='font-size:14.0pt;font-family:宋体;mso-ascii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>过程</span><span
lang=EN-US style='font-size:14.0pt'>n<o:p></o:p></span></p>
</div>
<![if !mso]></td>
</tr>
</table>
<![endif]></v:textbox>
</v:shape><v:shape id="_x0000_s1084" type="#_x0000_t202" style='position:absolute;
left:4503;top:7172;width:816;height:558'>
<v:textbox style='mso-next-textbox:#_x0000_s1084' inset=".5mm,0,.5mm,0">
<![if !mso]>
<table cellpadding=0 cellspacing=0 width="100%">
<tr>
<td><![endif]>
<div>
<p class=MsoNormal><span lang=ZH-CN style='font-size:14.0pt;font-family:
宋体;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman"'>主程序</span><span
lang=EN-US style='font-size:14.0pt'><o:p></o:p></span></p>
</div>
<![if !mso]></td>
</tr>
</table>
<![endif]></v:textbox>
</v:shape><v:line id="_x0000_s1085" style='position:absolute' from="7568,7744"
to="7568,7744">
<v:stroke endarrow="block"/>
</v:line><v:line id="_x0000_s1086" style='position:absolute;flip:y' from="7568,5289"
to="9634,5290" strokecolor="red">
<v:stroke startarrow="classic" startarrowwidth="wide" startarrowlength="long"/>
</v:line><v:line id="_x0000_s1087" style='position:absolute' from="9634,5289"
to="9636,7172" strokecolor="red">
<v:stroke endarrow="classic" endarrowwidth="wide" endarrowlength="long"/>
</v:line><v:line id="_x0000_s1088" style='position:absolute;flip:y' from="4684,5289"
to="6750,5290" strokecolor="red">
<v:stroke startarrowwidth="wide" startarrowlength="long" endarrow="classic"
endarrowwidth="wide" endarrowlength="long"/>
</v:line><v:line id="_x0000_s1089" style='position:absolute' from="4683,5289"
to="4684,7172" strokecolor="red">
<v:stroke endarrow="classic" endarrowwidth="wide" endarrowlength="long"/>
</v:line><v:line id="_x0000_s1090" style='position:absolute' from="7568,5924"
to="9154,5925" strokecolor="lime"/>
<v:line id="_x0000_s1091" style='position:absolute' from="9154,5925" to="9155,7172"
strokecolor="lime"/>
<v:line id="_x0000_s1092" style='position:absolute' from="5164,5925" to="6750,5926"
strokecolor="lime"/>
<v:line id="_x0000_s1093" style='position:absolute' from="5163,5924" to="5164,7172"
strokecolor="lime"/>
<v:line id="_x0000_s1094" style='position:absolute' from="6217,5535" to="6217,5535">
<v:stroke endarrow="block"/>
</v:line><v:line id="_x0000_s1095" style='position:absolute' from="6191,5509"
to="6750,5509" strokecolor="red">
<v:stroke endarrow="classic" endarrowwidth="wide" endarrowlength="long"/>
</v:line><v:line id="_x0000_s1096" style='position:absolute' from="6191,5509"
to="6191,7172" strokecolor="red">
<v:stroke endarrow="classic" endarrowwidth="wide" endarrowlength="long"/>
</v:line><v:line id="_x0000_s1097" style='position:absolute' from="7568,5509"
to="8127,5510" strokecolor="red">
<v:stroke startarrow="classic" startarrowwidth="wide" startarrowlength="long"
endarrowwidth="wide" endarrowlength="long"/>
</v:line><v:line id="_x0000_s1098" style='position:absolute' from="8125,5509"
to="8126,7172" strokecolor="red">
<v:stroke endarrow="classic" endarrowwidth="wide" endarrowlength="long"/>
</v:line><v:line id="_x0000_s1099" style='position:absolute' from="6789,6224"
to="6789,7172" strokecolor="lime"/>
<v:line id="_x0000_s1100" style='position:absolute' from="7503,6224" to="7504,7172"
strokecolor="lime"/>
<w:wrap type="none"/>
<w:anchorlock/>
</v:group><![endif]--><![if !vml]><img width=468 height=265
src="Sec6-3.files/image002.gif" v:shapes="_x0000_s1076 _x0000_s1077 _x0000_s1078 _x0000_s1079 _x0000_s1080 _x0000_s1081 _x0000_s1082 _x0000_s1083 _x0000_s1084 _x0000_s1085 _x0000_s1086 _x0000_s1087 _x0000_s1088 _x0000_s1089 _x0000_s1090 _x0000_s1091 _x0000_s1092 _x0000_s1093 _x0000_s1094 _x0000_s1095 _x0000_s1096 _x0000_s1097 _x0000_s1098 _x0000_s1099 _x0000_s1100"><![endif]></span><!--[if mso & !supportInlineShapes & supportFields]><span
lang=EN-US><v:shape id="_x0000_i1025" type="#_x0000_t75" style='width:351pt;
height:199.1pt'>
<v:imagedata croptop="-65520f" cropbottom="65520f"/>
</v:shape><span style='mso-element:field-end'></span></span><![endif]--><span
lang=ZH-CN>模块的功能是提供一种方便有效的常量、变量、类型定义及过程的共享途径。它可代替</span><span lang=EN-US>COMMON</span><span
lang=ZH-CN>、</span><span lang=EN-US>EQUIVALENCE</span><span lang=ZH-CN>和</span><span
lang=EN-US>INCLUDE</span><span lang=ZH-CN>语句的功能。模块的用途主要有：</span><span
lang=EN-US><o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='margin-left:48.0pt;text-indent:-24.0pt;
mso-char-indent-count:0;line-height:17.0pt;mso-line-height-rule:exactly;
mso-list:l0 level1 lfo4;tab-stops:list 48.0pt left 72.0pt 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:0cm'><![if !supportLists]><span lang=EN-US
style='font-family:Symbol;mso-fareast-font-family:Symbol;mso-bidi-font-family:
Symbol'><span style='mso-list:Ignore'><img width=13 height=13
src="Sec6-3.files/image001.gif" alt="*"><span style='font:7.0pt "Times New Roman"'>
</span></span></span><![endif]><span lang=ZH-CN>包含通常使用的过程</span><span
lang=EN-US><o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='margin-left:48.0pt;text-indent:-24.0pt;
mso-char-indent-count:0;line-height:17.0pt;mso-line-height-rule:exactly;
mso-list:l0 level1 lfo4;tab-stops:list 48.0pt left 72.0pt 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:0cm'><![if !supportLists]><span lang=EN-US
style='font-family:Symbol;mso-fareast-font-family:Symbol;mso-bidi-font-family:
Symbol'><span style='mso-list:Ignore'><img width=13 height=13
src="Sec6-3.files/image001.gif" alt="*"><span style='font:7.0pt "Times New Roman"'>
</span></span></span><![endif]><span lang=ZH-CN>声明全局变量和派生类型</span><span
lang=EN-US><o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='margin-left:48.0pt;text-indent:-24.0pt;
mso-char-indent-count:0;line-height:17.0pt;mso-line-height-rule:exactly;
mso-list:l0 level1 lfo4;tab-stops:list 48.0pt left 72.0pt 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:0cm'><![if !supportLists]><span lang=EN-US
style='font-fami⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -