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

#include<stdio.h>闷带陵

#include<蚂戚stdlib.h>

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

*/

很久指返做不用fortran了 刚调试了一下 可唯衡以通过

program main

implicit none

real(4)::a(10),b(8),c(5)

print*,"世带enter a(10):"

read*,a

print*,"enter b(8):"

read*,b

print*,"enter c(5):"

read*,c

call sort(a,10)

call sort(b,8)

call sort(c,5)

print*,"a:",a

print*,"b:",b

print*,"c:",c

end program main

subroutine sort(array,n)

implicit none

integer::n,i,j,k

real(4)::array(n)

do i=1,n

do j=i+1,n

if(array(i)>array(j))then

k=array(i)

array(i)=array(j)

array(j)=k

end if

end do

end do

end subroutine sort

---