#include "plplot.h"

void plschr(def,scale)
double def,scale;
{
    double defalt, ht;

    if (def != 0.0)
       schr(def,(scale*def));
    else {
       gchr(&defalt,&ht);
       schr(defalt,(scale*defalt));
    }
}