1      Logical Function PStat_Terminate()
2C$Id$
3      Implicit NONE
4C
5#include "pstatP.fh"
6C
7C     Nothing to do here, really, but let us "unassign" all of the items
8C
9      integer i
10c
11      do i = 1, pstat_max_items
12         pstat_active(i) = .false.
13      enddo
14C
15      PStat_Terminate = .TRUE.
16      Return
17      End
18