source: sans/XOP_Dev/MonteCarlo/MonteCarlo.r @ 791

Last change on this file since 791 was 791, checked in by srkline, 12 years ago

making the maxDistance function thread safe
File size: 4.5 KB
Line 
1#include "XOPStandardHeaders.r"
2
3resource 'vers' (1) {                                           /* XOP version info */
4        0x01, 0x00, final, 0x00, 0,                             /* version bytes and country integer */
5        "1.00",
6        "1.00, © 1993 WaveMetrics, Inc., all rights reserved."
7};
8
9resource 'vers' (2) {                                           /* Igor version info */
10        0x05, 0x00, release, 0x00, 0,                   /* version bytes and country integer */
11        "5.00",
12        "(for Igor 5.00 or later)"
13};
14
15resource 'STR#' (1100) {                                        /* custom error messages */
16        {
17                /* [1] */
18                "SANSMonteCarlo requires Igor Pro 6.1 or later.",
19                /* [2] */
20                "Wave does not exist.",
21                /* [3] */
22                "This function requires a 3D wave.",
23        }
24};
25
26/* no menu item */
27
28resource 'XOPI' (1100) {
29        XOP_VERSION,                                                    // XOP protocol version.
30        DEV_SYS_CODE,                                                   // Development system information.
31        0,                                                                              // Obsolete - set to zero.
32        0,                                                                              // Obsolete - set to zero.
33        XOP_TOOLKIT_VERSION,                                    // XOP Toolkit version.
34};
35
36resource 'XOPF' (1100) {
37        {
38                "Monte_SANSX",          /* function name */
39                F_UTIL | F_THREADSAFE | F_EXTERNAL,                                     /* function category == UTILITY */
40                NT_FP64,                                                        /* return value type */                 
41                {
42                        NT_FP64 + WAVE_TYPE,
43                        NT_FP64 + WAVE_TYPE,
44                        NT_FP64 + WAVE_TYPE,
45                        NT_FP64 + WAVE_TYPE,
46                        NT_FP64 + WAVE_TYPE,
47                        NT_FP64 + WAVE_TYPE,
48                        NT_FP64 + WAVE_TYPE,
49                        NT_FP64 + WAVE_TYPE,
50                },
51               
52                "Monte_SANSX2",         /* function name */
53                F_UTIL | F_THREADSAFE | F_EXTERNAL,                                     /* function category == UTILITY */
54                NT_FP64,                                                        /* return value type */                 
55                {
56                        NT_FP64 + WAVE_TYPE,
57                        NT_FP64 + WAVE_TYPE,
58                        NT_FP64 + WAVE_TYPE,
59                        NT_FP64 + WAVE_TYPE,
60                        NT_FP64 + WAVE_TYPE,
61                        NT_FP64 + WAVE_TYPE,
62                        NT_FP64 + WAVE_TYPE,
63                        NT_FP64 + WAVE_TYPE,
64                },
65               
66                "DebyeSpheresX",                                                /* function name */
67                F_UTIL | F_THREADSAFE | F_EXTERNAL,                             /* function category == Utility */
68                NT_FP64,                                                        /* return value type */ 
69                {
70                                                NT_FP64,                        /* single precision wave (q-wave) */
71                        NT_FP64 + WAVE_TYPE,                            /* single precision wave (x coordinates) */
72                        NT_FP64 + WAVE_TYPE,                            /* single precision wave (y coordinates) */
73                        NT_FP64 + WAVE_TYPE,                            /* single precision wave (z coordinates) */
74                        NT_FP64 + WAVE_TYPE,                            /* single precision wave (rho at xyz) */
75                        NT_FP64,                                // Rprimary, the primary sphere radius
76                        NT_FP64,                                // grid, should be passed as 0.62*Rprimary
77                },
78               
79                "Monte_SANSX3",         /* function name */
80                F_UTIL | F_THREADSAFE | F_EXTERNAL,                                     /* function category == UTILITY */
81                NT_FP64,                                                        /* return value type */                 
82                {
83                        NT_FP64 + WAVE_TYPE,
84                        NT_FP64 + WAVE_TYPE,
85                        NT_FP64 + WAVE_TYPE,
86                        NT_FP64 + WAVE_TYPE,
87                        NT_FP64 + WAVE_TYPE,
88                        NT_FP64 + WAVE_TYPE,
89                        NT_FP64 + WAVE_TYPE,
90                        NT_FP64 + WAVE_TYPE,
91                },
92               
93                "Monte_SANSX4",         /* function name */
94                F_UTIL | F_THREADSAFE | F_EXTERNAL,                                     /* function category == UTILITY */
95                NT_FP64,                                                        /* return value type */                 
96                {
97                        NT_FP64 + WAVE_TYPE,
98                        NT_FP64 + WAVE_TYPE,
99                        NT_FP64 + WAVE_TYPE,
100                        NT_FP64 + WAVE_TYPE,
101                        NT_FP64 + WAVE_TYPE,
102                        NT_FP64 + WAVE_TYPE,
103                        NT_FP64 + WAVE_TYPE,
104                        NT_FP64 + WAVE_TYPE,
105                },
106               
107                "maxDistanceX",         /* function name */
108                F_UTIL | F_THREADSAFE | F_EXTERNAL,                                     /* function category == UTILITY */
109                NT_FP64,                                                        /* return value type */                 
110                {
111                        NT_FP64 + WAVE_TYPE,
112                        NT_FP64 + WAVE_TYPE,
113                        NT_FP64 + WAVE_TYPE,
114                },
115               
116                "binDistanceX",         /* function name */
117                F_UTIL | F_THREADSAFE | F_EXTERNAL,                                     /* function category == UTILITY */
118                NT_FP64,                                                        /* return value type */                 
119                {
120                        NT_FP64 + WAVE_TYPE,                    // XYZ waves
121                        NT_FP64 + WAVE_TYPE,
122                        NT_FP64 + WAVE_TYPE,
123                        NT_FP64 + WAVE_TYPE,                    // distance Bin wave (this is returned)
124                        NT_FP64,                                                // grid
125                        NT_FP64,                                                // bin width
126                        NT_FP64,                                                // start index
127                        NT_FP64,                                                // stop index
128                },
129               
130                "SobolX",               /* function name */
131                F_UTIL | F_EXTERNAL,                                    /* function category == UTILITY */
132                NT_FP64,                                                        /* return value type */                 
133                {
134                        NT_FP64,                                                // requested dimension (this is really an integer)
135                        NT_FP64 + WAVE_TYPE,                    // result wave
136                },
137               
138                "binSLDDistanceX",              /* function name */
139                F_UTIL | F_THREADSAFE | F_EXTERNAL,                                     /* function category == UTILITY */
140                NT_FP64,                                                        /* return value type */                 
141                {
142                        NT_FP64 + WAVE_TYPE,                    // XYZ waves
143                        NT_FP64 + WAVE_TYPE,
144                        NT_FP64 + WAVE_TYPE,
145                        NT_FP64 + WAVE_TYPE,                    // rho wave
146                        NT_FP64 + WAVE_TYPE,                    // distance Bin wave, 2D (this is returned)
147                        NT_FP64 + WAVE_TYPE,                    // SLD lookup
148                        NT_FP64 + WAVE_TYPE,                    // PSF id matrix
149                        NT_FP64,                                                // grid
150                        NT_FP64,                                                // bin width
151                        NT_FP64,                                                // start index
152                        NT_FP64,                                                // stop index
153                },
154               
155        }
156};
Note: See TracBrowser for help on using the repository browser.