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