где ошибка

[Svookan]

program AAA
integer X1(99,99),X2(99,99),B(99),G(99),N,M
print*,"vvod N"
read*,N
print*,"vvod M"
read*,M
print*,"vvod L"
read*,L
print*,"vvod K"
read*,K
print*,"Vvod (X1,N,M)"
call vvod2m(X1, N, M)
print*,"Vivod (X1,N,M)"
call Vivod2m(X1, N, M)
print*,"Vvod (X2,K,L)"
call vvod2m(X2, K, L)
print*,"Vivod (X2,K,L)"
call Vivod2m(X2, K, L)
 print *, "Indmin x1: "
d=IndMin(x1,N,M)
print *, "Indmin x2: "
r=IndMin(x2,K,L) 
call FormFromStr(A, B, M, d)
call FormFromStr(A, G, L, k)
print *, "Vivod1m (B)"
call Vivod1m (B,M)
print *, "Vivod1m (G): "
call Vivod1m (G,L)
endprogram AAA


subroutine Vvod2m (X1, N, M)
integer X1(99,99),n,m,i,j
do i=1,n
  do j=1,m
read *, X1(i,j)
enddo
enddo
endsubroutine Vvod2m

subroutine Vivod2m (X2, K, L)
integer x2(99,99),K,L,i,j
do i=1,K
  do j=1,L
print *,X2(i,j)
end do
enddo
endsubroutine Vivod2m

FUNCTION Indmin(X1, N, M)
integer X1(99,99),N,M,i
imin=1
 do i=1,N
 if (imin>i) imin=i
 enddo
 print*,"indmin",i
 ENDFUNCTION indmin
 
FUNCTION Indmin(X2, K, L)
integer X2(99,99),K,L,Indmin
imin=1
 do j=1,M
 if (imin>i)Imin=i
 enddo
 print*,"Indmin",i
 ENDFUNCTION indmin
 
subroutine FormFromStr(A, B, M, d)
DO i=1,N
PRINT "(10f5.1)",B(d)
ENDDO
END SUBROUTINE FormFromStr(A, B, M, d)

subroutine FormFromStr(A, G, L, k)
DO i=1,N
PRINT "(10f5.1)",B(d)
ENDDO
END SUBROUTINE FormFromStr(A, G, L, k)

[Аватар]

Вестимо где - в программе. Что она вообще делает и какая ошибка?

[Smitt&Wesson]

Сообщение от Аватар

Вестимо где - в программе. Что она вообще делает и какая ошибка?

Аватоар, не задавай "глупх" вопросов. Мы, для них, так - решатели бестолковых задачь.....

[Stilet]

Это Фортран?