source: sasview/src/sas/sascalc/calculator/c_extensions/librefl.h @ f0ce6e2

magnetic_scattrelease-4.2.2ticket-1009ticket-1094-headlessticket-1242-2d-resolutionticket-1243ticket-1249ticket885unittest-saveload
Last change on this file since f0ce6e2 was 144e032a, checked in by Paul Kienzle <pkienzle@…>, 7 years ago

tinycc doesn't return structures, so must pass return structure as pointer

  • Property mode set to 100644
File size: 772 bytes
RevLine 
[9e531f2]1#if !defined(librefl_h)
2#define librefl_h
3
4typedef struct {
5        double re;
6        double im;
[144e032a]7} Cplx;
[9e531f2]8
9typedef struct {
[144e032a]10        Cplx a;
11        Cplx b;
12        Cplx c;
13        Cplx d;
[9e531f2]14} matrix;
15
[144e032a]16void cassign(Cplx*, double real, double imag);
[9e531f2]17
[144e032a]18void cplx_add(Cplx*, Cplx x,Cplx y);
[9e531f2]19
[144e032a]20void rcmult(Cplx*, double x,Cplx y);
[9e531f2]21
[144e032a]22void cplx_sub(Cplx*, Cplx x,Cplx y);
[9e531f2]23
[144e032a]24void cplx_mult(Cplx*, Cplx x,Cplx y);
[9e531f2]25
[144e032a]26void cplx_div(Cplx*, Cplx x,Cplx y);
[9e531f2]27
[144e032a]28void cplx_exp(Cplx*, Cplx b);
[9e531f2]29
[144e032a]30void cplx_sqrt(Cplx*, Cplx z);
[9e531f2]31
[144e032a]32void cplx_cos(Cplx*, Cplx b);
[9e531f2]33
34double intersldfunc(int fun_type, double n_sub, double i, double nu, double sld_l, double sld_r);
35double interfunc(int fun_type, double n_sub, double i, double sld_l, double sld_r);
36double linePq(int fun_type, double thick, double sld_in, double sld_out,double r, double q);
37#endif
Note: See TracBrowser for help on using the repository browser.