require values of zpsp for load as core

aoterodelaroza · Feb 16, 2024 · 6bf142f · 6bf142f
1 parent fc7fd8e
commit 6bf142f
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/[email protected] b/src/[email protected]
@@ -482,6 +482,10 @@ module subroutine field_new(f,seed,c,id,sptr,errmsg,ti)
           end if
        else
           call f%set_options(seed%elseopt,errmsg) ! I need the zpsp now
+          if (all(f%zpsp < 0)) then
+             errmsg = "need zpsp values for load as core"
+             return
+          end if
           call c%promolecular_grid(f%grid,seed%n,zpsp=f%zpsp)
           f%name = "<generated>, core grid"
        end if