- Many fixes to accomodate a nitty picky TRICS wishlist

- Added a log facility to scan which includes a variable which is logged but
  not driven during a scan.
- Fixed normal beam operation

fourlib.c

@@ -489,11 +489,12 @@ int z1mToNormalBeam(double lambda, MATRIX z1m, double *gamma, double *om, double
     phimat(dum,omdeg);
     znew = mat_mul(dum,z1m);
     if(znew[0][0] < 0) {
-	*om = *om -2.*atan2(-znew[0][0], -znew[2][0]);
+	*om = *om -2.*atan2(-znew[0][0], -znew[1][0]);
         omdeg = *om * RD; 
     }
     b = (sign(180.,omdeg)+ omdeg)/360.;
-    /* omdeg = omdeg - 360. * floor(b); */
+    b = sign(1,b)* floor(ABS(b));
+    omdeg = omdeg - 360. * b ;
     *nu = asin(lambda*z1m[2][0]);
     *gamma = acos(cos(2.*(theta/RD)))/cos(*nu);
     *om = omdeg;