Started checking command arguments at zero since inetd on Linux seems to be doing something weird to the command line.HEADmaster

1 files changed, 2 insertions, 2 deletions

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