add VLSR

teuben · Jul 27, 2024 · a393a1e · a393a1e
1 parent f96b6f3
commit a393a1e
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/src/image/fits/fitsccd.c b/src/image/fits/fitsccd.c
@@ -69,7 +69,7 @@ string defv[] = {
     "relcoords=f\n      Use relative (to crpix) coordinates instead abs",
     "axistype=1\n       Force axistype 0 (old, crpix==1) or 1 (new, crpix as is)",
     "altr=f\n           Switch to ALTR wcs",
-    "VERSION=5.5\n	6-sep-2023 PJT",
+    "VERSION=5.6\n	22-jul-2024 PJT",
     NULL,
 };
 
@@ -473,6 +473,13 @@ void make_fitheader(FITS *fitsfile, imageptr iptr, bool Qrel, bool Qout, bool Qa
       Dz(iptr) = cdelt3;
       Zmin(iptr) = altrval;
     }
+    if (fitexhd(fitsfile,"VLSR")) {
+      fitrdhdr(fitsfile,"VLSR",&tmpr,0.0);
+      dprintf(0,"VLSR %g\n",tmpr);
+      Vlsr(iptr) = tmpr;
+    }
+
+
 
     fitrdhdr(fitsfile,"DATAMIN",&tmpr,0.0); 
     MapMin(iptr) = *data_min = tmpr;