Fortran関数からCへの定数文字列の受け渡し方法

Question

FortranからCへの文字列の受け渡しに問題があります。Cコードは、ファイルパスを含む文字列をFortran関数に渡します。この関数はファイルを読み込み、2文字の文字列を返す必要があります。ここで

は私のFortranの機能ここでは私のCコード

#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 ; 
} 

である

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 

出力は次のようになります。

Id_type=IR (From the Fortran side) 

id_type is IRV2?  (From the C side) 

出力は、Cコードで、唯一でなければなりません最初の2文字。 すべてのヘルプは非常に

Answer 1

代わりの

id_type[2] 

少なくとも

id_type[3] 

ことを確認し、呼び出し後に0を整数に（インデックス2で）3 ^RD文字セットをいただければ幸いですFortranルーチンに渡します。それ以外の場合は、Cが認識するゼロ終了文字列になりません。

---

現在のコードが出力に、アレイを越えてメモリにアクセスし、正式に未定義の動作を有する非ゼロで終了する文字列をしようとしているので。

UBには何も何もない、あるいはおそらくあなたが期待していることが起こる可能性があります。

ちょっと変わった余分な文字があります。あなたがそこにその長さを指定したので、

---

文字列が表示され、正しくFortranでは、

character(2) :: id_type 

はCの対応する機能が本当に存在しないのですが、Cであなたは長さ2のstd::stringを使用することができ++とFortranのルーチンにそのバッファを渡し、

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

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