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

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

くだすれFORTRAN（超初心者用）その4 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

303:デフォルトの名無しさん
 09/06/16 23:07:10 
>>301 
データ数ですか。それは入力元のファイルの値に問題ありということですか？プログラムは 
       IMPLICIT REAL(A-H,O-Z) 
       DIMENSION X(100) 
       OPEN(UNIT=10,FILE='inp-2.dat',STATUS='old',FORM='FORMATTED') 
       OPEN(UNIT=11,FILE='list-2.dat',STATUS='UNKNOWN',FORM='FORMATTED') 
       READ(10,100)N 
       DO 20 I=1,N 
       READ(10,200)X(I) 
 20    CONTINUE 
       IMAX=0.0 
       DO 30 I=1,N 
       IF(X(I).GT.IMAX)MAXN=I 
       IF(X(I).GT.IMAX)IMAX=X(I) 
 30    CONTINUE 
       WRITE(11,300)'MAX=',IMAX,'NO.=',MAXN 
 100   FORMAT(A5) 
 200   FORMAT(F9.5) 
 300   FORMAT(A4,F10.5,A4,I3) 
       CLOSE(10) 
       CLOSE(11) 
       STOP 
       END 
となってます。サンプルプログラムを改変しただけなのでおかしいところが多いと思います。入力ファイルはとりあえず実数を5つ縦に並べてあります

304:296です。
 09/06/16 23:07:11 
[hoge@xeon prog20]$ ifort test.f90 -p 
[hoge@xeon prog20]$ time a.out 
real    0m2.359s 
user    0m2.357s 
sys     0m0.002s 
[hoge@xeon prog20]$ gprof -b 
Each sample counts as 0.01 seconds. 
  %   cumulative   self              self     total            
 time   seconds   seconds    calls   s/call   s/call  name     
 71.83      1.53     1.53   100000     0.00     0.00  sub1_ 
 28.17      2.13     0.60   100000     0.00     0.00  sub2_ 
  0.00      2.13     0.00        1     0.00     2.13  MAIN__

次ページ