diff --git a/genplotting.f90 b/genplotting.f90
index ec4b809..641e95e 100644
--- a/genplotting.f90
+++ b/genplotting.f90
@@ -20,6 +20,11 @@ subroutine genp_init (foo, fname)
   integer, intent(in)             :: foo
   character (len=*), intent(in)   :: fname
 
+  if (FOO .NE. 0)   THEN
+    WRITE(0, '("FOO .NE. 0")')
+    CALL EXIT(1) 
+  END IF
+
   outunit = 6          ! stdout
   if (len(fname) .gt. 0) then
     write (0, '("genplot init opening : ", A)') fname