Home
last modified time | relevance | path

Searched refs:nrval (Results 1 – 25 of 38) sorted by relevance

12

/dports/science/octopus/octopus-10.5/src/species/
H A Dlogrid.F9047 integer :: nrval component
74 grid%nrval = nrval
79 SAFE_ALLOCATE(grid%s(1:nrval))
85 do ir = 1, nrval
98 do ir = 3, grid%nrval
105 do ir = 1, grid%nrval
139 grid_out%nrval = grid_in%nrval
165 do ir = 1, grid%nrval-1
193 do ii = 2, grid%nrval-1
196 …dfdr(grid%nrval) = (ff(grid%nrval) - ff(grid%nrval-1))/(grid%rofi(grid%nrval) - grid%rofi(grid%nrv…
[all …]
H A Dps_pspio_inc.F90159 ps%g%nrval = ps%g%nrval + 1
166 ps%g%rofi(ip:ps%g%nrval) = r_tmp(1:ps%g%nrval-ip+1)
206 do ir = 1, ps%g%nrval
244 do ir = 1, ps%g%nrval
288 do ir = 1, ps%g%nrval
291 do ir = ps%g%nrval-1, 2, -1
328 do ir = 1, ps%g%nrval
331 do ir = ps%g%nrval-1, 2, -1
392 do ir = 1, ps%g%nrval
397 nrc = ps%g%nrval
[all …]
H A Dps_psf.F90184 integer :: nrval local
193 nrval = ps_grid%g%nrval
196 ps_grid%vps(1:nrval,:) = psf_file%vps(1:nrval,:)
197 ps_grid%chcore(1:nrval) = psf_file%chcore(1:nrval)
199 ps_grid%so_vps(1:nrval,:) = psf_file%vso(1:nrval,:)
311 rho(1:g%nrval, 1) = psf_file%rho_val(1:g%nrval)
326 do ir = 2, g%nrval
337 rmax = g%rofi(g%nrval)
370 do ir = 2, g%nrval
474 do ir = 2, g%nrval
[all …]
H A Dps_hgh.F90164 psp%vlocal(1:psp%g%nrval) = ptr(1:psp%g%nrval)
171 psp%kb(1:psp%g%nrval, l, i) = ptr(1:psp%g%nrval)
566 s(2:psp%g%nrval) = psp%g%drdi(2:psp%g%nrval)*psp%g%drdi(2:psp%g%nrval)
579 do ir = 2, psp%g%nrval
617 psp%rphi(2:psp%g%nrval, n) = g(2:psp%g%nrval) * sqrt(psp%g%drdi(2:psp%g%nrval))
622 … rho(1:psp%g%nrval, 1) = rho(1:psp%g%nrval, 1) + psp%conf%occ(n,1)*psp%rphi(1:psp%g%nrval, n)**2
625 diff = sqrt(sum(psp%g%drdi(2:psp%g%nrval)*(rho(2:psp%g%nrval, 1)-prev(2:psp%g%nrval, 1))**2))
634 e = sqrt(sum(psp%g%drdi(2:psp%g%nrval)*psp%rphi(2:psp%g%nrval, n)**2))
696 do i = 1, psp%g%nrval
702 do i = 1, psp%g%nrval
[all …]
H A Dps.F90372 do ii = 1, ps%g%nrval
568 ASSERT(ps%g%nrval > 0)
578 do ii = 1, ps%g%nrval
758 do ir = ps%g%nrval, 3, -1
1013 hato(2:ps_hgh%g%nrval) = ps_hgh%rphi(2:ps_hgh%g%nrval, l)/ps_hgh%g%rofi(2:ps_hgh%g%nrval)
1082 do ip = 1, g%nrval
1113 do ir = g%nrval-1, 2, -1
1156 do ip = 1, ps%g%nrval
1269 do ip = 1, ps%g%nrval
1314 do ip = 1, ps%g%nrval
[all …]
H A Dps_in_grid.F9082 call logrid_init(ps%g, flavor, a, b, nrval)
90 SAFE_ALLOCATE(ps%chcore (1:ps%g%nrval))
91 SAFE_ALLOCATE(ps%vlocal (1:ps%g%nrval))
94 SAFE_ALLOCATE(ps%KB (1:ps%g%nrval, 1:no_l))
165 SAFE_ALLOCATE(rho(1:ps%g%nrval))
167 do ir = 1, ps%g%nrval
235 do ir = 1, ps%g%nrval
247 do ir = 1, ps%g%nrval
272 do ir = ps%g%nrval-1, 2, -1
285 do ir = ps%g%nrval-1, 2, -1
[all …]
H A Datomic.F90156 FLOAT, intent(in) :: dens(g%nrval, nspin)
157 FLOAT, intent(out) :: v(g%nrval, nspin)
158 FLOAT, intent(in), optional :: extra(g%nrval)
167 SAFE_ALLOCATE( ve(1:g%nrval, 1:nspin))
168 SAFE_ALLOCATE( xc(1:g%nrval, 1:nspin))
169 SAFE_ALLOCATE(rho(1:g%nrval, 1:nspin))
180 call vhrtre(rho(:, 1), ve(:, is), g%rofi, g%drdi, g%s, g%nrval, g%a)
199 rho(2:g%nrval, is) = rho(2:g%nrval, is)/(M_FOUR*M_PI*g%rofi(2:g%nrval)**2)
205 do ir = 1, g%nrval
210 call atomxc(xcfunc, xcauth, g%nrval, g%nrval, g%rofi, nspin, rho, ex, ec, dx, dc, xc)
/dports/net-im/climm/climm-0.7.1/lang/
H A Di18n-template25 $nrval{$nr}=$val;
69 next unless defined $nrval{$1} and length($nrval{$1});
70 print OUT "#_#$1:$nrval{$1}\n" unless $have{$1} & 4;
81 next unless defined $nrval{$last} and length($nrval{$last});
82 print OUT "#_#$last:$nrval{$last}\n" unless $have{$last};
86 if (defined $nrval{$i})
92 print OUT "#_#$l:$nrval{$l}\n";
110 next unless defined $nrval{$last} and length($nrval{$last});
111 print OUT "#_#$last:$nrval{$last}\n" unless $have{$last} & 4;
117 if (length ($nrval{$mod}))
[all …]
/dports/science/siesta/siesta-4.1.5/Src/
H A Dpseudopotential.f29 integer :: nrval component
58 p%nrval = 0
127 p%nrval = p%nr + 1
128 allocate(p%r(1:p%nrval))
151 allocate(p%chval(1:p%nrval))
200 p%nrval = p%nr + 1
201 allocate(p%r(1:p%nrval))
306 do j = 1, p%nrval
438 rmax = p%r(p%nrval)
530 p%nrval = new_nrval
[all …]
H A Ddftu_specs.f877 nrval = nr + 1
887 nrval = nrval -1 + nodd ! Will be less than or equal to vp%nrval
893 . nrval
898 rofi(1:nrval) = vps%r(1:nrval)
948 vpseudo(1:nrval,lpseudo) = vps%vdown(ndown,1:nrval)
1008 do ir = 2,nrval
1037 chcore(1:nrval) = vps%chcore(1:nrval)
1075 ve(1:nrval) = ve(1:nrval) + vxc(1:nrval)
1089 do ir = 2,nrval
1102 vePAO(1:nrval) = vePAO(1:nrval) + vxc(1:nrval)
[all …]
H A Datom.F446 ve(1:nrval) = ve(1:nrval) + vxc(1:nrval)
467 vePAO(1:nrval) = vePAO(1:nrval) + vxc(1:nrval)
558 s(2:nrval) = drdi(2:nrval)*drdi(2:nrval)
587 s(2:nrval) = drdi(2:nrval)*drdi(2:nrval)
847 real(dp) r(nrval),psi(nrval),psipol(nrval),
2349 chcore_backup(1:nrval) = chcore(1:nrval)
2856 rofi(1:nrval) = vp%r(1:nrval)
2891 chcore(1:nrval) = vp%chcore(1:nrval)
2892 rho(1:nrval) = vp%chval(1:nrval)
5541 ve_backup(1:nrval) = Ve(1:nrval)
[all …]
H A Dspinorbit.f88 nr(is) = p%nrval
375 integer nrval, ir local
378 nrval = nr(is)
383 do ir = 2, nrval
/dports/textproc/xmlf90/xmlf90-1.5.5/doc/Examples/wxml/
H A Dm_pseudo_utils.f9042 integer :: nrval component
107 p%nrval = p%nr + 1
109 allocate(p%r(1:p%nrval))
111 read(io_ps,fmt=fmt_rad) (p%r(j),j=2,p%nrval)
116 allocate(p%vdown(1:p%npotd,1:p%nrval))
127 allocate(p%vup(1:p%npotu,1:p%nrval))
133 read(io_ps,fmt=fmt_rad) (p%vup(i,j), j=2,p%nrval)
137 allocate(p%chcore(1:p%nrval))
138 allocate(p%chval(1:p%nrval))
141 read(io_ps,fmt=fmt_rad) (p%chcore(j),j=2,p%nrval)
[all …]
/dports/graphics/leptonica/leptonica-1.76.0/src/
H A Dcoloring.c236 l_int32 nrval, ngval, nbval, aveval; in pixColorGray() local
304 nrval = (l_int32)(rval * aveval * factor); in pixColorGray()
310 nrval = rval + (l_int32)((255. - rval) * aveval * factor); in pixColorGray()
314 composeRGBPixel(nrval, ngval, nbval, &val32); in pixColorGray()
362 l_int32 nrval, ngval, nbval, aveval; in pixColorGrayMasked() local
433 nrval = (l_int32)(rval * aveval * factor); in pixColorGrayMasked()
439 nrval = rval + (l_int32)((255. - rval) * aveval * factor); in pixColorGrayMasked()
443 composeRGBPixel(nrval, ngval, nbval, &val32); in pixColorGrayMasked()
1029 l_int32 nrval, ngval, nbval; in pixelFractionalShift() local
1038 nrval = (fraction < 0) ? (l_int32)((1.0 + fraction) * rval + 0.5) : in pixelFractionalShift()
[all …]
H A Denhance.c2008 l_int32 ncolors, rval, gval, bval, nrval, ngval, nbval; in pixMultConstantColor() local
2033 nrval = (l_int32)(rfact * rval); in pixMultConstantColor()
2036 nrval = L_MIN(255, nrval); in pixMultConstantColor()
2039 pixcmapResetColor(cmap, i, nrval, ngval, nbval); in pixMultConstantColor()
2055 nrval = (l_int32)(rfact * rval); in pixMultConstantColor()
2058 nrval = L_MIN(255, nrval); in pixMultConstantColor()
2061 composeRGBPixel(nrval, ngval, nbval, &nval); in pixMultConstantColor()
2108 l_int32 ncolors, rval, gval, bval, nrval, ngval, nbval; in pixMultMatrixColor() local
2143 nrval = L_MAX(0, L_MIN(255, nrval)); in pixMultMatrixColor()
2165 nrval = L_MAX(0, L_MIN(255, nrval)); in pixMultMatrixColor()
[all …]
H A Dpaintcmap.c499 l_int32 i, n, erval, egval, ebval, nrval, ngval, nbval, newindex; in addColorizedGrayToCmap() local
516 nrval = (l_int32)(rval * (l_float32)erval / 255.); in addColorizedGrayToCmap()
519 if (pixcmapAddNewColor(cmap, nrval, ngval, nbval, &newindex)) { in addColorizedGrayToCmap()
530 nrval = rval + in addColorizedGrayToCmap()
536 if (pixcmapAddNewColor(cmap, nrval, ngval, nbval, &newindex)) { in addColorizedGrayToCmap()
/dports/devel/upp/upp/bazaar/PixRaster/lib/
H A Denhance.c1479 l_int32 ncolors, rval, gval, bval, nrval, ngval, nbval; in pixMultConstantColor() local
1504 nrval = (l_int32)(rfact * rval); in pixMultConstantColor()
1507 nrval = L_MIN(255, nrval); in pixMultConstantColor()
1510 pixcmapResetColor(cmap, i, nrval, ngval, nbval); in pixMultConstantColor()
1526 nrval = (l_int32)(rfact * rval); in pixMultConstantColor()
1529 nrval = L_MIN(255, nrval); in pixMultConstantColor()
1532 composeRGBPixel(nrval, ngval, nbval, &nval); in pixMultConstantColor()
1577 l_int32 ncolors, rval, gval, bval, nrval, ngval, nbval; in pixMultMatrixColor() local
1612 nrval = L_MAX(0, L_MIN(255, nrval)); in pixMultMatrixColor()
1634 nrval = L_MAX(0, L_MIN(255, nrval)); in pixMultMatrixColor()
[all …]
H A Dpaintcmap.c353 l_int32 i, n, erval, egval, ebval, nrval, ngval, nbval, newindex; in addColorizedGrayToCmap() local
370 nrval = (l_int32)(rval * (l_float32)erval / 255.); in addColorizedGrayToCmap()
373 if (pixcmapAddNewColor(cmap, nrval, ngval, nbval, &newindex)) { in addColorizedGrayToCmap()
385 nrval = rval + in addColorizedGrayToCmap()
391 if (pixcmapAddNewColor(cmap, nrval, ngval, nbval, &newindex)) { in addColorizedGrayToCmap()
H A Dblend.c1083 l_int32 valb, vald, nvald, rval, gval, bval, nrval, ngval, nbval; in pixFadeWithGray() local
1138 nrval = rval + (l_int32)(fract * (255. - (l_float32)rval)); in pixFadeWithGray()
1143 nrval = rval - (l_int32)(fract * (l_float32)rval); in pixFadeWithGray()
1147 composeRGBPixel(nrval, ngval, nbval, &nval32); in pixFadeWithGray()
1685 l_int32 nrval, ngval, nbval, aveval; in pixColorGray() local
1754 nrval = (l_int32)(rval * aveval * factor); in pixColorGray()
1761 nrval = rval + (l_int32)((255. - rval) * aveval * factor); in pixColorGray()
1765 composeRGBPixel(nrval, ngval, nbval, &val32); in pixColorGray()
2093 l_int32 nrval, ngval, nbval; in pixelFractionalShift() local
2102 nrval = (fraction < 0) ? (l_int32)((1.0 + fraction) * rval + 0.5) : in pixelFractionalShift()
[all …]
H A Dgraphics.c860 l_uint8 nrval, ngval, nbval; in pixRenderPtaBlend() local
889 nrval = GET_DATA_BYTE(&val32, COLOR_RED); in pixRenderPtaBlend()
890 nrval = (l_uint8)((1. - fract) * nrval + frval); in pixRenderPtaBlend()
895 composeRGBPixel(nrval, ngval, nbval, &val32); in pixRenderPtaBlend()
/dports/graphics/grx/grx249/test/bgi/
H A Dcolortst.c43 #define nrval (256/4) in testmode() macro
45 c = (i * nrval) / avail; in testmode()
/dports/science/gramps/gramps-5.1.4/gramps/plugins/view/
H A Dfanchartview.py396 nrval = 0
400 nrval += 1
404 valueactive=False, setactive=nrval)
H A Dfanchart2wayview.py301 nrval = 0
305 nrval += 1
309 valueactive=False, setactive=nrval)
H A Dfanchartdescview.py299 nrval = 0
303 nrval += 1
307 valueactive=False, setactive=nrval)
/dports/science/siesta/siesta-4.1.5/Util/VCA/
H A Dfractional.f73 p%nrval = p1%nrval

12