char i1add_(i,j)
int *i, *j;
{
  char k;
  k = *i + *j;
  return(k);
}

short i2add_(i,j)
int *i, *j;
{
  short k;
  k = *i - *j;
  return(k);
}

long i4add_(i,j)
int *i, *j;
{
  long k;
  k = *i * *j;
  return(k);
}

float r4add_(i,j)
int *i, *j;
{
  float r;
  r = (float)(*i) + (float)(*j);
  return(r);
}

double r8add_(i,j)
int *i, *j;
{
  double d;
  d = (double)(*i) / (double)(*j);
  return(d);
}