get_opt.c

Go to the documentation of this file.

#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <fcio.h>
/* get_opt.f77
 * subroutine to get a single character, lower case response from the
 * keyboard user.
 * rkh 8/91 */
 
void get_opt(long int *jch, byte *copt, long int *ier)
{
  long int ierr; 
  int copti;
  byte coptb;
  void case_l();
 
  ier = &ierr;
  ierr = 1;
  copt = &coptb;
 
  copti = getchar();
  tolower(copti);
  coptb = copti;
 
  return;
}