Fortran & C 混编
C 调用 Fortran
c2ffn.f
SUBROUTINE NAMEAGE(NAME, NLEN, AGE, TEMP)
CHARACTER*(*) NAME
INTEGER NLEN,AGE
REAL TEMP
C
WRITE(6,1000) NAME(1:NLEN),AGE,TEMP
1000 FORMAT(1X,'Hello ',A,', who is ',I2,
. ' years old, has a temperature of ', f4.1)
RETURN
END
c2f.c
#include <string.h>
#ifdef _CRAY
# include <fortran.h>
# define nameage NAMEAGE
#else
# if !defined(_AIX) && !defined(__hpux)
# define nameage nameage_
# endif
# define _fcd char *
# define _cptofcd(a, b) (a)
# define _fcdlen(a) strlen(a)
#endif
void nameage(_fcd name, int *nlen, int *age, float *temp);
int main()
{
char *name = "Knut";
_fcd fp;
int nlen, age = 4;
float temp = 98.6;
nlen = strlen(name);
fp = _cptofcd(name, nlen);
nameage(fp, &nlen, &age, &temp);
system("pause");
return 0;
}
Makefile
f77 = g77
#
tar = demo
#
src = c2f.c
#
srcf = c2ffn.f
#
obj = $(src:.c=.o)
objf = $(srcf:.f=.o)
${tar} : ${obj} ${objf}
${f77} -o ${tar} ${objf} ${obj}
${obj} : ${src}
${CC} -c ${src} -o ${obj}
${objf} : ${srcf}
${f77} -c ${srcf} -o ${objf}
clean:
rm -f *.o
Fortran 调用 C
#include <string.h>
#ifdef _CRA
相关文档：
C/S 与 B/S
１．硬件环境不同:
C/S 一般建立在专用的网络上, 小范围里的网络环境, 局域网之间再通过专门服务器提供连接和数据交换服务.
B/S 建立在广域网之上的, 不必是专门的网络硬件环境,例与电话上网, 租用设备. 信息自己管理. 有比C/S更强的适应范围, 一般只要有操作系统和浏览器就行&n ......
c/c++void及void指针类型
1.概述许多初学者对C/C++语言中的void及void指针类型不甚理解，因此在使用上出现了一些错误。本文将对void关键字的深刻含义进行解说，并详述void及void指针类型的使用方法与技巧。
2.void的含义void的字面意思是“无类型”，void *则为“无类型指针”，void *可以指 ......
一个很简洁的算法：
void Reverse(char s[])
{
for(int i = 0, j = strlen(s) - 1; i < j; ++i, --j) {
char c = s[i];
s[i] = s[j];
s[j] = c;
& ......
C++的实现
#include<fstream>
#include <iostream>
using namespace std;
int main()
{
ofstream logTest("foo.log");
streambuf *oldbuf = cout.rdbuf(logTest.rdbuf());
cout << "输出 ......
#include<stdio.h>
#include<regex.h>
int main(int argc, char** argv)
{
if(IsLegalPage("http://www.baidu.com"))
printf("该网页合法\n");
else printf("该网页不合法！！！\n");
return 0;
}
/* 函数说明：判断网页是否合法
* 输入参数：需要判断的网 ......
