实现C++的整个多维数组的数据向fortran dll的函数中传递

kyra

传递时，视为单变量传递。（即传递第一个元素的地址即可）

[Fortran] 纯文本查看 复制代码

extern "C" {
    void prismmeshing(int &, double * plistdown, double *plistup , double &, struct singleinfo*);
  }
  struct singleinfo cylinderinfo;
  int main()
  {


    int pn = 3;
    double plistdown[][2] = {
      { 0, 0 },
      { 0, -8 },
      { 12.5, 0 }
    };
    double plistup[][2] = {
      { 0, 0 },
      { 0, -8 },
      { 12.5, 0 }
    };

    double h1 = 15;
    prismmeshing(pn, &plistdown[0][0], &plistup[0][0], h1, &cylinderinfo);
    cout << cylinderinfo.trianglechain[24] ;
  }