QPMS
/
qpms
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Unfinished implementation of field calculation 

Former-commit-id: 331b0aa643f69ca9244a15284da4a88cb0f48746
This commit is contained in:
Marek Nečada 2019-06-20 14:19:23 +03:00
parent 77e6e7ce4e
commit 3630edeff0
2 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
qpms/scatsystem.c
View File

@ -1459,3 +1459,16 @@ complex double *qpms_scatsys_build_modeproblem_matrix_irrep_packed_parallelR(
QPMS_ENSURE_SUCCESS(pthread_mutex_destroy(&opistartR_mutex)); QPMS_ENSURE_SUCCESS(pthread_mutex_destroy(&opistartR_mutex));
return target_packed; return target_packed;
} }
#if 0
ccart3_t qpms_scatsys_eval_field(const qpms_scatsys_t *ss, const complex double *cvf, cart3_t where) {
TODO;
}
ccart3_t qpms_scatsys_eval_field_irrep(const qpms_scatsys_t *ss,
qpms_iri_t iri, const complex double *cvr, cart3_t where) {
TODO;
}
#endif

10
qpms/vswf.c
View File

@ -405,3 +405,13 @@ csphvec_t qpms_eval_vswf(sph_t kr,
return esum; return esum;
} }
#if 0
csphvec_t qpms_eval_uvswf(const qpms_vswf_set_spec_t *setspec,
const complex double *coeffs, sph_t evalpoint,
qpms_bessel_t btyp) {
const qpms_l_t lMax = b->lMax;
double *M, *N, *L;
}
#endif