Add examples for armax, armax1 & initstate
[scilab.git] / scilab / modules / cacsd / src / c / DllmainCacsd.c
1 /*
2  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3  * Copyright (C) 2010 - DIGITEO - Allan CORNET
4  *
5  * This file must be used under the terms of the CeCILL.
6  * This source file is licensed as described in the file COPYING, which
7  * you should have received as part of this distribution.  The terms
8  * are also available at
9  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
10  *
11  */
12
13 #include <windows.h> 
14 #include "machine.h"
15 /*--------------------------------------------------------------------------*/ 
16 #pragma comment(lib,"../../../../bin/libintl.lib")
17 #pragma comment(lib,"../../../../bin/blasplus.lib")
18 #pragma comment(lib,"../../../../bin/lapack.lib")
19 /*--------------------------------------------------------------------------*/ 
20 /* We force fortran COMMON definitions */
21
22 __declspec(dllexport) struct 
23 {
24     int io, info, ll;
25 } C2F(sortie);
26
27 __declspec(dllexport) struct 
28 {
29     int nall1;
30 } C2F(comall);
31
32 __declspec(dllexport) struct {
33     double t;
34 } C2F(temps);
35
36 __declspec(dllexport) struct {
37     double gnrm;
38 } C2F(no2f);
39
40 __declspec(dllexport) struct {
41     int info, i1;
42 } C2F(arl2c);
43 /*--------------------------------------------------------------------------*/ 
44 int WINAPI DllMain (HINSTANCE hInstance , DWORD reason, PVOID pvReserved)
45 {
46   switch (reason) 
47     {
48     case DLL_PROCESS_ATTACH:
49       break;
50     case DLL_PROCESS_DETACH:
51       break;
52     case DLL_THREAD_ATTACH:
53       break;
54     case DLL_THREAD_DETACH:
55       break;
56     }
57   return 1;
58 }
59 /*--------------------------------------------------------------------------*/ 
60