/*************************************************************************/
/*************************************************************************/
/*************************************************************************/

void DEF_DEN_STAR(double x_star, double y_star, double z_star, double x_gas[][3], double m_gas[], double h_gas[], double *DEN_star)
{

//int    NB_STAR=0;
//int    sosed_tmp[N_GAS_MAX];

double Xij, Yij, Zij, Rij, tmp=0.0, tmp2;


/* DEF DEN dlja odnoj STAR chastici */

//NB_STAR = 0;
tmp = 0.0;
tmp2 = 0.0;

for(j=0;j<N_GAS;j++)	// GAS
  {

  tmp2 = SQR(x_star) + SQR(y_star);

  if( (ABS(z_star) < 1e-2) && (tmp2 < 0.2) )		// zamenity na h & (2*R0)^2 = 0.1936
    {

    Xij = x_star - x_gas[j][0];
    Yij = y_star - x_gas[j][1];
    Zij = z_star - x_gas[j][2];

    Rij = sqrt(Xij*Xij + Yij*Yij + Zij*Zij);

  if( Rij < (2.0*h_gas[j]) )
    {
//    sosed_tmp[NB_STAR] = j;
//    NB_STAR++;

    tmp = tmp + m_gas[j] * W(Rij,h_gas[j]);
    }
    }

//  sosed_tmp[j] = j;
  } /* j */

//printf("%06d \t %.8E \n",NB_STAR, tmp);


//  my_sort(0, N-1, d, sosed_tmp); 

//  tmp = my_select(0, N_GAS-1, NB-1, d, sosed_tmp); d[NB-1] = tmp;

/* SPH style */

/*
  tmp = 0.0;

  for(k=0;k<NB_STAR;k++) 
    {
    j = sosed_tmp[k];

    Rij = sqrt(d[k]);
    
    tmp = tmp + m[j] * W(Rij,h_gas[j]);
    } 
*/

  *DEN_star = tmp;

}

/*************************************************************************/
/*************************************************************************/
/*************************************************************************/