- Adapted indenation to new agreed upon system

- Added support for second generation scriptcontext based counter

d_mod.c

@@ -6,7 +6,8 @@ double drem();
 #else
 double floor();
 #endif
-double d_mod(x,y) doublereal *x, *y;
+double d_mod(x, y)
+doublereal *x, *y;
 #else
 #ifdef IEEE_drem
 double drem(double, double);
@@ -17,30 +18,29 @@ double drem(double, double);
 extern "C" {
 #endif
 #endif
-double d_mod(doublereal *x, doublereal *y)
+  double d_mod(doublereal * x, doublereal * y)
 #endif
-{
+  {
 #ifdef IEEE_drem
-	double xa, ya, z;
-	if ((ya = *y) < 0.)
-		ya = -ya;
-	z = drem(xa = *x, ya);
-	if (xa > 0) {
-		if (z < 0)
-			z += ya;
-		}
-	else if (z > 0)
-		z -= ya;
-	return z;
+    double xa, ya, z;
+    if ((ya = *y) < 0.)
+      ya = -ya;
+     z = drem(xa = *x, ya);
+    if (xa > 0) {
+      if (z < 0)
+        z += ya;
+    } else if (z > 0)
+       z -= ya;
+    return z;
 #else
-	double quotient;
-	if( (quotient = *x / *y) >= 0)
-		quotient = floor(quotient);
-	else
-		quotient = -floor(-quotient);
-	return(*x - (*y) * quotient );
+    double quotient;
+    if ((quotient = *x / *y) >= 0)
+      quotient = floor(quotient);
+    else
+       quotient = -floor(-quotient);
+     return (*x - (*y) * quotient);
 #endif
-}
+  }
 #ifdef __cplusplus
 }
 #endif