{"id":3370,"date":"2012-04-22T00:48:43","date_gmt":"2012-04-21T06:48:43","guid":{"rendered":"http:\/\/www.moonmile.net\/blog\/archives\/3370"},"modified":"2012-04-22T00:49:44","modified_gmt":"2012-04-21T15:49:44","slug":"fortran%e3%81%a8c%e3%81%aestring%e3%82%af%e3%83%a9%e3%82%b9%e3%81%a7%e3%82%84%e3%82%8a%e5%8f%96%e3%82%8a%e3%81%99%e3%82%8b","status":"publish","type":"post","link":"http:\/\/www.moonmile.net\/blog\/archives\/3370","title":{"rendered":"Fortran\u3068C++\u306estring\u30af\u30e9\u30b9\u3067\u3084\u308a\u53d6\u308a\u3059\u308b"},"content":{"rendered":"

\nFortran\u3067\u306fC\u8a00\u8a9e\u306e\u6587\u5b57\u5217(char[])\u4f4d\u306e\u3084\u308a\u53d6\u308a\u3092\u3059\u308b\u3064\u3044\u3067\u306b\u3001C++\u306estring\u30af\u30e9\u30b9\u3068\u306e\u3084\u308a\u53d6\u308a\u3082\u5b9f\u9a13\u7684\u306b\u3002
\n\u4eca\u56de\u3001\u753b\u9762\u5074\u304cMFC\u306a\u306e\u3067\u3001CString\u3092\u4f7f\u3046\u304bstring\u3092\u4f7f\u3046\u304b\u60a9\u3080\u3068\u3053\u308d\u306a\u306e\u3067\u3059\u304c\u3001\u307e\u3041STL\u3092\u3054\u308a\u3054\u308a\u4f7f\u3046\u3068\u3044\u3046\u524d\u63d0\u3067std::string\u3092\u4f7f\u3063\u3066\u307f\u307e\u3059\u3002\n<\/p>\n

\r\nmodule strmodule\r\n    implicit none\r\ncontains\r\n    ! \u6587\u5b57\u5217\u3092\u53d7\u3051\u53d6\u308b\r\n    subroutine fstr1( str )\r\n        character(*) :: str\r\n        print *, "in fstr1:", str\r\n    end subroutine fstr1\r\n    ! \u6587\u5b57\u5217\u3092\u8fd4\u3059\r\n    subroutine fstr2( str ) \r\n        character*80 :: str\r\n        str = "masuda tomoaki"\r\n    end subroutine fstr2\r\nend module strmodule\r\n<\/pre>\n
\nFortran\u5074\u306e module \u306f\u3001\u300ccharacter(*)\u300d\u3067\u6587\u5b57\u5217\u3092\u53d7\u3051\u53d6\u308a\u307e\u3059\u3002\u9006\u306b\u6587\u5b57\u5217\u3092\u6e21\u3059\u5834\u5408\u306b\u306f\u300ccharacter*80\u300d\u306e\u3088\u3046\u306b\u30b5\u30a4\u30ba\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002Fortran\u3060\u3051\u3067\u3067\u6587\u5b57\u5217\u3092\u8868\u793a\u3059\u308b\u3068\u304d\u306f\u3044\u3044\u306e\u3067\u3059\u304c\u3001C\u8a00\u8a9e\u3068\u3084\u308a\u53d6\u308a\u3059\u308b\u6642\u306b\u306f\u3046\u3057\u308d\u306e\u7a7a\u767d\u304c\u9762\u5012\u306a\u306e\u3067\u3059\u3002Fortran\u306e\u5834\u5408\u306f\u3001\u7a7a\u304d\u306e\u5206\u306f\u7a7a\u767d\u3067\u57cb\u3081\u3066\u304f\u308c\u307e\u3059\u3002\n<\/p>\n
\r\nextern "C" {\r\n\tvoid STRMODULE_mp_FSTR1( const char *str, int length );\r\n\tvoid STRMODULE_mp_FSTR2( char *str, int length );\r\n}\r\n\/\/ \u6587\u5b57\u5217\u3092\u8a2d\u5b9a\r\nvoid FSTR1( string &str )\r\n{\r\n\tSTRMODULE_mp_FSTR1(str.c_str(), str.length());\r\n}\r\n\/\/ \u6587\u5b57\u5217\u3092\u53d6\u5f97\r\nstring FSTR2()\r\n{\r\n\tstatic char buf[1000] = {0}; \/\/ \u5927\u304d\u3081\u306e\u30d0\u30c3\u30d5\u30a1\r\n\tSTRMODULE_mp_FSTR2( buf, sizeof(buf));\r\n\tstring str = buf;\r\n\tint e = str.find_last_not_of(" ");\r\n\tif ( e != string::npos ) {\r\n\t\tstr = string( str,0, e+1 );\r\n\t}\r\n\treturn str;\r\n}\r\n<\/pre>\n
\n\u306a\u306e\u3067\u3001std::string\u304b\u3089\u3001Fortran\u306e\u95a2\u6570\u306b\u6e21\u3059\u6642\u306b\u306f\u9577\u3055\u3092\u6307\u5b9a\u3057\u3066\u3001\u9006\u306b\u53d7\u3051\u53d6\u308b\u5834\u5408\u306b\u306f string::find_last_not_of \u3067\u5f8c\u308d\u306e\u7a7a\u767d\u3092\u524a\u9664\u3059\u308b(trim\u3059\u308b)\u3068\u3044\u3046\u5b9a\u756a\u51e6\u7406\u304c\u5fc5\u8981\u306b\u306a\u308a\u307e\u3059\u3002\n<\/p>\n
\r\n\t\/\/ string \u30af\u30e9\u30b9\u3068\u306e\u76f8\u4e92\u904b\u7528\r\n\tstring str = &quot;masuda tomoaki&quot;;\r\n\t\/\/ \u305d\u306e\u307e\u307e fortran \u306b\u6e21\u3059\r\n\tcout << &quot;call FSTR1&quot; << endl;\r\n\tFSTR1( str );\r\n\t\/\/ fortran \u304b\u3089\u53d7\u3051\u53d6\u308b\r\n\tstr = FSTR2();\r\n\tcout << &quot;call FSTR2:[&quot; << str << &quot;]&quot; << endl;\r\n<\/pre>\n
\n\u6587\u5b57\u5217\u306e\u5834\u5408\u306f\u3001\u3053\u306e\u5909\u63db\u304c\u5fc5\u8981\u306a\u306e\u3067\u9069\u5f53\u306a\u30de\u30af\u30ed\u3092\u4f5c\u308b\u304b\u3001\u95a2\u6570\u3092\u4f5c\u308b\u304b\u3059\u308b\u304b\u306a\u3041\u3068\u3002char[] \u306e\u307e\u307e C++ \u3067\u6271\u3046\u306e\u306f\u5384\u4ecb\u306a\u306e\u3067\uff08\u4eca\u56de\u3001STL\u3092\u4f7f\u3063\u3066\u3088\u3044\u3068\u3044\u3046\u8a71\u306a\u306e\u3067\uff09\u3001\u3053\u306e\u3042\u305f\u308a\u306f\u9069\u5f53\u306b\u96a0\u853d\u3057\u305f\u3044\u3068\u3053\u308d\u3002\n<\/p>\n
\n\u672c\u6765\u306a\u3089\u3070\u3001unicode \u3092\u6c17\u9063\u3046\u5fc5\u8981\u304c\u3042\u308b\u306e\u3067\u3059\u304c\u3001\u4eca\u56de\u306f\u82f1\u8a9e\u7248\u306a\u306e\u3067…\u307e\u3042\u826f\u3057\u3068\u3057\u307e\u3057\u3087\u3046\uff08\u3063\u3066\u306e\u304ci18n\u306e\u554f\u984c\u3067\u3082\u3042\u308b\u306e\u3060\u3051\u3069\u3001\u65e2\u306b\u3042\u308b\u30b3\u30fc\u30c9\u304c string \u3092\u4f7f\u3063\u3066\u3044\u308b\u304b\u3089\u306d\u3002Unicode \u306b\u6c17\u3092\u9063\u3046\u5834\u5408\u306f\u3001MFC \u306e\u6642\u306f CString \u3092\u4f7f\u3046\u306e\u304c\u826f\u3044\u3067\u3059\uff09\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"
Fortran\u3067\u306fC\u8a00\u8a9e\u306e\u6587\u5b57\u5217(char[])\u4f4d\u306e\u3084\u308a\u53d6\u308a\u3092\u3059\u308b\u3064\u3044\u3067\u306b\u3001C++\u306estring\u30af\u30e9\u30b9\u3068\u306e\u3084\u308a\u53d6\u308a\u3082\u5b9f\u9a13\u7684\u306b\u3002 \u4eca\u56de\u3001\u753b\u9762\u5074\u304cMFC\u306a\u306e\u3067\u3001CString\u3092\u4f7f\u3046\u304bstring\u3092\u4f7f\u3046\u304b\u60a9\u3080\u3068\u3053\u308d\u306a\u306e\u3067\u3059\u304c\u3001 … \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":[22,43],"tags":[],"class_list":["post-3370","post","type-post","status-publish","format-standard","hentry","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\/3370","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=3370"}],"version-history":[{"count":1,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/posts\/3370\/revisions"}],"predecessor-version":[{"id":3371,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/posts\/3370\/revisions\/3371"}],"wp:attachment":[{"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/media?parent=3370"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/categories?post=3370"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/tags?post=3370"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}