欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

C/C++調(diào)用Fortran的DLL的操作過程

 更新時(shí)間：2022年03月24日 08:24:58   作者：GeoFXR  
這篇文章主要介紹了C/C++調(diào)用Fortran的DLL,本文以一個(gè)簡單的加法器為例，通過實(shí)例代碼給大家介紹的非常詳細(xì)，需要的朋友可以參考下

【混合編程】C/C++調(diào)用Fortran的DLL

以一個(gè)簡單的加法器為例，介紹C/C++調(diào)用Fortran語言DLL的操作過程

一、Fortran操作

1.1 Fortran代碼

首先是加法功能的實(shí)現(xiàn)，如下代碼

!函數(shù)功能 兩數(shù)相加
SUBROUTINE Summator(a,b,c)
      
      REAL a
      REAL b
      REAL c

      c=a+b
  END

這是一般在fortran環(huán)境下運(yùn)行的常規(guī)格式，為了生成dll，并且被C/C++調(diào)用，對以上代碼進(jìn)行編輯修改

!函數(shù)功能 兩數(shù)相加
SUBROUTINE Summator(a,b,c)
      
      REAL a
      REAL b
      REAL c
      c=a+b
  END

其中

  !DEC$ATTRIBUTES DLLEXPORT::SUMMATOR

也可用以下形式替換

!MS$IF.NOT.DEFINED(LINKDIRECT)
      !MS$ATTRIBUTES DLLEXPORT::SUMMATOR
      !MS$ENDIF

1.2 Dll工程文件建立

使用VS軟件，可以通過【文件】->【新建】建立DLL框架：

在新項(xiàng)目下將編輯好的代碼添加，編譯鏈接得到 TESTFOR.dll文件。

二、C / C++調(diào)用

調(diào)用方式有3種，此處只介紹其中一種顯示調(diào)用方法，其他方式可參照鏈接

(7條消息) 【混合編程實(shí)例】C/C++調(diào)用FORTRAN編寫的DLL_fengyhack的博客-CSDN博客

首先需要將第一步生成的 .dll 文件Copy到當(dāng)前C++所在工程目錄下，并對函數(shù)進(jìn)行聲明

#include<iostream>
#include <windows.h>
using namespace std;
typedef void(*SUMMATOR)(float a, float b, float *c);

在C++工程文件中進(jìn)行調(diào)用

