- Many fixes to the triple axis stuff

* update after a1-a6 drive
  * intrduction of targets
- POLDI writing
- Moved HKL calculation 4 TRICS to fourlib

t_update.c

@@ -4,7 +4,6 @@
 */
 
 #include "f2c.h"
-#include <math.h>
 
 /* Subroutine */ int t_update__(real *p_a__, real *p_ih__, real *c_ih__, 
 	logical *lpa, real *dm, real *da, integer *isa, real *helm, real *f1h,
@@ -116,7 +115,7 @@
 /* ----------------------------------------------------------------------- */
 
     ieri = 0;
-    ieru = 1;
+    ieru = 9;
     ex_up__(&ddm, &dei, &daki, &da2, &df, &ieri);
     if (ieri == 0) {
 	*ei = dei;
@@ -125,9 +124,10 @@
     } else {
 	imod = 3;
 	erreso_(&imod, &ieri);
+	ieru = ieri + 8;
     }
     ieri = 0;
-    ieru = 1;
+    ieru = 9;
     ex_up__(&dda, &def, &dakf, &da6, &df, &ieri);
     if (ieri == 0) {
 	*ef = def;
@@ -143,6 +143,7 @@
 	} else {
 	    imod = 3;
 	    erreso_(&imod, &ieri);
+	    ieru = ieri + 8;
 	}
     }
     if (*isa == 0) {
@@ -156,7 +157,7 @@
 	*en = dei - def;
     }
     ieri = 0;
-    ieru = 1;
+    ieru = 5;
     sam_up__(dbqhkl, &dqm, &dqs, &dphi, &daki, &dakf, &da3, &da4, &ieri);
     if (ieri == 0) {
 	for (id = 1; id <= 3; ++id) {
@@ -168,6 +169,7 @@
     } else {
 	imod = 2;
 	erreso_(&imod, &ieri);
+	ieru = ieri + 4;
     }
 
     ieri = 0;
@@ -222,6 +224,9 @@
 /* ----------------------------------------------------------------------- */
 /* Error - IER=1 if DX OR AX TOO SMALL */
 /* ----------------------------------------------------------------------- */
+/* !!!!!!!!!! This has to be fixed manually after conversion by f2c. */
+/* !!!!!!!!!! The reason is a different definition of the abs function. */
+/* !!!!!!!!!! MK, May 2001 */
     arg = *dx * sin(*ax2 / 114.59155902616465);
     if(arg < .0)
       arg = -arg;