1      Logical Function PStat_Free( Handle )
2C$Id$
3      Implicit NONE
4#include "errquit.fh"
5      Integer Handle
6C
7#include "pstatP.fh"
8C
9      logical status
10c
11      status = handle.gt.0 .and. handle.le.pstat_max_items
12      if (status) status = pstat_active(handle)
13      if (.not. status) then
14         write(0,*) pstat_name(handle)
15         call errquit
16     $     ('pstat_free: Timer not assigned', Handle, UNKNOWN_ERR)
17      endif
18c
19      pstat_active(handle) = .false.
20      pstat_start_flop(handle) = 0d0
21      pstat_flop(handle) = 0d0
22c
23      PStat_Free = .TRUE.
24c
25      End
26