Make it possible to select method at runtime

MehdiChinoune · Oct 5, 2024 · 568214a · 568214a
1 parent 753dd9b
commit 568214a
Showing 1 changed file with 14 additions and 15 deletions.
diff --git a/src/main.F90 b/src/main.F90
@@ -20,25 +20,24 @@ program main
   !
   narg = command_argument_count()
   if(narg>0) then
-    !
     call get_command_argument(1, arg1 )
-    !
-    if(trim(arg1)=='dw') then
-      call fdcs_fba_dw(in_unit,out_unit)
-    elseif(trim(arg1)=='cw') then
-      call fdcs_fba_cw(in_unit,out_unit)
-    elseif(trim(arg1)=='pw') then
-      call fdcs_fba_pw(in_unit,out_unit)
-    elseif(trim(arg1)=='dwb') then
-      call fdcs_dwb(in_unit,out_unit)
-    elseif(trim(arg1)=='bbk') then
-      call fdcs_bbk(in_unit,out_unit)
-    end if
-    !
   else
-    call fdcs_fba_pw(in_unit,out_unit)
+    print*, "Which method do you want to use?"
+    read*, arg1
   endif
 
+  if(trim(arg1)=='dw') then
+    call fdcs_fba_dw(in_unit,out_unit)
+  elseif(trim(arg1)=='cw') then
+    call fdcs_fba_cw(in_unit,out_unit)
+  elseif(trim(arg1)=='pw') then
+    call fdcs_fba_pw(in_unit,out_unit)
+  elseif(trim(arg1)=='dwb') then
+    call fdcs_dwb(in_unit,out_unit)
+  elseif(trim(arg1)=='bbk') then
+    call fdcs_bbk(in_unit,out_unit)
+  end if
+
   call system_clock(finish)
 
   close(in_unit)