/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwxc/ |
H A D | nwxc_c_opt.F | 105 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 D | nwxc_c_opt.F | 105 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 D | nwpwxc_c_opt.F | 64 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 D | nwpwxc_c_opt.F | 64 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 D | userJac.F | 243 & / 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 D | user.F | 2552 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 D | pdfpp3.f90 | 337 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 D | pdflwc.f90 | 282 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 D | pdfpp4.f90 | 359 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 D | rpspsolve.c | 68 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 D | pspsolve.c | 77 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 D | rpspsolve.c | 68 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 D | pspsolve.c | 77 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 D | create.f | 18 * 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 D | flexapprox.sh | 11 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 D | firmoviscous.sh | 6 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 D | firmoviscous2.sh | 7 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 D | grdflexure.c | 79 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 D | gravfft.c | 103 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 D | gmtflexure.c | 76 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 D | exx_gs.f90 | 76 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 D | exx_module.f90 | 1698 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 D | lola_solve_one_boundary.mod | 68 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 D | test_flip_page_eo.c | 297 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 D | test_flip_page.c | 321 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()
|