sec7-2.htm

Fortran,骨灰级的语言

    <![if !mso]>
    <table cellpadding=0 cellspacing=0 width="100%">
     <tr>
      <td><![endif]>
      <div>
      <p class=MsoNormal><span lang=EN-US>0D</span></p>
      </div>
      <![if !mso]></td>
     </tr>
    </table>
    <![endif]></v:textbox>
  </v:shape><v:line id="_x0000_s1041" style='position:absolute' from="8202,1908"
   to="8202,2844"/>
  <v:line id="_x0000_s1042" style='position:absolute' from="8727,1908" to="8727,2844"/>
  <w:wrap type="topAndBottom" anchorx="page"/>
 </v:group><![endif]--><![if !vml]><span style='mso-ignore:vglayout'>
 <table cellpadding=0 cellspacing=0 align=left>
  <tr>
   <td width=54 height=0></td>
  </tr>
  <tr>
   <td></td>
   <td><img width=501 height=96 src="Sec7-2.files/image001.gif" v:shapes="_x0000_s1026 _x0000_s1027 _x0000_s1028 _x0000_s1029 _x0000_s1030 _x0000_s1031 _x0000_s1032 _x0000_s1033 _x0000_s1034 _x0000_s1035 _x0000_s1036 _x0000_s1037 _x0000_s1038 _x0000_s1039 _x0000_s1040 _x0000_s1041 _x0000_s1042"></td>
  </tr>
 </table>
 </span><![endif]><!--[if gte vml 1]></o:wrapblock><![endif]--><br
style='mso-ignore:vglayout' clear=ALL>
</p>

<p class=MsoBodyTextIndent2 style='line-height:15.0pt;mso-line-height-rule:
exactly'><span lang=ZH-CN>例：</span><span lang=EN-US>OPEN(3,FILE=</span><span
lang=ZH-CN style='letter-spacing:-4.0pt'>’</span><span lang=EN-US>FSEQ</span><span
lang=ZH-CN style='letter-spacing:-4.0pt'>’</span><span lang=EN-US>)</span></p>

<p class=MsoBodyTextIndent2 style='margin-left:25.5pt;line-height:15.0pt;
mso-line-height-rule:exactly'><span lang=EN-US>!<span
style='mso-spacerun:yes'>&nbsp; </span>FSEQ is a formatted sequential fife by
default.</span><span lang=EN-US style='mso-font-kerning:0pt'><o:p></o:p></span></p>

<p class=MsoBodyTextIndent2 style='margin-left:25.5pt;line-height:15.0pt;
mso-line-height-rule:exactly'><span lang=EN-US style='mso-font-kerning:0pt'>WRITE(3,</span><span
lang=ZH-CN style='letter-spacing:-4.0pt'>’</span><span lang=EN-US
style='mso-font-kerning:0pt'>(A,I3)</span><span lang=ZH-CN style='letter-spacing:
-4.0pt'>’</span><span lang=EN-US style='mso-font-kerning:0pt'>) </span><span
lang=ZH-CN style='letter-spacing:-4.0pt'>’</span><span lang=EN-US
style='mso-font-kerning:0pt'>RECORD</span><span lang=ZH-CN style='letter-spacing:
-4.0pt'>’</span><span lang=EN-US style='mso-font-kerning:0pt'>,1<o:p></o:p></span></p>

<p class=MsoBodyTextIndent2 style='margin-left:25.5pt;line-height:15.0pt;
mso-line-height-rule:exactly'><span lang=EN-US style='mso-font-kerning:0pt'>WRITE(3,</span><span
lang=EN-US style='letter-spacing:-4.0pt'> </span><span lang=ZH-CN
style='letter-spacing:-4.0pt'>’</span><span lang=EN-US>()</span><span
lang=ZH-CN style='letter-spacing:-4.0pt'>’</span><span lang=EN-US
style='mso-font-kerning:0pt'>)<o:p></o:p></span></p>

