/* Fortran-callable function to turn a character to upper case */

#include <ctype.h>

void upcase(character,nch)
char *character;
int nch;
{
  char dummy;

  if (islower(*character)) {
    dummy = toupper(*character);
    *character = dummy;
  }
  return;
}