Add EHYSTR

sintefmath · Jul 31, 2024 · 699dd28 · 699dd28
1 parent f81c3fe
commit 699dd28
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 1 deletion.
diff --git a/src/InputParser/InputParser.jl b/src/InputParser/InputParser.jl
@@ -47,7 +47,6 @@ module InputParser
         skip_kw!(:PIMTDIMS, 1, PARSER_MISSING_SUPPORT)
         skip_kw!(:FLUXNUM, 1, PARSER_MISSING_SUPPORT)
         skip_kw!(:OPTIONS, 1, PARSER_MISSING_SUPPORT)
-        skip_kw!(:EHYSTR, 1, PARSER_MISSING_SUPPORT)
         skip_kw!(:ZIPPY2, 1, PARSER_MISSING_SUPPORT)
         skip_kw!(:DRSDT, 1, PARSER_MISSING_SUPPORT)
         skip_kw!(:WPAVE, 1, PARSER_MISSING_SUPPORT)

diff --git a/src/InputParser/keywords/runspec.jl b/src/InputParser/keywords/runspec.jl
@@ -61,6 +61,18 @@ function parse_keyword!(data, outer_data, units, cfg, f, ::Val{:CART})
     data["CART"] = true
 end
 
+function parse_keyword!(data, outer_data, units, cfg, f, ::Val{:EHYSTR})
+    rec = read_record(f)
+    defaults = [0.1, 0, 1.0, 0.1, "BOTH", "RETR", "DRAIN", "DEFAULT", "NO", "NO", "NO", 0.0, 0]
+    h = parse_defaulted_line(rec, defaults)
+    @assert h[2] in -1:9
+    @assert h[5] in ("BOTH", "PC", "KR")
+    @assert h[6] in ("RETR", "NEW")
+    @assert h[7] in ("BOTH", "DRAIN")
+    parser_message(cfg, outer_data, "EHYSTR", PARSER_JUTULDARCY_PARTIAL_SUPPORT)
+    data["EHYSTR"] = h
+end
+
 function parse_keyword!(data, outer_data, units, cfg, f, ::Val{:RADIAL})
     parser_message(cfg, outer_data, "RADIAL", PARSER_JUTULDARCY_MISSING_SUPPORT)
     data["RADIAL"] = true