{"id":3354,"date":"2012-04-17T00:47:07","date_gmt":"2012-04-16T06:47:07","guid":{"rendered":"http:\/\/www.moonmile.net\/blog\/archives\/3354"},"modified":"2012-04-17T09:30:40","modified_gmt":"2012-04-17T00:30:40","slug":"windows-%e7%92%b0%e5%a2%83%e3%81%a7-fortran-%e3%81%a8-c-%e3%82%92%e9%80%a3%e6%90%ba%e3%81%95%e3%81%9b%e3%82%8b%ef%bc%88intel-fortran%e3%81%ae%e5%a0%b4%e5%90%88%ef%bc%89","status":"publish","type":"post","link":"http:\/\/www.moonmile.net\/blog\/archives\/3354","title":{"rendered":"windows \u74b0\u5883\u3067 fortran \u3068 C++ \u3092\u9023\u643a\u3055\u305b\u308b\uff08intel fortran\u306e\u5834\u5408\uff09"},"content":{"rendered":"<p>\u304a\u4ed5\u4e8b\u7528\u306e\u30e1\u30e2\u3067\u3059\u3002<\/p>\n<p>FORTRAN\u3068C\u304c\u6df7\u5728\u3057\u305f\u30d7\u30ed\u30b0\u30e9\u30e0 &#8211; Nobuhito Mori<br \/>\n<a href=\"http:\/\/www.oceanwave.jp\/index.php?FORTRAN%A4%C8C%A4%AC%BA%AE%BA%DF%A4%B7%A4%BF%A5%D7%A5%ED%A5%B0%A5%E9%A5%E0#ubf9712b\">http:\/\/www.oceanwave.jp\/index.php?FORTRAN%A4%C8C%A4%AC%BA%AE%BA%DF%A4%B7%A4%BF%A5%D7%A5%ED%A5%B0%A5%E9%A5%E0#ubf9712b<\/a><br \/>\n\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u306e\u8a71\uff1aFortran\uff0cC\uff0cC++ \u306e\u9023\u643a<br \/>\n<a href=\"http:\/\/www.mlab.ice.uec.ac.jp\/~ej-sib\/prog\/prog_mixed.html#fortran_from_other_C\">http:\/\/www.mlab.ice.uec.ac.jp\/~ej-sib\/prog\/prog_mixed.html#fortran_from_other_C<\/a><br \/>\nFortran \u30d7\u30ed\u30b0\u30e9\u30de\u30fc\u30ba\u30ac\u30a4\u30c9: 11 &#8211; C \u3068 Fortran \u306e\u30a4\u30f3\u30bf\u30d5\u30a7\u30fc\u30b9<br \/>\n<a href=\"http:\/\/www.hiroshima-cu.ac.jp\/japanese\/IPC\/hunet99\/sun\/WorkShop\/ja\/html_docs\/fortran\/prog_guide\/11_cfort.doc.html\">http:\/\/www.hiroshima-cu.ac.jp\/japanese\/IPC\/hunet99\/sun\/WorkShop\/ja\/html_docs\/fortran\/prog_guide\/11_cfort.doc.html<\/a><br \/>\nFORTRAN\u3068C\u304c\u6df7\u5728\u3057\u305f\u30d7\u30ed\u30b0\u30e9\u30e0 &#8211; Nobuhito Mori<br \/>\n<a href=\"http:\/\/www.oceanwave.jp\/index.php?FORTRAN%A4%C8C%A4%AC%BA%AE%BA%DF%A4%B7%A4%BF%A5%D7%A5%ED%A5%B0%A5%E9%A5%E0#v4d3436c\">http:\/\/www.oceanwave.jp\/index.php?FORTRAN%A4%C8C%A4%AC%BA%AE%BA%DF%A4%B7%A4%BF%A5%D7%A5%ED%A5%B0%A5%E9%A5%E0#v4d3436c<\/a><br \/>\nDLL\u306e\u30e1\u30a4\u30af<br \/>\n<a href=\"http:\/\/rakasaka.fc2web.com\/propath\/prodll_make.html#Command\">http:\/\/rakasaka.fc2web.com\/propath\/prodll_make.html#Command<\/a><\/p>\n<p>\u3068\u3001Intel Fortran \u3068 Free Fortran 95 \u3092\u4f7f\u3063\u3066 windows 7 \u4e0a\u3067\u8abf\u3079\u3066\u3044\u307e\u3059\u3002<br \/>\n\u8981\u306f\u3001<\/p>\n<ul>\n<li>Fortran \u3067\u8a08\u7b97\u30ed\u30b8\u30c3\u30af\u3092 lib\/dll \u3067\u4f5c\u308b<\/li>\n<li>C\/C++ \u304b\u3089\u30e9\u30a4\u30d6\u30e9\u30ea\u3092\u547c\u3073\u51fa\u3059<\/li>\n<\/ul>\n<p>\u3068\u3044\u3046\u3053\u3068\u3092\u3059\u308b\u306e\u3067\u3001\u305d\u306e\u4e0b\u8abf\u3079\u3002<br \/>\n\u3069\u3046\u3084\u3089\u3001\u5df7\u3067\u6ea2\u308c\u3066\u3044\u60c5\u5831\u306f\u3001linux \u4e0a\u306e C\/Fortran\u9023\u643a\u306e\u3088\u3046\u3067\u3001C\u8a00\u8a9e\u306e\u95a2\u6570\u306e\u6700\u5f8c\u306b\u30a2\u30f3\u30c0\u30fc\u30d0\u30fc\u304c\u4ed8\u304f\u3068\u3044\u3046\u306e\u306f\u3001windows \u7248\u3060\u3068\u3061\u3087\u3063\u3068\u9055\u3046&#8230;\u3063\u3066\u306a\u5177\u5408\u3067\u3059\u3002Fortran\u5074\u3092\u300cFunc1\u300d\u3067\u5b9a\u7fa9\u3057\u3066\u304a\u3044\u3066\u3001C\u8a00\u8a9e\u5074\u3067\u300cFunc1_\u300d\u3067\u547c\u3073\u51fa\u3059\u3068\u3044\u3046\u306e\u306f\u3001gcc \u306e\u4ed5\u69d8\u3089\u3057\u3044\u3002\u9006\u306b\u8a00\u3048\u3070\u3001Intel Fortran \u3084 Free Fortran<br \/>\n95 \u3060\u3068\u9055\u3063\u3066\u3044\u308b\u3093\u3067\u3059\u3088\u3001\u3063\u3066\u306a\u3053\u3068\u3067\u3059\u3002<\/p>\n<p>\u25a0DLL\u306e\u5b9a\u7fa9<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">\r\nsubroutine DllSub1(x,y)\r\n\r\n  ! \u3053\u306e DLL \u306e\u30e6\u30fc\u30b6\u30fc\u3078\u306e\u30b5\u30d6\u30eb\u30fc\u30c1\u30f3 Dll1 \u306e\u8aac\u660e\r\n  !\r\n  !DEC$ ATTRIBUTES DLLEXPORT::DllSub1\r\n\r\n  ! \u5909\u6570\r\n  integer, intent(in) :: x, y\r\n\r\n  ! DllSub1 \u306e\u672c\u6587\r\n\r\nend subroutine DllSub1\r\n\r\ninteger function DllFunc1( x, y )\r\n\r\n  ! \u3053\u306e DLL \u306e\u30e6\u30fc\u30b6\u30fc\u3078\u306e\u30b5\u30d6\u30eb\u30fc\u30c1\u30f3 Dll1 \u306e\u8aac\u660e\r\n  !\r\n  !DEC$ ATTRIBUTES DLLEXPORT::DllFunc1\r\n\r\n  ! \u5909\u6570\r\n  integer, intent(in) :: x, y\r\n\r\n  ! DllFunc1 \u306e\u672c\u6587\r\n  DllFunc1 = x + y\r\n\r\nend function DllFunc1\r\n<\/pre>\n<p>\u25a0Library\u306e\u5b9a\u7fa9<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">\r\n! C++\u304b\u3089\u306e\u547c\u3073\u51fa\u3057\r\nmodule callmodule\r\n    implicit none\r\n  contains\r\n    ! \u95a2\u6570\u5b9a\u7fa91\r\n    integer function csub1( x, y )\r\n        integer, intent(in):: x, y\r\n        csub1 = x + y\r\n        return\r\n    end function csub1\r\nend module callmodule\r\n\r\n! \u95a2\u6570\u5b9a\u7fa91\r\ninteger function csub2( x, y )\r\n    integer, intent(in):: x, y\r\n    csub2 = x + y\r\n    return\r\nend function csub2\r\n<\/pre>\n<p>\u25a0C++\u304b\u3089\u547c\u51fa\u3057<\/p>\n<pre class=\"brush: cpp; title: ; notranslate\" title=\"\">\r\n#include &amp;quot;stdafx.h&amp;quot;\r\n#include &lt;iostream&gt;\r\nusing namespace std;\r\n\r\nextern &amp;quot;C&amp;quot; {\r\n\textern int CALLMODULE_mp_CSUB1( const int *, const int * );\r\n\textern int CSUB2( const int *, const int * );\r\n}\r\n\r\n#define DllImport __declspec( dllimport )\r\n\r\nextern &amp;quot;C&amp;quot; {\r\n\tDllImport void DLLSUB1( const int *, const int * );\r\n\tDllImport int  DLLFUNC1( const int *, const int * );\r\n}\r\n\r\nint _tmain(int argc, _TCHAR* argv&#x5B;])\r\n{\r\n\tcout &lt;&lt; &amp;quot;c and fortran programing&amp;quot; &lt;&lt; endl;\r\n\r\n\tint x = 10;\r\n\tint y = 10;\r\n\tint ans = CALLMODULE_mp_CSUB1(&amp;x,&amp;y);\r\n\tcout &lt;&lt; &amp;quot;ans:&amp;quot; &lt;&lt; ans  &lt;&lt; endl;\r\n\r\n\tans = CSUB2(&amp;x,&amp;y);\r\n\tcout &lt;&lt; &amp;quot;ans:&amp;quot; &lt;&lt; ans  &lt;&lt; endl;\r\n\r\n\tDLLSUB1( &amp;x, &amp;y );\r\n\tans = DLLFUNC1( &amp;x, &amp;y );\r\n\tcout &lt;&lt; &amp;quot;ans:&amp;quot; &lt;&lt; ans  &lt;&lt; endl;\r\n\r\n\treturn 0;\r\n}\r\n<\/pre>\n<p>Intel Fortran \u306e\u5834\u5408\u306f\u4e0a\u8a18\u306e\u547c\u51fa\u304c\u3067\u304d\u307e\u3059\u3002gcc \u3068\u306f\u9055\u3063\u3066\u672b\u5c3e\u306b\u300c_\u300d\u304c\u4ed8\u304d\u307e\u305b\u3093\u3002\u95a2\u6570\u540d\u79f0\u306f\u3001nm \u30b3\u30de\u30f3\u30c9\u3092\u4f7f\u3046\u3068\u8abf\u3079\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<\/p>\n<pre class=\"brush: php; title: ; notranslate\" title=\"\">\r\n&gt;nm CallModule.obj\r\n\r\n00000000 N .debug$S\r\n00000000 N .debug$T\r\n00000000 i .drectve\r\n00000000 t .text\r\n00000000 r .trace\r\n00000001 a @feat.00\r\n00000000 T _CALLMODULE.\r\n00000006 T _CALLMODULE_mp_CSUB1\r\n\r\n<\/pre>\n<p>Fortran \u3067\u30e9\u30a4\u30d6\u30e9\u30ea\u3092\u4f5c\u3063\u3066\u3001C\u8a00\u8a9e\u306b\u30ea\u30f3\u30af\u3055\u305b\u308b\u5834\u5408\u306b\u306f\u300cCALLMODULE_mp_CSUB1\u300d\u3068\u3044\u3046\u5b9a\u7fa9\u304b\u300cCSUB2\u300d\u3068\u3044\u3046\u5b9a\u7fa9\u306b\u306a\u308a\u307e\u3059\u3002\u300cCALLMODULE\u300d\u306e\u90e8\u5206\u306f fortran \u306e module \u540d\u3067\u3059\u306d\u3002\u95a2\u6570\u540d\u304c\u3076\u3064\u304b\u3089\u306a\u3044\u3088\u3046\u306b module \u3092\u4f7f\u3046\u3068\u3001\u305d\u308c\u304c\u540d\u524d\u306b\u5165\u3063\u3066\u304f\u308b\u3068\u3044\u3046\u7f60\u306a\u3093\u3067\u3059\u304c\u3001\u307e\u3041\u3001\u30b3\u30f3\u30d1\u30a4\u30e9\u4f9d\u5b58\u3067\u66f8\u3044\u3066\u826f\u3044\u306e\u306a\u3089\u3070\u3001\u3053\u3093\u306a\u98a8\u306b\u76f4\u63a5\u540d\u524d\u3092\u4ed8\u3051\u3089\u308c\u307e\u3059\u3002module \u306b\u5165\u3063\u3066\u3044\u306a\u3044\u5834\u5408\u306f\u3001\u5b9f\u306fC\u8a00\u8a9e\u306e\u5b9a\u7fa9\u300c_CSUB2\u300d\u306e\u3088\u3046\u306b\u5148\u982d\u306b\u30a2\u30f3\u30c0\u30fc\u30d0\u30fc\u304c\u4ed8\u3044\u305f\u540d\u524d\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n<p>DLL\u306e\u95a2\u6570\u3068\u3057\u3066\u516c\u958b\u3059\u308b\u5834\u5408\u306f\u300c!DEC$ ATTRIBUTES DLLEXPORT::DllSub1\u300d\u306e\u3088\u3046\u306a\u5c5e\u6027\u3092\u3064\u3051\u307e\u3059\u3002Fortran\u306e\u5834\u5408\u306f\u300c!\u300d\u4ee5\u964d\u304c\u30b3\u30e1\u30f3\u30c8\u306b\u306a\u308b\u306e\u3067\u3001\u30b3\u30e1\u30f3\u30c8\u3092\u4f7f\u3063\u305f\u30d7\u30e9\u30b0\u30e9\u30de\u3067\u3059\u3002\u3053\u308c\u306f\u72ec\u81ea\u6587\u6cd5\u306b\u306a\u308b\u306e\u3067 intel fortran \u306e\u307f\u304b\u3068\u3002<br \/>\nC\u8a00\u8a9e\u306e\u547c\u3073\u51fa\u3057\u306e\u307b\u3046\u306f\u3001\u901a\u5e38\u306eDLL\u547c\u51fa\u3068\u540c\u3058\u3067\u300c__declspec( dllimport )\u300d\u3092\u4f7f\u3044\u307e\u3059\u3002\u3053\u306e\u3042\u305f\u308a\u306f\u5b9a\u756a\u3067\u3059\u3002Fortran \u306e\u65b9\u304b\u3089\u306f\u3001\u5927\u6587\u5b57\u3067\u516c\u958b\u3055\u308c\u308b\u306e\u3067 fortran \u5185\u3067\u300cDllFunc1\u300d\u306e\u3088\u3046\u306b\u5c0f\u6587\u5b57\u3092\u4f7f\u3063\u3066\u3044\u3066\u3082\u3001\u516c\u958b\u3055\u308c\u3066\u3044\u308b\u95a2\u6570\u540d\u306f\u300cDLLFUNC1\u300d\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n<p>\u3068\u3044\u3046\u8a33\u3067\u3001\u3053\u306e\u3042\u305f\u308a\u521d\u624b\u3067\u30cf\u30de\u308b\u306e\u3067\u3001\u3072\u3068\u307e\u305a\u516c\u958b\u3057\u3066\u304a\u304d\u307e\u3059\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u304a\u4ed5\u4e8b\u7528\u306e\u30e1\u30e2\u3067\u3059\u3002 FORTRAN\u3068C\u304c\u6df7\u5728\u3057\u305f\u30d7\u30ed\u30b0\u30e9\u30e0 &#8211; Nobuhito Mori http:\/\/www.oceanwave.jp\/index.php?FORTRAN%A4%C8C%A4%AC%BA &hellip; <a href=\"http:\/\/www.moonmile.net\/blog\/archives\/3354\">\u7d9a\u304d\u3092\u8aad\u3080 <span class=\"meta-nav\">&rarr;<\/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,43],"tags":[],"class_list":["post-3354","post","type-post","status-publish","format-standard","hentry","category-dev","category-fortran"],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/posts\/3354","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=3354"}],"version-history":[{"count":2,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/posts\/3354\/revisions"}],"predecessor-version":[{"id":3356,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/posts\/3354\/revisions\/3356"}],"wp:attachment":[{"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/media?parent=3354"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/categories?post=3354"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/tags?post=3354"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}