[SCore-users-jp] Re: omni Fortran レポート

[Motonori Heita Hirano]

  $B$4Js9p$"$j$,$H$&$4$6$$$^$9!#(B

%% In article <200207150503.AA00215 ＠ crcpc79.crc.co.jp>,
iriya ＠ crc.co.jp (=?ISO-2022-JP?B?GyRCRn5DKxsoQg==?=

>> read(io,format, end=999)
>> $B$G(BEOF$B=hM}$r$9$k$H(B,$B<!$K(Bread$B$,8F$P$l$k$H(B
>> read$B$+$i=hM}$,La$C$F$-$^$;$s(B.
>> top$B$G8+$k$H(BCPU$B$O>CHq$7$F$$$^$9(B.

>>        open (11, file = 'data1.dat')
>>        do while(.true.)
>>           read(11,*,end=999) i
>>        end if
>>    999 continue
>>        close(11)
>>        open (12, file = 'data2.dat')
>>        read(12,*, end=999) i  <-------
>>        ...

  $B%W%m%0%i%`$,$=$N$h$&$K$+$+$l$F$$$k$+$i$@$H;W$$$^$9!#(Bdata1.dat $B$G(B eof 
$B$r6t$C$?>l9g!"(B999 $B9T$K@)8f$,0\$j$^$9!#<!$K(B data2.dat $B$G(B eof $B$r6t$C$?>l(B
$B9g$K$b!"(B999 $B9T$K@)8f$,0\$j$^$9$+$i!"(Bdata2.dat $B$r$R$?$9$i(B open() $B$7$^$9!#(B
CPU $B$r>CHq$9$k$N$O$=$N$?$a$@$H9M$($^$9!#(B

>> read(io,format, iostat=iost)
>> $B$G$O(Biost$B$K>o$K(B0$B$,F~$j(Beof$B$KC#$9$k$H(B
>> $B:G8e$N9T$rFI$_9~$_$^$9(B.
>> $B$=$N$?$a2<$N%j%9%H$OL58B%k!<%W$K$J$j$^$9(B.

>>        open (11, file = 'data1.dat')
>>        do while(.true.)
>>           read(11,*,iostat=iost) i
>>           if(iost.eq.0) exit
>>        end if
>>        close(11)

  $B$3$A$i$G$O$=$l$,:F8=$G$-$^$;$s$G$7$?!#(Bexit $B$H$$$&M=Ls8l$O(B f77 $B$K$O$J(B
$B$$$?$a!"DL>o$N(B fortran 77 $B%3%s%Q%$%i$G$O!">e5-%3!<%I$,%3%s%Q%$%k$G$-$^(B
$B$;$s!#0J2<$N$h$&$K=$@5$7$F$b!"F1CM$@$H2r<a$7!"(BGNU Fortran 77 $B%3%s%Q%$(B
$B%i(B g77, SUN Fortran 77 $B%3%s%Q%$%i!"(BOmni omf77 $B$G3NG'$7$^$7$?!#(B

      program main

      open (11, file = 'data1.dat')
      do while (.true.)
         read (11, *, iostat=iost) i
         write(*, *) i
         if (iost.eq.0) then
            goto 111
         end if
      end do
 111  continue
      close(11)

      end

  $B>e5-$9$Y$F$N%3%s%Q%$%i$K$*$$$F!"(Bdata1.dat $B$h$j!":G=i$N(B 1 $B9T$r(B 
integer $B$H$7$F(B i $B$K(B read $B$7$?;~E@$G%W%m%0%i%`$O ＠ 5>o=*N;$7$^$9!#(B

  $B$^$?!">e5-%3!<%I$G$NJQ?t(B iost $B$H(B 0 $B$H$NHf3S$G$9$,!"(B1 $B$HHf3S$9$k$h$&(B
$B$K=$@5$9$k$H!"$*$C$7$c$k$h$&$K:G8e$N9T$rFI$_$D$E$1$^$9!#$,!"$3$l$b!"A0(B
$B=R$N(B omf77 $B0J30$N%3%s%Q%$%i$HF1MM$NF0:n$G$9!#(B

---
m-hirano