Index: trunk/Ohana/src/opihi/cmd.astro/Makefile
===================================================================
--- trunk/Ohana/src/opihi/cmd.astro/Makefile	(revision 7917)
+++ trunk/Ohana/src/opihi/cmd.astro/Makefile	(revision 7964)
@@ -33,4 +33,5 @@
 $(SDIR)/gauss.$(ARCH).o		   \
 $(SDIR)/getvel.$(ARCH).o	   \
+$(SDIR)/getlst.$(ARCH).o	   \
 $(SDIR)/medianmap.$(ARCH).o	   \
 $(SDIR)/mkgauss.$(ARCH).o	   \
Index: trunk/Ohana/src/opihi/cmd.astro/getlst.c
===================================================================
--- trunk/Ohana/src/opihi/cmd.astro/getlst.c	(revision 7964)
+++ trunk/Ohana/src/opihi/cmd.astro/getlst.c	(revision 7964)
@@ -0,0 +1,41 @@
+# include "astro.h"
+
+int getlst (int argc, char **argv) {
+
+  int N;
+  time_t time;
+  double jd, lst, longitude;
+  char *Variable;
+
+  Variable = NULL;
+  if ((N = get_argument (argc, argv, "-var"))) {
+    remove_argument (N, &argc, argv);
+    Variable = strcreate (argv[N]);
+    remove_argument (N, &argc, argv);
+  }
+  if (argc != 3) goto syntax;
+
+  if (!str_to_time (argv[1], &time)) {
+      if (Variable != NULL) free (Variable);
+      return (FALSE);
+  }
+
+  longitude = atof (argv[2]);
+
+  jd = sec_to_jd (time);
+  fprintf (stderr, "jd: %f\n", jd);
+
+  lst = ohana_lst (jd, longitude);
+
+  if (Variable != NULL) {
+      set_variable (Variable, lst);
+      free (Variable);
+      return (TRUE);
+  }
+  gprint (GP_ERR, "lst: %f\n", lst);
+  return (TRUE);
+
+ syntax:
+  gprint (GP_ERR, "USAGE: getlst (time) (longitude) [-var name]\n");
+  return (FALSE);
+}
Index: trunk/Ohana/src/opihi/cmd.astro/init.c
===================================================================
--- trunk/Ohana/src/opihi/cmd.astro/init.c	(revision 7917)
+++ trunk/Ohana/src/opihi/cmd.astro/init.c	(revision 7964)
@@ -15,4 +15,5 @@
 int gaussfit		    PROTO((int, char **));
 int getvel		    PROTO((int, char **));
+int getlst		    PROTO((int, char **));
 int imfit		    PROTO((int, char **));
 int imsub		    PROTO((int, char **));
@@ -48,4 +49,5 @@
   {"gauss",   	  gauss,        "get statistics on a star, assuming gaussian profile"},
   {"getvel",      getvel,       "rotcurve to velocities"},
+  {"getlst",      getlst,       "return LST given time and longitude"},
   {"imfit",   	  imfit,        "fit function"},
   {"imsub",   	  imsub,        "subtract function"},