--- ./routines/default/mainsci.f.orig	Mon Jul 20 07:37:23 1998
+++ ./routines/default/mainsci.f	Mon Jul 20 07:37:23 1998
@@ -15,4 +15,5 @@
       nargs = iargc()
       call fgetarg(0,pname)
+      call nofpex()
       i = 0
  10   continue