1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42
|
program gh
integer i,j, i1,i2,j1,j2
double precision A(0:2,0:2), B(0:2,0:2),C(0:2,0:2)
A(0,0)=0.8147
A(0,1)=0.9134
A(0,2)=0.2785
A(1,0)=0.9058
A(1,1)=0.6324
A(1,2)=0.5469
A(2,0)=0.1270
A(2,1)=0.0975
A(2,2)=0.9575
B(0,0)=0.9649
B(0,1)=0.9572
B(0,2)=0.1419
B(1,0)=0.1576
B(1,1)=0.4854
B(1,2)=0.4218
B(2,0)=0.9706
B(2,1)=0.8003
B(2,2)=0.9157
do i1=0,2
do j1=0,2
C(i1,j1)=0.d0
do i2=0,2
do j2=0,2
C(i1,j1)=C(i1,j1)+A(i1-i2,j1-j2)*B(i2,j2)
enddo
enddo
print*, i1,j1,C(i1,j1)
enddo
enddo
end |
Partager