Lines Matching refs:ndn
439 real*8 ndn,agrdn,taudn local
565 ndn = rho_in(i,2) + ETA
572 ndn = 4.0d0*ndn
576 n = nup + ndn
688 inv_ndn = 1.0d0/ndn
689 ndn_13 = ndn**thrd
690 ndn_43 = ndn_13*ndn
692 ndn_83 = ndn_53*ndn
717 dt_dn = fvthrd*t/ndn
772 n_onethird = (3.0d0*ndn/pi)**thrd
775 kf = (3.0d0*pi*pi*ndn)**thrd
776 ss = agrdn/(2.0d0*kf*ndn)
787 fndnx = fndnx + pbefnx*fw + ndn*pbex*dfw_dn
789 fdtaudnx = fdtaudnx + ndn*pbex*dfw_dtau
791 ex = (eupx*nup + ednx*ndn)/n
868 rs = (0.75d0/(pi*ndn))**thrd
869 drs_dn = -thrd*rs/ndn
933 fndnc = ednc + ndn*dedd0c_drs*drs_dn*ghss*D
934 & + ndn*edd0c*dgh_dn*D
935 & + ndn*edd0c*ghss*dD_dn
936 fdndnc = ndn*edd0c*(dgh_dagr*D + ghss*dD_dagr)
937 fdtaudnc = ndn*edd0c*(dgh_dtau*D + ghss*dD_dtau)
939 ec = (eupc*nup + ednc*ndn)/n
944 zeta = (nup - ndn)/n
949 eud1c = eud0c - (euu0c*nup + edd0c*ndn)/n
956 & - ndn*dedd0c_dndn