Início / coding / Perguntas / 79018464
Accepted
TobiR
Asked: 2024-09-24 19:47:18 +0800 CST

Retorna uma matriz de strings de uma função C++ para Fortran

  • 772

Estou com dificuldades para preencher um array de strings em um código C++. Aqui está o que tentei fazer:

principal.f90:


program main
    implicit none
    character(len=100) arr(3)
    call get_string_array(arr, 100, 3)
    write(*,'(3(a,3x))') arr
end

cpp_func.cpp:


#include <cstring>
#include <algorithm>

using namespace std;

void ConvertToFortran(char* fstring, size_t fstring_len, const char* cstring)
{
    size_t inlen = strlen(cstring);
    size_t cpylen = min(inlen, fstring_len);

    fill(fstring, fstring + fstring_len, ' ');
    copy(cstring, cstring + cpylen, fstring);
}

extern "C"
{
  void get_string_array_(char** arr, int len, int n)
  {
      const char* strings[] = {"duma1", "duma2", "duma3"};
      for (int i = 0; i < n; i++)
          ConvertToFortran(arr[i], len, strings[i]);
  }
}

Depois de compilar os dois arquivos como

ifx -c main.f90
icx -c cpp_func.cpp
ifx main.o cpp_func.o

Recebo uma falha de segmentação. Você poderia me ajudar a imprimir array arrcorretamente dentro de main.f90?

*** Editar ***

Qualquer solução que seja capaz de passar uma matriz de strings de C++ para Fortran seria apreciada.

c++

1 respostas

  1. Best Answer

    Primeiro, você deve usar os recursos de vinculação C do Fortran para ter um código mais robusto:

    program main
   use iso_c_binding
   implicit none
   character(len=100) arr(3)
   
   interface get_string_array
      subroutine get_string_array(a, len, n) bind(C)
         import c_int, c_char
         integer(c_int), value :: len, n
         character(kind=c_char,len=1) :: a(*)
      end subroutine
   end interface
   
   call get_string_array(arr, 100, 3)
   write(*,'(a)') arr
end

    Como você pode ver, a interface da rotina C é descrita. Em particular, lene ntem o valueatributo, porque C passa os objetos escalares por valor. Em relação ao array de caracteres, ele é descrito na interface como um array 1D plano de caracteres individuais, porque é assim que o lado C o vê com a char*declaração.

    No lado C, você não tem muitas mudanças. char*em vez de char**, e &arr[i*len]em vez de arr[i]: para, para endereçar a i-ésima string do array Fortran, você tem que endereçar o (len*i)-ésimo caractere em C.

    #include <cstring>
#include <algorithm>

using namespace std;

void ConvertToFortran(char* fstring, size_t fstring_len, const char* cstring)
{
    size_t inlen = strlen(cstring);
    size_t cpylen = min(inlen, fstring_len);
    fill(fstring, fstring + fstring_len, ' ');
    copy(cstring, cstring + cpylen, fstring);
}

extern "C"
{
    void get_string_array(char* arr, int len, int n)
    {
        const char* strings[] = {"duma1", "duma2", "duma3"};
        for (int i = 0; i < n; i++) {
            ConvertToFortran(&arr[i*len], (size_t)len, strings[i]);
        }
    }
}
    • 4

relate perguntas