Program report11implicit nonecharacter(len=50):: matrixfileinteger:: status=0, nreal(8):: rreal(8), dimension(:,:), allocatable:: Matrix, Inv_Matrix, Identityinteger:: i, j, row write(*,*) "Enter the file name of matrix"read(*,*) matrixfil…

国際コースに関する記事は移行しました(2020/02/13) こちらへ yuma2012.hateblo.jp http://yuma2012.hateblo.jp/entry/2020/02/13/042247 眠い、前文省略します。 もともと文がうまくないんだから、ここで面白さを求めても駄目だわ。 今はインドネシア人の友…

加筆: Jacobi メソッドとGauss-Seidelの中でわざわざTempを使ってるのはA(i:j)の形で一々使うと、メモリ効率が悪い(どっかに書いてあった)ので、置き換えただけです。 I used Temp in two sessions Jacobi and Gauss-Seidel method in order to avoid the si…

program sele implicit none integer,parameter::max=100000 integer::i,j,n=0,status=0 integer:: a(max),b(max),d !Here, open two files and named each of them like 10 and 20. open(10,file="unsort.txt");open(20,file="sort.txt") !Do loop until th…