Home
last modified time | relevance | path

Searched refs:num_pol (Results 1 – 8 of 8) sorted by relevance

/dports/astro/oskar/OSKAR-2.8.0/oskar/beam_pattern/src/
H A Doskar_beam_pattern_run.c627 const int num_pol = h->pol_mode == OSKAR_POL_MODE_FULL ? 4 : 1; in write_pixels() local
670 off = i_station * num_pix * num_pol; in write_pixels()
673 complex_to_amp(in, off, num_pol, num_pix, h->pix, status); in write_pixels()
677 complex_to_amp(in, off + 1, num_pol, num_pix, h->pix, status); in write_pixels()
681 complex_to_amp(in, off + 2, num_pol, num_pix, h->pix, status); in write_pixels()
685 complex_to_amp(in, off + 3, num_pol, num_pix, h->pix, status); in write_pixels()
694 off = i_station * num_pix * num_pol; in write_pixels()
697 complex_to_phase(in, off, num_pol, num_pix, h->pix, status); in write_pixels()
701 complex_to_phase(in, off + 1, num_pol, num_pix, h->pix, status); in write_pixels()
705 complex_to_phase(in, off + 2, num_pol, num_pix, h->pix, status); in write_pixels()
[all …]
/dports/science/siesta/siesta-4.1.5/Src/
H A Datm_transfer.f49 integer norb, indx, ipol, num_normal, num_pol local
141 num_pol = maxval(index_pol)
143 spp%n_orbnl = num_normal + num_pol
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/
H A Datom_fit.F1888 INTEGER, INTENT(IN) :: num_gau, num_pol, iunit local
1903 CPASSERT(num_pol*num_gau > 0)
1905 ALLOCATE (co(num_pol + 1, num_gau), x(num_pol*num_gau + num_gau))
1919 ostate%nvar = num_pol*num_gau + num_gau
1923 DO j = 3, num_pol + 1
1927 CALL putvar(x, co, num_pol, num_gau)
1951 CALL getvar(x, co, num_pol, num_gau)
1952 CALL kgpot_fit(density, num_gau, num_pol, co, ostate%f)
1968 CALL getvar(x, co, num_pol, num_gau)
1984 WRITE (iw, *) num_gau, num_pol
[all …]
H A Datom_grb.F90 num_pol, quadtype, s1, s2 local
422 num_pol = num_gto
632 DO i = 1, num_pol
634 pbasis(i, 1:num_pol, l) = pbasis(i, 1:num_pol, l)*prefac/zeta
667 DO l = maxl + 1, MIN(maxl + num_pol, 7)
675 … CALL grb_print_basis(header=basline, nprim=num_pol, nbas=nbas, al=alp, gcc=pbasis, iunit=iunit)
H A Datom_energy.F88 nder, nr_gh, num_gau, num_gto, num_pol, reltyp, zcore, zval, zz local
376 … CALL section_vals_val_get(atom_section, "PRINT%FIT_KGPOT%NUM_POLYNOM", i_val=num_pol)
378 … CALL atom_fit_kgpot(atom_info(in, im)%atom, num_gau, num_pol, iw, powell_section=powell_section)
/dports/science/cp2k-data/cp2k-7.1.0/src/
H A Datom_fit.F1888 INTEGER, INTENT(IN) :: num_gau, num_pol, iunit local
1903 CPASSERT(num_pol*num_gau > 0)
1905 ALLOCATE (co(num_pol + 1, num_gau), x(num_pol*num_gau + num_gau))
1919 ostate%nvar = num_pol*num_gau + num_gau
1923 DO j = 3, num_pol + 1
1927 CALL putvar(x, co, num_pol, num_gau)
1951 CALL getvar(x, co, num_pol, num_gau)
1952 CALL kgpot_fit(density, num_gau, num_pol, co, ostate%f)
1968 CALL getvar(x, co, num_pol, num_gau)
1984 WRITE (iw, *) num_gau, num_pol
[all …]
H A Datom_grb.F90 num_pol, quadtype, s1, s2 local
422 num_pol = num_gto
632 DO i = 1, num_pol
634 pbasis(i, 1:num_pol, l) = pbasis(i, 1:num_pol, l)*prefac/zeta
667 DO l = maxl + 1, MIN(maxl + num_pol, 7)
675 … CALL grb_print_basis(header=basline, nprim=num_pol, nbas=nbas, al=alp, gcc=pbasis, iunit=iunit)
H A Datom_energy.F88 nder, nr_gh, num_gau, num_gto, num_pol, reltyp, zcore, zval, zz local
376 … CALL section_vals_val_get(atom_section, "PRINT%FIT_KGPOT%NUM_POLYNOM", i_val=num_pol)
378 … CALL atom_fit_kgpot(atom_info(in, im)%atom, num_gau, num_pol, iw, powell_section=powell_section)