求fortran语言转化成c语言或者C++的程序实例!!（有文件操作的哈！如一个fortran完整程序，转化成后仍完整

#include
#include
main(){
FILE *fin,*fout;
char namein[64],nameout[64];
int a,b,c,d;
printf("\007Enter input file name\n");
scanf("%s",namein);
printf("Enter output file name\n");
scanf("%s",nameout);
fin=fopen(namein,"r");
fout=fopen(nameout,"w");
fscanf(fin,"%d %d %d %d",&a,&b,&c,&d);
fprintf(fout,"%d %d %d %d\n",a,b,c,d);
fclose(fin);
fclose(fout);
return 0;
}

/*
character*64 namein, nameout
integer*4 a,b,c,d
write(*,*) char(127),char(7)
write(*,*) 'Enter input file name'
read(*,'(A)') namein
write(*,*) 'Enter output file name '
read(*,'(A)') nameout
open(unit=1,file=namein,status='old')
open(unit=2,file=nameout,status='unknown')
read(1,'(1I5,1I5,1I5,1I5)') a,b,c,d
write(2,'(1I5,1I5,1I5,1I5)') a,b,c,d
close(1)
close(2)
end
*/

不能用那个程序读取
只有再编写一个程序 看所要求的
实际上 只要改几个语句就行
其实很简单

f2c 和 p2c 是两个源代码转换程序. f2c 把 FORTRAN 代码转换为 C 代码, p2c 把 Pascal 代码转换为 C 代码. 当你安装 GCC 时这两个程序都会被安装上去.

如果你有一些用 FORTRAN 或 Pascal 写的代码要用 C 重写的话, f2c 和 p2c对你非常有用. 这两个程序产生的 C 代码一般不用修改就直接能被 GCC 编译.

如果要转换的 FORTRAN 或 Pascal 程序比较小的话可以直接使用 f2c 或 p2c不用加任何选项. 如果要转换的程序比较庞大, 包含很多文件的话你可能要用到一些命令行选项.

在一个 FORTRAN 程序上使用 f2c , 输入下面的命令:

f2c my_fortranprog.f

注意: f2c 要求被转换的程序的扩展名为 .f 或 a .F .

要把一个Pascal 程序装换为 C 程序, 输入下面的命令:

p2c my_pascalprogram.pas

这两个程序产生的 C 源代码的文件名都和原来的文件名相同, 但扩展名由 .f或 .pas 变为 .c.