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
相关文档：
字搜索就搜索一个数中具有某些特征的位。实现如下：
/* wsearch.c：字搜索 */
/* 从左边寻找第一个0字节：第0(1,2,3)个字节是0时，返回0(1,2,3)，否则返回4 */
int zbytel(unsigned x){
if((x>>24)==0) return 0;
else if((x & 0x00ff0000)==0) return 1;
else if((x & 0x0000ff00)==0) r ......
1.1请根据自己的认识，写出C语言的主要特点。
1.2C语言的主要用途是什么？它和其他高级语言有什么异同？
1.3写出一个C程序的构成。
1.4C语言以函数为程序的基本单位，有什么好处？
1.5请参照本章例题，编写一个C程序，输出一下信息：
×××××××××××& ......
——初步设想
最近一直在学习OSGI方面的知识。买了一本《OSGI原理和最佳实践》，可是还没有到。遗憾的是，OSGI目前的几个开源框架只支持Java，对C和C++都不支持的。可惜我们公司目前主要的开发语言还是c和c++，即便是引进OSGI，所得的好处范围有限。而我对松散耦合的模块化开发向往已久。查了一下OSGI对C++支 ......
最近实在是太忙了，这篇整整就推迟了1个月了，实在是对不起。之前本打算这个模块就结束了，文件操作就不写了，但是文件操作又是一个很重要的东西，而且也刚好能够总结之前我们学习的所有知识。同时也为了将文件操作这个初学者认为很神秘的东西给本质化。因此，本篇将逐一介绍C语言的文件操作。（本模块的命名本来是想C\C++� ......
也是中软笔试的算法题，当时并不知道叫杨辉三角，唉。N年不用了，还得再拾起，为了那个梦。
#include <stdio.h>
void main()
{
int a[50][50];
int i,j,n;
printf("Please input Number:");
scanf("%d",&n);
......
