Home
last modified time | relevance | path

Searched refs:rhol (Results 1 – 25 of 131) sorted by relevance

123456

/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwxc/
H A Dnwxc_c_opt.F105 type(nwad_dble)::rhol(maxp,2)
135 rhol(ii+1,R_T) = rho(iq+ii,R_T)
171 rhol(ii+1,R_A) = 0.5d0*rhol(ii+1,R_T)
172 rhol(ii+1,R_B) = 0.0d0
218 rhol(ii+1,R_A) = 0.0d0
219 rhol(ii+1,R_B) = 0.0d0
225 rhol(ii+1,R_A) = rho(iq+ii,R_A)
273 rhol(ii+1,R_A) = 0.0d0
274 rhol(ii+1,R_B) = 0.0d0
313 rhol(ii+1,R_A) = 0.0d0
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwxc/
H A Dnwxc_c_opt.F105 type(nwad_dble)::rhol(maxp,2)
135 rhol(ii+1,R_T) = rho(iq+ii,R_T)
171 rhol(ii+1,R_A) = 0.5d0*rhol(ii+1,R_T)
172 rhol(ii+1,R_B) = 0.0d0
218 rhol(ii+1,R_A) = 0.0d0
219 rhol(ii+1,R_B) = 0.0d0
225 rhol(ii+1,R_A) = rho(iq+ii,R_A)
273 rhol(ii+1,R_A) = 0.0d0
274 rhol(ii+1,R_B) = 0.0d0
313 rhol(ii+1,R_A) = 0.0d0
[all …]
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/nwpwlib/nwpwxc/
H A Dnwpwxc_c_opt.F64 double precision rhol(maxp,2)
84 call dfill(maxp*2,0.0d0,rhol,1)
89 rhol(ii+1,R_T) = rho(iq+ii,R_T)
112 rhol(ii+1,R_A) = 0.5d0*rhol(ii+1,R_T)
140 call dfill(maxp*2,0.0d0,rhol,1)
145 rhol(ii+1,R_A) = rho(iq+ii,R_A)
146 rhol(ii+1,R_B) = rho(iq+ii,R_B)
174 rhol(ii+1,R_A) = rho(iq+ii,R_A)
175 rhol(ii+1,R_B) = 0.0d0
202 rhol(ii+1,R_A) = 0.0d0
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/nwpwlib/nwpwxc/
H A Dnwpwxc_c_opt.F64 double precision rhol(maxp,2)
84 call dfill(maxp*2,0.0d0,rhol,1)
89 rhol(ii+1,R_T) = rho(iq+ii,R_T)
112 rhol(ii+1,R_A) = 0.5d0*rhol(ii+1,R_T)
140 call dfill(maxp*2,0.0d0,rhol,1)
145 rhol(ii+1,R_A) = rho(iq+ii,R_A)
146 rhol(ii+1,R_B) = rho(iq+ii,R_B)
174 rhol(ii+1,R_A) = rho(iq+ii,R_A)
175 rhol(ii+1,R_B) = 0.0d0
202 rhol(ii+1,R_A) = 0.0d0
[all …]
/dports/science/PETSc/petsc-3.14.1/src/contrib/fun3d/comp/
H A DuserJac.F243 & / rhol / rhol
245 & / rhol / rhol
247 & / rhol / rhol
249 & / rhol / rhol
251 & / rhol / rhol
254 & / rhol / rhol
256 & / rhol / rhol
258 & / rhol / rhol
260 & / rhol / rhol
262 & / rhol / rhol
[all …]
H A Duser.F2552 rhol = qnode(1,node1)
2558 enrgyl = pressl/gm1 + .5*rhol*q2l
2559 Hl = (enrgyl + pressl)/rhol
2560 cl = sqrt(gamma*pressl/rhol)
2596 enrgyl = pressl/gm1 + .5*rhol*q2l
2597 Hl = (enrgyl + pressl)/rhol
2598 cl = sqrt(gamma*pressl/rhol)
2631 rho = sqrt(rhol*rhor)
2648 drho = rhor - rhol
2697 fluxp1 = area*rhol*ubarl
[all …]
/dports/science/code_saturne/code_saturne-7.1.0/src/cogz/
H A Dpdfpp3.f90337 rhol(idirac) = p0 * maml(idirac) &
340 rhol(idirac) = ro0
348 w(idirac) = vref / lref * (- d(idirac)*rhol(idirac) &
375 sum15 = sum15 +rhol(idirac)*d(idirac)
386 cpro_rhol(idirac)%p(iel) = rhol(idirac)
550 rhol(idirac) = p0 * maml(idirac) &
553 rhol(idirac) = ro0
562 *(- d(idirac)*rhol(idirac) &
600 cpro_rhol(idirac)%p(iel) = rhol(idirac)
H A Dpdflwc.f90282 rhol(idirac) = p0 * maml(idirac) &
285 rhol(idirac) = ro0
293 w(idirac) = vref / lref * (- d(idirac)*rhol(idirac) &
317 sum15 = sum15 +rhol(idirac)*d(idirac)
328 cpro_rhol(idirac)%p(iel) = rhol(idirac)
682 rhol(idirac) = p0 * maml(idirac) &
685 rhol(idirac) = ro0
693 w(idirac) = vref / lref * (- d(idirac)*rhol(idirac) &
726 cpro_rhol(idirac)%p(iel) = rhol(idirac)
H A Dpdfpp4.f90359 rhol(idirac) = p0 * maml(idirac) &
362 rhol(idirac) = ro0
395 sum15 = sum15 +rhol(idirac)*d(idirac)
405 cpro_rhol(idirac)%p(iel) = rhol(idirac)
747 rhol(idirac) = p0 * maml(idirac) &
750 rhol(idirac) = ro0
805 cpro_rhol(idirac)%p(iel) = rhol(idirac)
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/nwpwlib/pseudopotential/
H A Drpspsolve.c68 double *rl, *rhol, **psil, **pspl; local
139 rhol = (double *) malloc (Nlinear * sizeof (double));
155 Log_to_Linear (rho_RelPsp (), rl, rhol);
214 fprintf (fp, "%12.8lf %12.8lf\n", rl[k], rhol[k]);
311 Log_to_Linear (rho_semicore_RelPsp (), rl, rhol);
315 fabs (rhol[k] * over_fourpi));
321 Log_to_Linear (drho_semicore_RelPsp (), rl, rhol);
323 fprintf (fp, "%12.8lf %12.8lf\n", rl[k], (rhol[k] * over_fourpi));
495 free (rhol);
H A Dpspsolve.c77 double *rl, *rhol, **psil_ae,**psil, **psil_extra, **pspl; local
155 rhol = (double *) malloc(Nlinear * sizeof (double));
186 Log_to_Linear(rho_Psp(), rl, rhol);
261 fprintf(fp, "%12.8lf %12.8lf\n", rl[k], rhol[k]);
337 Log_to_Linear(rho_semicore_Psp(), rl, rhol);
341 fabs(rhol[k] * over_fourpi));
347 Log_to_Linear(drho_semicore_Psp(), rl, rhol);
349 fprintf (fp, "%12.8lf %12.8lf\n", rl[k], (rhol[k] * over_fourpi));
369 Log_to_Linear(Vlocal_Psp(), rl, rhol);
371 fprintf(fp, "%20.15le %20.15le\n", rl[k], rhol[k]);
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/nwpwlib/pseudopotential/
H A Drpspsolve.c68 double *rl, *rhol, **psil, **pspl; local
139 rhol = (double *) malloc (Nlinear * sizeof (double));
155 Log_to_Linear (rho_RelPsp (), rl, rhol);
214 fprintf (fp, "%12.8lf %12.8lf\n", rl[k], rhol[k]);
311 Log_to_Linear (rho_semicore_RelPsp (), rl, rhol);
315 fabs (rhol[k] * over_fourpi));
321 Log_to_Linear (drho_semicore_RelPsp (), rl, rhol);
323 fprintf (fp, "%12.8lf %12.8lf\n", rl[k], (rhol[k] * over_fourpi));
495 free (rhol);
H A Dpspsolve.c77 double *rl, *rhol, **psil_ae,**psil, **psil_extra, **pspl; local
155 rhol = (double *) malloc(Nlinear * sizeof (double));
186 Log_to_Linear(rho_Psp(), rl, rhol);
261 fprintf(fp, "%12.8lf %12.8lf\n", rl[k], rhol[k]);
337 Log_to_Linear(rho_semicore_Psp(), rl, rhol);
341 fabs(rhol[k] * over_fourpi));
347 Log_to_Linear(drho_semicore_Psp(), rl, rhol);
349 fprintf (fp, "%12.8lf %12.8lf\n", rl[k], (rhol[k] * over_fourpi));
369 Log_to_Linear(Vlocal_Psp(), rl, rhol);
371 fprintf(fp, "%20.15le %20.15le\n", rl[k], rhol[k]);
[all …]
/dports/science/lammps/lammps-stable_29Sep2021/tools/eam_database/
H A Dcreate.f18 * fnn(16),Fn(16),rhoin(16),rhoout(16),rhol(16), local
70 read(10,*) rhol(ntypes)
73 rhoin(ntypes)=rhol(ntypes)*rhoe(ntypes)
142 * fnn(16),Fn(16),rhoin(16),rhoout(16),rhol(16), local
156 * fnn(16),Fn(16),rhoin(16),rhoout(16),rhol(16), local
189 * fnn(16),Fn(16),rhoin(16),rhoout(16),rhol(16), local
221 * fnn(16),Fn(16),rhoin(16),rhoout(16),rhol(16), local
/dports/graphics/gmt/gmt-6.3.0/test/potential/
H A Dflexapprox.sh11 rhol=2800
26 gmt gravfft load.nc -Gflex_a.nc -Q -Nf+l -T$Te/$rhol/$rhom/$rhow
30 gmt gravfft load.nc -Gflex_c.nc -Q -Nf+l -T$Te/$rhol/$rhom/$rhow/$rhoi
H A Dfirmoviscous.sh6 rhol=2700
24 …gmt grdflexure smt.nc+uk -D${rhom}/${rhol}/${rhos}/${rhow} -E10k -F2e20 -Gfv_%.12g.nc -Nf+a -T$t -…
46 drho=$(gmt math -Q ${rhol} ${rhow} SUB =)
H A Dfirmoviscous2.sh7 rhol=2700
25 …gmt grdflexure smt.nc+uk -D${rhom}/${rhol}/${rhos}/${rhow} -E10k -F2e20/100k/1e22 -Gfv_%.12g.nc -N…
48 drho=$(gmt math -Q ${rhol} ${rhow} SUB =)
/dports/graphics/gmt/gmt-6.3.0/src/potential/
H A Dgrdflexure.c79 double rhom, rhol, rhoi, rhow; member
367 rho_load = Ctrl->D.rhol; in grdflexure_setup_elastic()
374 char way = (Ctrl->D.rhoi < Ctrl->D.rhol) ? '<' : '>'; in grdflexure_setup_elastic()
646 if (Ctrl->D.rhol < 10.0) Ctrl->D.rhol *= 1000; /* Gave units of g/cm^3 */ in parse()
651 Ctrl->D.rhoi = Ctrl->D.rhol; in parse()
653 else if (Ctrl->D.rhol != Ctrl->D.rhoi) in parse()
873 double boost = Ctrl->D.rhol / (Ctrl->D.rhol - Ctrl->D.rhow); in grdflexure_prepare_load()
1076 Load[t_load]->rho_load = Ctrl->D.rhol; in GMT_grdflexure()
1102 Load[t_load]->rho_load = (ns == 3) ? atof (r_arg) : Ctrl->D.rhol; in GMT_grdflexure()
1114 Load[0]->rho_load = Ctrl->D.rhol; in GMT_grdflexure()
[all …]
H A Dgravfft.c103 double te, rhol, rhom, rhow, rhoi; member
346 …n = sscanf (opt->arg, "%lf/%lf/%lf/%lf/%lf", &Ctrl->T.te, &Ctrl->T.rhol, &Ctrl->T.rhom, &Ctrl->T.r… in parse()
347 Ctrl->T.rho_cw = Ctrl->T.rhol - Ctrl->T.rhow; in parse()
348 Ctrl->T.rho_mc = Ctrl->T.rhom - Ctrl->T.rhol; in parse()
350 if (n < 5) Ctrl->T.rhoi = Ctrl->T.rhol; in parse()
351 …if (n == 5 && Ctrl->T.rhoi != Ctrl->T.rhol) Ctrl->T.approx = true; /* Calculate approximate flexur… in parse()
416 !(Ctrl->T.rhow && Ctrl->T.rhol && Ctrl->T.rhom && Ctrl->Z.zm), in parse()
419 !(Ctrl->T.rhow && Ctrl->T.rhol && Ctrl->T.rhom && Ctrl->Z.zm && Ctrl->Z.zl), in parse()
873 rho_load = Ctrl->T.rhol; in gravfft_do_isostasy()
875 char way = (Ctrl->T.rhoi < Ctrl->T.rhol) ? '<' : '>'; in gravfft_do_isostasy()
[all …]
H A Dgmtflexure.c76 double rhom, rhol, rhoi, rhow; member
225 …n = sscanf (opt->arg, "%lf/%lf/%lf/%lf", &Ctrl->D.rhom, &Ctrl->D.rhol, &Ctrl->D.rhoi, &Ctrl->D.rho… in parse()
232 Ctrl->D.rhoi = Ctrl->D.rhol; in parse()
1316 …double scale = (Ctrl->D.rhol - Ctrl->D.rhow) * NORMAL_GRAVITY; /* Convert load height to pressure … in GMT_gmtflexure()
1317 … double boost = Ctrl->D.rhol / (Ctrl->D.rhol - Ctrl->D.rhow); /* Boost factor for subaerial load */ in GMT_gmtflexure()
1478 … deflection, rigidity, load, (int)S->n_rows, x_inc, Ctrl->D.rhom, Ctrl->D.rhol, Ctrl->D.rhoi, Ctrl… in GMT_gmtflexure()
/dports/science/quantum-espresso/q-e-qe-6.7.0/CPV/src/
H A Dexx_gs.f9076 REAL(DP), ALLOCATABLE :: rhol(:),rho_in_sp(:),vl(:) local
492 vl, ha, hb, hc, rhol, pair_dexx_dhab(:,:,j))
511 IF (ALLOCATED(rhol)) DEALLOCATE(rhol)
667 vl, ha, hb, hc, rhol, self_dexx_dhab(:,:))
686 IF (ALLOCATED(rhol)) DEALLOCATE(rhol)
1241 ALLOCATE ( rhol(np_in_sp_me_p) ); rhol=0.0_DP
1243 …CALL getrhol_sphere( np_in_sp_me_p, np_in_sp_p, psil(1), psime_pair_recv(1, j, iobtl), rhol, rho_i…
1284 …CALL vvprod_sphere(np_in_sp_me_p, rhol, vl, paire(j)) ! dot product of the rho and vl !HK (todo): …
1378 ALLOCATE ( rhol(np_in_sp_me_s) ); rhol=0.0_DP
1380 CALL getrhol_sphere( np_in_sp_me_s, np_in_sp_s, psil(1), psil(1), rhol, rho_in_sp, tran, sa1)
[all …]
H A Dexx_module.f901698 vl, ha, hb, hc, rhol, dexx_dhab) argument
1703 … REAL(DP), INTENT(IN) :: vl(np_in_sp_me), rhol(np_in_sp_me) ! rhol pass in side n is good enough local
1740 tmp1 = tmp1 + rhol(i)*r_alpha(1)*dvdr(i,1)
1741 tmp2 = tmp2 + rhol(i)*r_alpha(1)*dvdr(i,2)
1742 tmp3 = tmp3 + rhol(i)*r_alpha(1)*dvdr(i,3)
1743 tmp4 = tmp4 + rhol(i)*r_alpha(2)*dvdr(i,2)
1744 tmp5 = tmp5 + rhol(i)*r_alpha(2)*dvdr(i,3)
1745 tmp6 = tmp6 + rhol(i)*r_alpha(3)*dvdr(i,3)
/dports/science/dynare/dynare-4.6.4/tests/deterministic_simulations/
H A Dlola_solve_one_boundary.mod68 rhou rhoe rhol tauw tauc tauf tauk g
255 (1+rr*(1-tauk))/(beta@{i})^ann*s@{i-1}(-1)/(1+gh)+rhol*wb=(1+tauc)*c@{i}+s@{i};
410 rhol=rholb*eps_rhol;
489 +rhol*wb*PensCorr_L*P@{i}+rhol*wb_f*(N_f/(N+N_f))*PensCorr_F*P@{i}_f
623 rhol=rholb*eps_rhol_iss;
811 rhol=rholb*eps_rhol_fss;
898 +rhol*wb*PensCorr_L*P@{i}+rhol*wb_f*(N_f/(N+N_f))*PensCorr_F*P@{i}_f
/dports/devel/efl/efl-1.25.1/src/bin/elementary/
H A Dtest_flip_page_eo.c297 double rho, A, theta, perc, n, rhol, Al, thetal; in _state_update() local
408 rhol = -(n * M_PI); in _state_update()
457 _deform_point(&vil, &(tvol[col]), rhol, thetal, Al); in _state_update()
H A Dtest_flip_page.c321 double rho, A, theta, perc, n, rhol, Al, thetal; in _state_update() local
432 rhol = -(n * M_PI); in _state_update()
481 _deform_point(&vil, &(tvol[col]), rhol, thetal, Al); in _state_update()

123456