/*opacin add opacity due to single species to main opacity array*/
void opacin(long int ip, 
  long int k, 
  long int j, 
  float abundance,
  char chStat );