Changeset 08648c0 in sasview for sansmodels/src/c_models/libfunc.c
- Timestamp:
- Feb 8, 2012 3:08:49 PM (13 years ago)
- Branches:
- master, ESS_GUI, ESS_GUI_Docs, ESS_GUI_batch_fitting, ESS_GUI_bumps_abstraction, ESS_GUI_iss1116, ESS_GUI_iss879, ESS_GUI_iss959, ESS_GUI_opencl, ESS_GUI_ordering, ESS_GUI_sync_sascalc, costrafo411, magnetic_scatt, release-4.1.1, release-4.1.2, release-4.2.2, release_4.0.1, ticket-1009, ticket-1094-headless, ticket-1242-2d-resolution, ticket-1243, ticket-1249, ticket885, unittest-saveload
- Children:
- 1b023334
- Parents:
- 9cd0baa
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
sansmodels/src/c_models/libfunc.c
r101065a r08648c0 63 63 return sin(x)/x; 64 64 } 65 66 double gamln(double xx) { 67 68 double x,y,tmp,ser; 69 static double cof[6]={76.18009172947146,-86.50532032941677, 70 24.01409824083091,-1.231739572450155, 71 0.1208650973866179e-2,-0.5395239384953e-5}; 72 int j; 73 74 y=x=xx; 75 tmp=x+5.5; 76 tmp -= (x+0.5)*log(tmp); 77 ser=1.000000000190015; 78 for (j=0;j<=5;j++) ser += cof[j]/++y; 79 return -tmp+log(2.5066282746310005*ser/x); 80 }
Note: See TracChangeset
for help on using the changeset viewer.