void calc_slope(double ***cx,double ***cy,double**** Cs)
{
     int g,cell,reg,polar,azimuth,ray,seg,*CellType=0;
     double *phi_eff;
     double ****lt_ang_flux_inci,****boundaryFlux,***ScalarFlux,****q_sour_new;
     for(cell=0;cell<NumCellsInCore;cell++){
        for(reg=0;reg<NumFSRsInCell[cell];reg++){
          for (azimuth = 0; azimuth < NumAzimuAng; azimuth++){
             for (g = 0; g < NumGroups; g++)
                 Cs[g][cell][reg][azimuth]=cx[cell][reg][g]*cos(phi_eff[azimuth])+cy[cell][reg][g]*sin(phi_eff[azimuth]);
          }
        }
     }
}
/*--------------------------------------------------------------------------------------------------------*/
void calc_fiss_lsour(double _k_eff,double ******ang_flux,double ****_fiss_Lsour, double ***cx,double ***cy,double ****Cs)
{
    int g,cell,reg,polar,azimuth,ray,seg;
    double q_fission=0.;
    double _XS_nf, _chi;
   
     for(cell=0;cell<NumCellsInCore;cell++){
         for(reg=0;reg<NumFSRsInCell[cell];reg++){
             for (azimuth = 0; azimuth < NumAzimuAng; azimuth++){
               for (g = 0; g < NumGroups; g++)
                    _XS_nf = GetXSs_tafnfchi_FSR(cell, reg, g, MacroXS_nf, Inp_XSs_nf);
                    q_fission+= _XS_nf*Cs[g][cell][reg][azimuth];
               for (g = 0; g < NumGroups; g++)
                    _chi = GetXSs_tafnfchi_FSR(cell, reg, g, Chi, Inp_Chi);
                    _fiss_Lsour[g][cell][reg][azimuth]=_chi/(_k_eff*4.0*M_PI)*q_fission;
                q_fission=0.;
            }
        }
    }
}
求助，怎么能将下一段代码中的Cs能调用上一个函数呢？？？？？