すみません
初歩的な質問だと思うのですが、
以下のように、行を一つのベクトルと考え、自分の入力したベクトル間の距離を出そうとしたのですが、上手くいきません
どこがいけないのかアドバイスお願いします
最初に定義している文字が多いのは気にしないでください

program aaa
implicit none
integer :: i,j,m,k,o,p,q,zenntai
real :: c1x,c1y,c2x,c2y
integer,parameter :: n=5
real,dimension (n,2) :: a
real,dimension (n) :: b,c

do m=1,n
write(*,*)'a='
read(*,*) (a(m,k),k=1,2)
end do

write(*,*) 'a='
do i=1,n
write(*,'(1x,2F7.3)') (a(i,j),j=1,2)
end do

c1x=a(1,1)
c1y=a(1,2)
c2x=a(2,1)
c2y=a(2,2)

つづく