Index: nwdft/xc/xc_vdw_util.F
===================================================================
--- nwdft/xc/xc_vdw_util.F	(revision 27356)
+++ nwdft/xc/xc_vdw_util.F	(working copy)
@@ -523,6 +523,8 @@
 c dftb
 c          scalesr6 = 1.699d0
 c          scales8  = 1.504d0
+        else
+           call errquit(' vdw 3: scaling factors not available',0,0)
         endif
       else
         scales6 = 0.0d0