❶ fortran和C#的混合编程
两种方法都是可陵仔桥行的。
第二种方法可以使用命令行参数。
如果你遇到问题，则说明你使用方法不尺猛对。具体情况需结合你的代码戚前及工程设置等综合判断。
❷ c语言和fortran语言可以结合编程吗
可以。如 军酷儿所说“Fortran做友岩雀成DLL动态库格式，在C中直好早接调用就行了”。
建议看一下彭国伦老师的fortran95程序设计一书枣姿
❸ linux操作下的一个fortran和C混编的程序，里面也有makefile，怎么放到linux系统里运行
ubuntu桌面版的那种，就凯宽需要自己腊瞎下载安装的，我用的fedora14.iso，像这种就比较全，里面有gcc编译器盯局亮，如果你的makefile写好了，一个make命令就可以搞定的，我是菜鸟，也在学习中......
❹ vs2013如何实现C与Fortran混合编程
方法一，使用obj
创建两个工程。其中一个 C ，其中一个Fortran
把被调用的工程编译（但不链接），得到一个obj文件
把 obj 文件添加到需调用的工程中。链接。
方法二，使用lib
创建两个工慎陆程。其御孝猜中一个 C ，其中一个 Fortran（被调镇型用的创建为静态库 lib）
把被调用的工程编译，链接，得到一个 lib文件
把 lib文件添加到需调用的工程中。再次链接。
❺ fortran如何调用c语言函数，本人小白，求大神写详细点
你的想法，叫做 “混合编程”，简称“混编”。
混编有多种方式，一般有：
1.直接调用 C 编译后的 exe
2.通过 DLL
3.通过神基御静态 lib
4.通过编译器直接链接Fortran和C的obj
不管是 Fortran 还是 C 的语法，通常不会规定混编的具体内容。这些内游岩容，是不同的编译器自行规定的。（至少绝大多数是）
所以，具体的操作，也因你选择的编译器产品，因你选择的混编方式，而有较大的不同。
所以，我建议你：
1.阅读你使用的 C 编译器和 Fortran 编译器的帮助文档，查看其中关于混合编程（mix-language）的章节。锋塌
2.如果你阅读英文帮助有困难，至少告知你使用何种 C编译器，何种 Fortran 编译器。打算采用何种混编方式。
❻ C#和FORTRAN混合编程中，如何合理设置进度条 做的是一个科学类计算软件，C#做界面，FORTRAN做算法内核。
多线程步考虑安全其实很简单的，如果你继续学vc迟早是要让兆接触的。我把用进度条的程序给你个框架代码你自己填；
1、设计一个带有进度条的对话框，把对话框用一个类CProgressDlg 来管理（这个你会吧），进度条增加一个成员变量m_progress；
2、定义一个多线程函塌伍数DWORD WINAPI ThreadReadFile (CProgressDlg *pDlg)（如何声明函数你应该会），函数实体里面就是具体读取文件的代码，先取得文件的大小，用这个除一个整数设置进度条团滑或的最大值，文件大了，分一小块一小块的读，比如1024K，这样就好插入对进度条的操作，每读一块就pDlg->m_progress.SetPos(progressStep+1);怎么分？你自己看MSDN。文件读完后在pDlg->PostMessage(WM_CLOSE);AfxMessageBox("文件已读完！");发送消息关闭主线程的对话框结束工作。
3、在主线程其实就是你的主程序里先调用多线程函数，然后产生对话框；
[code=C/C++][/code]
CProgressDlg *pdlg=new CProgressDlg;//注意：一定要把对话框的Visable选上才能显示控件；
HANDLE m_Thread; //线程句柄
DWORD threadID;
//AfxBeginThread(ThreadReadFile ,NULL,THREAD_PRIORITY_NORMAL,0,0,NULL);
m_Thread=CreateThread(NULL, 0,
(LPTHREAD_START_ROUTINE)ThreadReadFile ,(LPVOID)pdlg,0,&threadID);
pdlg->DoModal();//产生进度条对话框，这个对话框由你的线程来结束，否则一直有。
❼ 怎样从 C 中调用 FORTRAN (C++, BASIC, Pascal, Ada, LISP) 的函数反之亦然
一、IF语句的嵌套
在if语句中，如果then子句或else子句仍是一个if语句， 则称为if语句的嵌套。
例1 计算下列函数
分析：根据输入的x值，先分成x>0与x≤0两种情况，然后对于情况x≤0，再区分x是小于0，还是等于0。
源程序如下:
program ex;
var
x:real;
y:integer;
begin
wrtie('Input x:');readln(x);
if x>0 then y:=1｛x>0时，y的值为1｝
else ｛x≤0时｝
if x=0 then y:=0
else y:=-1;
writeln('x=',x:6:2,'y=',y);
end.
显然，以上的程序中，在then子句中嵌套了一个Ⅱ型if语句。当然程序也可以写成如下形式：
program ex;
var
x:real;y:integer;
begin
wrtie('Input x:');readln(x);
if x>=0 then
if x>0 then y:=1
else y:=0
else y=-1;
writeln('x=',x:6:2,'y=',y);
end.
但是对于本题，下面的程序是不对的。
y:=0;
if x>=0 then
if x>0 then y:=1
else y:=-1;
明显，从此人的程序书写格式可以看出，他想让else与第一个if配对，而事实上，这是错的。因为pascal规定：else与它上面的距它最近的then配对,因此以上程序段的逻辑意义就与题义不符。
要使上程序段中esle与第一个then配对,应将程序段修改为：
y:=0; 或者 y:=0;
if x>=0 if x>=0
then if x>0 then
then y:=1 begin
else if x>0 then Y:=1;
else y:=-1; end
else Y:=-1;
二、case语句
上面我们知道可以段颂碰用嵌套的if语句实现多分支的选择结构。但是如果分支越来越多时，用嵌套的if语句实现多分支就显得繁杂。当多分支选择的各个条件由同一个表达式的不同结果值决定时，可以用case语句实现。它的选择过程，很象一个多路握谈开关，即由case语句的选择表达式的值，决定切换至哪一语句去工作。因此在分支结构程序设计中，它是一种强有力的手段。在实现多路径分支控制时，用case对某些问题的处理和设计，比用if语句写程序具有更简洁、清晰之感。
(一)、情况语句的一般形式：
case <表达式> of
<情况标号表1>：语句1;
<情况标号表2>：语句2;
:
<情况标号表n>：语句n
end;
其中case、of、end是Pascal的保留字， 表达式的值必须是顺序类型，它可以是整型、布尔型及以后学习的字符型、枚举型和子界型。情况标号表是一串用逗号隔开的与表达式类型一致的常量序列。语句可以是任何语句，包括复合语句和空语句。
(二)、case语句的执行过程
先计算表达式（称为情况表达式）的值，如果它的值等于某一个常量（称为情况常量，也称情况标号），则执行该情况常量后面的语句，在执行完语句后，跳到case语句的末尾end处。
(三)、说明
①情况表达式必须是顺樱哗序类型的；
②情况常量是情况表达式可能具有的值，因而应与情况表达式具有相同的类型；
③情况常量出现的次序可以是任意的；
④同一情况常量不能在同一个case语句中出现两次或两次以上；
⑤每个分语句前可以有一个或若干个用逗号隔开的情况常量；
⑥如果情况表达式的值不落在情况常的范围内，则认为本case语句无效，执行case语句的下一个语句。turbo pascal中增加了一个"否则"的情况,即增加一个else子句，但也是可省的。
⑦每个常量后面只能是一个语句或一个复合语句。
例2 根据x的值，求函数Y的值：
分析：利用case语句进行程序设计, 关键在于巧妙地构造情况表达式。本例中三种情况可用一个表达式区分出来：Trunc(x/100)。因为x在(0～100)之间时表达式值为0；x在[100,200)时表达式值为1 ；其余部分可用else子句表示。
源程序如下:
program ex;
var x,y:real;
begin
write('Input x:');readln(x);
case trunc(x/100) of
0:y:=x+1;
1:y:=x-1;
else y:=0;
end;{end of case}
writeln('x=',x:8:2),'y=',y:8:2);
end.
三、选择结构的程序设计
例3 输入一个年号,判断它是否是闰年。
分析：判断闰年的算法是：如果此年号能被400除尽， 或者它能被4整除而不能被100整除，则它是闰年。否则，它是平年。
源程序如下:
program ex;
var year:integer;
begin
write('Input year:');readln(year);
write(year:6);
if (year mod 400=0 ) then
writeln('is a leap year.')
else
if (year mod 4=0)and(year mod 100<>0)
then writeln('is a leap year.')
else writeln('is not a leap year.');
end.
例4 判断1995年,每个月份的天数。
分析：程序分为:输入月份,计算该月的天数,输出天数
源程序如下：
program days;
var month,days:integer;
begin
write('Input month:');readln(month);
case month of
1,3,5,7,8,10,12:days:=31;
4,6,9,11 :days:=30;
2 :days:=28;
else days:=0;
end;
if days<>0 then writeln('Days=',days);
end.
例5 期未来临了，班长小Q决定将剩余班费X元钱，用于购买若干支钢笔奖励给一些学习好、表现好的同学。已知商店里有三种钢笔，它们的单价为6元、5元和4元。小Q想买尽量多的笔（鼓励尽量多的同学），同时他又不想有剩余钱。请您编一程序，帮小Q制订出一种买笔的方案。
分析：对于以上的实际问题，要买尽量多的笔，易知都买4元的笔肯定可以买最多支笔。因此最多可买的笔为x div 4支。由于小q要把钱用完，故我们可以按以下方法将钱用完：
若买完x div 4支4元钱的笔，还剩1元，则4元钱的笔少买1支，换成一支5元笔即可；若买完x div 4支4元钱的笔，还剩2元，则4元钱的笔少买1支，换成一支6元笔即可；若买完x div 4支4元钱的笔，还剩3元，则4元钱的笔少买2支，换成一支5元笔和一支6元笔即可。
从以上对买笔方案的调整，可以看出笔的数目都是x div 4，因此该方案的确为最优方案。
源程序如下：
program pen;
var a,b,c:integer;{a,b,c分别表示在买笔方案中，6元、5元和4元钱笔的数目}
x,y:integer;{x，y分别表示剩余班费和买完最多的4元笔后剩的钱}
begin
write('x=');readln(x){输入x}
c:=x div 4;{4元笔最多买的数目}
y:=x mod 4;｛求买完c支4元笔后剩余的钱数y｝
case y of
0 : begin a:=0;b:=0; end;
1 : begin a:=0;b:=1;c:=c-1; end;
2 : begin a:=1;b:=0; c:=c-1;end;
3 : begin a:=1;b:=1; c:=c-2;end;
end;
writeln('a=',a,'b=',b,'c=',c);
end.
在实际应用中，会经常遇到许多有规律性的重复运算，这就需要掌握本章所介绍的循环结构程序设计。在Pascal语言中，循环结构程序通常由三种的循环语句来实现。它们分别为FOR循环、当循环和直到循环。通常将一组重复执行的语句称为循环体，而控制重复执行或终止执行由重复终止条件决定。因此，重复语句是由循环体及重复终止条件两部分组成。
一、for语句的一般格式
for <控制变量>:=<表达式1> to <表达式2> do <语句>;
for <控制变量>:=<表达式1> downto <表达式2> do <语句>;
其中for、to、downto和do是Pascal保留字。表达式1 与表达式2的值也称为初值和终值。
二、For语句执行过程
①先将初值赋给左边的变量（称为循环控制变量）；
②判断循环控制变量的值是否已"超过"终值，如已超过，则跳到步骤⑥；
③如果末超过终值，则执行do后面的那个语句（称为循环体）；
④循环变量递增（对to）或递减（对downt o)1；
⑤返回步骤②；
⑥循环结束，执行for循环下面的一个语句。
三、说明
①循环控制变量必须是顺序类型。例如，可以是整型、字符型等，但不能为实型。
②循环控制变量的值递增或递减的规律是：选用to则为递增；选用downto则递减。
③所谓循环控制变量的值"超过"终值，对递增型循环，"超过"指大于，对递减型循环，"超 过"指小于。
④循环体可以是一个基本语句，也可以是一个复合语句。
⑤循环控制变量的初值和终值一经确定，循环次数就确定了。但是在循环体内对循环变量的值进行修改，常常会使得循环提前结束或进入死环。建议不要在循环体中随意修改控制变量的值。
⑥for语句中的初值、终值都可以是顺序类型的常量、变量、表达式。
四、应用举例
例1．输出1－100之间的所有偶数。
var i:integer;
begin
for i:=1 to 100 do
if i mod 2=0 then write(i:5);
end.
例2．求N！＝1＊2＊3＊…＊N ，这里N不大于10。
分析：程序要先输入N，然后从1累乘到N。
程序如下：
var
n,i : integer；｛i为循环变量｝
S : longint;｛s作为累乘器｝
begin
write('Enter n=');readln(n);{输入n}
s:=1;
for i:=2 to n do｛从2到n累乘到s中｝
s:=s*i;
writeln(n,'!=',s);｛输出n!的值｝
end.
一、WHILE循环
对于for循环有时也称为计数循环，当循环次数未知，只能根据某一条件来决定是否进行循环时，用while 语句或repeat语句实现循环要更方便。
while语句的形式为：
while <布尔表达式> do <语句>；
其意义为：当布尔表达式的值为true时，执行do后面的语句。
while语句的执行过程为：
①判断布尔表达式的值,如果其值为真,执行步骤2,否则执行步骤4;
②执行循环体语句(do后面的语句);
③返回步骤1;
④结束循环,执行while的下一个语句。
说明：这里while和do为保留字，while语句的特点是先判断，后执行。 当布尔表达式成立时，重复执行do后面的语句(循环体)。
例1 、求恰好使s=1+1/2+1/3+…+1/n的值大于10时n的值。
分析："恰好使s的值大于10"意思是当表达式s的前n-1项的和小于或等于10，而加上了第n项后s的值大于10。从数学角度，我们很难计算这个n的值。故从第一项开始，当s的值小于或等于10时，就继续将下一项值累加起来。当s的值超过10时，最后一项的项数即为要求的n。
程序如下：
var
s : real;
n : integer;｛n表示项数｝
begin
s:=0.0;n:=0;
while s<=10 do｛当s的值还未超过10时｝
begin
n:=n+1;｛项数加1｝
s:=s+1/n;｛将下一项值累加到s｝
end;
writlen('n=',n);｛输出结果｝
end.
例2、求两个正整数m和n的最大公约数。
分析：求两个正整数的最大公约数采用的辗转相除法求解。以下是辗转的算法：
分别用m,n,r表示被除数、除数、余数。
①求m/n的余数r.
②若r=0,则n为最大公约数.若r≠0,执行第③步.
③将n的值放在m中,将r的值放在n中.
④返回重新执行第①步。
程序如下:
program ex4_4;
var m,n,a,b,r:integer;
begin
write('Input m,n:');
readln(m,n);
a:=m;b:=n;r:=a mod b;
while r<>0 do
begin
a:=b;b:=r;
r:=a mod b;
end;
writeln('The greatest common divide is:',b:8);
end.
二、直到循环（REPEAT－until语句）
用while语句可以实现"当型循环"，用repeat-until 语句可以实现"直到型循环"。repeat-until语句的含义是："重复执行循环，直到指定的条件为真时为止"。
直到循环语句的一般形式:
Repeat
<语句1>;
:
<语句n>;
until <布尔表达式>;
其中Repeat、until是Pascal保留字，repeat与until之间的所有语句称为循环体。
说明：
①repeat语句的特点是：先执行循环，后判断结束条件，因而至少要执行一次循环体。
②repeat-until是一个整体，它是一个（构造型）语句，不要误认为repeat是一个语句， until是另一个语句。
③repeat语句在布尔表达式的值为真时不再执行循环体，且循环体可以是若干个语句，不需用begin和end把它们包起来， repeat 和until已经起了begin和end的作用。while循环和repeat循环是可以相互转化的。
对于例2中求两个正整数的最大公约数，程序可用repeat-until循环实现如下：
var
m,n,a,b,r : integer;
begin
write('Input m,n=');
readln(m,n);
a:=m;b:=n;
repeat
r:=a mod b;
a:=b;b:=r;
until r=0;
writeln('The greatest common divide is',a);
end.
以上我们已介绍了三种循环语句。一般说来，用for 循环比较简明，只要能用for循环，就尽量作用for循环。只在无法使用for循环时才用while循环和repeat-until循环， 而且 while 循环和repeat-until循环是可以互相替代的。for 循环在大多数场合也能用whiel和repeat-until循环来代替。一般for循环用于有确定次数循环，而while和repeat-until循环用于未确定循环次数的循环。
当一个循环的循环体中又包含循环结构程序时，我们就称之为循环嵌套。
三、循环结构程序设计
例3 求1!+2!+…+10!的值。
分析：这个问题是求10自然数的阶乘之和，可以用for 循环来实现。程序结构如下：
for n:=1 to 10 do
begin
①N!的值àt
②累加N!的值t
end
显然,通过10次的循环可求出1!,2!…,10!,并同时累加起来, 可求得S的值。而求T=N!,又可以用一个for循环来实现:
t=1;
for j:=1 to n do
t:=t*j;
因此,整个程序为:
program ex4_5;
var t,s:real;
i,j,n:integer;
begin
S:=0;
for n:=1 to 10 do
begin
t:=1;
for j:=1 to n do
t:=t*j;
S:=S+t;
end;
writeln('s=',s:0:0);
end.
以上的程序是一个二重的for循环嵌套。这是比较好想的方法，但实际上对于求n!，我们可以根据求出的(n-1)!乘上n即可得到，而无需重新从1再累乘到n。
程序可改为：
program ex4_5;
var t,s:real;
i,j,n:integer;
begin
S:=0;t:=1;
for n:=1 to 10 do
begin
t:=t*n;
S:=S+t;
end;
writeln('s=',s:0:0);
end.
显然第二个程序的效率要比第一个高得多。第一程序要进行1+2+…+10=55次循环，而第二程序进行10次循环。如题目中求的是1！＋2！＋…＋1000！，则两个程序的效率区别更明显。
例4 一个炊事员上街采购,用500元钱买了90只鸡, 其中母鸡一只15元,公鸡一只10元,小鸡一只5元,正好把钱买完。问母鸡、公鸡、小鸡各买多少只？
分析：设母鸡I只,公鸡J只,则小鸡为90-I-J只,则15*I+ 10* J+(90-I-J)*5=500,显然一个方程求两个未知数是不能直接求解。必须组合出所有可能的i,j值，看是否满足条件。这里I的值可以是0到33，J的值可以0到50。
源程序如下：
programr ex4_6;
var i,j,k:integer;
begin
for i:=1 to 5 do
for j:=1 to 8 do
begin
k:=90-i-j;
if 15*i+10*j+5*k=500 then writeln(i:5,j:5,k:5);
end;
end.
例5、求100－200之间的所有素数。
分析：我们可对100－200之间的每一整数进行判断，判断它是否为素数，是则输出。而对于任意整数i，根据素数定义，我们从2开始，到 ，找i的第一个约数。若找到第一个约数，则i必然不是素数。否则i为素数。
源程序如下：
var
i : integer;
x : integer;
begin
for i:=100 to 200 do
begin
x:=2;
while (x<=trunc(sqrt(i)))and(i mod x<>0)do
begin
x:=x+1;
end;
if x>trunc(sqrt(i)) then write(i:8);
end;
end.
❽ 用vs2008和ivf11进行c和fortran的混合编程，出现lnk2019错误
看fortran代码，有没有定义的变量或是纤橡消有些变量在某个部位写错了，这毁知需要你重新检查一遍，细心一点找如培出来改了就ok了
❾ 最近在搞C\C++ 和汇编语言 的混合编程，如何讲2者在编译环境中连接起来。
详细的官方资料见masm
programmer's
guide
中的第12章
混合语言编程，网上有pdf版本，但有一些版本的无法显示图片，好好的看一下吧。
----------------------------------------
混合编程允许你把微软Basic、C、C++和FORTRAN的长处与汇编语言例程联合起来。这些语言中的任何一种都可以调用MASM例程，你也可以在汇编程序里调用这些语言中的任何一种。这实际上使混合语言程序可以使用所有高级语言库的例程。
MASM
6.1提供的混合语言特征类似于高级语言里提供的特征。例如，你可以使用INVOKE直接调用高级语言过程，汇编器为你处理参数传递的细节。你也可以使用H2INC把C头文件翻译为MASM的include文件，这在第20章的Environment
and
Tools里解释。
MASM
6.1的混合语言特征没有废弃旧的定义混合语言接口的方法。在大多数情形下，使用较早版本的MASM编写的混合语言程序可以在MASM
6.1里正确地汇编和连接（为了解更多的信息，见附录A）。
本章解释了如何编写高级语言模块可以调用的汇编例程，MASM如何调用高级语言例程。你应该已经理解你希望联合的语言，应该知道如何使用这些语言编写、编译和连接多模块程序。
本章仅覆盖了C、C++、Basic和FORTRAN的汇编语言接口，没有覆盖高级语言间的混合编程。此处的重点是微软版本的C、C++、Basic和FORTRAN，但相同的原则适用于其他语言和编译器。本章使用的许多技巧使用了第7章里的关于使用汇编语言编写过程，以及第8章的多模块编程的资料进行解释。
❿ 如何在C语言中调用FORTRAN生成的DLL里的函数
C语言和Fortran混合编程借助于Fortran生成的DLL进行（采用C默认的传址方式进行函数参数传递）方法和实例：
1.Fortran
生成DLL
新建Fortran
DLL程序test1.f
添加如下代码：
！ test1.f90
！
！ FUNCTIONS/SUBROUTINES
exported from test1.dll：
！ test1 -
subroutine
！示例没有返回值的子例程
subroutine
test1(a，b)
！ Expose subroutine test1 to
users of this DLL
！
！DEC$ ATTRIBUTES
C，DLLEXPORT：：test1
！ Variables
！ Body of
test1
integer a，b
integer sum
sum=a+b
return
end subroutine
test1
！示例有返回值的整数四则运算
！两数相加
function
add(a，b)
implicit none
！DEC$ ATTRIBUTES
C，DLLEXPORT：：add
integer
a，b，add
add=a+b
return
end
！两数相族备李减
function
abstract(a，b)
implicit none
！DEC$ ATTRIBUTES
C，DLLEXPORT：：abstract
integer
a，b，abstract
abstract=a-b
return
end
！两数相乘
function
multiply(a，b)
implicit none
！DEC$ ATTRIBUTES
C，DLLEXPORT：：multiply
integer
a，b，multiply
multiply=a*b
return
end
！两数相兆迟除
（需要添加考虑被除数是否为0以及能否整除的判断）
function
divided(a，b)
implicit none
！DEC$ ATTRIBUTES
C，DLLEXPORT：：divided
integer
a，b，divided
divided=a/滚轿b
return
end
编译后生成test1.dll，test1.obj等文件。其中这两个文件是我们在VC中调用所需要的。