/dports/astro/oskar/OSKAR-2.8.0/oskar/beam_pattern/src/ |
H A D | oskar_beam_pattern_run.c | 627 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 D | atm_transfer.f | 49 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 D | atom_fit.F | 1888 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 D | atom_grb.F | 90 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 D | atom_energy.F | 88 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 D | atom_fit.F | 1888 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 D | atom_grb.F | 90 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 D | atom_energy.F | 88 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)
|