#/bin/tcsh
mv ufnminrwgzfirstlog~ ufnminrwgzfirstlog~~
mv ufnminrwgzfirstlog ufnminrwgzfirstlog~
mv ufnminrwgzsecondlog~ ufnminrwgzsecondlog~~
mv ufnminrwgzsecondlog ufnminrwgzsecondlog~
/home/matte/joeb/GB/Devbm/V1.001/bin/Linux_elf/bergman <<%FEOI >ufnminrwgzfirstlog &

(off gc)
(clearring)
(setweights 1 1 1 1)
(df minr (FILES) %      (InRinfFile InModFile PBSOutFile)
 (prog (tmp leng LL MODLIST NEWMODLIST VARSETUP RES !*redefmsg !*usermode)

     (noncommify)

 %    (SETREDUCTIVITY OFF) Commented,Does not work with weights
       (cond ((not !*hsISlOADED)
	   (eval (list 'load hseriesfile!*))
	   (on hsISlOADED)))
     (setsafelowtermshandling)



  (setq leng (length FILES))
    (cond ( (eq leng 0)  (sYZsCRiNPUT1)

                         (setq pbsoUTfILE nil ))
          ( (eq leng 1)  (sYZsCRiNPUT1) (cHECKoUTPUTpbs FILES))


          ( (eq leng 2)  (cHECKiNPUTpbs FILES) (setq pbsoUTfILE nil ))
          ( (eq leng 3)  (cHECKoUTPUTpbs FILES) (cHECKiNPUTpbs FILES))
    )

   (sYZsTEP1)
   (cond ( sCiNPUT (sYZsCRiNPUT2))
         ( t (dskin iNmODfILE)))

   (setq MODLIST (sYZsTEP2))
    (COND (PBSOutFile (DOP PBSOutFile)  )
          (T  (DEGREEOUTPREPARE))
    )
    (cond (pbsoUTfILE
           (setq oUTmODfILE (open pbsoUTfILE 'output))   )
          (t (setq oUTmODfILE nil)   )
    )

   (setalgoutmode alg)
   (setq pbs nil)
   (addvarstopbs 1 nmodgen)
   (setq curhomdeg 1)
   (addtopbs MODLIST)

   (setq MODLIST (pbsoneletterfilter
		  (puresyzygies  (list (getsetup variablesetup))  MODLIST)))
   (setq curhomdeg 2)
 l
%(SETQ ll (LENGTH modlist))
%(PRIN2T "starting GBMODULE2GEN ")
    (setq MODLIST (gbmodule2gen  (list(getsetup variablesetup)) MODLIST))
%(PRIN2T "length modlist beforeGBMODULE2GEN ") (PRIN2T ll)
%(PRIN2T "length modlist efter GBMODULE2GEN ")(PRIN2T (LENGTH modlist))

     (addtopbs MODLIST)
     (terpri)
     (prin2 "Current homological degree=") (prin2 curhomdeg)
(terpri)
(prin2 "Current Poincare-Betti series is ")
(printpbs)

   (setq VARSETUP  (list (getsetup variablesetup) ))
   (setq IND2START (add1 (getvarno)))


(clearring)
  (setq RES ( puresyzygies  VARSETUP  MODLIST))

  (cond (RES (setq MODLIST RES) (setq curhomdeg (add1 curhomdeg)) (go l)))
(terpri)
(dOUBLEpRINT "Calculated Poincare-Betti series is ")
(printpbsdOUBLE)
))
(minr)
12
1
vars  z,x,y,a;x*y,y*x-z*z;
a*x,a*y,a*z;
(interpbacktrace)
(quit)
%FEOI

/home/matte/joeb/GB/Devbm/V1.001/bin/Linux_elf/bergman <<%SEOI >ufnminrwgzsecondlog &
(off gc)
(clearring)
(setweights 1 1 1 1)
(df minr (FILES) %      (InRinfFile InModFile PBSOutFile)
 (prog (tmp leng LL MODLIST NEWMODLIST VARSETUP RES !*redefmsg !*usermode)

     (noncommify)

 %    (SETREDUCTIVITY OFF) Commented,Does not work with weights
       (cond ((not !*hsISlOADED)
	   (eval (list 'load hseriesfile!*))
	   (on hsISlOADED)))
     (setsafelowtermshandling)



  (setq leng (length FILES))
    (cond ( (eq leng 0)  (sYZsCRiNPUT1)

                         (setq pbsoUTfILE nil ))
          ( (eq leng 1)  (sYZsCRiNPUT1) (cHECKoUTPUTpbs FILES))


          ( (eq leng 2)  (cHECKiNPUTpbs FILES) (setq pbsoUTfILE nil ))
          ( (eq leng 3)  (cHECKoUTPUTpbs FILES) (cHECKiNPUTpbs FILES))
    )

   (sYZsTEP1)
   (cond ( sCiNPUT (sYZsCRiNPUT2))
         ( t (dskin iNmODfILE)))

   (setq MODLIST (sYZsTEP2))
    (COND (PBSOutFile (DOP PBSOutFile)  )
          (T  (DEGREEOUTPREPARE))
    )
    (cond (pbsoUTfILE
           (setq oUTmODfILE (open pbsoUTfILE 'output))   )
          (t (setq oUTmODfILE nil)   )
    )

   (setalgoutmode alg)
   (setq pbs nil)
   (addvarstopbs 1 nmodgen)
   (setq curhomdeg 1)
   (addtopbs MODLIST)

   (setq MODLIST (pbsoneletterfilter
		  (puresyzygies  (list (getsetup variablesetup))  MODLIST)))
   (setq curhomdeg 2)
 l
%(SETQ ll (LENGTH modlist))
%(PRIN2T "starting GBMODULE2GEN ")
    (setq MODLIST (gbmodule2gen  (list(getsetup variablesetup)) MODLIST))
%(PRIN2T "length modlist beforeGBMODULE2GEN ") (PRIN2T ll)
%(PRIN2T "length modlist efter GBMODULE2GEN ")(PRIN2T (LENGTH modlist))

     (addtopbs MODLIST)
     (terpri)
     (prin2 "Current homological degree=") (prin2 curhomdeg)
(terpri)
(prin2 "Current Poincare-Betti series is ")
(printpbs)

   (setq VARSETUP  (list (getsetup variablesetup) ))
   (setq IND2START (add1 (getvarno)))


(clearring)
  (setq RES ( puresyzygies  VARSETUP  MODLIST))

  (cond (RES (setq MODLIST RES) (setq curhomdeg (add1 curhomdeg)) (go l)))
(terpri)
(dOUBLEpRINT "Calculated Poincare-Betti series is ")
(printpbsdOUBLE)
))
(minr)
12
1
vars  x,y,z,a;x*y,y*x-z*z;
a*x,a*y,a*z;
(interpbacktrace)
(quit)
%SEOI
