/dports/science/octopus/octopus-10.5/src/species/ |
H A D | logrid.F90 | 47 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 D | ps_pspio_inc.F90 | 159 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 D | ps_psf.F90 | 184 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 D | ps_hgh.F90 | 164 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 D | ps.F90 | 372 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 D | ps_in_grid.F90 | 82 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 D | atomic.F90 | 156 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 D | i18n-template | 25 $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 D | pseudopotential.f | 29 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 D | dftu_specs.f | 877 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 D | atom.F | 446 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 D | spinorbit.f | 88 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 D | m_pseudo_utils.f90 | 42 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 D | coloring.c | 236 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 D | enhance.c | 2008 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 D | paintcmap.c | 499 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 D | enhance.c | 1479 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 D | paintcmap.c | 353 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 D | blend.c | 1083 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 D | graphics.c | 860 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 D | colortst.c | 43 #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 D | fanchartview.py | 396 nrval = 0 400 nrval += 1 404 valueactive=False, setactive=nrval)
|
H A D | fanchart2wayview.py | 301 nrval = 0 305 nrval += 1 309 valueactive=False, setactive=nrval)
|
H A D | fanchartdescview.py | 299 nrval = 0 303 nrval += 1 307 valueactive=False, setactive=nrval)
|
/dports/science/siesta/siesta-4.1.5/Util/VCA/ |
H A D | fractional.f | 73 p%nrval = p1%nrval
|