write(*,*) \'What is A matrix dimension? = m,n\'
 read(*,*) m,n
 write(*,*) \'What is B matrix dimension? = n,p\'
 read(*,*) n,p
      dimension a(m,n),b(n,p),c(m,p)

       do 20 i = 1, m
           do 10 j = 1, n
               read *, a(i,j)
   10      continue
   20  continue
 
      do 40 i = 1, n
           do 30 j = 1, p
               read *, b(n, p)
   30      continue
   40  continue
 
       do 70 i = 1, m
           do 60 j = 1, p
               c(m, p) = 0.0
               do 50 k = 1, 3
                   c(m, p) = c(m, p) + a(m, n) * b(n, p)
   50          continue
   60      continue
   70  continue

내가 하고싶은건 행렬 A 크기 처음에 받아서 dimiesion에 넣고
행렬 A m,n숫자값 다 받고
행렬 B n,p숫자값 다 받고
마지막으로 AB곱한 C행렬 구하고싶은데 이건 지금 인터넷에서 본거 수정작업들어간건데 미치도록 안대네.. 뒤에꺼 에러많이 난거 아는데
처음 dimension 값을 read로 받은 다음에 그걸 숫자로 인식 못하는것 같은데..
그럼 m이랑 n을 숫자취급을 해준다는 수식이 붙어야하는건가..?
제발 좀 도아줘 아놔 미치겠네..