Фортран комментарий к коду

program test
 implicit none
integer, parameter :: N = 3
 
real    :: a(N,N),  b(N)! объявили 2 массива, NхN, N
real    :: summa
integer :: j, i
 
 b = 0.0                ! обнулили массив средних значений
 call random_number (a)
 a = a*5.0                !заполнили случайными числами от 0 до 5
 
! print*, 'a= ', a
 
 do j = 1, N            ! начали цикл
   summa = 0
   do i = 1, N
!     print*, a(j,i)
     summa = summa + a(j,i) ! сумма по столбцу
   end do
   b(j) = summa/N        ! среднее значение по столбцу
 end do                  !закончили цикл
 
 print*, 'b= ', b
 
end program test

program test ! Начало программы
 implicit none ! никакие переменные и константы не имеют типа по умолчанию
integer, parameter :: N = 3 ! Константа
 
real    :: a(N,N),  b(N)! объявили 2 массива, NхN, N !Да
real    :: summa !Действительное число
integer :: j, i ! Целые числа
 
 b = 0.0                ! обнулили массив средних значений !Да
 call random_number (a) !Вызов процедурки 
 a = a*5.0                !заполнили случайными числами от 0 до 5!lf
 
! print*, 'a= ', a !комментарий
 
 do j = 1, N            ! начали цикл!Да
   summa = 0!присвоить переменной summa значение 0
   do i = 1, N !начало цикла
!     print*, a(j,i) !Комментарий
     summa = summa + a(j,i) ! сумма по столбцу
   end do!Конец цикла
   b(j) = summa/N        ! среднее значение по столбцу
 end do                  !закончили цикл
 
 print*, 'b= ', b !Вывод b
 
end program test!Конец программы