From 263032f0f0dcc6418dd987c84b1aed7f414b4939 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Mon, 2 Nov 2020 17:48:22 -0500
Subject: Started checking command arguments at zero since inetd on Linux seems
 to be doing something weird to the command line.

---
 main.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'main.f90')

diff --git a/main.f90 b/main.f90
index c587345..d88601f 100644
--- a/main.f90
+++ b/main.f90
@@ -61,7 +61,7 @@ implicit none
         stop
     end if
     
-    i = 1
+    i = 0
     do while(i <= command_argument_count())
         call get_command_argument(i, arg)
         if(trim(arg) == "-pub") then
@@ -85,7 +85,7 @@ implicit none
     call write_log("Initiating program")
    
     ! Diagnostics
-    do i = 1,command_argument_count()
+    do i = 0,command_argument_count()
         call get_command_argument(i, arg)
         call write_log("Argument: "//trim(arg))
     end do
-- 
cgit v1.2.3