プログラム
以下のプログラムを作る際、どうすれば良いでしょうか？
途中までは作ってみたのですが、そこから後がわかりません。
2行2列の2つの行列A,Bの積を求めるSubroutine, seki( A, B, C ) を作成。(註：Cには、AとBの積を計算した結果が入っているものとする）
real*8 A(2,2), B(2,2), C(2,2)
write(6,*) “A(1,1)=“
read(5,*) A(1,1)
write(6,*) “A(1,2)=“
read(5,*) A(1,2)
write(6,*) “A(2,1)=“
read(5,*) A(2,1)
write(6,*) “A(2,2)=“
read(5,*) A(2,2)
write(6,*) “B(1,1)=“
read(5,*) B(1,1)
write(6,*) “B(1,2)=“
read(5,*) B(1,2)
write(6,*) “B(2,1)=“
read(5,*) B(2,1)
write(6,*) “B(2,2)=“
read(5,*) B(2,2)
call seki( A, B, C)
write(6,*) “C=“
do 10 i=1, 2
write(6,100) C(1,1), C(1,2)
10 continue
100 format( “|”,e15.7, e15.7, “|”)
stop
end
subroutine seki( A, B, C )
↓
↓以下がわかりません。どなたか分かる方ぜひ、教えてください。
よろしくお願いします。
使ってるエディタはxemacsです。
