\nhttp:\/\/connpass.com\/event\/9758\/<\/a>
\nF# Advent Calendar in English 2014 | Sergey Tihon’s Blog
\nhttp:\/\/sergeytihon.wordpress.com\/2014\/11\/24\/f-advent-calendar-in-english-2014\/<\/a><\/p>\n
Well, last year it wrote of that “before the F# and Fortran story … of” What it is sadly the setback was me…, this time agein !!! We succeeded in calling a Fortran from F#, who deals and technical information for you, but the time being, because the head is harf-joke article capital F connection :P<\/p>\n
Make DLL by Fortarn<\/h2>\n
This DLL is made by Intel Visual Fortran 2013.<\/p>\n
Intel Fortan can make DLL on Windows. Export Function is defined “!DEC$ ATTRIBUTES DLLEXPORT::<EXPORT-FUNCTION>”. We have a fortran fo GNU, but without that it was made only static libraries more of over there, I do not know well. However, it is possible to to create a *.so file. If you are run on linux use as it is from the C language, you’ll probably make in a manner similar from F#.<\/p>\n Fortran of contents is too cheap, but I have tried an array numeric (int type). To after practice, We should try double, the per float.<\/p>\n Let’s call from C++ in order to confirm the operation. The DLL function that is published from Fortran, and I call using the dllimport, but I just want to note is where we pass the value is in the pointer. because via global variables rather than via this Fortran function of passing stack. In the case of C language and pass laden with value on the stack (C# same when passing from a .NET language, etc.), when it passed to Fortran, that do not attention to this, it’s a strange feeling. Well, when you’re doing just Fortran, and so convenient to be very well done to be taken into account (like pass as it is a huge array).<\/p>\n If we run this code, you will like that.<\/p>\n Let’s rewrite in C#. And to use the DllImport is we ware found, but it does not do not pass a pointer int type, we can use the ‘ref’ keyword. Call form of the function, we need to be defined explicitly “CallingConvention = CallingConvention.Cdecl”.<\/p>\n When you pass a two-dimensional array, int[][] in rather than int[,] you can use the C++ and because the int value the same as in the contiguous memory and Fortran is to be placed. When we call the ADD1 function is cumbersome put the ref to, but you can call this correctly the DLL of Fortran.<\/p>\n Let’s rewrite more F#. This pointer which is export from dll is int& we declare as.<\/p>\n C# is not enough … write simpler compared with F#, I do not change much. Than that, it’s worrisome is is where you must use let ‘mutable’ is to want to pass by const. This is a limitation of Fortran call, in order to pass a pointer value, the variable of a even if it is not changed content is not pass and do not ‘mutable’. Here is where I want to twist. Though it pains of immutable values, it is a place me.<\/p>\n C# 2-dimensional array in int [,] since the was an unclear writing is how I in F # … but, how was I understand. With Array2D int [,] you can make a considerable thing. This, what another twist necessary int when you extern [,] it can not be the type specified in, we will create the alias. Here, extern int SUM2 by creating a type alias that ARY2D and is doing. In this way, you will be passed as the same as a two-dimensional array with C++.<\/p>\n Oh, Order of two-dimensional array will not unlike those of C++, but this is that the charm ;)<\/p>\n That is why, one New Year’s Eve of projects? As, was able story article dealing with the Fortran from F#. This, or the existing Fortran library can make an app that was made from F#, Who’s the obtained technical information but, Well, it is possible to that wanted to do. Everyone, a good Christmas !!!<\/p>\n","protected":false},"excerpt":{"rendered":" This text is 14th article in F# Advent Calendar 2014 in Japanese. The original article’s the Japanese, b … \u7d9a\u304d\u3092\u8aad\u3080 ![](\"http:\/\/www.moonmile.net\/blog\/wp-content\/uploads\/2014\/12\/wpid-dworkblogimage20141214_01thum.jpg\")
<\/a><\/p>\n\r\n! This function has two number parameters.\r\ninteger function add1( a, b )\r\n !DEC$ ATTRIBUTES DLLEXPORT::ADD1\r\n integer, intent(in) :: a, b\r\n integer :: total\r\n\r\n total = a + b\r\n add1 = total\r\nend function add1\r\n\r\n! This function has a One-dimensional array parameter.\r\ninteger function sum1( v, count )\r\n !DEC$ ATTRIBUTES DLLEXPORT::SUM1\r\n integer, intent(in) :: v(10)\r\n integer, intent(in) :: count\r\n integer :: i, total\r\n\r\n total = 0\r\n do i=1,count\r\n print *, 'in sum1: ', i, v(i)\r\n total = total + v(i)\r\n end do\r\n sum1 = total\r\n end function sum1\r\n\r\n! This function has a Two-dimensional array parameter.\r\ninteger function sum2( v, cnti, cntj )\r\n !DEC$ ATTRIBUTES DLLEXPORT::SUM2\r\n integer :: v(3,4)\r\n integer :: cnti, cntj\r\n integer :: i,j\r\n integer :: total\r\n\r\n total = 0\r\n do j=1,cntj\r\n do i=1,cnti\r\n print *,i,j,v(i,j)\r\n total = total + v(i,j)\r\n end do\r\n end do\r\n sum2 = total\r\nend function sum2\r\n<\/pre>\n
Try to call from C++ Language<\/h2>\n
\r\n#include "stdafx.h"\r\n#include <iostream>\r\n\r\n#define DllImport __declspec( dllimport )\r\n\r\nextern "C" {\r\n\tDllImport int ADD1(const int *, const int *);\r\n\tDllImport int SUM1( int(*)[] , const int *);\r\n\tDllImport int SUM2(int(*)[4][3], const int *, const int *);\r\n}\r\n\r\nint _tmain(int argc, _TCHAR* argv [])\r\n{\r\n\tint x = 10;\r\n\tint y = 20;\r\n\tint ans = ADD1(&x, &y);\r\n\tstd::cout << "ans " << ans << std::endl;\r\n\r\n\tint v[] = { 1, 2, 3, 4, 5 };\r\n\tint cnt = 5;\r\n\tint ans2 = SUM1((int(*)[])&v, &cnt);\r\n\tstd::cout << "ans2 " << ans2 << std::endl;\r\n\r\n\tint v2[][3] = {\r\n\t\t{1,2,3},\r\n\t\t{11,22,33},\r\n\t\t{10,20,30},\r\n\t\t{100,200,300}\r\n\t};\r\n\tint cnti = 3;\r\n\tint cntj = 4;\r\n\tint ans3 = SUM2( &v2, &cnti, &cntj);\r\n\tstd::cout << "ans3 " << ans3 << std::endl;\r\n\r\n\treturn 0;\r\n}\r\n<\/pre>\n![](\"http:\/\/www.moonmile.net\/blog\/wp-content\/uploads\/2014\/12\/wpid-dworkblogimage20141214_02thum.jpg\")
<\/a><\/p>\nTry to Call from C# Language<\/h2>\n
\r\nclass Program\r\n{\r\n\t[DllImport("FModule.dll", CallingConvention = CallingConvention.Cdecl)]\r\n\textern static int SUM1([In] int[] v, [In] ref int count);\r\n\t[DllImport("FModule.dll", CallingConvention = CallingConvention.Cdecl)]\r\n\textern static int SUM2([In] int[,] v, [In] ref int cnti, [In] ref int cntj);\r\n\t[DllImport("FModule.dll", CallingConvention = CallingConvention.Cdecl)]\r\n\textern static int ADD1([In] ref int a, [In] ref int b);\r\n\r\n\tstatic void Main(string[] args)\r\n\t{\r\n\t\tint a = 10;\r\n\t\tint b = 20;\r\n\t\tint ans = ADD1(ref a, ref b);\r\n\t\tConsole.WriteLine("ans {0}", ans);\r\n\r\n\t\tint[] v = { 1, 2, 3, 4, 5 };\r\n\t\tint cnt = v.Length;\r\n\t\tint ans2 = SUM1(v, ref cnt);\r\n\t\tConsole.WriteLine("ans2 {0}", ans2);\r\n\t\t\/*\r\n\t\tint[][] v2 = {\r\n\t\t\t\t\t\t\tnew int[]{1,2,3,4},\r\n\t\t\t\t\t\t\tnew int[]{11,22,33,44},\r\n\t\t\t\t\t\t\tnew int[]{10,20,30,40},\r\n\t\t\t\t\t\t};\r\n\t\t*\/\r\n\t\tint[,] v2 = {\r\n\t\t\t\t\t\t{1,2,3},\r\n\t\t\t\t\t\t{11,22,33},\r\n\t\t\t\t\t\t{10,20,30},\r\n\t\t\t\t\t\t{100,200,300},\r\n\t\t\t\t\t};\r\n\t\tint cnti = 3;\r\n\t\tint cntj = 4;\r\n\t\tint ans3 = SUM2(v2, ref cnti, ref cntj);\r\n\t\tConsole.WriteLine("ans3 {0}", ans3);\r\n\t}\r\n<\/pre>\nTry to call from F# !!!<\/h2>\n
\r\nopen System\r\nopen System.Runtime.InteropServices\r\n\r\ntype ARY2D = int[,]\r\n\r\n[<AutoOpen>]\r\nmodule FDLL =\r\n [<DllImport("FModule.dll", CallingConvention = CallingConvention.Cdecl)>]\r\n extern int ADD1(int& a, int& b)\r\n [<DllImport("FModule.dll", CallingConvention = CallingConvention.Cdecl)>]\r\n extern int SUM1(int[] v, int& count )\r\n \/\/ cannot use int[,], so we defined 'ARY2D' alias class.\r\n [<DllImport("FModule.dll", CallingConvention = CallingConvention.Cdecl)>]\r\n \/\/ extern int SUM2(int[,] v, int& cnti, int& cnt2 )\r\n extern int SUM2(ARY2D v, int& cnti, int& cnt2 )\r\n\r\nlet mutable a = 10\r\nlet mutable b = 20\r\nlet ans = ADD1( &a , &b )\r\n\r\nConsole.WriteLine( "ans {0}", ans )\r\n\r\nlet mutable v = [|1;2;3;4;5|]\r\nlet mutable cnt = v.Length\r\nlet ans2 = SUM1( v, &cnt )\r\n\r\nConsole.WriteLine( "ans2 {0}", ans2 )\r\n\r\n\/\/ two-dimensional array is made by Array2D module.\r\nlet vv = [|\r\n [|1;2;3|];\r\n [|11;22;33|];\r\n [|10;20;30|];\r\n [|100;200;300|];\r\n |]\r\nlet v2 = Array2D.init 4 3 ( fun i j -> vv.[i].[j])\r\n\r\nlet mutable cnti = 3\r\nlet mutable cntj = 4\r\nlet ans3 = SUM2( v2, &cnti, &cntj )\r\n\r\nConsole.WriteLine( "ans3 {0}", ans3 )\r\n<\/pre>\n![](\"http:\/\/www.moonmile.net\/blog\/wp-content\/uploads\/2014\/12\/wpid-dworkblogimage20141214_03thum.jpg\")
<\/a><\/p>\nAt the end<\/h2>\n