私はFortranの二分法に次のコードを書いていますが、Do Whileループで定義した条件を満たすと停止しません。説明をいただければ幸いです。 ! Bi-section method
program bi_section
implicit none
!Variables
real :: a, b, p
real :: fa, fb, fp, fc
! Interval
a =
Math Kernel Library(mkl)を初めて使用しました。私はLAPACK(MKLに付属)のシステムの線形方程式ソルバー(gesvルーチン)を使用するプログラムを持っています。私は既にMKL(インテル®Parallel Studio XE)をコンピュータにインストールしています。コードのコンパイル/リンクに問題があります。 ifort -mkl matrixinv.f90
はしかし
私のコードは以下の書かれています: DIMENSION T(10)
DATA A,B /9.,5./
IS=1
J=J+3
T(j-2)=A
T(J-1)=A-B
80 T(J)=T(1)+T(J-1)
J=J+1
IF(J.NE.10) GOTO 80
DO I=1,5
WRITE (*,15) I, T(J)
END DO
15 FORMAT ('T('I2')=',