fortran与c混合编程fortran调用c

fortran与c混合编程（另一种方法实现了fortran调用c）

#include
#ifdef __cplusplus
extern “C“{
#endif

	void sub1（int *num）
	{
		printf（“%d\n“*num）;
	}

	void sub2（int num）
	{
		printf（“%d\nnum“）;
	}

#ifdef __cplusplus
}

#endif

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       2888  2011-04-11 11:32  Debug\cpp.obj

     文件          0  2011-04-11 11:32  Debug\cpp.sbr

     文件        671  2011-04-11 12:01  Debug\cprog.mod

     文件      41984  2011-04-11 12:01  Debug\dec_c.bsc

     文件     417841  2011-04-11 12:01  Debug\dec_c.exe

     文件     344976  2011-04-11 12:01  Debug\dec_c.ilk

     文件       1709  2011-04-11 11:32  Debug\dec_c.obj

     文件     203908  2011-04-11 11:42  Debug\dec_c.pch

     文件     549888  2011-04-11 12:01  Debug\dec_c.pdb

     文件          0  2011-04-11 11:32  Debug\dec_c.sbr

     文件      25600  2011-04-11 12:01  Debug\DF60.PDB

     文件       2804  2011-04-11 12:00  Debug\EXC.obj

     文件          0  2011-04-11 12:00  Debug\EXC.sbr

     文件       1705  2011-04-11 12:01  Debug\EXF.obj

     文件          0  2011-04-11 12:01  Debug\EXF.sbr

     文件      33792  2011-04-11 12:01  Debug\vc60.idb

     文件      45056  2011-04-11 12:00  Debug\vc60.pdb

     文件       4214  2011-04-11 11:57  dec_c.dsp

     文件        533  2011-04-10 21:26  dec_c.dsw

     文件          0  2011-04-11 11:52  dec_c.f90

     文件      41984  2011-04-11 12:35  dec_c.ncb

     文件      48640  2011-04-11 12:35  dec_c.opt

     文件       1265  2011-04-11 12:01  dec_c.plg

     文件        203  2011-04-11 12:00  EXC.cpp

     文件        488  2011-04-11 12:01  EXF.f90

     目录          0  2011-04-11 12:37  Debug

----------- ---------  ---------- -----  ----

              1770149                    26