<p class=MsoBodyTextIndent2 style='margin-left:25.5pt;line-height:15.0pt;
mso-line-height-rule:exactly'><span lang=EN-US style='mso-font-kerning:0pt'>WRITE(3,</span><span
lang=EN-US style='letter-spacing:-4.0pt'> </span><span lang=ZH-CN
style='letter-spacing:-4.0pt'>’</span><span lang=EN-US style='mso-font-kerning:
0pt'>(A11)</span><span lang=EN-US style='letter-spacing:-4.0pt'> </span><span
lang=ZH-CN style='letter-spacing:-4.0pt'>’</span><span lang=EN-US
style='mso-font-kerning:0pt'>) </span><span lang=ZH-CN style='letter-spacing:
-4.0pt'>’</span><span lang=EN-US style='mso-font-kerning:0pt'>The 3rd one</span><span
lang=ZH-CN style='mso-font-kerning:0pt'>’</span><span lang=EN-US
style='mso-font-kerning:0pt'><o:p></o:p></span></p>

<p class=MsoBodyTextIndent2 style='margin-left:25.5pt;line-height:15.0pt;
mso-line-height-rule:exactly'><span lang=EN-US style='mso-font-kerning:0pt'>CLOSE(3)<o:p></o:p></span></p>

<p class=MsoBodyTextIndent2 style='margin-left:25.5pt;line-height:15.0pt;
mso-line-height-rule:exactly'><span lang=EN-US style='mso-font-kerning:0pt'>END<o:p></o:p></span></p>

<p class=MsoBodyTextIndent2 style='margin-left:25.5pt;line-height:15.0pt;
mso-line-height-rule:exactly'><span lang=EN-US style='mso-font-kerning:0pt'><a
href="example/e_7_2_1.f90">[e_7_2_1.f90]</a><o:p></o:p></span></p>

