C FORTRAN в С#

[titikakus]

Здраствуйте у мну такая запара надо кусок кода с фортрана на С# перевести, просто в фортране вообще ничего не понимаю
Program COO

PARAMETER(10=37,J0=I0-1)
PARAMETER(Igl=51,Jgl=Igl-1,Ig2=51,Jg2=Ig2-l, *Js=J0+Jgl+Jg2)
Double precision R
Double precision x(10),у(10),dl(10),Ox,Oy
Double precision xgl(Igl),ygl(Igl)
Double precision xg2(Ig2),yg2(Ig2)
Double precision Cx(JS),Cy(JS)
Double precision anormx(JO),anormy(JO)
Double precision Gnormxl(Jgl),Gnormyl(Jgl) Double precision Gnormx2(Jg2),Gnormy2(Jg2)
Double precision Pi, f i , Agxl, Agx2 , Agx3 , Ainf, Ag.y
Pi= 4.*Datan (1.)
С Дискретизация контура Г1 проводника
R= 20.D-3
Ox=40.D-3
Oy=40.D-3
M=0
Do 10 i=l,i0
fi= 2.*Pi*(i-1)/jO
x(i)= R*dcos(fi)+ Ox
у(i)= R*dsin(fi)+ Oy
10 Continue
dl(I0)=0.
Do 20 j=l,j0 // желательно хотя бы до этого момента
M=M+1
fi= 2.*Pi*(j-1)/jO + Pi/jO
Cx(M)= (x(j)+x(j+1)) /2.
Cy(M)= (y(j)+y(j+1))/2.
dl(j)=sqrt((x(j)-x(j + 1))**2+(y(j)-y(j+1 )**2)
dl(IO)=dl(10) + dl(j)
anormx(j)= - dcos(fi)
anormy(j)= - dsin(fi)
20 Continue
5 Continue

[WorldMaster]

Это можно сделать двумя способами.
1) Заплатить кому нибудь
2) открыть гугл и найти хелп по функциям фортрана.
Уж по фортрану то в гугле информации немеряно.
Информация

[titikakus]

если всю прогу (это не весь кусок но она небольшая) то можно договориться о цене.

[WorldMaster]

Сообщение от titikakus

если всю прогу (это не весь кусок но она небольшая) то можно договориться о цене.

Пишите в аську или на почту.

[titikakus]

на почту не отсылает, есть скайп titikakus2, аськи нету просто

[WorldMaster]

Сообщение от titikakus

на почту не отсылает, есть скайп titikakus2, аськи нету просто

Почему не отсылает? Почта указана верно.
Архив не более 10 метров. если больше разбить на несколько писем.
экзешники в архив с паролем и с шифрованием имен.
Либо в личку.
Скайпа к сожалению нету.

[titikakus]

зайди и ответь в аське 261291035