Searched refs:My_Total_SpinS (Results 1 – 1 of 1) sorted by relevance
30 double MulP[4],My_Total_SpinS; in Mulliken_Charge() local91 My_Total_SpinS = 0.0; in Mulliken_Charge()254 My_Total_SpinS += 0.5*(InitN_USpin[Gc_AN] - InitN_DSpin[Gc_AN]); in Mulliken_Charge()293 MPI_Allreduce(&My_Total_SpinS, &Total_SpinS, 1, MPI_DOUBLE, MPI_SUM, mpi_comm_level1); in Mulliken_Charge()