1      subroutine argos_diana_final()
2c
3      implicit none
4c
5#include "argos_diana_common.fh"
6#include "argos_diana_params.fh"
7#include "global.fh"
8#include "mafdecls.fh"
9#include "msgids.fh"
10#include "util.fh"
11#include "rtdb.fh"
12c
13      logical lopen
14c
15      if(me.eq.0) close(unit=lfncmd,status='delete')
16c      if(me.eq.0) close(unit=lfncmd,status='keep')
17c
18      if(active) call argos_diana_edfinal()
19c
20      if(.not.ma_pop_stack(l_sbnd))
21     + call md_abort('Could not deallocate sbnd',0)
22      if(.not.ma_pop_stack(l_iequi))
23     + call md_abort('Could not deallocate iequi',0)
24      if(.not.ma_pop_stack(l_imol))
25     + call md_abort('Could not deallocate imol',0)
26      if(.not.ma_pop_stack(l_iram))
27     + call md_abort('Could not deallocate iram',0)
28c
29      call argos_diana_finish(byte_mb(i_snam),.true.)
30c
31      if(.not.ma_pop_stack(l_wrk))
32     + call md_abort('Could not deallocate iwrk',0)
33c
34      inquire(unit=lfnpca,opened=lopen)
35      if(lopen) close(lfnpca,status='keep')
36      inquire(unit=lfnord,opened=lopen)
37      if(lopen) close(lfnord,status='keep')
38      inquire(unit=lfndat,opened=lopen)
39      if(lopen) close(lfndat,status='keep')
40c
41      ignore=rtdb_parallel(.true.)
42c
43      return
44      end
45c $Id$
46