25char donne_lm_C[] =
"$Header: /cvsroot/Lorene/C++/Source/Non_class_members/Coef/donne_lm.C,v 1.10 2014/10/13 08:53:12 j_novak Exp $" ;
107#include "type_parite.h"
127void donne_lm_nonsymTP (
int j,
int k,
int &m_quant,
int &l_quant) {
129 m_quant = (k%2 == 0) ? k/2 : (k-1)/2;
139void donne_lm_nonsym (
int j,
int k,
int &m_quant,
int &l_quant) {
141 m_quant = (k%2 == 0) ? k/2 : (k-1)/2;
142 l_quant = (m_quant%2 == 0) ? 2*j : 2*j+1 ;
150void donne_lm_nonsym_anti (
int j,
int k,
int &m_quant,
int &l_quant) {
152 m_quant = (k%2 == 0) ? k/2 : (k-1)/2;
153 l_quant = (m_quant%2 == 1) ? 2*j : 2*j+1 ;
161void donne_lm_sym (
int j,
int k,
int &m_quant,
int &l_quant) {
163 m_quant = (k%2 == 0) ? k : k-1;
173void donne_lm_t_leg_ip (
int j,
int k,
int &m_quant,
int &l_quant) {
175 m_quant = (k%2 == 0) ? k : k-1 ;
185void donne_lm_t_leg_mp (
int j,
int k,
int &m_quant,
int &l_quant) {
187 m_quant = (k%2 == 0) ? k : k-1;
196void donne_lm_t_leg_mi (
int j,
int k,
int &m_quant,
int &l_quant) {
198 m_quant = 2*((k-1)/2 ) + 1 ;
207void donne_lm_t_leg_pi (
int j,
int k,
int &m_quant,
int &l_quant) {
213 m_quant = (k%2 == 0) ? k-1 : k ;
224void donne_lm_t_leg_ii (
int j,
int k,
int &m_quant,
int &l_quant) {
230 m_quant = (k%2 == 0) ? k-1 : k ;
243void donne_lm (
int nz,
int zone,
int j,
int k, Base_val base,
244 int &m_quant,
int &l_quant,
int& base_r) {
250 int base_t = (base.b[zone] &
MSQ_T) ;
251 int base_p = (base.b[zone] &
MSQ_P) ;
252 base_r = (base.b[zone] &
MSQ_R) ;
260 donne_lm_nonsymTP (j, k, m_quant, l_quant) ;
264 donne_lm_nonsym (j, k, m_quant, l_quant) ;
268 donne_lm_nonsym_anti (j, k, m_quant, l_quant) ;
272 cout <<
"donne_lm : cas inconnu ..." << endl ;
282 donne_lm_sym (j, k, m_quant, l_quant) ;
286 donne_lm_t_leg_mp (j, k, m_quant, l_quant) ;
290 donne_lm_t_leg_ip (j, k, m_quant, l_quant);
294 cout <<
"donne_lm : cas inconnu ..." << endl ;
304 donne_lm_t_leg_pi (j, k, m_quant, l_quant) ;
308 donne_lm_t_leg_ii (j, k, m_quant, l_quant) ;
312 donne_lm_t_leg_mp (j, k, m_quant, l_quant) ;
316 cout <<
"donne_lm : cas inconnu ..." << endl ;
324 cout <<
"donne_lm : cas inconnu ..." << endl ;
#define T_LEG_MP
fct. de Legendre associees avec m pair
#define P_COSSIN_P
dev. sur Phi = 2*phi, freq. paires
#define T_LEG_PI
fct. de Legendre associees paires avec m impair
#define R_CHEBI
base de Cheb. impaire (rare) seulement
#define T_LEG
fct. de Legendre associees
#define MSQ_R
Extraction de l'info sur R.
#define R_CHEBPIM_I
Cheb. pair-impair suivant m, impair pour m=0.
#define R_CHEBPI_I
Cheb. pair-impair suivant l impair pour l=0.
#define T_LEG_P
fct. de Legendre associees paires
#define T_LEG_IP
fct. de Legendre associees impaires avec m pair
#define P_COSSIN
dev. standart
#define P_COSSIN_I
dev. sur Phi = 2*phi, freq. impaires
#define R_CHEBPIM_P
Cheb. pair-impair suivant m, pair pour m=0.
#define T_LEG_MI
fct. de Legendre associees avec m impair
#define MSQ_T
Extraction de l'info sur Theta.
#define T_LEG_II
fct. de Legendre associees impaires avec m impair
#define T_LEG_I
fct. de Legendre associees impaires
#define R_CHEBP
base de Cheb. paire (rare) seulement
#define MSQ_P
Extraction de l'info sur Phi.
#define T_LEG_PP
fct. de Legendre associees paires avec m pair
#define R_CHEBPI_P
Cheb. pair-impair suivant l pair pour l=0.