/* Ends a plotting session */

#include <stdio.h>
#include <stdlib.h>
#include "plplot.h"
#include "declare.h"

void plend()
{
      int dev, term, gra, level;
      
      glev(&level);
      if (level == 0) return;
      gdev(&dev,&term,&gra);
      if( heap3 != NULL) free((void *)heap3);
      if( heapc != NULL) free((void *)heapc);
      if (gra != 0) pltext();
      grtidy();
      slev(0);
}