diff options
| author | Joseph Hunkeler <jhunkeler@gmail.com> | 2021-08-04 15:14:13 -0400 |
|---|---|---|
| committer | Joseph Hunkeler <jhunkeler@gmail.com> | 2021-08-04 15:14:13 -0400 |
| commit | c396a4bc7a3282de9d2191de0e1076fec9df0783 (patch) | |
| tree | 55789a842a6867b98bc9d533b3e997e1c925f79a | |
| parent | cad002c371dd712ae91de9544f0307ade9d63518 (diff) | |
| download | moog-c396a4bc7a3282de9d2191de0e1076fec9df0783.tar.gz | |
Fall through on non-argument
| -rwxr-xr-x | Begin.f | 10 |
1 files changed, 6 insertions, 4 deletions
@@ -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, |