Added group option and shift command

2020-01-27 10:01:22 -05:00 · 2020-01-27 10:01:22 -05:00 · 347b73054b
commit 347b73054b
parent f80045058f
5 changed files with 232 additions and 8 deletions
--- a/src/io.f90
+++ b/src/io.f90
@ -399,6 +399,8 @@ module io
        select case(max_ng_node)
        case(8)
            interp_max = (max_esize)**3
+        case default
+            interp_max = 0
        end select
        write(11,20) interp_max
        write(11,3) node_num