くだすれFORTRAN（超初心者用）その3

くだすれFORTRAN（超初心者用）その3 at TECH

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

200:デフォルトの名無しさん
 08/03/08 11:59:22 
今の時代FORTRAN使うメリットってあるんですか？

201:デフォルトの名無しさん
 08/03/08 12:29:51 
TSS

202:デフォルトの名無しさん
 08/03/08 12:35:40 
>>199 
 
sabu() の中で開けたものは、sabu() を出る前にちゃんと閉じてる？ 
 
sabu() の中身が分からないので何とも…。

203:199
 08/03/08 14:30:47 
>>202 
レス有難うございます。 
sabu()中で、 
 
open(2,file='input.dat',status='old') 
 
に続いて、read()した後close()があり、 
 
write(*,*)'debug: close begin' 
close(2) 
write(*,*)'debug: close end' 
 
とwriteで挟んでみたところ正しく表示されるので、 
close文は実行されているのだと思います。

204:199
 08/03/08 14:31:49 
担当の先生によるとsabu以下は公開してだめだそうで、 
一部を以下に写してみます(中略が要領を得ないときはご指摘ください) 
cccccccccccccccccccccccccccccccccccccccc 
      subroutine sabu (xvalue,zvalue) 
      implicit real*8 (a-h,o-z) 
< 中略(commonとdimension) > 
 
      open(2,file='input.dat',status='old') 
< 中略(doとcontinueに挟まれてread) >   
       write(*,*)'debug: close begin' 
       close(2) 
       write(*,*)'debug: close end'       
      call sub1      
<中略(ifとdoに挟まれて変数へ代入)> 
      call sub2(x,eps) 
      write(*,2000)(df(i),i=1,10) 
 2000 format(10e15.3) 
 
      return 
      end

次ページ