Я хочу показать матрицу 4 * 5, и моя программа не содержит ошибок, но когда я ее запускаю, покажите, что программа перестала работать

Question

моя программа не отображает ошибку, но она не может работать?

    program hw4
    dimension a(i,j)
    real a
    common i,j
    integer i,j
    do i=1,4,1
    do j=1,5,1
    a(1,1)=0
    a(1,2)=1
    a(1,3)=2
    a(1,4)=3
    a(1,5)=25
    a(2,1)=1
    a(2,2)=1
    a(2,3)=1
    a(2,4)=1
    a(2,5)=12
    a(3,1)=2
    a(3,2)=0
    a(3,3)=3
    a(3,4)=1
    a(3,5)=19
    a(4,1)=3
    a(4,2)=4
    a(4,3)=0
    a(4,4)=6
    a(4,5)=41
    write(*,*) a(i,j)
    enddo
    enddo
    stop
    end

Я ожидаю, что она покажет матрицу 4 * 5, но теперь она покажет мне сообщение о завершении работы программы

Answer 1

Во-первых, ваша матрица "a" должна иметь постоянную форму, то есть размеры "i" и "j" должны быть явно определены.

Во-вторых, ваш вложенный цикл устанавливает значения матрицы для каждого цикла. Попробуйте поставить его перед циклом.

Что-то вроде:

program hw4
  implicit none
  integer, parameter      :: ni=4, nj=5
  real, dimension(ni,nj)  :: a
  integer                 :: i, j

  ! Set matrix values here
  a(1,1) = 0
  ! ... 

  do i = 1, ni, 1
    do j = 1, nj, 1
      write(*,*) a(i,j)

    end do
  end do

end program hw4

С уважением