<p class=MsoBodyTextIndent2 style='text-indent:0cm;mso-char-indent-count:0;
line-height:15.0pt;mso-line-height-rule:exactly;mso-char-indent-size:0cm'><!--[if gte vml 1]><o:wrapblock><v:group
  id="_x0000_s1171" style='position:absolute;left:0;text-align:left;
  margin-left:45.15pt;margin-top:0;width:378pt;height:151.65pt;z-index:2;
  mso-position-vertical:top' coordorigin="2484,1440" coordsize="7560,3033">
  <v:line id="_x0000_s1172" style='position:absolute;flip:x' from="5658,2844"
   to="5662,3990">
   <v:stroke endarrow="block"/>
  </v:line><v:group id="_x0000_s1173" style='position:absolute;left:2589;top:1440;
   width:7455;height:1872' coordorigin="2217,4092" coordsize="7455,1872">
   <v:group id="_x0000_s1174" style='position:absolute;left:2217;top:4092;
    width:7455;height:1404' coordorigin="2217,4092" coordsize="7455,1404">
    <v:group id="_x0000_s1175" style='position:absolute;left:2217;top:4092;
     width:7455;height:1404' coordorigin="2007,3000" coordsize="6510,1404">
     <v:shape id="_x0000_s1176" type="#_x0000_t7" style='position:absolute;
      left:2007;top:3000;width:6510;height:468' adj="1499" fillcolor="#333">
      <v:fill opacity=".5"/>
     </v:shape><v:rect id="_x0000_s1177" style='position:absolute;left:2007;
      top:3468;width:6090;height:936' fillcolor="silver">
      <v:fill opacity=".5"/>
     </v:rect><v:line id="_x0000_s1178" style='position:absolute;flip:y'
      from="8097,3936" to="8517,4404"/>
    </v:group><v:line id="_x0000_s1179" style='position:absolute' from="9672,4092"
     to="9672,5028"/>
   </v:group><v:shapetype id="_x0000_t87" coordsize="21600,21600" o:spt="87"
    adj="1800,10800" path="m21600,qx10800@0l10800@2qy0@11,10800@3l10800@1qy21600,21600e"
    filled="f">
    <v:formulas>
     <v:f eqn="val #0"/>
     <v:f eqn="sum 21600 0 #0"/>
     <v:f eqn="sum #1 0 #0"/>
     <v:f eqn="sum #1 #0 0"/>
     <v:f eqn="prod #0 9598 32768"/>
     <v:f eqn="sum 21600 0 @4"/>
     <v:f eqn="sum 21600 0 #1"/>
     <v:f eqn="min #1 @6"/>
     <v:f eqn="prod @7 1 2"/>
     <v:f eqn="prod #0 2 1"/>
     <v:f eqn="sum 21600 0 @9"/>
     <v:f eqn="val #1"/>
    </v:formulas>
    <v:path arrowok="t" o:connecttype="custom" o:connectlocs="21600,0;0,10800;21600,21600"
     textboxrect="13963,@4,21600,@5"/>
    <v:handles>
     <v:h position="center,#0" yrange="0,@8"/>
     <v:h position="topLeft,#1" yrange="@9,@10"/>
    </v:handles>
   </v:shapetype><v:shape id="_x0000_s1180" type="#_x0000_t87" style='position:absolute;
    left:3096;top:5088;width:312;height:1440;rotation:-90'/>
   <v:shape id="_x0000_s1181" type="#_x0000_t87" style='position:absolute;
    left:4634;top:5335;width:312;height:945;rotation:-90'/>
   <v:shape id="_x0000_s1182" type="#_x0000_t87" style='position:absolute;
    left:5634;top:5329;width:300;height:945;rotation:-90'/>
   <v:shape id="_x0000_s1183" type="#_x0000_t87" style='position:absolute;
    left:7116;top:5088;width:312;height:1440;rotation:-90'/>
   <v:shape id="_x0000_s1184" type="#_x0000_t87" style='position:absolute;
    left:8525;top:5329;width:300;height:945;rotation:-90'/>
  </v:group><v:shape id="_x0000_s1185" type="#_x0000_t202" style='position:absolute;
   left:2799;top:2064;width:1575;height:624' fillcolor="silver" stroked="f">
   <v:fill opacity=".5"/>
   <v:textbox style='mso-next-textbox:#_x0000_s1185'>
    <![if !mso]>
    <table cellpadding=0 cellspacing=0 width="100%">
     <tr>
      <td><![endif]>
      <div>
      <p class=MsoNormal><span lang=EN-US>RECORD<span
      style='mso-spacerun:yes'>&nbsp; </span>1</span></p>
      </div>
      <![if !mso]></td>
     </tr>
    </table>
    <![endif]></v:textbox>
  </v:shape><v:shape id="_x0000_s1186" type="#_x0000_t202" style='position:absolute;
   left:4584;top:2064;width:630;height:468;flip:x' fillcolor="silver"
   stroked="f">
   <v:fill opacity=".5"/>
   <v:textbox style='mso-next-textbox:#_x0000_s1186'>
    <![if !mso]>
    <table cellpadding=0 cellspacing=0 width="100%">
     <tr>
      <td><![endif]>
      <div>
      <p class=MsoNormal><span lang=EN-US>0D</span></p>
      </div>
      <![if !mso]></td>
     </tr>
    </table>
    <![endif]></v:textbox>
  </v:shape><v:shape id="_x0000_s1187" type="#_x0000_t202" style='position:absolute;
   left:5109;top:2064;width:630;height:468' fillcolor="silver" stroked="f">
   <v:fill opacity=".5"/>
   <v:textbox style='mso-next-textbox:#_x0000_s1187'>
    <![if !mso]>
    <table cellpadding=0 cellspacing=0 width="100%">
     <tr>
      <td><![endif]>
      <div>
      <p class=MsoNormal><span lang=EN-US>0A</span></p>
      </div>
      <![if !mso]></td>
     </tr>
    </table>
    <![endif]></v:textbox>
  </v:shape><v:shape id="_x0000_s1188" type="#_x0000_t202" style='position:absolute;
   left:5634;top:2064;width:630;height:468;flip:x' fillcolor="silver"
   stroked="f">
   <v:fill opacity=".5"/>
   <v:textbox style='mso-next-textbox:#_x0000_s1188'>
    <![if !mso]>
    <table cellpadding=0 cellspacing=0 width="100%">
     <tr>
      <td><![endif]>
      <div>
      <p class=MsoNormal><span lang=EN-US>0D</span></p>
      </div>
      <![if !mso]></td>
     </tr>
    </table>
    <![endif]></v:textbox>
  </v:shape><v:shape id="_x0000_s1189" type="#_x0000_t202" style='position:absolute;
   left:6159;top:2064;width:630;height:468' fillcolor="silver" stroked="f">
   <v:fill opacity=".5"/>
   <v:textbox style='mso-next-textbox:#_x0000_s1189'>
    <![if !mso]>
    <table cellpadding=0 cellspacing=0 width="100%">
     <tr>
      <td><![endif]>
      <div>
      <p class=MsoNormal><span lang=EN-US>0A</span></p>
      </div>
      <![if !mso]></td>
     </tr>
    </table>
    <![endif]></v:textbox>
  </v:shape><v:shape id="_x0000_s1190" type="#_x0000_t202" style='position:absolute;
   left:6873;top:2067;width:1575;height:468' fillcolor="silver" stroked="f">
   <v:fill opacity=".5"/>
   <v:textbox style='mso-next-textbox:#_x0000_s1190'>
    <![if !mso]>
    <table cellpadding=0 cellspacing=0 width="100%">
     <tr>
      <td><![endif]>
      <div>
      <p class=MsoNormal><span lang=EN-US>The_3rd_one</span></p>
      </div>
      <![if !mso]></td>
     </tr>
    </table>
    <![endif]></v:textbox>
  </v:shape><v:shape id="_x0000_s1191" type="#_x0000_t202" style='position:absolute;
   left:8574;top:2064;width:980;height:468' fillcolor="silver" stroked="f">
   <v:fill opacity=".5"/>
   <v:textbox style='mso-next-textbox:#_x0000_s1191'>
    <![if !mso]>
    <table cellpadding=0 cellspacing=0 width="100%">
     <tr>
      <td><![endif]>
      <div>
      <p class=MsoNormal align=right style='text-align:right;text-indent:10.5pt;
      mso-char-indent-count:1.0;mso-char-indent-size:10.5pt'><span lang=EN-US>0A</span></p>
      </div>
      <![if !mso]></td>
     </tr>
    </table>
    <![endif]></v:textbox>
  </v:shape><v:shape id="_x0000_s1192" type="#_x0000_t202" style='position:absolute;
   left:8697;top:2067;width:285;height:468;flip:x' fillcolor="silver"
   stroked="f">
   <v:fill opacity=".5"/>
   <v:textbox style='mso-next-textbox:#_x0000_s1192' inset="0,,0">
    <![if !mso]>
    <table cellpadding=0 cellspacing=0 width="100%">
     <tr>
      <td><![endif]>
      <div>
      <p class=MsoNormal><span lang=EN-US>0D</span></p>
      </div>
      <![if !mso]></td>
     </tr>
    </table>
    <![endif]></v:textbox>
  </v:shape><v:line id="_x0000_s1193" style='position:absolute' from="4612,1908"
   to="4612,2844"/>
  <v:line id="_x0000_s1194" style='position:absolute' from="6684,1908" to="6684,2844"/>
  <v:line id="_x0000_s1195" style='position:absolute' from="6159,1908" to="6159,2844"/>
  <v:line id="_x0000_s1196" style='position:absolute' from="5634,1908" to="5634,2844"/>
  <v:line id="_x0000_s1197" style='position:absolute' from="5109,1908" to="5109,2844"/>
  <v:line id="_x0000_s1198" style='position:absolute' from="9099,1908" to="9099,2844"/>
  <v:line id="_x0000_s1199" style='positi