I have tried to do this using arrays and do loops:
program matrixmul
implicit none
real A(2, 2), B (2, 2), C (2, 2)
integer i, j, k
write (*, *) 'Input: First matrix'
do i = 1, 2
do j = 1, 2
read (*, *) A (i, j)
enddo
enddo
write (*, *) 'Input: Second...