Make -fix work properly!

src/warp.c

@@ -327,9 +327,10 @@ static void setup_coords( struct stuff *st, struct warpstuff *ws ) {
 	    break;
 	case 3:
 	    if(getT2d( fixed2d, st, ws, ws->fixed_coordsys )) {
-		dvmmul( fixedpdisk, ws->fixedp, ws->o2d );
+		dvmmul( fixedpdisk, ws->fixedp, fixed2d );
+		ws->fixedrdisk = dvlength(fixedpdisk);
 	    } else {
-		memcpy( fixedpdisk, ws->fixedp, 3*sizeof(double) );
+		ws->fixedrdisk = dvlength(ws->fixedp);
 	    }
 	    break;
 	}
@@ -404,7 +405,8 @@ int warp_parse_args( struct dyndata *dd, struct stuff *st, int argc, char **argv
     msg("No warp enabled");
     return 1;
   }
-  msg("warp tfrac %g at time %g", ws->tfrac, ws->realtime);
+  msg("warp tfrac %g at time %g  fixp %g %g %g rfixd %g fixsys %d rcored %g", ws->tfrac, ws->realtime,
+	  ws->fixedp[0],ws->fixedp[1],ws->fixedp[2], ws->fixedrdisk, ws->fixed_coordsys, ws->rcoredisk);
   return 1;
 }