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