If you compile to WVM you can use DumpSave[]:

SetDirectory[NotebookDirectory[]] ;
F = Compile[{{x}}, x^2 + Sin[x^2]];
DumpSave["F.mx", F] ;
Clear[F];
<< F.mx ;
F[10.]

For C functions, Mathematica creates a library (dll or so) and then link it. The library is saved in a temporarily directory and removed when session ends. It is possible to copy created lib and use it latter. All relevant data needed to link the function:

SetDirectory[NotebookDirectory[]] ;
<< CompiledFunctionTools`;
F = Compile[{{x}},x^2+Sin[x^2],CompilationTarget->"C"];
F[[-1,1]] (* file location *)
F[[-1,2]] (* generic function name*)
F[[-1,3]] (* in arg *)
F[[-1,4]] (* out arg *)

Here is an example:

(* copy lib and get loading data *)
SaveFunc[name_,file_]:=Block[
       {
         data=Last[name]
       },
         CopyFile[
          data[[1]],
          StringJoin[file,".dll"] (* replace with  .so on linux *)
         ];
         {file,data[[2]],data[[3]],data[[4]]}
    ];
(* load  lib *)
LoadFunc[savedata_]:=Block[
       { },
       FindLibrary[Directory[]<>StringJoin["/",savedata[[1]]]];
       LibraryFunctionLoad[
         Directory[]<>StringJoin["/",savedata[[1]]],
         savedata[[2]],
         savedata[[3]],
         savedata[[4]]
       ]
    ];
savedata = SaveFunc[F,"TEST"]
G = LoadFunc[savedata]
F[10.]
G[10.]

From my experience it is possible to use generated libs on other computers (of course you can't use .dll on linux or .so on windows). The only issue may be hardware dependent compilation of the lib, but default compiler flags do not do it.

I.M.

There's an example of a Module inside Compile at

https://reference.wolfram.com/language/Compile/tutorial/Introduction.html#675793002

You generally need to read the tutorials, not just the function documentation.

Hi,

If I do that, it keeps evaluating the cell forever...

Same for me. Miguel, try this:

<< CompiledFunctionTools` ;
P = \[CapitalPi][X];
f2 = Compile[{{m, _Real, 1}}, Log[Exp[P + \[Beta] F1.m] + Exp[\[Beta] F0.m]]]
f3 = Compile[{{m, _Real, 1}}, Log[Exp[P + \[Beta] F1.m] + Exp[\[Beta] F0.m]], CompilationOptions -> {"InlineExternalDefinitions" -> True}]
StringFreeQ[CompilePrint[f2], "MainEvaluate"]
StringFreeQ[CompilePrint[f3], "MainEvaluate"]

Also, take a look at http://mathematica.stackexchange.com/questions/1803/how-to-compile-effectively

I.M.

You have functions in your Compile statement which are defined outside it. At the least, you need to wrap the argument of Compile with Evaluate since Compile is HoldAll.

Thank you, I didn't notice that in the documentation when I was reading it.

However, I get inconsistent results when using the function. See attached notebook. Basically, it gives me an error the first few times that I try to use the compiled function, but after a few calls, it behaves as expected. What could be happening?

Attachments: