+/*
+ * The data in the following include file has been produced by the following
+ * Mathematica (V4.1) script:
+ *
+ *
+ * x={0.2,0.7 ,1,1.4,3.0 }
+ * y={0,0.3,-0.8,3.0}
+ * st = OpenAppend["exam_inifcns_nstdsums_data.raw"]
+ * Do[
+ * Do[
+ * Do[Write[st, i]; Write[st,j]; Write[st,x[[k]]+I*y[[l]]];
+ * Write[ st,N[PolyLog[i,j,x[[k]]+I*y[[l]]]]],{i,3},{j,3}], {k,5}],{l,4}]
+ * Do[
+ * Do[
+ * Do[Write[st, i]; Write[st,j]; Write[st,-x[[k]]+I*y[[l]]];
+ * Write[ st,N[PolyLog[i,j,-x[[k]]+I*y[[l]]]]],{i,3},{j,3}], {k,5}], {l,4}]
+ * Close[st]
+ *
+ *
+ * and postprocessed by the following shell script
+ *
+ *
+ * #/bin/sh
+ * IFS=$'\n'
+ * cat exam_inifcns_nstdsums_data.raw | sed -e 's/\*\^/E/g' > exam_inifcns_nstdsums_data.raw2
+ * echo 'const char *data[] = {' > exam_inifcns_nstdsums_data.raw3
+ * for i in `cat exam_inifcns_nstdsums_data.raw2`; do echo \"$i\",; done >> exam_inifcns_nstdsums_data.raw3
+ * echo '"-999"};' >> exam_inifcns_nstdsums.h
+ *
+ *
+ */
+#include "exam_inifcns_nstdsums.h"
+
+
+// adjust this if you want to process more S(n,p,x) data
+const int MAX_NDIM = 5;
+const int MAX_PDIM = 5;
+
+// signals end of data
+const int ENDMARK = -999;
+