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