Changeset 5833 for branches/eam_rel9_b0/psModules/src/objects/models/pmModel_PGAUSS.c

Timestamp:

Dec 22, 2005, 4:26:41 PM (21 years ago)

Author:

magnier

Message:

added dPAR to reduce indirections

File:

• branches/eam_rel9_b0/psModules/src/objects/models/pmModel_PGAUSS.c (modified) (1 diff)

branches/eam_rel9_b0/psModules/src/objects/models/pmModel_PGAUSS.c

@@ -26 +26 @@
 
     if (deriv != NULL) {
-        // note difference from a pure gaussian: q = PAR[1]*r
+        psF32 *dPAR = deriv->data.F32;
         psF32 q = PAR[1]*r*r*t;
-        deriv->data.F32[0] = +1.0;
-        deriv->data.F32[1] = +r;
-        deriv->data.F32[2] = q*(2.0*px*PAR[4] + PAR[6]*Y);
-        deriv->data.F32[3] = q*(2.0*py*PAR[5] + PAR[6]*X);
-        deriv->data.F32[4] = -2.0*q*px*X;
-        deriv->data.F32[5] = -2.0*q*py*Y;
-        deriv->data.F32[6] = -q*X*Y;
+        dPAR[0] = +1.0;
+        dPAR[1] = +r;
+        dPAR[2] = q*(2.0*px*PAR[4] + PAR[6]*Y);
+        dPAR[3] = q*(2.0*py*PAR[5] + PAR[6]*X);
+        dPAR[4] = -2.0*q*px*X;
+        dPAR[5] = -2.0*q*py*Y;
+        dPAR[6] = -q*X*Y;
     }
     return(f);