int main(){
    
    //第一步，加載fortran下生成的dll文件
	HINSTANCE hLibrary = LoadLibrary(TEXT("TESTFOR.dll"));
    //判斷是否加載成功
	if (hLibrary == NULL) {
		cout << "Cannot open lib" << endl;
		system("pause");
		return -1;
	}

    //第二步，從加載的結(jié)果 hLibrary 中查找函數(shù)并命名
    SUMMATOR summator = (SUMMATOR)GetProcAddress(hLibrary, "SUMMATOR");
    //判斷是否查找到函數(shù)
    if (summator == NULL) {
		cout << "Cannot find 'SUMMATOR' function" << endl;
		return -2;
    //第三步，調(diào)用
    float a = 1.0;
    float b = 2.0;
	float c = 0.0;
    summator(a,b,&c);   //調(diào)用函數(shù)
    cout << c << endl;  //輸出計(jì)算的c
    FreeLibrary(hLibrary);    //釋放Library
	system("pause");
	return 0;	
}

三、完整代碼

3.1 Fortran代碼部分

 !函數(shù)功能 兩數(shù)相加
      SUBROUTINE Summator(a,b,c)
      !MS$IF.NOT.DEFINED(LINKDIRECT)
      !MS$ATTRIBUTES DLLEXPORT::SUMMATOR
      !MS$ENDIF
          REAL a[VALUE]
          REAL b[VALUE]
          REAL c
          c=a+b
         
      END
      !函數(shù)功能 兩個(gè)數(shù)組相加
      SUBROUTINE SummatorArray(array1,array2,array3,n)
      !MS$ATTRIBUTES DLLEXPORT::SUMMATORArray
          INTEGER n[VALUE]
          INTEGER i
          REAL,DIMENSION(n)::array1
          REAL,DIMENSION(n)::array2
          REAL,DIMENSION(n)::array3
           do i=1,n
               array3(i)=array1(i)+array2(i)
           end do

3.2 C代碼

#include<iostream>
#include<windows.h>

using namespace std;
typedef void(*SUMMATOR)(float a, float b, float *c);
typedef void(*SUMMATORARRAY)(float *array1, float *array2, float *array3,int n);
int main() {
	
	//加載dll函數(shù)
	HINSTANCE hLibrary = LoadLibrary(TEXT("TESTFOR.dll"));
	if (hLibrary == NULL) {
		cout << "Cannot open dll" << endl;
		system("pause");
		return -1;
	}
	SUMMATOR summator = (SUMMATOR)GetProcAddress(hLibrary, "SUMMATOR");
	if (summator == NULL) {
		cout << "Cannot find 'SUMMATOR' function" << endl;
		return -2;
	float a = 1.0;
	float b = 2.0;
	float c = 0.0;
	summator(a,b,&c);
	cout << c << endl;
	SUMMATORARRAY summatorArray = (SUMMATORARRAY)GetProcAddress(hLibrary, "SUMMATORARRAY");
	if (summatorArray == NULL) {
		cout << "Cannot find 'SUMMATORARRAY' function" << endl;
	int n = 3;
	float *array1 = (float*)calloc(n, sizeof(float));
	float *array2 = (float*)calloc(n, sizeof(float));
	float *array3 = (float*)calloc(n, sizeof(float));
	for (int i = 0; i < n; i++) {
		array1[i] = i;
		array2[i] = i * i;
	summatorArray(array1, array2, array3, n);
		cout << array1[i]<<"+"<<array2[i]<<"="<< array3[i]<<endl;
	FreeLibrary(hLibrary);
	free(array1);
	free(array2);
	free(array3);
	system("pause");
	return 0;
}

運(yùn)行結(jié)果

到此這篇關(guān)于C/C++調(diào)用Fortran的DLL的文章就介紹到這了,更多相關(guān)C++調(diào)用Fortran的DLL內(nèi)容請搜索腳本之家以前的文章或繼續(xù)瀏覽下面的相關(guān)文章希望大家以后多多支持腳本之家！

相關(guān)文章

  • C++中給二維指針分配內(nèi)存(實(shí)現(xiàn)代碼)

    C++中給二維指針分配內(nèi)存(實(shí)現(xiàn)代碼)

    我們都知道在 C++ 中分配動(dòng)態(tài)數(shù)組用的是 new ， 撤銷動(dòng)態(tài)數(shù)組用的是 delete[ ] ，現(xiàn)在讓我們來看看怎么利用這兩個(gè)關(guān)鍵字給二維指針分配內(nèi)存
    2013-10-10
  • C++?vector的簡單實(shí)現(xiàn)

    C++?vector的簡單實(shí)現(xiàn)

    這篇文章主要為大家詳細(xì)介紹了C++?vector的簡單實(shí)現(xiàn)，使用數(shù)據(jù)庫，文中示例代碼介紹的非常詳細(xì)，具有一定的參考價(jià)值，感興趣的小伙伴們可以參考一下，希望能夠給你帶來幫助
    2022-03-03
  • VSCode (Visual Studio Code) V1.43.0下載并設(shè)置成中文語言的方法

    VSCode (Visual Studio Code) V1.43.0下載并設(shè)置成中文語言的方法

    Visual Studio Code是一款免費(fèi)開源的現(xiàn)代化輕量級代碼編輯器，支持語法高亮、智能代碼補(bǔ)全、自定義熱鍵、括號匹配、代碼片段、代碼對比 Diff、GIT 等特性，這篇文章主要介紹了VSCode (Visual Studio Code) V1.43.0下載并設(shè)置成中文語言,需要的朋友可以參考下
    2020-03-03
  • 深入理解atoi()與itoa()函數(shù)的用法

    深入理解atoi()與itoa()函數(shù)的用法

    本篇文章是對atoi()與itoa()函數(shù)的用法進(jìn)行了詳細(xì)的分析介紹，需要的朋友參考下
    2013-05-05
  • C語言數(shù)據(jù)結(jié)構(gòu)系列之樹的概念結(jié)構(gòu)和常見表示方法

    C語言數(shù)據(jù)結(jié)構(gòu)系列之樹的概念結(jié)構(gòu)和常見表示方法

    本章將正式開啟數(shù)據(jù)結(jié)構(gòu)中?“樹”?部分的講解，本章將介紹樹的概念和結(jié)構(gòu)，以及樹的表示方法，感興趣的朋友進(jìn)來看看吧
    2022-02-02
  • C++驅(qū)動(dòng)bash的實(shí)現(xiàn)代碼

    C++驅(qū)動(dòng)bash的實(shí)現(xiàn)代碼

    這篇文章主要介紹了C++驅(qū)動(dòng)bash的實(shí)現(xiàn)代碼，本文通過實(shí)例代碼給大家介紹的非常詳細(xì)，對大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值,需要的朋友可以參考下
    2021-11-11
  • C語言圖書借閱系統(tǒng)源碼

    C語言圖書借閱系統(tǒng)源碼

    這篇文章主要為大家分享了C語言圖書借閱系統(tǒng)源碼，具有一定的參考價(jià)值，感興趣的小伙伴們可以參考一下
    2018-02-02
  • C++重載的奧義之運(yùn)算符重載詳解

    C++重載的奧義之運(yùn)算符重載詳解

    函數(shù)的重載是指利用相同的函數(shù)名設(shè)計(jì)一系列功能相近，但是功能細(xì)節(jié)不一樣的函數(shù)接口；因此運(yùn)算符重載也是指對于同一個(gè)運(yùn)算符來說，它可以用于實(shí)現(xiàn)不同的功能。下面就一起來理解下運(yùn)算符重載的應(yīng)用吧
    2023-04-04
  • C語言模擬實(shí)現(xiàn)庫函數(shù)詳解

    C語言模擬實(shí)現(xiàn)庫函數(shù)詳解

    C語言庫函數(shù)是把自定義函數(shù)放到庫里，是別人把一些常用到的函數(shù)編完放到一個(gè)文件里，供程序員使用，下面讓我們一起來詳細(xì)了解它
    2022-07-07
  • Cocos2d-x UI開發(fā)之CCControlButton控件類實(shí)例

    Cocos2d-x UI開發(fā)之CCControlButton控件類實(shí)例

    這篇文章主要介紹了Cocos2d-x UI開發(fā)之CCControlButton控件類實(shí)例,本文代碼中包含大量注釋來講解CCControlButton控件類的使用,需要的朋友可以參考下
    2014-09-09

最新評論