From ad7a9cf0b176ea2f8b84f5c17b49b85ebaa09878 Mon Sep 17 00:00:00 2001 From: edoapra Date: Fri, 24 Mar 2023 19:07:54 -0700 Subject: [PATCH] bail out when zora is not followed by on/off --- src/NWints/rel/zora_input.F | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/NWints/rel/zora_input.F b/src/NWints/rel/zora_input.F index 2ce2128cad..bb75ae3447 100644 --- a/src/NWints/rel/zora_input.F +++ b/src/NWints/rel/zora_input.F @@ -29,15 +29,16 @@ c Preliminaries do_zora = .false. c c Read input data beyond zora; store in rtdb. - 10 if (inp_a(test)) then + if (inp_a(test)) then if (inp_compare(.false.,'on',test)) then - do_zora = .true. + do_zora = .true. else if (inp_compare(.false.,'off',test)) then do_zora = .false. else call errquit('zora_input: unknown directive',0, UNKNOWN_ERR) endif - goto 10 + else + call errquit('specify ZORA ON or OFF',0, UNKNOWN_ERR) endif c c Put zora parameters in rtdb