C语言转换为fortran语言

C/C++采用的是缺省调用约定是STDCALL约定.在C程序中,可以在函数原型的声明中使用_stdcall关键字来指明过程采用STDCALL调用约定。

Fortran过程采用的缺省标识符是，全部大写的过程名加上“_”前缀和“@n”后缀。

在C程序中保留标识符的大小写。

编译程序会给采用STDCALL约定的过程标识符加上“_”前缀和“@n”后缀。

Fortran过程缺省的参数传递方式是引用方式是。

对于下面这个Fortarn过程：SUBROUTINE ForSub(ivar,rvar)
INTEGER ivar
REAL rvar
WRITE(*,*) ivar,rvar
END
在C语言程序中应给出过程的函数原型及调用方式为：
void main()
{
extern void__stdcall FORSUB(int*I,float*f);
int iCV AR=1;
float rCV AR=2.0;
FORSUB(&iCV AR,&rCV AR);
}
在C++中调用Fortan的过程，在声明函数原型时需要用extern“C”语句，以避免C++编译程序对标识符的修饰；并且C++也可以通过引用方式传递参数。

对于上面的Fortran过程，C++程序应给出的函数原型及调用方法是：
void main()
{
extern “C”{void__stdcall FORSUB(int*I,float*f);}
int iCV AR=1;
float rCV AR=2.0;
FORSUB(&iCV AR,&rCV AR);
}
另外，也可以在Fortran中用!MS$ATTRIBUTES编译伪指令来改变Fortran子过程的调用约定，以便于被其他语言的程序调用。

在下面的例子中，过程ForSub具有C语言的调用约定。

SUBROUTINE ForSub(ivar,rvar)
!MS$ATTRIBUTES C：：ForSub
INTEGER ivar
REAL rvar
WRITE(*,*) ivar,rvar
END
这样，这个过程使用的是C调用约定，并且参数传递方式也变为传值方式，过程的标识符变为全部小写且有_前缀而无后缀的方式。

在C语言源程序中的函数原型及调用方法为：void main()
{
extern void FORSUB(int ivar,float rvar);
int iVar=1;
float fVar=2.0; FORSUB(iVar,fVar); }。