Помогите составить блок схему и программу на фортане. Но только для той версии фортана...

Program ex7
   integer a(5,5),b(5)
   real t
    logical f
   call random_seed()
   do i=1,5
       b(i)=0
        f=.TRUE.
       do j=1,5
            call random_number(t)
           a(i,j)=nint(100*t-50)
            if (a(i,j)<0 .and. f) then<br>                 b(i)=b(i)+1
            else
               f=.FALSE.
            end if
       end do
        Write(*,'(5i5)')(a(i,k), k=1,5)
        if (b(i)==0) then
            b(i)=5
        end if
   end do
    print *,''
    Write(*,'(5i2)')(b(i),i=1,5)
end

Пример работы дан в первом вложении.
Во втором вложении дана блок-схема по ГОСТ 19.701-90 (ISO 5807-85).

Помогите составить блок схему и программу ** фортане. Но только для той версии фортана...