{"id":3362,"date":"2012-04-20T13:59:14","date_gmt":"2012-04-20T04:59:14","guid":{"rendered":"http:\/\/www.moonmile.net\/blog\/?p=3362"},"modified":"2012-04-20T13:59:14","modified_gmt":"2012-04-20T04:59:14","slug":"fortran%e3%81%ae%e6%a7%8b%e9%80%a0%e4%bd%93type%e3%82%92c%e3%81%a7%e6%89%b1%e3%81%86","status":"publish","type":"post","link":"http:\/\/www.moonmile.net\/blog\/archives\/3362","title":{"rendered":"Fortran\u306e\u69cb\u9020\u4f53(TYPE)\u3092C++\u3067\u6271\u3046"},"content":{"rendered":"<p>Fortran\u3078\u306e\u30c7\u30fc\u30bf\u306e\u53d6\u308a\u56de\u3057\u306f\u3001C\u8a00\u8a9e\u3068\u540c\u3058\u3088\u3046\u306b\u69cb\u9020\u4f53\u3092\u4f7f\u3046\u3068ok\u3002C++\u306a\u3089\u3070\u30af\u30e9\u30b9\u3092\u4f7f\u3044\u305f\u3044\u3068\u3053\u308d\u306a\u306e\u3060\u304c\u3001Fotran\u3067\u6271\u3046\u3053\u3068\u306f\u3067\u304d\u306a\u3044\u306e\u3067\u69cb\u9020\u4f53(TYPE)\u3067\u3002<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">\r\nmodule structmodule\r\n    implicit none\r\n    ! struct define\r\n    type F3D\r\n        double precision :: x,y,z\r\n    end type F3D\r\ncontains\r\n    ! struct parameter\r\n    double precision function flen( pt )\r\n        type (F3D) pt\r\n        flen = sqrt( pt%x**2 + pt%y**2 + pt%z**2 )\r\n        return \r\n    end function\r\nend module structmodule\r\n<\/pre>\n<p>Fortran\u306e\u69cb\u9020\u4f53\u306f TYPE \u3067\u5b9a\u7fa9\u3057\u3066\u3001\u30e1\u30f3\u30d0\u5909\u6570\u306b\u306f\u300c%\u300d\u3092\u4f7f\u3063\u3066\u53c2\u7167\u3059\u308b\u3002<\/p>\n<p>\u69cb\u9020\u4f53\u306fC\u8a00\u8a9e\u5074\u3067\u3082\u3046\u4e00\u5ea6\u5b9a\u7fa9\u3057\u306a\u3044\u3055\u306a\u3044\u3068\u3044\u3051\u306a\u3044\u3002<\/p>\n<pre class=\"brush: csharp; title: ; notranslate\" title=\"\">\r\n\/\/ \u69cb\u9020\u4f53\u3092\u547c\u3073\u51fa\u3059\r\nextern &quot;C&quot; {\r\n\tstruct F3D {\r\n\t\tdouble x,y,z ;\r\n\t};\r\n\tdouble STRUCTMODULE_mp_FLEN( struct F3D *pt );\r\n}\r\n<\/pre>\n<p>\u578b\u3060\u3051\u3092\u5408\u308f\u305b\u308c\u3070 OK \u3067\u3001\u30e1\u30f3\u30d0\u5909\u6570\u540d\u306f\u81ea\u7531\u306b\u3064\u3051\u3066\u3088\u3044&#8230;\u304c\u3001\u540c\u3058\u3088\u3046\u306b\u3064\u3051\u305f\u307b\u3046\u304c\u826f\u304b\u308d\u3046\u3002<br \/>\n\u95a2\u6570\u306e\u5f15\u304d\u6570\u306b\u4f7f\u3046\u5834\u5408\u306f\u3001integer\u306e\u5909\u6570\u3068\u540c\u3058\u3088\u3046\u306b\u30dd\u30a4\u30f3\u30bf\u306b\u3059\u308b\u3002<\/p>\n<p>function \u306e\u623b\u308a\u5024\u306b\u69cb\u9020\u4f53\u3092\u4f7f\u3046\u3053\u3068\u3082\u53ef\u80fd\u3060\u3068\u601d\u3046\u306e\u3060\u304c\u3001\u30e1\u30e2\u30ea\u95a2\u4fc2\u304c\u3084\u3084\u3053\u3057\u304f\u306a\u308a\u305d\u3046\u306a\u306e\u3067\u69cb\u9020\u4f53\u306e\u30c7\u30fc\u30bf\u53d7\u3051\u6e21\u3057\u306f\u3001\u5f15\u6570\u3067\u884c\u3063\u305f\u307b\u3046\u304c\u7121\u96e3\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"<p>Fortran\u3078\u306e\u30c7\u30fc\u30bf\u306e\u53d6\u308a\u56de\u3057\u306f\u3001C\u8a00\u8a9e\u3068\u540c\u3058\u3088\u3046\u306b\u69cb\u9020\u4f53\u3092\u4f7f\u3046\u3068ok\u3002C++\u306a\u3089\u3070\u30af\u30e9\u30b9\u3092\u4f7f\u3044\u305f\u3044\u3068\u3053\u308d\u306a\u306e\u3060\u304c\u3001Fotran\u3067\u6271\u3046\u3053\u3068\u306f\u3067\u304d\u306a\u3044\u306e\u3067\u69cb\u9020\u4f53(TYPE)\u3067\u3002 module structmodule  &hellip; <a href=\"http:\/\/www.moonmile.net\/blog\/archives\/3362\">\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-3362","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\/3362","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=3362"}],"version-history":[{"count":1,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/posts\/3362\/revisions"}],"predecessor-version":[{"id":3363,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/posts\/3362\/revisions\/3363"}],"wp:attachment":[{"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/media?parent=3362"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/categories?post=3362"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/tags?post=3362"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}