UC知道谁会fortran转换c啊?
来源：百度知道 编辑：UC知道 时间：2024/06/07 21:29:40
*
*
*------------ The program to SOLAR COLLECTOR -------------
*
DIMENSION T(2800,1500) ,TT(1500),T0(1500),TIME(2800),X(1500)
DIMENSION C(200),B(200)
XL=0.70
N=700
CP=4.186
GAM=15.0E-6
PU=994.0
DX=XL/N
A=3.141592654*0.5*0.5/4
DV=A*DX
DMQ=DV*PU*CP
TW=50.0
EI=0.85
TIME(0)=0.0
DO 10 K=0,200
B(K)=K*3.141592654/XL
10 CONTINUE
DO 20 I=1,N
X(I)=XL/N*I
20 CONTINUE
DO 30 J=O,N
T(1,J)=25.0
T0(J)=T(1,J)-TW
30 CONTINUE
T(1,0)=0.0
T(1,1)=0.0
T0(0)=0.0
T0(1)=0.0
EN=0.9*0.88*0.92
DTIME=DMQ*(TW-25)/(EI*1.44*EN)
TIME(1)=DTIME
OPEN (11,FILE='T20.PLT')
OPEN (12,FILE='T25.PLT')
OPEN (13,FILE='TL.PLT')
OPEN (14,FILE='EFF.PLT')
WRITE
*
*------------ The program to SOLAR COLLECTOR -------------
*
DIMENSION T(2800,1500) ,TT(1500),T0(1500),TIME(2800),X(1500)
DIMENSION C(200),B(200)
XL=0.70
N=700
CP=4.186
GAM=15.0E-6
PU=994.0
DX=XL/N
A=3.141592654*0.5*0.5/4
DV=A*DX
DMQ=DV*PU*CP
TW=50.0
EI=0.85
TIME(0)=0.0
DO 10 K=0,200
B(K)=K*3.141592654/XL
10 CONTINUE
DO 20 I=1,N
X(I)=XL/N*I
20 CONTINUE
DO 30 J=O,N
T(1,J)=25.0
T0(J)=T(1,J)-TW
30 CONTINUE
T(1,0)=0.0
T(1,1)=0.0
T0(0)=0.0
T0(1)=0.0
EN=0.9*0.88*0.92
DTIME=DMQ*(TW-25)/(EI*1.44*EN)
TIME(1)=DTIME
OPEN (11,FILE='T20.PLT')
OPEN (12,FILE='T25.PLT')
OPEN (13,FILE='TL.PLT')
OPEN (14,FILE='EFF.PLT')
WRITE
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.