1      subroutine dimqm_tidy()
2      implicit none
3#include "dimqm.fh"
4#include "errquit.fh"
5#include "global.fh"
6      dimqm_seeded = .false.
7      xyz_seeded = .false.
8c     Destroy diagonal array
9      if(.not. ga_destroy(g_DIM_diag))
10     $ call errquit("destroy DIM diag failed", 1, GA_ERR)
11
12
13      end subroutine dimqm_tidy
14