converting C code to Fortran?

Question

converting C code to Fortran?

Answer 1

Convert Fortran To C

Answer 2

This Site Might Help You.



RE:

converting C code to Fortran?

Is there a site that can help me translate C code to Fortran or MATLAB??????

Answer 3

Here is an example of a C program and the equivalent version in Fortran-77. I used the Intel Fortan compiler for validation.



The program implements Simpson's rule to calculate the integral for the function



f(x) = 4/(1+x*x)



The value of this integral is pi



-- C version starts here ----------------------



#include

#include



double f(double x)

{

return 4.0/(1.0+x*x);

}



int _tmain(int argc, _TCHAR* argv[])

{

int i, n ;

double a=0.0, b=1.0, h, s1=0.0, s2=0.0, s3=0.0;



printf("Enter number of partitions (must be even) = ");

scanf("%d", &n) ;



h = (b-a)/(2.0*n) ;

s1 = (f(a)+ f(b));



for (i=1; i<2*n; i=i+2)

s2 = s2 + f(a + i*h);



for (i=2; i<2*n; i=i+2)

s3 = s3 + f(a + i*h);



printf("%20.12lf\n", (h/3.0)*(s1+ 4.0*s2 + 2.0*s3)) ;

return 0;



}



------ fortran version starts here --------



program fsimp



implicit none

integer i, n

double precision a, b, h, s1, s2, s3, f

a=0.0

b=1.0

s1=0.0

s2=0.0

s3=0.0



print *, 'Enter number of partitions (must be even) = '

read *, n



n = 10



h = (b-a)/(2.0*n)

s1 = (f(a)+ f(b))



i = 1

do while (i .lt. 2*n)

s2 = s2 + f(a + i*h)

i = i + 2

enddo



i = 2

do while (i .lt. 2*n)

s3 = s3 + f(a + i*h)

i = i + 2

enddo



print '(f20.12 )', (h/3.0)*(s1+ 4.0*s2 + 2.0*s3)





end program fsimp



function f(x)

double precision x, f

f = 4.0/(1.0+x*x)

end

Answer 4

C to Fortran Converter: http://home.earthlink.net/~dave_gemini/c2f.zip



Note that some features may not be supported...