aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2020-11-02 17:00:12 -0500
committerJeffrey Armstrong <jeff@approximatrix.com>2020-11-02 17:00:12 -0500
commitc87868567fa22c0c0caf3da018a7fb1d5b0c348d (patch)
tree6fbcf6ae74428628a146bc21578ca7a430f5eb1f
parent649cca9994cb2786d18d9941f27cb412c9984e8c (diff)
downloadGNC-c87868567fa22c0c0caf3da018a7fb1d5b0c348d.zip
GNC-c87868567fa22c0c0caf3da018a7fb1d5b0c348d.tar.gz
Clear cert paths before running. Added diagnostic argument output to log.
-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()