void chrcaps_(a,b,na,nb)
char *a, *b;
int na, nb;
{
  char *i, *j;
  for (i = a, j = b; *i != 0; i++, j++) {
    *j = *i;
    if (*j >= 97 && *j <= 122) *j -= 32;
    }
  return;
}