📄 sec5-2.htm
字号:
exactly'><span lang=ZH-CN>由于计算机的内存是一维的，所以不管数组是几维，它在内存中都是按一维来存储的，数组的存储顺序对应于输入输出时给定数组元素数据的顺序。</span><span
lang=EN-US>FORTRAN</span><span lang=ZH-CN>规定，一维数组在机内存贮时是按序存放的。而对二维数组，用第一个下标指明行序，第二个下标指明列序，则数组是按列存放的。即按序存放第一列内的诸元素，接着是第二列内诸元素，然后第三列、第四列直到最后一列。如</span><span
lang=EN-US>A</span><span lang=ZH-CN>是</span><span lang=EN-US><span
style='position:relative;top:3.0pt;mso-text-raise:-3.0pt'><!--[if gte vml 1]><v:shape
id="_x0000_i1027" type="#_x0000_t75" style='width:24pt;height:14.25pt' o:ole="">
<v:imagedata src="Sec5-2.files/image065.wmz" o:title=""/>
</v:shape><![endif]--><![if !vml]><img width=32 height=19
src="Sec5-2.files/image005.gif" v:shapes="_x0000_i1027"><![endif]></span><!--[if gte mso 9]><xml>
<o:OLEObject Type="Embed" ProgID="Equation.DSMT4" ShapeID="_x0000_i1027"
DrawAspect="Content" ObjectID="_1071056528">
</o:OLEObject>
</xml><![endif]--></span><span lang=ZH-CN>数组，</span></p>
<p class=MsoBodyTextIndent2 style='line-height:normal'><span lang=EN-US><span
style='position:relative;top:25.0pt;mso-text-raise:-25.0pt'><!--[if gte vml 1]><v:shape
id="_x0000_i1028" type="#_x0000_t75" style='width:132.75pt;height:56.25pt'
o:ole="">
<v:imagedata src="Sec5-2.files/image066.wmz" o:title=""/>
</v:shape><![endif]--><![if !vml]><img width=177 height=75
src="Sec5-2.files/image009.gif" v:shapes="_x0000_i1028"><![endif]></span><!--[if gte mso 9]><xml>
<o:OLEObject Type="Embed" ProgID="Equation.DSMT4" ShapeID="_x0000_i1028"
DrawAspect="Content" ObjectID="_1071056529">
</o:OLEObject>
</xml><![endif]--></span></p>
<p class=MsoBodyTextIndent2 style='margin-top:15.6pt;mso-para-margin-top:1.0gd;
text-indent:0cm;mso-char-indent-count:0;line-height:normal'><span lang=ZH-CN>则它在机内的存放顺序是</span><span
lang=EN-US>A(1,1)->A(2,1)->A(3,1) => A(1,2)->A(2,2)->A(3,2)
=> A(1,3)->A(2,3)->A(3,3)</span><span lang=ZH-CN>。</span></p>
<p class=MsoBodyTextIndent2 style='line-height:17.0pt;mso-line-height-rule:
exactly'><span lang=ZH-CN>高维数组的存放次序可由二维数组类推，即最右边指标（相当于最外层循环变量）变动最慢，最左边的第一个指标变动最快。</span><span
lang=EN-US><o:p></o:p></span></p>
<p style='margin-left:18.0pt;text-indent:-18.0pt;mso-list:l9 level1 lfo2;
tab-stops:list 18.0pt;mso-char-indent-size:12pt'><a name="第5_2_1c"></a><![if !supportLists]><span
lang=EN-US style='font-family:宋体;mso-bidi-font-family:宋体;color:red'><span
style='mso-list:Ignore'>c)<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'>DO</span><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=EN-US>F90</span><span lang=ZH-CN>的赋值语句考虑到了在并行机上计算的功能，即使不是用的并行计算机，在形式上也是按并行化处理的。这与</span><span
lang=EN-US>F77</span><span lang=ZH-CN>中的串行赋值是不同的，由此造成了数组的</span><span
lang=EN-US>F90</span><span lang=ZH-CN>赋值结果与采用</span><span lang=EN-US>DO</span><span
lang=ZH-CN>循环方式进行赋值的差异。</span><span lang=EN-US><o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='text-indent:47.4pt;mso-char-indent-count:
3.95;line-height:15.0pt;mso-line-height-rule:exactly;mso-char-indent-size:12pt'><span
lang=ZH-CN>例：</span><span lang=EN-US>INTEGER :: a(0:9)=(/0,1,2,3,4,5,6,7,8,9/)<o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='text-indent:72.0pt;mso-char-indent-count:
6.0;line-height:15.0pt;mso-line-height-rule:exactly;mso-char-indent-size:12pt'><span
lang=EN-US>a(1:9)=a(0:8)<o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='text-indent:0cm;mso-char-indent-count:0;
line-height:17.0pt;mso-line-height-rule:exactly;mso-char-indent-size:0cm'><span
lang=EN-US>a</span><span lang=ZH-CN>的所有元素是并行处理的，结果是</span><span lang=EN-US>(/0,0,1,2,3,4,5,6,7,8/)</span><span
lang=ZH-CN>：</span><span lang=EN-US><o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='text-indent:72.0pt;mso-char-indent-count:
6.0;line-height:15.0pt;mso-line-height-rule:exactly;mso-char-indent-size:12pt'><span
lang=EN-US>|a(0)|a(1)|a(2)|a(3)|a(4)|a(5)|a(6)|a(7)|a(8)|a(9)|<o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='text-indent:117.0pt;mso-char-indent-count:
9.75;line-height:15.0pt;mso-line-height-rule:exactly;mso-char-indent-size:12pt'><span
lang=ZH-CN>↑</span><span lang=EN-US><span style='mso-spacerun:yes'>
</span></span><span lang=ZH-CN>↑</span><span lang=EN-US><span
style='mso-spacerun:yes'> </span></span><span lang=ZH-CN>↑</span><span
lang=EN-US><span style='mso-spacerun:yes'> </span></span><span
lang=ZH-CN>↑</span><span lang=EN-US><span style='mso-spacerun:yes'>
</span></span><span lang=ZH-CN>↑</span><span lang=EN-US><span
style='mso-spacerun:yes'> </span></span><span lang=ZH-CN>↑</span><span
lang=EN-US><span style='mso-spacerun:yes'> </span></span><span
lang=ZH-CN>↑</span><span lang=EN-US><span style='mso-spacerun:yes'>
</span></span><span lang=ZH-CN>↑</span><span lang=EN-US><span
style='mso-spacerun:yes'> </span></span><span lang=ZH-CN>↑</span><span
lang=EN-US><o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='text-indent:72.0pt;mso-char-indent-count:
6.0;line-height:15.0pt;mso-line-height-rule:exactly;mso-char-indent-size:12pt'><span
lang=EN-US><span style='mso-spacerun:yes'>
</span>|a(0)|a(1)|a(2)|a(3)|a(4)|a(5)|a(6)|a(7)|a(8)|a(9)|<o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='text-indent:0cm;mso-char-indent-count:0;
line-height:17.0pt;mso-line-height-rule:exactly;mso-char-indent-size:0cm'><span
lang=ZH-CN>但是，如果用</span><span lang=EN-US>DO</span><span lang=ZH-CN>循环的话</span><span
lang=EN-US><o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='text-indent:72.0pt;mso-char-indent-count:
6.0;line-height:15.0pt;mso-line-height-rule:exactly;mso-char-indent-size:12pt'><span
lang=EN-US>DO i=1,9<o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='text-indent:96.85pt;mso-char-indent-count:
8.07;line-height:15.0pt;mso-line-height-rule:exactly;mso-char-indent-size:12pt'><span
lang=EN-US>a(i)=a(i-1)<o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='text-indent:72.0pt;mso-char-indent-count:
6.0;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:0cm;mso-char-indent-count:0;
line-height:17.0pt;mso-line-height-rule:exactly;mso-char-indent-size:0cm'><span
lang=EN-US>A</span><span lang=ZH-CN>的元素是逐一处理的，结果是</span><span lang=EN-US>(/0,0,0,0,0,0,0,0,0/)</span><span
lang=ZH-CN>：</span><span lang=EN-US><o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='text-indent:72.0pt;mso-char-indent-count:
6.0;line-height:15.0pt;mso-line-height-rule:exactly;mso-char-indent-size:12pt'><span
lang=EN-US>|a(0)|a(1)|a(2)|a(3)|a(4)|a(5)|a(6)|a(7)|a(8)|a(9)|<o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='text-indent:93.85pt;mso-char-indent-count:
7.82;line-height:15.0pt;mso-line-height-rule:exactly;mso-char-indent-size:12pt'><span
lang=ZH-CN>→</span><span lang=EN-US><span style='mso-spacerun:yes'>
</span></span><span lang=ZH-CN>→</span><span lang=EN-US><span
style='mso-spacerun:yes'> </span></span><span lang=ZH-CN>→</span><span
lang=EN-US><span style='mso-spacerun:yes'> </span></span><span
lang=ZH-CN>→</span><span lang=EN-US><span style='mso-spacerun:yes'>
</span></span><span lang=ZH-CN>→</span><span lang=EN-US><span
style='mso-spacerun:yes'> </span></span><span lang=ZH-CN>→</span><span
lang=EN-US><span style='mso-spacerun:yes'> </span></span><span
lang=ZH-CN>→</span><span lang=EN-US><span style='mso-spacerun:yes'>
</span></span><span lang=ZH-CN>→</span><span lang=EN-US><span
style='mso-spacerun:yes'> </span></span><span lang=ZH-CN>→</span><span
lang=EN-US><o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='text-indent:72.0pt;mso-char-indent-count:
6.0;line-height:15.0pt;mso-line-height-rule:exactly;mso-char-indent-size:12pt'><span
lang=EN-US><span style='mso-spacerun:yes'> </span></span><span
lang=ZH-CN>①</span><span lang=EN-US><span style='mso-spacerun:yes'>
</span></span><span lang=ZH-CN>②</span><span lang=EN-US><span
style='mso-spacerun:yes'> </span></span><span lang=ZH-CN>③</span><span
lang=EN-US><span style='mso-spacerun:yes'> </span></span><span
lang=ZH-CN>④</span><span lang=EN-US><span style='mso-spacerun:yes'>
</span></span><span lang=ZH-CN>⑤</span><span lang=EN-US><span
style='mso-spacerun:yes'> </span></span><span lang=ZH-CN>⑥</span><span
lang=EN-US><span style='mso-spacerun:yes'> </span></span><span
lang=ZH-CN>⑦</span><span lang=EN-US><span style='mso-spacerun:yes'>
</span></span><span lang=ZH-CN>⑧</span><span lang=EN-US><span
style='mso-spacerun:yes'> </span></span><span lang=ZH-CN>⑨</span><span
lang=EN-US><o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='text-indent:0cm;mso-char-indent-count:0;
line-height:17.0pt;mso-line-height-rule:exactly;mso-char-indent-size:0cm'><span
lang=ZH-CN>要用</span><span lang=EN-US>DO</span><span lang=ZH-CN>循环达到和上面同样的效果，需要数组的拷贝：</span><span
lang=EN-US><o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='text-indent:72.0pt;mso-char-indent-count:
6.0;line-height:15.0pt;mso-line-height-rule:exactly;mso-char-indent-size:12pt'><span
lang=EN-US>INTEGER :: a(0:9)=(/0,1,2,3,4,5,6,7,8,9/), b(0:9)<o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='text-indent:72.0pt;mso-char-indent-count:
6.0;line-height:15.0pt;mso-line-height-rule:exactly;mso-char-indent-size:12pt'><span
lang=EN-US>b=a<o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='text-indent:72.0pt;mso-char-indent-count:
6.0;line-height:15.0pt;mso-line-height-rule:exactly;mso-char-indent-size:12pt'><span
lang=EN-US>DO i=1,9<o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='text-indent:96.85pt;mso-char-indent-count:
8.07;line-height:15.0pt;mso-line-height-rule:exactly;mso-char-indent-size:12pt'><span
lang=EN-US>a(i)=b(i-1)<o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='text-indent:72.0pt;mso-char-indent-count:
6.0;line-height:15.0pt;mso-line-height-rule:exactly;mso-char-indent-size:12pt'><span
lang=EN-US>END DO</span></p>
<p style='margin-left:18.0pt;text-indent:-18.0pt;mso-list:l9 level1 lfo2;
tab-stops:list 18.0pt'><a name="第5_2_1d"></a><![if !supportLists]><span
lang=EN-US style='font-family:宋体;mso-bidi-font-family:宋体;color:red'><span
style='mso-list:Ignore'>d)<span style='font:7.0pt "Times New Roman"'>
</span></span></span><![endif]><span lang=EN-US style='font-family:宋体;
color:red'>RESHAPE</span><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>RESHAPE</span><span
lang=ZH-CN>语句把一个一维数组改变形状后赋给另一已知形状的数组。由于</span><span lang=EN-US>Fortran</span><span
lang=ZH-CN>的数组顺序不同于</span><span lang=EN-US>C</span><span lang=ZH-CN>，</span><span
lang=EN-US>Fortran</span><span lang=ZH-CN>中左边第一维是变化最快的，</span><span lang=EN-US>RESHAPE</span><span
lang=ZH-CN>语句可以用于当</span><span lang=EN-US>Fortran</span><span lang=ZH-CN>过程化为</span><span
lang=EN-US>C</span><span lang=ZH-CN>过程时将</span><span lang=EN-US>Fortran</span><span
lang=ZH-CN>数组改序成</span><span lang=EN-US>C</span><span lang=ZH-CN>数组序。它的一般形式为：<span
style='color:#FF9900'>结果</span></span><span lang=EN-US style='color:#FF9900'>=RESHAPE(</span><span
lang=ZH-CN style='color:#FF9900'>源</span><span lang=EN-US style='color:#FF9900'>,</span><span
lang=ZH-CN style='color:#FF9900'>形状</span><span lang=EN-US style='color:#FF9900'>[,</span><span
lang=ZH-CN style='color:#FF9900'>补充</span><span lang=EN-US style='color:#FF9900'>][,</span><span
lang=ZH-CN style='color:#FF9900'>顺序</span><span lang=EN-US style='color:#FF9900'>])</span><span
lang=ZH-CN>。<span style='color:fuchsia'>源</span>可以是任意数据类型的数组，它提供结果数组的元素。当补充被省略或其大小为</span><span
lang=EN-US>0</span><span lang=ZH-CN>时，源的大小必须大于</span><span lang=EN-US>PRODUCT(</span><span
lang=ZH-CN>形状</span><span lang=EN-US>)</span><span lang=ZH-CN>。<span
style='color:fuchsia'>形状</span>为</span><span lang=EN-US>7</span><span
lang=ZH-CN>个元素以下的一维固定的整型数组，它决定了结果数组的形状，其大小为正元素非负。<span style='color:fuchsia'>补充</span>为与源数组相同类型和属性的数组，当源数组的大小比结果数组小时用来补充元素值。<span
style='color:fuchsia'>顺序</span>必须是和形状数组有相同形状的整型数组</span><span lang=EN-US>,</span><span
lang=ZH-CN>其元素为</span><span lang=EN-US>(1,2,...,n)</span><span lang=ZH-CN>的排列，</span><span
lang=EN-US>n</span><span lang=ZH-CN>是形状数组的大小。当顺序被省略时，默认值为</span><span
lang=EN-US>(1,2,...,n)</span><span lang=ZH-CN>。</span></p>
<p class=MsoBodyTextIndent2 style='line-height:17.0pt;mso-line-height-rule:
exactly'><span lang=ZH-CN>因此，<span style='color:fuchsia'>结果</span>数组的形状与形状数组相同，与源数组的类型和属性相同，大小是形状数组元素值的乘积。结果数组的元素是源数组的元素按顺序数组指定的维别顺序排列的，当省略顺序数组时元素按通常的顺序排列。源数组元素用完后按序用补充数组的元素，必要时重复使用补充数组直至结果数组的所有元素均有其值。</span><span
lang=EN-US><o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='text-indent:47.4pt;mso-char-indent-count:
3.95;line-height:normal;text-autospace:none;mso-char-indent-size:12pt'><span
lang=ZH-CN>例：</span><span lang=EN-US>RESHAPE((/3,4,5,6,7,8/),(/2,3/))</span><span
lang=ZH-CN>的结果是</span><span lang=EN-US><span style='position:relative;
top:15.0pt;mso-text-raise:-15.0pt'><!--[if gte vml 1]><v:shape id="_x0000_i1029"
type="#_x0000_t75" style='width:56.25pt;height:36pt' o:ole="">
<v:imagedata src="Sec5-2.files/image067.wmz" o:title=""/>
</v:shape><![endif]--><![if !vml]><img width=75 height=48
src="Sec5-2.files/image015.gif" v:shapes="_x0000_i1029"><![endif]></span><!--[if gte mso 9]><xml>
<o:OLEObject Type="Embed" ProgID="Equation.DSMT4" ShapeID="_x0000_i1029"
DrawAspect="Content" ObjectID="_1071056530">
</o:OLEObject>
</xml><![endif]--></span><span lang=ZH-CN>。</span><span lang=EN-US><o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='text-indent:47.4pt;mso-char-indent-count:
3.95;line-height:normal;text-autospace:none;mso-char-indent-size:12pt'><span
lang=ZH-CN>例：</span><span lang=EN-US>RESHAPE((/3,4,5,6,7,8/),(/2,4/),(/1,1/),(/2,1/))</span><span
lang=ZH-CN>的结果是</span><span lang=EN-US style='position:relative;top:15.0pt;
mso-text-raise:-15.0pt'><!--[if gte vml 1]><v:shape id="_x0000_i1030" type="#_x0000_t75"
style='width:1in;height:36pt'>
<v:imagedata src="Sec5-2.files/image068.wmz" o:title=""/>
</v:shape><![endif]--><![if !vml]><img width=96 height=48
src="Sec5-2.files/image019.gif" v:shapes="_x0000_i1030"><![endif]></span><span
lang=ZH-CN>。</span><span lang=EN-US><o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='text-indent:47.4pt;mso-char-indent-count:
3.95;line-height:15.0pt;mso-line-height-rule:exactly;mso-char-indent-size:12pt'><span
lang=ZH-CN>例：</span><span lang=EN-US>INTEGER AR1(2,5)<o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='text-indent:72.0pt;mso-char-indent-count:
6.0;line-height:15.0pt;mso-line-height-rule:exactly;mso-char-indent-size:12pt'><span
lang=EN-US>REAL F(5,3,8),C(8,3,5)<o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='text-indent:72.0pt;mso-char-indent-count:
6.0;line-height:15.0pt;mso-line-height-rule:exactly;text-autospace:none;
mso-char-indent-size:12pt'><span lang=EN-US>AR1=RESHAPE((/1,2,3,4,5,6/),(/2,5/),(/0,0/),(/2,1/))<span
style='mso-spacerun:yes'> </span><o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='text-indent:72.0pt;mso-char-indent-count:
6.0;line-height:15.0pt;mso-line-height-rule:exactly;text-autospace:none;
mso-char-indent-size:12pt'><span lang=EN-US>! AR1</span><span lang=ZH-CN>的取值为</span><span
lang=EN-US><span style='mso-spacerun:yes'> </span>[1 2
3 4 5]<o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='text-indent:72.0pt;mso-char-indent-count:
6.0;line-height:15.0pt;mso-line-height-rule:exactly;text-autospace:none;
mso-char-indent-size:12pt'><span lang=EN-US>!<span
style='mso-spacerun:yes'>
</span>[6 0 0 0 0]<o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='text-indent:72.0pt;mso-char-indent-count:
6.0;line-height:15.0pt;mso-line-height-rule:exactly;mso-char-indent-size:12pt'><span
lang=EN-US>C=RESHAPE(F,(/8,3,5/),ORDER=(/3,2,1/))<span
style='mso-spacerun:yes'> </span>! </span><span lang=ZH-CN>将</span><span
lang=EN-US>Fortran</span><span lang=ZH-CN>数组序化为</span><span lang=EN-US>C</span><span
lang=ZH-CN>数组序</span><span lang=EN-US><o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='text-indent:72.0pt;mso-char-indent-count:
6.0;line-height:15.0pt;mso-line-height-rule:exactly;mso-char-indent-size:12pt'><span
lang=EN-US>END<o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='text-indent:47.4pt;mso-char-indent-count:
3.95;line-height:15.0pt;mso-line-height-rule:exactly;mso-char-indent-size:12pt'><span
lang=ZH-CN>例：</span><span lang=EN-US>INTEGER B(2,3),C(8)<o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='text-indent:72.0pt;mso-char-indent-count:
6.0;line-height:15.0pt;mso-line-height-rule:exactly;mso-char-indent-size:12pt'><span
lang=EN-US>B=RESHAPE((/1,2,3,4,5,6/),(/2,3/))<span
style='mso-spacerun:yes'> </span>! </span><span
lang=ZH-CN>赋值给形状为</span><span lang=EN-US>(2,3)</span><span lang=ZH-CN>的数组</span><span
lang=EN-US><o:p></o:p></span></p>
<p class=MsoBodyTextIndent2 style='text-indent:72.0pt;mso-char-indent-count:
6.0;line-height:15.0pt;mso-line-height-rule:exactly;mso-char-indent-size:12pt'><span
lang=EN-US>C=(/O,RESHAPE(B,(/6/)),7/)<span
style='mso-spacerun:yes'>
</span>! </span><span lang=ZH-CN>赋值给向量</span><span lang=EN-US>C</span><span
lang=ZH-CN>之前先把</span><span lang=EN-US>B</span><span lang=ZH-CN>转换成向量</span><span
lang=EN-US><o:p></o:p></span></p>
<p style='margin-left:18.0pt;text-indent:-18.0pt;mso-list:l9 level1 lfo2;
tab-stops:list 18.0pt;mso-char-indent-size:12pt'><a name="第5_2_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=EN-US style='font-family:宋体;
color:red'>WHERE</span><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=EN-US>F90</span><span lang=ZH-CN>中提供了屏蔽数组赋值语句，它实质上是一种带条件的数组赋值语句，也就是说它只对某些符合条件的数组元素赋值。屏蔽数组赋值语句，为</span><span
lang=EN-US>WHERE</span><span lang=ZH-CN>语句和</span><span lang=EN-US>WHERE</span><span
lang=ZH-CN>构造，其形式非常类似于逻辑</span><span lang=EN-US>IF</span><span lang=ZH-CN>语句和</span><span
lang=EN-US>I⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -