[FORTRAN] Alguém pode me ajudar a arrumar por favor [RESOLVIDO]

Nama
(usa Linux Mint)

Enviado em 09/02/2023 - 20:41h

program matrizes
real K(10,10),L(10,10),R(10,10)
integer i,j,mk,nk,ml,nl,y
character*10 resp,op
resp = "sim"
dowhile(resp .eq. "sim")
print*,"Tamanho da matriz K"
read*,mk,nk
print*,"Tamanho da matriz L"
read*,ml,nl
print*,"Qual a operação desejada?"
read*,op
if(op .eq. "somar")then
if((mk .eq. ml).and.(nk .eq. nl))then
do i = 1,mk
do j = 1,nk
print*,"Entre com um número K"
read*,K(i,j)
enddo
enddo

do i = 1,ml
do j = 1,nl
print*,"Entre com um número L"
read*,L(i,j)
enddo
enddo

do i = 1,mk
do j = 1,nl
R(i,j) = K(i,j) + L(i,j)
enddo
enddo

do i = 1,ml
write(*,*)(R(i,j),j = 1,nk)
enddo
else
print*,"Ímpossivel"
endif
else
if(op .eq. "subtrair")then
if((mk .eq. ml).and.(nk .eq. nl))then
do i = 1,mk
do j = 1,nk
print*,"Entre com K"
read*,K(i,j)
enddo
enddo

do i = 1,ml
do j = 1,nl
print*,"Entre com L"
read*,L(i,j)
enddo
enddo

do i = 1,mk
do j = 1,nl
R(i,j) = K(i,j) - L(i,j)
enddo
enddo

do i = 1,ml
write(*,*)(R(i,j),j = 1,nk)
enddo
else
print*,"Impossivel"
endif

else
if(op .eq. "produto")then
if(nk .eq. ml)then
do i = 1,mk
do j = 1,nk
print*,"Entre com K"
read*,K(i,j)
enddo
enddo

do i = 1,mk
do j = 1,nl
R(i,j) = 0
enddo
enddo

do i = 1,ml
do j = 1,nl
print*,"Entre com L"
read*,L(i,j)
enddo
enddo

do i = 1,ma
do j = 1,nb
do y = 1,na
R(i,j) = K(i,y) * L(y,j) + R(i,j)
enddo
enddo
enddo

do i = 1,mk
103 write(*,*)(R(i,j),j = nl)
enddo
else
print*,"Impossivel"
endif
else
endif
endif
endif
print*,"Deseja continuar"
read*,resp
enddo
endprogram

ERRO linha 103: Expected a right parenthesis in expression at (1) : write(*,*)(R(i,j),j = nl)
1