      subroutine tce_fock_driver(d_f1,l_f1_offset)
c
c $Id: tce_fock_destroy.F 19706 2010-10-29 17:52:31Z d3y133 $
c 
c Written by Jeff Hammond, January 2008.
c
      implicit none
#include "mafdecls.fh"
#include "tcgmsg.fh"
#include "global.fh"
#include "bas.fh"
c#include "geom.fh"
c#include "rtdb.fh"
c#include "sym.fh"
#include "util.fh"
#include "msgids.fh"
#include "stdio.fh"
#include "sf.fh"
#include "inp.fh"
#include "errquit.fh"
c#include "tce.fh"
c#include "tce_main.fh"
#include "tce_ints.fh"
      call deletefile(d_f1)
      if (.not.ma_pop_stack(l_f1_offset))
     1  call errquit("tce_fock_destroy: MA problem",l_f1_offset,MA_ERR)
      return
      end
