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