{"id":3366,"date":"2012-04-20T14:27:09","date_gmt":"2012-04-20T05:27:09","guid":{"rendered":"http:\/\/www.moonmile.net\/blog\/?p=3366"},"modified":"2012-04-20T14:27:09","modified_gmt":"2012-04-20T05:27:09","slug":"fortran%e3%81%abc%e3%81%8b%e3%82%89%e6%96%87%e5%ad%97%e5%88%97%e3%82%92%e6%b8%a1%e3%81%99","status":"publish","type":"post","link":"http:\/\/www.moonmile.net\/blog\/archives\/3366","title":{"rendered":"Fortran\u306bC++\u304b\u3089\u6587\u5b57\u5217\u3092\u6e21\u3059"},"content":{"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
\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

\r\nmodule structmodule\r\n    implicit none\r\ncontains\r\n    ! \u6587\u5b57\u5217\u3092\u53d7\u3051\u53d6\u308b\r\n    subroutine fstr1( s )\r\n        character*20 s\r\n        print *, 'in fstr1:[', s,']'\r\n    end subroutine fstr1\r\n    ! \u6587\u5b57\u5217\u3092\u6e21\u3059\r\n    subroutine fstr2( s )\r\n        character*20 s\r\n        integer i\r\n        ! * \u3067\u57cb\u3081\u308b\r\n        do i=1,10\r\n            s(i:i) = '*'\r\n        end do\r\n    end subroutine fstr2\r\n    ! \u6587\u5b57\u5217\u3092\u6e21\u3059\r\n    subroutine fstr3( s )\r\n        character*20 :: s\r\n        s = 't.masuda'\r\n    end subroutine fstr3\r\nend module structmodule\r\n<\/pre>\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
\r\nextern "C" {\r\n\t\/\/ \u6587\u5b57\u5217\u3092\u6e21\u3059\r\n\tvoid STRUCTMODULE_mp_FSTR1( char *str, int count );\r\n\t\/\/ \u6587\u5b57\u5217\u3092\u53d7\u3051\u53d6\u308b\r\n\tvoid STRUCTMODULE_mp_FSTR2( char *str, int count );\r\n\tvoid STRUCTMODULE_mp_FSTR3( char *str, int count );\r\n}\r\n<\/pre>\n
\r\n\tchar str1[20+1] = {0};\r\n\tstrcpy( str1, &quot;t.masuda&quot; );\r\n\tSTRUCTMODULE_mp_FSTR1( str1, sizeof(str1)-1);\r\n\r\n\tchar str2[20+1] = {0};\r\n\tSTRUCTMODULE_mp_FSTR2( str2, sizeof(str2)-1);\r\n\tcout << &quot;str2:[&quot; << str2 << &quot;]&quot; << endl;\r\n\r\n\tchar str3[20+1] = {0};\r\n\tSTRUCTMODULE_mp_FSTR3( str3, sizeof(str3)-1);\r\n\tcout << &quot;str3:[&quot; << str3 << &quot;]&quot; << endl;\r\n<\/pre>\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 →<\/span><\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[3,22,43],"tags":[],"class_list":["post-3366","post","type-post","status-publish","format-standard","hentry","category-dev","category-c","category-fortran"],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/posts\/3366","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/comments?post=3366"}],"version-history":[{"count":1,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/posts\/3366\/revisions"}],"predecessor-version":[{"id":3367,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/posts\/3366\/revisions\/3367"}],"wp:attachment":[{"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/media?parent=3366"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/categories?post=3366"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/tags?post=3366"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}