Wie Übergeben einer konstanten Zeichenfolge von Fortran-Funktion zu C

Question

Ich habe Probleme, eine Zeichenfolge von Fortran an C zu übergeben. Der C-Code übergibt eine Zeichenfolge, die einen Dateipfad zu einer Fortran-Funktion enthält. Die Funktion liest die Datei ein und sollte eine zwei Zeichen lange Zeichenfolge zurückgeben.

Hier ist meine C-Code

#include <stdlib.h> 
#include <stdlib.h> 
#include <stdio.h> 
#include <string.h> 
#include <math.h> 
#include <sys/time.h> 
#include <iostream> 
#include <iomanip> 
#include <fstream> 
#include <sstream> 
#include <time.h> 
#include <ctype.h> 
using namespace std; 

extern "C" void read_id_type_(char *file_path, char *id_type, size_t *path_len_file); 

int main(int argc, char **argv) { 

char path[500],id_type[2]; 
char *dir_path, *file_path; 
dir_path=path; 
size_t path_len=strlen(dir_path); 

file_path=strcat(path,"/rnspar_mpt1.dat"); 
size_t path_len_file=strlen(file_path); 

read_id_type_(file_path,id_type,&path_len_file); 
printf("id_type is %s\n",id_type); 

return EXIT_SUCCESS ; 
} 

Hier ist meine Fortran Funktion

integer function read_id_type(filename,id_type,path_len) 
implicit none 

integer :: nrg, nrf, nrf_deform, nrgin,path_len 
character(400) :: filename 
character(2) :: id_type,EQ_point 

filename=filename(1:path_len) 
write(*,*),"Reading file", filename 

open(unit = 1,file = trim(filename), status='old') 
read(1,'(4i5)') nrg 
read(1,'(4i5)') nrf 
read(1,'(2i5,2(3x,a2))') nrf_deform, nrgin, id_type, EQ_point 
close(1) 
print *,"Id_type=",id_type 
read_id_type = 0 
end function read_id_type 

Die Ausgabe lautet:

Id_type=IR (From the Fortran side) 

id_type is IRV2?  (From the C side) 

Die Ausgabe, in der C-Code, sollte nur sein die ersten zwei Zeichen. Jede Hilfe sehr geschätzt werden würde

Answer 1

Statt

id_type[2] 

, dass mindestens

id_type[3] 

und stellen Sie die 3 ^rd Zeichen (bei Index 2) 0 nach dem Aufruf auf ganzzahlige zu der Fortran-Routine, andernfalls wird es keine mit Null beendete Zeichenfolge sein, die C versteht.

---

Da der aktuelle Code auszugeben versucht, eine Nicht-Null-terminierte Zeichenkette, die es über die Speicher-Array zugreift, und hat formal undefiniertes Verhalten.

Mit UB alles oder nichts oder möglicherweise was Sie erwarten können passieren.

Sie haben gerade ein paar seltsame zusätzliche Zeichen.

---

die Zeichenfolge richtig angezeigt wird in Fortran, weil Sie angegeben haben, da seine Länge,

character(2) :: id_type 

Es gibt nicht wirklich eine entsprechende Funktion in C, aber in C++ Sie eine std::string der Länge 2 verwenden könnte und Pass seinen Puffer in die Fortran-Routine,

std::string id_type(2, ' '); 

//... 
read_id_type_(file_path, &id_type[0], &path_len_file);