/* Plots horizontal error bars (xmin(i),y(i)) to (xmax(i),y(i)) */

#include "plplot.h"

void plerrx(n,xmin,xmax,y)
PLINT n;
PLFLT *xmin, *xmax, *y;
{
      PLINT level;
      short i;

      glev(&level);
      if (level < 3) plexit("Please set up window before calling plerrx.");
      for (i=0;i<n;i++)
        plerx1(xmin[i],xmax[i],y[i]);
}