| /dports/science/cdo/cdo-2.0.0/src/ |
| H A D | Filter.cc | 75 Varray<double> work_r, work_i; in filter_intrinsic() local
78 if (!isPower2) work_i.resize(nts); in filter_intrinsic()
83 cdo::ft_r(real, imag, nts, 1, work_r.data(), work_i.data()); in filter_intrinsic()
91 cdo::ft_r(real, imag, nts, -1, work_r.data(), work_i.data()); in filter_intrinsic()
|
| H A D | Fourier.cc | 30 Varray<double> work_i; member
123 … cdo::ft_r(fm.real.data(), fm.imag.data(), nts, sign, fm.work_r.data(), fm.work_i.data()); in fourier_intrinsic()
235 if (!isPower2) fm.work_i.resize(nts); in Fourier()
|
| H A D | Spectrum.cc | 55 Varray<double> work_r, work_i; in spectrum() local
59 work_i.resize(seg_l); in spectrum()
112 cdo::ft_r(real, imag, seg_l, 1, work_r.data(), work_i.data()); in spectrum()
|
| H A D | statistic.cc | 439 static double *work_r = 0, *work_i = 0; in ft() local
447 if (!work_i) in ft()
449 work_i = (double *) malloc(n * sizeof(double)); in ft()
470 work_i[k] = sum_i; in ft()
475 for (int k = 0; k < n; k++) imag[k] = work_i[k] * norm; in ft()
480 ft_r(double *real, double *imag, int n, int sign, double *work_r, double *work_i) in ft_r() argument
502 work_i[k] = sum_i; in ft_r()
507 for (int k = 0; k < n; k++) imag[k] = work_i[k] * norm; in ft_r()
|
| H A D | statistic.h | 11 void ft_r(double *real, double *imag, int n, int sign, double *work_r, double *work_i);
|
| /dports/science/cp2k-data/cp2k-7.1.0/src/ |
| H A D | qs_integrate_potential_single.F | 670 … REAL(KIND=dp), DIMENSION(:, :), POINTER :: hab, pab, rpgfa, sphi_a, work_f, work_i, & local
690 work_i, zeta)
802 ALLOCATE (work_i(nsgf_seta(iset), 1))
803 work_i = 0.0_dp
850 … SIZE(sphi_a, 1), hab(1, 1), SIZE(hab, 1), 0.0_dp, work_i(1, 1), SIZE(work_i, 1))
853 … int_res(ikind)%v_int(iatom, sgfa:sgfa - 1 + nsgf_seta(iset)) + work_i(1:nsgf_seta(iset), 1)
854 DEALLOCATE (work_i)
|
| /dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/ |
| H A D | qs_integrate_potential_single.F | 680 … REAL(KIND=dp), DIMENSION(:, :), POINTER :: hab, pab, rpgfa, sphi_a, work_f, work_i, & local
700 work_i, zeta)
806 ALLOCATE (work_i(nsgf_seta(iset), 1))
807 work_i = 0.0_dp
857 … SIZE(sphi_a, 1), hab(1, 1), SIZE(hab, 1), 0.0_dp, work_i(1, 1), SIZE(work_i, 1))
860 … int_res(ikind)%v_int(iatom, sgfa:sgfa - 1 + nsgf_seta(iset)) + work_i(1:nsgf_seta(iset), 1)
861 DEALLOCATE (work_i)
|
| /dports/science/py-OpenMC/openmc-0.12.2/src/ |
| H A D | simulation.cpp | 542 int64_t work_i = i < remainder ? min_work + 1 : min_work; in calculate_work() local
545 if (mpi::rank == i) simulation::work_per_rank = work_i; in calculate_work()
548 i_bank += work_i; in calculate_work()
|
| /dports/science/openmc/openmc-0.12.2/src/ |
| H A D | simulation.cpp | 542 int64_t work_i = i < remainder ? min_work + 1 : min_work; in calculate_work() local
545 if (mpi::rank == i) simulation::work_per_rank = work_i; in calculate_work()
548 i_bank += work_i; in calculate_work()
|
| /dports/cad/nvc/nvc-r1.5.3/src/ |
| H A D | common.h | 194 GLOBAL ident_t work_i; variable
|
| H A D | sem.c | 544 && work_name != work_i; in sem_has_work_alias()
642 ident_t alias = ident_prefix(work_i, ident_from(dname, '.'), '.'); in scope_import_decls()
686 ident_t alias = ident_prefix(work_i, ident_from(unit_name, '.'), '.'); in scope_import_unit()
1464 if (prefix == work_i) in sem_check_use_clause()
1475 if (name == work_i && (top_scope->flags & SCOPE_CONTEXT)) { in sem_check_library_clause()
1665 if (prefix == work_i) { in sem_check_selected_name()
7567 if (prefix == work_i) in sem_check_context_ref()
|
| H A D | lib.c | 328 if (name_i == work_i && work != NULL) in lib_loaded()
|
| H A D | common.c | 937 work_i = ident_new("WORK"); in intern_strings()
|
| H A D | dump.c | 959 if (tree_ident(c) != std_i && tree_ident(c) != work_i) in dump_context()
|
| H A D | json.c | 905 if (tree_ident(c) != std_i && tree_ident(c) != work_i) { in dump_context()
|
| H A D | elab.c | 130 if (lib_name == work_i) in elab_find_lib()
|