Программа из матлаба в фортран

[Святослав Бодров]

Здравствуйте, я студент первокурсник и у меня возникла проблема перевести программу с матлаб на любой фортран , в связи с этим хотел бы попросить помощи у людей, разбирающихся в этом вопросе.Помогите,пожалуйста, перевести:
clc
minA=1.2*2.45*(10^(-22))*((2128.39567)^2);
maxA=4.3*2.45*(10^(-22))*((2128.39567)^2);
stepA=round((maxA-minA)/(1e-16));
for i=1:1:stepA
a(i)=minA+i*1e-16;
end
stepB=round((2128.45543-2128.39567)/0.001);
for i=1:1:stepB
b(i)=2128.39567+i*0.001;
end
maxC=2.45*(10^(-22))*((2128.45543)^2);
minC=2.45*(10^(-22))*((2128.39567)^2);
stepC=round((maxC-minC)/(1e-21));
for i=1:1:stepC
c(i)=minC+i*(1e-21);
end
min=1e30;

for j=1:1:length(a)
for k=1:1:length(b)
for t=1:1:length(c)
s=0;
for i=1:1:length(PHYS(:,1))
f(i)=a(j)/4/pi/pi/pi/pi/((PHYS(i,1)-b(k))^2+c(t));
s=s+(f(i)-PHYS(i,2))^2;
end
if (s<min)
min=s;
A=a(j);
B=b(k);
C=c(t);
end
end
end
end