write(*,*) \'What is matrix demension?, a(m,n), b(n,p)\'
 read (*,*) m,n,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(i, j)
   30      continue
   40  continue
 
       do 70 i = 1, m
           do 60 j = 1, p
               c(i, j) = 0.0
               do 50 k = 1, n
                   c(i, j) = c(i, j) + a(i, k) * b(k, j)
   50          continue
   60      continue
   70  continue

일단 위에서 행렬 크기값 받아서 행렬곱 만들려고하거든.. read에서 m,n,p값 받고 그 값을 숫자로 받으면
밑에 do구문들 다 될것 같은데.. 지금은 에러뜨거든... do구문에서 m,n,p가 실수가 아니니깐..
무슨 자료형 변수를 둬야될지 잘 모르겠어..
그리고 하나더.. 이거 다 하고 난담에 출력을 어떻게 해야하나... ㅠ.ㅠ 너무 막막하다..