aboutsummaryrefslogtreecommitdiff
path: root/main.f90
diff options
context:
space:
mode:
Diffstat (limited to 'main.f90')
-rw-r--r--main.f9011
1 files changed, 9 insertions, 2 deletions
diff --git a/main.f90 b/main.f90
index 0a21e5a..c587345 100644
--- a/main.f90
+++ b/main.f90
@@ -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()