/*opacpl generate array of cross sections using a simple power law fit */
void opacpl(long int ilo, 
  long int ihi, 
  double cross, 
  double s, 
  long int *ip);