احتاج مساعدة في fortran

[zahozo]

السلام عليكم ورحمة الله وبركاته
احتاج مساعدة في حل هذا التمرين في برنامج الفورتران fortran
كيف يمكنن استظهار la matrice a et la matrice b en la meme ligne
et comman afficher la matrice d et la matrice c en la meme ligne
exempl
a:= /1 1 1 1 b/ 1 2 3
0 2 0 2 2 2 2
5 4 6 0 2 1 1

a/b et d/c
************************************************** ***********************
parameter(n=5,m=4)
dimension a(n,m),b(n,n),c(n,n),d(m,n),s(n,n),p(n,n)
do i=1,n
do j=1,n
a(i,j)=1
end do
end do
do i=1,n
do j=1,n
b(i,j)=1
b(3,j)=2
end do
end do
do i=1,n
do j=1,n
b(i,j)=1
if (i==3)b(i,j)=2
if (i==j)b(i,j)=0
end do
end do
l=1-n
do i=1,n
do j=n,1,-1
c(i,j)=l
l=l+1
if (i==j)c(i,j)=0
end do
end do
r=1
f=13
do j=3,m
do i=1,n
d(i,j)=r
r=r+1
end do
end do
do i=1,n
do j=1,n
s(i,j)=b(i,j)+c(i,j)
end do
end do
do i=1,n
do j=1,n
p (i,j)=a(n,m)*d(n,m)
end do
end do
open (1,file='fai.dat')
write (1,*)'la matrice a:'
do i=1,n
write (1,*)(a(i,j),j=1,m)
end do
write(1,*)'la matrice b:'
do i=1,n
write(1,*)(b(i,j),j=1,m)
end do
write(1,*)'la matrice c:'
do i=1,n
write(1,*)(c(i,j),j=1,m)
end do
write(1,*)'la matrice d:'
do i=1,n
write(1,*)(d(i,j),j=3,m)
end do
do i=1,n
write(1,*)(s(i,j),j=1,n)
end do
write(1,*)'la matrice p:'
do i=1,n
write(1,*)(p(i,j),j=1,n)
end do
close (1)
stop
end