Thank you for the replys. I currently have a piece of someone else's work, which is doing the matrix multiplication by hand, for example, assuming we have a matrix element A(i,j) (i>j) of matrix A(n,n), to do a matrix multiplication with B(n,n) using a loop, we can have:
Do m=1,j-1
C(i,m)=C(i,m)+A(i,j)[math]\times[/math]B(i,m)
EndDo
Do m=j+1,i-1
C(i,m)=C(i,m)+A(i,j)[math]\times[/math]B(i,m)
End do
Do m=i+1,n
C(i,m)=C(i,m)+A(i,j)[math]\times[/math]B(i,m)
End do
C(i,j)=C(i,j)+[math]\sqrt{2}[/math]A(i,j)[math]\times[/math]B(i,j)
C(i,i)=C(i,i)+[math]\sqrt{2}[/math]A(i,j)[math]\times[/math]B(i,i)
Now I have to make this happen by using a matrix multiplication subroutine. It is a bit difficult to make the compute the matrix elements. I thought it should be like the case of what I wrote in my previous post. Thank you.