clrscn.c

Go to the documentation of this file.

#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <string.h>
#include <fcio.h>
/* clrscn.f77
 * subroutine to (1) clear screen
 *               (2) form feed printer
 * rkh 8/91 */
 
void clrscn(jch)
long int *jch;
{
 
static char ceq[6];
static char cff;
 
  cff='\f';
  strcpy(ceq,"clear");
 
  if(*jch == 1 || *jch == 6)
    system(ceq);
  else
    writef(*jch,"(a)","%c \n",cff);
 
  return
}