Fortran & C 混编

最新推荐文章于 2023-06-03 20:21:09 发布

fox000002

最新推荐文章于 2023-06-03 20:21:09 发布

阅读量1.6k

点赞数

分类专栏： FORTRAN C/C++ MinGW 文章标签： fortran c character subroutine integer include

本文链接：https://blog.csdn.net/huys03/article/details/5467750

版权

本文详细介绍了如何在C程序中调用Fortran子程序，以及如何在Fortran程序中调用C函数。通过示例代码展示了在不同平台上的处理方式，包括字符串传递、变量类型转换等关键步骤。

摘要由CSDN通过智能技术生成

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()
{