Есть код на языке C. Пожалуйста переведите, т.е. напишите то же самое на языке Fortran,Basic . Спасибо!

#include <stdio.h>
#define N 5
void ishod(int[][N], FILE*); //функция для вывода массива в файл pp
void f1(int[][N], FILE*);   // функция для подсчета произведния в строках массива без отрицательных элементов
int f2(int [][N]);         // функция для поиска максимальной суммы эелементов диагоналей параллельных главной
int main()
{    FILE *qq;
     FILE *pp;
     qq=fopen("D:\\nach1.txt","r");
     pp=fopen("D:\\konec1.txt","w");
 
    int a[N][N];
    int max,i,j;
     for (i=0;i<N;i++)
        for(j=0;j<N;j++)
            fscanf(qq, "%d", &a[i][j]); // заполнение массива
    ishod(a, pp);
    fprintf(pp, "\nproizvedenie v strokah bez otricatelnih elementov\n");
    f1(a, pp);
    max=f2(a);
    fprintf(pp, "\nmax summa elementov u diagonali parallelnoy glavnoy=%d",max);
 
 
    return 0;
}
 
void ishod(int a[][N], FILE *pp)
{int i, j;
for(i=0;i<N;i++){
for(j=0;j<N;j++)
fprintf(pp, "%d\t",a[i][j]);
fprintf(pp, "\n");}
}
 
void f1(int a[][N], FILE *pp){
    int i,j,p=1,k=0;
    for (i=0;i<N;i++){
        for(j=0;j<N;j++)
             if (a[i][j]>=0)
                k++;
        for(j=0;j<N;j++)
             if(k==N)
        p*=a[i][j];
        if (k==N)
        fprintf(pp, "v%2d stroke=%d\n",i,p);
        p=1;
        k=0;
    }}
 
int f2(int a[][N]){
    int l=0,h,i,j,k=1,t=N-1,m=a[0][N-1],sum=0,u=N;
    for(h=0;h<N*2-1;h++){
        for (i=l;i<k;i++){
            for(j=t;j<u;j++)
            sum+=a[i][j];
            t++;
            u++;}
        if (m<sum)
                m=sum;
        if (t>=0){
            k++;
            t=t-h-2;
            u=u-h-2;
            }
        if (t<0){
            l++;
            t=0;
            u=1;
            k--;
        }
        sum=0;
 
            }
    return m;
}