From c396a4bc7a3282de9d2191de0e1076fec9df0783 Mon Sep 17 00:00:00 2001
From: Joseph Hunkeler <jhunkeler@gmail.com>
Date: Wed, 4 Aug 2021 15:14:13 -0400
Subject: Fall through on non-argument

---
 Begin.f | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'Begin.f')

diff --git a/Begin.f b/Begin.f
index b45c623..cd2e021 100755
--- a/Begin.f
+++ b/Begin.f
@@ -126,10 +126,12 @@ c  write a header and find the appropriate parameter file, and exit normally
         endif
       endif
 
-      inquire(FILE=fparam, EXIST=fexist)
-      if (.NOT. fexist) then
-        write(0,*) "Input file does not exist"
-        call exit(1)
+      if (fparam /= 'no_filename_given') then
+        inquire(FILE=fparam, EXIST=fexist)
+        if (.NOT. fexist) then
+          write(0,*) "Input file does not exist"
+          call exit(1)
+        endif
       endif
 
       call infile ('input  ',nfparam,'formatted  ',0,nchars,
-- 
cgit