aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2020-11-02 17:48:22 -0500
committerJeffrey Armstrong <jeff@approximatrix.com>2020-11-02 17:48:22 -0500
commit263032f0f0dcc6418dd987c84b1aed7f414b4939 (patch)
treec9ceed5516d23e944069154439f017424cc4d017
parentc87868567fa22c0c0caf3da018a7fb1d5b0c348d (diff)
downloadGNC-master.zip
GNC-master.tar.gz
Started checking command arguments at zero since inetd on Linux seems to be doing something weird to the command line.HEADmaster
-rw-r--r--main.f904
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