Create a template for easier program creation

2023-12-08 17:44:02 +13:00 · 2023-12-08 17:44:02 +13:00 · ea9ed0eead
commit ea9ed0eead
parent a786488bca
1 changed files with 18 additions and 0 deletions
--- a/2023/src/template.f90
+++ b/2023/src/template.f90
@ -0,0 +1,18 @@
+program day
+    implicit none
+    integer, parameter :: max_chars = 300
+    character(200) :: fname
+    character(max_chars) :: fline
+    integer :: n_arguments
+    n_arguments = command_argument_count()
+    integer :: istat
+
+    if (n_arguments .eq. 1) then
+        call get_command_argument(1, fname)
+        print *, "File: ", trim(fname)
+        print *
+    else
+        print *, "Wrong number of arguments: ", n_arguments
+        stop
+    end if
+end program day