#include <string.h>
void chrcopy_(a,b,na,nb)
char *a, *b;
int na, nb;
{
  int nmin;
  nmin = na > nb ? nb : na;
  strncpy(b,a,nmin);
  return;
}