int pinti(char *a1, int k1, int k2, int k3)
{
  
  if ((k1 >= k2) && (k1 <= k3)) 
     return 0;
  else
  {
     printf("*** %s %4d not in range %4d to %4d \n",a1,k1,k2,k3);
     return 1;
  }
}

int pintr(char *a1, double r1, double r2, double r3)
{
  
  if ((r1 >= r2) && (r1 <= r3)) 
     return 0;
  else
  {
     printf("*** %s %12.5e not in range %12.5e to %12.5e \n",a1,r1,r2,r3);
     return 1;
  }
}