\u6587\u5b57\u5217\u306e\u53d7\u3051\u6e21\u3057\u306f\u306a\u308b\u3079\u304f\u3057\u305f\u304f\u306a\u3044\u306e\u3060\u304c\u3001\u8a2d\u5b9a\u3084\u3089\u540d\u79f0\u53d6\u5f97\u3084\u3089\u3067\u5fc5\u8981\u306b\u306a\u3063\u3066\u304f\u308b\u3002
\nFortran \u306e\u5834\u5408\u306f\u3001NULL terminate \u3067\u306f\u306a\u3044\u306e\u3067C++\u3067\u6271\u3046\u3068\u304d\u306b\u306f\u3061\u3087\u3063\u3068\u5384\u4ecb\u3067\u3042\u308b…\u305d\u3046\u3044\u3048\u3070\u3001string\u30af\u30e9\u30b9\u3092\u4f7f\u3046\u3053\u3068\u306b\u306a\u308b\u306e\u3067\u3001\u305d\u306e\u3042\u305f\u308a\u3082\u8003\u3048\u306a\u3044\u3068\u3002
\n\u57fa\u672c\u306f\u3001\u56fa\u5b9a\u9818\u57df\u3092\u3068\u3063\u3066\u304a\u3044\u3066\u3001\u3042\u3068\u304b\u3089C++\u5074\u3067null\u3092\u4ed8\u3051\u52a0\u3048\u308b\u3068ok\u3002<\/p>\n
[code lang=”vb”]
\nmodule structmodule
\n implicit none
\ncontains
\n ! \u6587\u5b57\u5217\u3092\u53d7\u3051\u53d6\u308b
\n subroutine fstr1( s )
\n character*20 s
\n print *, ‘in fstr1:[‘, s,’]’
\n end subroutine fstr1
\n ! \u6587\u5b57\u5217\u3092\u6e21\u3059
\n subroutine fstr2( s )
\n character*20 s
\n integer i
\n ! * \u3067\u57cb\u3081\u308b
\n do i=1,10
\n s(i:i) = ‘*’
\n end do
\n end subroutine fstr2
\n ! \u6587\u5b57\u5217\u3092\u6e21\u3059
\n subroutine fstr3( s )
\n character*20 :: s
\n s = ‘t.masuda’
\n end subroutine fstr3
\nend module structmodule
\n[\/code]<\/p>\n
\u6587\u5b57\u5217\u3092\u5f15\u6570\u306b\u3059\u308b\u3068\u3001C++\u306e\u95a2\u6570\u3067\u306f\u9577\u3055\u3092\u5b9a\u7fa9\u3059\u308b\u5909\u6570\u304c\u5165\u308b\u3002\u3053\u308c\u306f\u6570\u5024\u306e\u5909\u6570\u3068\u306f\u9055\u3063\u3066\u3001\u5024\u578b\u3067\u6e21\u3059\u3002<\/p>\n
[code lang=”csharp”]
\nextern "C" {
\n\t\/\/ \u6587\u5b57\u5217\u3092\u6e21\u3059
\n\tvoid STRUCTMODULE_mp_FSTR1( char *str, int count );
\n\t\/\/ \u6587\u5b57\u5217\u3092\u53d7\u3051\u53d6\u308b
\n\tvoid STRUCTMODULE_mp_FSTR2( char *str, int count );
\n\tvoid STRUCTMODULE_mp_FSTR3( char *str, int count );
\n}
\n[\/code]<\/p>\n
[code lang=”csharp”]
\n\tchar str1[20+1] = {0};
\n\tstrcpy( str1, "t.masuda" );
\n\tSTRUCTMODULE_mp_FSTR1( str1, sizeof(str1)-1);<\/p>\n
\tchar str2[20+1] = {0};
\n\tSTRUCTMODULE_mp_FSTR2( str2, sizeof(str2)-1);
\n\tcout << "str2:[" << str2 << "]" << endl;<\/p>\n
\tchar str3[20+1] = {0};
\n\tSTRUCTMODULE_mp_FSTR3( str3, sizeof(str3)-1);
\n\tcout << "str3:[" << str3 << "]" << endl;
\n[\/code]<\/p>\n
\u623b\u308a\u5024\u3067\u6271\u3046\u3053\u3068\u304c\u3067\u304d\u308b\u304b\u306f\u4e0d\u660e\u3002\u5f15\u6570\u3067\u6e21\u3059\u307b\u3046\u304c\u7121\u96e3\u3060\u308d\u3046\u3002
\nstring\u578b\u3068\u306e\u5909\u63db\u3092\u8003\u3048\u308b\u3068\u3001\u9069\u5f53\u306a\u30de\u30af\u30ed\u3092C++\u5074\u306b\u4ed5\u8fbc\u3080\u306e\u304c\u3088\u304b\u308d\u3046\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"
\u6587\u5b57\u5217\u306e\u53d7\u3051\u6e21\u3057\u306f\u306a\u308b\u3079\u304f\u3057\u305f\u304f\u306a\u3044\u306e\u3060\u304c\u3001\u8a2d\u5b9a\u3084\u3089\u540d\u79f0\u53d6\u5f97\u3084\u3089\u3067\u5fc5\u8981\u306b\u306a\u3063\u3066\u304f\u308b\u3002 Fortran \u306e\u5834\u5408\u306f\u3001NULL terminate \u3067\u306f\u306a\u3044\u306e\u3067C++\u3067\u6271\u3046\u3068\u304d\u306b\u306f\u3061\u3087\u3063\u3068\u5384\u4ecb\u3067\u3042\u308b…\u305d\u3046\u3044\u3048\u3070\u3001s … \u7d9a\u304d\u3092\u8aad\u3080