{"id":3372,"date":"2012-04-24T01:52:27","date_gmt":"2012-04-23T07:52:27","guid":{"rendered":"http:\/\/www.moonmile.net\/blog\/archives\/3372"},"modified":"2012-04-24T01:54:06","modified_gmt":"2012-04-23T16:54:06","slug":"fortran%e3%81%a7%e8%a4%87%e9%9b%91%e3%81%aa%e6%a7%8b%e9%80%a0%e4%bd%93%e3%81%ab%e3%83%95%e3%82%a1%e3%82%a4%e3%83%ab%e3%82%92%e3%83%ad%e3%83%bc%e3%83%89%e3%81%99%e3%82%8b","status":"publish","type":"post","link":"http:\/\/www.moonmile.net\/blog\/archives\/3372","title":{"rendered":"Fortran\u3067\u8907\u96d1\u306a\u69cb\u9020\u4f53\u306b\u30d5\u30a1\u30a4\u30eb\u3092\u30ed\u30fc\u30c9\u3059\u308b"},"content":{"rendered":"<p>\n\u3082\u3046\u5c11\u3057\u672c\u683c\u7684\u306b Fortran \u3068 C++ \u306e\u76f8\u4e92\u904b\u7528\u3092\u8a66\u3057\u3066\u307f\u308b\u3002\n<\/p>\n<p>\nFortran \u306b FEMDATA\u69cb\u9020\u4f53\u3068FEMFILE\u69cb\u9020\u4f53\u3092\u4f5c\u308b\u3002FEMDATA\u69cb\u9020\u4f53\u306f\u3001\u6709\u9650\u8981\u7d20\u30c7\u30fc\u30bf\u3092\u610f\u8b58\u3057\u3066id\u3068\u9802\u70b9(x,y,z)\u3068\u5fdc\u529b\uff08qx,qy,qz\uff09\u306e\u30c7\u30fc\u30bf\u3092\u6301\u3064\u3002\u3053\u306e\u9802\u70b9\u30c7\u30fc\u30bf\u3092\u3001FEMFILE\u69cb\u9020\u4f53\u306b\u307e\u3068\u3081\u3066\u6301\u3064\u3053\u3068\u306b\u3059\u308b\u3002FEMDATA\u69cb\u9020\u4f53\u306e\u6700\u5927\u6570\u306f\u56fa\u5b9a\u9577\u306b\u3057\u3066\u304a\u3044\u3066\u3001\u5225\u9014 count \u3092\u6301\u3063\u3066\u5b9f\u969b\u306e\u9802\u70b9\u6570\u3092\u6c7a\u3081\u308b\u3002\n<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">\r\n! \u69cb\u9020\u4f53\u5b9a\u7fa9\r\nmodule FEMMODULE\r\n    implicit none\r\n    type FEMDATA\r\n        integer :: id                ! idenitry code\r\n        double precision :: x,y,z    ! position\r\n        double precision :: qx,qy,qz ! potision stress\r\n    end type FEMDATA\r\n\r\n    type FEMFILE\r\n        character*10    filename    ! file name\r\n        character*10    author      ! author name\r\n        character*10    makedate    ! make datetime 'yyyy\/mm\/dd'\r\n        integer :: count            ! data count\r\n        type(FEMDATA) dat(1000)     ! data\r\n    end type FEMFILE\r\n\r\n    type(FEMFILE) fdata             ! inner data\r\n\r\ncontains\r\n\r\n    ! read data file\r\n    subroutine FEMREAD( fname ) \r\n        character(*) :: fname\r\n        character*80 :: temp\r\n        integer :: i, count\r\n        open(10,file=fname,status='old')\r\n        read(10,*) temp, fdata%author\r\n        read(10,*) temp, fdata%makedate\r\n        read(10,*) temp, fdata%count\r\n        count = fdata%count\r\n        print *,&quot;count:&quot;, fdata%author, fdata%makedate, count\r\n        do i=1,count\r\n            read(10,*) temp, &\r\n             & fdata%dat(i)%id, &\r\n             & fdata%dat(i)%x, & \r\n             & fdata%dat(i)%y, & \r\n             & fdata%dat(i)%z, & \r\n             & fdata%dat(i)%qx,& \r\n             & fdata%dat(i)%qy,& \r\n             & fdata%dat(i)%qz  \r\n        end do\r\n        close(10)\r\n    end subroutine FEMREAD\r\n\r\n    ! write data file\r\n    subroutine FEMWRITE( fname ) \r\n        character(*) :: fname\r\n        integer :: i, count\r\n\r\n        fdata%filename = fname\r\n        open(10,file=fname,status='replace')\r\n        write(10,*) &quot;author &quot;, fdata%author\r\n        write(10,*) &quot;makedate &quot;, fdata%makedate\r\n        count = fdata%count\r\n        write(10,*) &quot;count &quot;, fdata%count\r\n        do i=1,count\r\n            write(10,&quot;(A,I5,6E15.7)&quot;) &quot;data&quot;, &\r\n             & fdata%dat(i)%id, &\r\n             & fdata%dat(i)%x, & \r\n             & fdata%dat(i)%y, & \r\n             & fdata%dat(i)%z, & \r\n             & fdata%dat(i)%qx,& \r\n             & fdata%dat(i)%qy,& \r\n             & fdata%dat(i)%qz  \r\n        end do\r\n        close(10)\r\n    end subroutine FEMWRITE\r\n\r\n    ! set dummy data\r\n    subroutine FEMDUMMY()\r\n        integer :: i\r\n        \r\n        fdata%filename = &quot;sample.txt&quot;\r\n        fdata%author   = &quot;t.masuda&quot;\r\n        fdata%makedate = &quot;2012-05-02&quot;\r\n        fdata%count = 100\r\n        do i=1,100\r\n            fdata%dat(i)%id = i\r\n            fdata%dat(i)%x = 1.0\r\n            fdata%dat(i)%y = 1.0\r\n            fdata%dat(i)%z = 1.0\r\n            fdata%dat(i)%qx = 0.1\r\n            fdata%dat(i)%qy = 0.1\r\n            fdata%dat(i)%qz = 0.1\r\n        end do\r\n    end subroutine FEMDUMMY\r\n\r\nend module FEMMODULE\r\n<\/pre>\n<p>\n\u30c7\u30fc\u30bf\u3092\u30d5\u30a1\u30a4\u30eb\u306b\u66f8\u304d\u51fa\u3059\u306e\u304cFEMWRITE\u95a2\u6570\u3067\u3001\u540c\u3058\u30d5\u30a1\u30a4\u30eb\u304b\u3089\u8aad\u307f\u8fbc\u3080\u306e\u304cFEMREAD\u95a2\u6570\u3002\u3044\u308f\u3086\u308b\u6c38\u7d9a\u5316\u51e6\u7406\u3002Fortran\u3067\u66f8\u304d\u51fa\u3057\u30d5\u30a1\u30a4\u30eb\u306fFortran\u81ea\u8eab\u3067\u8aad\u307f\u51fa\u3059\u306e\u304c\u826f\u3044\u306e\u3068\u3001\u914d\u5217\u306e\u5b9f\u4f53\u306fFortran\u4e0a\u306b\u3042\u308b\u306e\u3067\u3053\u308c\u3092\u30a2\u30af\u30bb\u30b9\u3059\u308b\u306e\u306f\u3001Fortran\u81ea\u8eab\u3067\u884c\u3046\u306e\u304c\u826f\u3044\u3001\u3068\u3044\u3046\u4e3b\u65e8\u3067\u3059\u3002\n<\/p>\n<p>\n\u3067\u3001\u30c7\u30fc\u30bf\u3092GUI\u3092\u4f7f\u3063\u3066\u7a81\u3063\u8fbc\u3080\u3068\u3053\u308d\u306fC++(MFC)\u3067\u3084\u3063\u305f\u307b\u3046\u304c\u826f\u304b\u308d\u3046\u3068\u3044\u3046\u3053\u3068\u3067\u3059\u3002\u6700\u8fd1\u306eIntel Fortran \u3067\u306f windows\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u3092\u4f5c\u308b\u3053\u3068\u3082\u3067\u304d\u308b\u3088\u3046\u306a\u306e\u3067\u3059\u304c\u3001\u307e\u3041\u3001C++\u3067\u4f5c\u3063\u305f\u307b\u3046\u304c\u4fbf\u5229\u3002\u3082\u3063\u3068\u4e91\u3048\u3070\u3001C++\/CLI\u3092\u901a\u3057\u3066\u3001C#\u3092\u4f7f\u3046\u306e\u3082\u3042\u308a\u304b\u3068\u3002\u305f\u3060\u3057\u3001C#\u3067\u4f5c\u308b\u5834\u5408\u306f\u3001\u76f8\u4e92\u904b\u7528\u90e8\u5206\u306e\u30af\u30e9\u30b9\u3092\u76f8\u5f53\u8003\u3048\u629c\u304b\u306a\u3044\u3068\u89e3\u6790\u30b9\u30d4\u30fc\u30c9\u306b\u96e3\u304c\u51fa\u305d\u3046\u306a\u6c17\u304c\u3057\u307e\u3059\u3002\n<\/p>\n<p>\n\u51fa\u529b\u3055\u308c\u308b\u30c7\u30fc\u30bf\u306f\u3001\u4ee5\u4e0b\u306e\u3088\u3046\u306a\u5f62\u3067\u3059\u3002C\u8a00\u8a9e\u3067\u3082\u8aad\u307f\u8fbc\u3081\u306a\u3044\u3053\u3068\u306f\u306a\u3044\u3051\u3069\u3001\u30b3\u30fc\u30c9\u3092\u898b\u3066\u5206\u304b\u308b\u901a\u308a Fortran \u306e\u5834\u5408\u306f\u3001read(*,*) \u3067\u3055\u3063\u304f\u308a\u3068\u8aad\u307f\u8fbc\u3081\u307e\u3059\u3002\n<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">\r\n author t.masuda  \r\n makedate 2012-05-02\r\n count          100\r\ndata    1  0.1000000E+01  0.1000000E+01  0.1000000E+01  0.1000000E+00  0.1000000E+00  0.1000000E+00\r\ndata    2  0.1000000E+01  0.1000000E+01  0.1000000E+01  0.1000000E+00  0.1000000E+00  0.1000000E+00\r\ndata    3  0.1000000E+01  0.1000000E+01  0.1000000E+01  0.1000000E+00  0.1000000E+00  0.1000000E+00\r\ndata    4  0.1000000E+01  0.1000000E+01  0.1000000E+01  0.1000000E+00  0.1000000E+00  0.1000000E+00\r\n... \u4ee5\u4e0b 100 \u307e\u3067\u7d9a\u304f\r\n\r\n<\/pre>\n<p>\n\u69cb\u9020\u4f53\u81ea\u4f53\u304c\u5165\u308c\u5b50\u306b\u306a\u3063\u3066\u3044\u308b\u306e\u3067\u3001\u4ee5\u4e0b\u306e\u3088\u3046\u306b\u300c%\u300d\u304c\u4e8c\u56de\u7d9a\u304f\uff08C\u8a00\u8a9e\u3067\u8a00\u3046\u300c.\u300d\u3067\u3059\uff09\u306e\u304c\u3044\u3084\u3089\u3057\u3044\u3068\u3053\u308d\u3067\u3059\u306d\u3002Fortran\u3067\u30dd\u30a4\u30f3\u30bf\u3092\u4f7f\u3063\u3066\u3082\u826f\u3044\u3051\u3069&#8230;C++\u306e\u300c\u53c2\u7167(&#038;)\u300d\u306b\u5f53\u305f\u308b\u3082\u306e\u3063\u3066\u3042\u308b\u3093\u3067\u3057\u3087\u3046\u304b\uff1f\n<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">\r\n        do i=1,count\r\n            read(10,*) temp, &\r\n             & fdata%dat(i)%id, &\r\n             & fdata%dat(i)%x, & \r\n             & fdata%dat(i)%y, & \r\n             & fdata%dat(i)%z, & \r\n             & fdata%dat(i)%qx,& \r\n             & fdata%dat(i)%qy,& \r\n             & fdata%dat(i)%qz  \r\n        end do\r\n<\/pre>\n<p>\n\u3053\u308c\u3092 C++ \u304b\u3089\u547c\u3073\u51fa\u3059\u3068\u304d\u306f\u4ee5\u4e0b\u306e\u30b3\u30fc\u30c9\u3067\u3002\n<\/p>\n<pre class=\"brush: csharp; title: ; notranslate\" title=\"\">\r\nextern &amp;quot;C&amp;quot; {\r\n\tvoid FEMMODULE_mp_FEMDUMMY( void );\r\n\tvoid FEMMODULE_mp_FEMWRITE( const char *);\r\n}\r\n\r\n\/\/ \u69cb\u9020\u4f53\u306e\u518d\u5b9a\u7fa9\r\nstruct FEMDATA {\r\n\tint id ;\r\n\tdouble x,y,z;\r\n\tdouble qx,qy,qz;\r\n};\r\nstruct FEMFILE {\r\n\tchar filename&#x5B;10];\r\n\tchar author&#x5B;10];\r\n\tchar makedate&#x5B;10] ;\r\n\tint count ;\r\n\tFEMDATA dat&#x5B;1000];\r\n};\r\nextern &amp;quot;C&amp;quot; FEMFILE FEMMODULE_mp_FDATA;\r\n\r\nint _tmain(int argc, _TCHAR* argv&#x5B;])\r\n{\r\n\tcout &lt;&lt; &amp;quot;call fortran struct&amp;quot; &lt;&lt; endl;\r\n\r\n\tFEMMODULE_mp_FEMDUMMY();\r\n\tFEMMODULE_mp_FEMWRITE(&amp;quot;sample03.txt&amp;quot;);\r\n\r\n\tFEMFILE &amp;dat = FEMMODULE_mp_FDATA ;\r\n\tcout &lt;&lt; &amp;quot;filename: &amp;quot; &lt;&lt; FEMMODULE_mp_FDATA.filename &lt;&lt; endl;\r\n\tcout &lt;&lt; &amp;quot;count: &amp;quot; &lt;&lt; dat.count &lt;&lt; endl ;\r\n\treturn 0;\r\n}\r\n<\/pre>\n<p>\n\u5b9f\u306f\u3001\u3053\u306e\u30b3\u30fc\u30c9\u306f\u610f\u56f3\u7684\u306b\u30d0\u30b0\u304c\u3042\u3063\u3066\u3001filename\u3068\u304bauthor\u3068\u304b\u306f null \u7d42\u7aef\u3067\u306f\u306a\u3044\u306e\u3067\u3059\u3088\u3002\u306a\u306e\u3067\u3001\u5358\u7d14\u306b\u3001FEMMODULE_mp_FDATA.filename \u3092\u51fa\u529b\u3059\u308b\u3068\u300110\u6587\u5b57\u4ee5\u4e0b\u306e\u6587\u5b57\u3082\u305a\u3089\u305a\u3089\u3068\u8868\u793a\u3055\u308c\u3066\u3057\u307e\u3044\u307e\u3059\u3002\u306a\u306e\u3067\u3001\u3053\u306e\u90e8\u5206\u3092 string \u306b\u5909\u3048\u305f\u3044\u3067\u3059\u306d\u3002Fortran\u5074\u3067\u3001NULL \u5206\u306e char \u3092\u5165\u308c\u3066\u304a\u304f\u3068\u3044\u3046\u65b9\u6cd5\u3082\u3042\u308b\u306e\u3067\u3059\u304c\u3001\u4ee5\u4e0b\u306a\u69cb\u9020\u4f53\u3067\u6271\u3044\u305f\u3044\u3002\n<\/p>\n<pre class=\"brush: csharp; title: ; notranslate\" title=\"\">\r\nstruct FEMFILEX {\r\n\tstring filename ;\r\n\tstring author ;\r\n\tstring makedate ;\r\n\tvector&lt;FEMDATA*&gt; dat;\r\n};\r\n<\/pre>\n<p>\n\u6587\u5b57\u5217\u306e\u3068\u3053\u308d\u306f string \u306b\u5909\u63db\u3057\u3066\u3001\u914d\u5217\u306e\u3068\u3053\u308d\u306f vector \u306b\u76f4\u3057\u307e\u3059\u3002\u30ab\u30a6\u30f3\u30bf\u30fc\u306f\u3044\u3089\u306a\u3044\u306e\u3067 vector::size \u3092\u53c2\u7167\u3068\u3044\u3046\u3053\u3068\u306b\u3057\u305f\u3044\u3002\u6b32\u3092\u8a00\u3048\u3070\u3001\u3053\u308c\u3092 C++ \u306e\u30af\u30e9\u30b9\u306b\u3057\u305f\u3044\u3067\u3059\u306d\u3002\n<\/p>\n<p>\nFortran \u306e\u69cb\u9020\u4f53\u3068 C++ \u306e\u30af\u30e9\u30b9\u3092\u76f8\u4e92\u904b\u7528\u3055\u305b\u308b\u6642\u3001\u81ea\u524d\u3067\u3061\u307e\u3061\u307e\u66f8\u3051\u3070\u3067\u304d\u306a\u3044\u3053\u3068\u306f\u306a\u3044\u306e\u3067\u3057\u3087\u3046\u304c\u3001\u305d\u308c\u3060\u3068\u53ef\u642c\u6027\u304c\u60aa\u304f\u306a\u308b\u3057\u3001\u305f\u304f\u3055\u3093\u306eFortran\u69cb\u9020\u4f53\u3092\u6271\u3063\u305f\u3068\u304d\u306b\u3001\u305d\u308c\u3060\u3051\u3067\u4f5c\u696d\u91cf\u304c\u81a8\u5927\u306b\u306a\u3063\u3066\u3057\u307e\u3046\u3002\u306a\u306e\u3067\u3001\u5b9f\u52d9\u7684\u306bFortarn\/C \u306e\u76f8\u4e92\u904b\u7528\u3092\u8003\u3048\u308b\u5834\u5408\u3001\n<\/p>\n<ol>\n<li>Fortran\u69cb\u9020\u4f53\u3092C\u69cb\u9020\u4f53\u306b\u9010\u4e00\u76f4\u3059\u4f5c\u696d<\/li>\n<li>C\u69cb\u9020\u4f53\u3092string\/vector\u3092\u4f7f\u3063\u305fC++\u69cb\u9020\u4f53\u306b\u76f4\u3059\u4f5c\u696d<\/li>\n<\/ol>\n<p>\n\u3092\u8003\u3048\u306a\u3044\u3068\u3044\u3051\u306a\u3044\u3002\u3053\u308c\u3092 template \u304b\u9069\u5f53\u306a\u30b9\u30af\u30ea\u30d7\u30c8\u3067\u3084\u308d\u3046\u304b\u306a\u3068\u30021\u306e\u307b\u3046\u306fperl\u30b9\u30af\u30ea\u30d7\u30c8\u304b\u30de\u30af\u30ed\u3092\u4f7f\u3063\u3066\u624b\u4f5c\u696d\u30012\u306e\u307b\u3046\u306ftemplate\u3092\u4f7f\u3048\u308b\u3068\u826f\u3044\u304b\u306a\u3068\u3001\u601d\u6848\u4e2d\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u3082\u3046\u5c11\u3057\u672c\u683c\u7684\u306b Fortran \u3068 C++ \u306e\u76f8\u4e92\u904b\u7528\u3092\u8a66\u3057\u3066\u307f\u308b\u3002 Fortran \u306b FEMDATA\u69cb\u9020\u4f53\u3068FEMFILE\u69cb\u9020\u4f53\u3092\u4f5c\u308b\u3002FEMDATA\u69cb\u9020\u4f53\u306f\u3001\u6709\u9650\u8981\u7d20\u30c7\u30fc\u30bf\u3092\u610f\u8b58\u3057\u3066id\u3068\u9802\u70b9(x,y,z)\u3068\u5fdc\u529b &hellip; <a href=\"http:\/\/www.moonmile.net\/blog\/archives\/3372\">\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":[22,43],"tags":[],"class_list":["post-3372","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\/3372","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=3372"}],"version-history":[{"count":1,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/posts\/3372\/revisions"}],"predecessor-version":[{"id":3373,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/posts\/3372\/revisions\/3373"}],"wp:attachment":[{"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/media?parent=3372"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/categories?post=3372"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/tags?post=3372"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}