/* Plots vertical error bars (x,ymin(i)) to (x(i),ymax(i)) */

#include "plplot.h"

void plerry(n,x,ymin,ymax)
PLINT n;
PLFLT *x, *ymin, *ymax;
{
      PLINT level;
      short i;

      glev(&level);
      if (level < 3) plexit("Please set up window before calling plerry.");
      for(i=0; i<n; i++)
        plery1(x[i],ymin[i],ymax[i]);
}