diff --git a/lib/pctile.f90 b/lib/pctile.f90
index c0a6cdb72..f30b27ff0 100644
--- a/lib/pctile.f90
+++ b/lib/pctile.f90
@@ -12,6 +12,6 @@ subroutine pctile(x,npts,npct,xpct)
   if(j.gt.npts) j=npts
   xpct=tmp(j)
 
-900 continue
+  continue
   return
 end subroutine pctile