From 633ac443c29c2ec69395465f0332b1e6e06835ca Mon Sep 17 00:00:00 2001
From: Jason Swails <jason.swails@gmail.com>
Date: Wed, 8 Jul 2015 08:55:44 -0400
Subject: [PATCH] Add back the help flag.

---
 sqm/sqm.F90 | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/sqm/sqm.F90 b/sqm/sqm.F90
index 8a3cbf0..2af690c 100644
--- a/sqm/sqm.F90
+++ b/sqm/sqm.F90
@@ -86,6 +86,13 @@ program sqm
          call getarg(iarg,mdout)
       else if (arg == '-O') then
          owrite = 'R'   ! output status: Replace
+      else if (arg == '-h') then
+         write(6,'(a)') 'sqm [-O] -i <input> -o <output>'
+         write(6,'(a)') '   -O           Overwrite output file if it exists'
+         write(6,'(a)') '   -i <input>   Input file'
+         write(6,'(a)') '   -o <output>  Output file'
+         write(6,'(a)') '   -h           Show this message'
+         call mexit(6, 0)
       else if (arg == ' ') then
          continue
       else