diff options
Diffstat (limited to 'main.f90')
-rw-r--r-- | main.f90 | 11 |
1 files changed, 9 insertions, 2 deletions
@@ -53,15 +53,16 @@ implicit none logfile = "/tmp/gnc.log" rootdir = " " + cert_public = " " + cert_private = " " if(command_argument_count() < 4) then call usage() - close(logunit) stop end if i = 1 - do while(i < command_argument_count()) + do while(i <= command_argument_count()) call get_command_argument(i, arg) if(trim(arg) == "-pub") then i = i + 1 @@ -83,6 +84,12 @@ implicit none call write_log("Initiating program") + ! Diagnostics + do i = 1,command_argument_count() + call get_command_argument(i, arg) + call write_log("Argument: "//trim(arg)) + end do + call random_seed() call library_init() |