diff --git a/basic_parameters.c b/basic_parameters.c
--- a/basic_parameters.c
+++ b/basic_parameters.c
@@ -3,49 +3,7 @@
 // version 1.1: 02/04/2014
 // version 1.2: 30/04/2014
 // version 1.3: 02/05/2014
-
-#include "basic_parameters.h"
-
-void init_k_f0( void )
-{
-    uint16_t i;                        // 16 bits unsigned
-
-    for(i=0; i<NB_BINS_COMPRESSED_MATRIX_f0; i++){
-    k_f0[i][K44_PE]    = 1;
-    k_f0[i][K55_PE]    = 1;
-    k_f0[i][K45_PE_RE] = 1;
-    k_f0[i][K45_PE_IM] = 1;
+// version 1.4: 16/05/2014
+// version 1.5: 20/05/2014
 
-    k_f0[i][K14_SX_RE] = 1;
-    k_f0[i][K14_SX_IM] = 1;
-    k_f0[i][K15_SX_RE] = 1;
-    k_f0[i][K15_SX_IM] = 1;
-    k_f0[i][K24_SX_RE] = 1;
-    k_f0[i][K24_SX_IM] = 1;
-    k_f0[i][K25_SX_RE] = 1;
-    k_f0[i][K25_SX_IM] = 1;
-    k_f0[i][K34_SX_RE] = 1;
-    k_f0[i][K34_SX_IM] = 1;
-    k_f0[i][K35_SX_RE] = 1;
-    k_f0[i][K35_SX_IM] = 1;
-
-    k_f0[i][K24_NY_RE] = 1;
-    k_f0[i][K24_NY_IM] = 1;
-    k_f0[i][K25_NY_RE] = 1;
-    k_f0[i][K25_NY_IM] = 1;
-    k_f0[i][K34_NY_RE] = 1;
-    k_f0[i][K34_NY_IM] = 1;
-    k_f0[i][K35_NY_RE] = 1;
-    k_f0[i][K35_NY_IM] = 1;
-
-    k_f0[i][K24_NZ_RE] = 1;
-    k_f0[i][K24_NZ_IM] = 1;
-    k_f0[i][K25_NZ_RE] = 1;
-    k_f0[i][K25_NZ_IM] = 1;
-    k_f0[i][K34_NZ_RE] = 1;
-    k_f0[i][K34_NZ_IM] = 1;
-    k_f0[i][K35_NZ_RE] = 1;
-    k_f0[i][K35_NZ_IM] = 1;
-    }
-}
-
+// dans l'immédiat ne sert donc  plus à rien ...
diff --git a/basic_parameters.h b/basic_parameters.h
--- a/basic_parameters.h
+++ b/basic_parameters.h
@@ -3,6 +3,8 @@
 // version 1.1: 02/04/2014
 // version 1.2: 30/04/2014
 // version 1.3: 02/05/2014
+// version 1.4: 16/05/2014
+// version 1.5: 20/05/2014
 
 #ifndef BASIC_PARAMETERS_H_INCLUDED
 #define BASIC_PARAMETERS_H_INCLUDED
@@ -13,16 +15,13 @@
 
 #include "basic_parameters_params.h"
 
-float k_f0[NB_BINS_COMPRESSED_MATRIX_f0][32];
-
-void init_k_f0( void );
-static inline void BP1_set(float * compressed_spec_mat, unsigned char nb_bins_compressed_spec_mat, unsigned char * lfr_bp1);
+static inline void BP1_set(float * compressed_spec_mat, float * k_coeff_intercalib, unsigned char nb_bins_compressed_spec_mat, unsigned char * lfr_bp1);
 static inline void BP2_set(float * compressed_spec_mat, unsigned char nb_bins_compressed_spec_mat, unsigned char * lfr_bp2);
 
 //***********************************
 // STATIC INLINE FUNCTION DEFINITIONS
 
-void BP1_set( float * compressed_spec_mat, uint8_t nb_bins_compressed_spec_mat, uint8_t * lfr_bp1 ){
+void BP1_set( float * compressed_spec_mat, float * k_coeff_intercalib, uint8_t nb_bins_compressed_spec_mat, uint8_t * lfr_bp1 ){
     float PSDB;                         // 32-bit floating point
     float PSDE;
     float tmp;
@@ -57,8 +56,6 @@ void BP1_set( float * compressed_spec_ma
 
     alpha_M = 45 * (3.1415927/180);
 
-    init_k_f0();
-
 #ifdef DEBUG_TCH
     printf("BP1 : \n");
     printf("Number of bins: %d\n", nb_bins_compressed_spec_mat);
@@ -131,10 +128,10 @@ void BP1_set( float * compressed_spec_ma
 #endif
         //==============================================
         // BP1 PSDE == PA_LFR_SC_BP1_PE_F0 == 12 bits = 5 bits (exponent) + 7 bits (significand)
-        PSDE =  compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+21] * k_f0[i][K44_PE]        // S44
-              + compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+24] * k_f0[i][K55_PE]        // S55
-              + compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+22] * k_f0[i][K45_PE_RE]     // S45 Re
-              - compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+23] * k_f0[i][K45_PE_IM];    // S45 Im
+        PSDE =  compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+21] * k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K44_PE]        // S44
+              + compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+24] * k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K55_PE]        // S55
+              + compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+22] * k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K45_PE_RE]     // S45 Re
+              - compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+23] * k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K45_PE_IM];    // S45 Im
 
         significand = frexpf(PSDE/2, &exponent); // 0.5 <= significand < 1
                                                  // PSDE/2 = significand * 2^exponent
@@ -254,32 +251,32 @@ void BP1_set( float * compressed_spec_ma
         // BP1 X_SO-component of the Poynting flux == PA_LFR_SC_BP1_SX_F0 == 8 (+ 2) bits
         //                                          = 5 bits (exponent) + 3 bits (significand)
         //                                          + 1 sign bit + 1 argument bit (two sectors)
-        e_cross_b_re =  compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+17]*k_f0[i][K34_SX_RE]  //S34 Re
-                      + compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+19]*k_f0[i][K35_SX_RE]  //S35 Re
-                      + compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+5] *k_f0[i][K14_SX_RE]  //S14 Re
-                      + compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+7] *k_f0[i][K15_SX_RE]  //S15 Re
-                      + compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+12]*k_f0[i][K24_SX_RE]  //S24 Re
-                      + compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+14]*k_f0[i][K25_SX_RE]  //S25 Re
-                      + compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+18]*k_f0[i][K34_SX_IM]  //S34 Im
-                      + compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+20]*k_f0[i][K35_SX_IM]  //S35 Im
-                      + compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+6] *k_f0[i][K14_SX_IM]  //S14 Im
-                      + compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+8] *k_f0[i][K15_SX_IM]  //S15 Im
-                      + compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+13]*k_f0[i][K24_SX_IM]  //S24 Im
-                      + compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+15]*k_f0[i][K25_SX_IM]; //S25 Im
+        e_cross_b_re =  compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+17]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K34_SX_RE]  //S34 Re
+                      + compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+19]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K35_SX_RE]  //S35 Re
+                      + compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+5] *k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K14_SX_RE]  //S14 Re
+                      + compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+7] *k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K15_SX_RE]  //S15 Re
+                      + compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+12]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K24_SX_RE]  //S24 Re
+                      + compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+14]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K25_SX_RE]  //S25 Re
+                      + compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+18]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K34_SX_IM]  //S34 Im
+                      + compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+20]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K35_SX_IM]  //S35 Im
+                      + compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+6] *k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K14_SX_IM]  //S14 Im
+                      + compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+8] *k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K15_SX_IM]  //S15 Im
+                      + compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+13]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K24_SX_IM]  //S24 Im
+                      + compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+15]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K25_SX_IM]; //S25 Im
         // Im(S_ji) = -Im(S_ij)
         // k_ji = k_ij
-        e_cross_b_im =  compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+17]*k_f0[i][K34_SX_IM]  //S34 Re
-                      + compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+19]*k_f0[i][K35_SX_IM]  //S35 Re
-                      + compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+5] *k_f0[i][K14_SX_IM]  //S14 Re
-                      + compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+7] *k_f0[i][K15_SX_IM]  //S15 Re
-                      + compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+12]*k_f0[i][K24_SX_IM]  //S24 Re
-                      + compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+14]*k_f0[i][K25_SX_IM]  //S25 Re
-                      - compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+18]*k_f0[i][K34_SX_RE]  //S34 Im
-                      - compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+20]*k_f0[i][K35_SX_RE]  //S35 Im
-                      - compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+6] *k_f0[i][K14_SX_RE]  //S14 Im
-                      - compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+8] *k_f0[i][K15_SX_RE]  //S15 Im
-                      - compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+13]*k_f0[i][K24_SX_RE]  //S24 Im
-                      - compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+15]*k_f0[i][K25_SX_RE]; //S25 Im
+        e_cross_b_im =  compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+17]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K34_SX_IM]  //S34 Re
+                      + compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+19]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K35_SX_IM]  //S35 Re
+                      + compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+5] *k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K14_SX_IM]  //S14 Re
+                      + compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+7] *k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K15_SX_IM]  //S15 Re
+                      + compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+12]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K24_SX_IM]  //S24 Re
+                      + compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+14]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K25_SX_IM]  //S25 Re
+                      - compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+18]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K34_SX_RE]  //S34 Im
+                      - compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+20]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K35_SX_RE]  //S35 Im
+                      - compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+6] *k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K14_SX_RE]  //S14 Im
+                      - compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+8] *k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K15_SX_RE]  //S15 Im
+                      - compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+13]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K24_SX_RE]  //S24 Im
+                      - compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+15]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K25_SX_RE]; //S25 Im
 #ifdef DEBUG_TCH
         printf("ReaSX / 2   : %16.8e\n",e_cross_b_re/2);
 #endif
@@ -358,40 +355,40 @@ void BP1_set( float * compressed_spec_ma
                    + sin(alpha_M)*sin(alpha_M)*compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+16]  // S33 Re
                  - 2*sin(alpha_M)*cos(alpha_M)*compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+10]; // S23 Re
 
-        n_cross_e_scal_b_re = ny * (compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+12]*k_f0[i][K24_NY_RE]  //S24 Re
-                                   +compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+14]*k_f0[i][K25_NY_RE]  //S25 Re
-                                   +compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+17]*k_f0[i][K34_NY_RE]  //S34 Re
-                                   +compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+19]*k_f0[i][K35_NY_RE]  //S35 Re
-                                   +compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+13]*k_f0[i][K24_NY_IM]  //S24 Im
-                                   +compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+15]*k_f0[i][K25_NY_IM]  //S25 Im
-                                   +compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+18]*k_f0[i][K34_NY_IM]  //S34 Im
-                                   +compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+20]*k_f0[i][K35_NY_IM]) //S35 Im
-                            + nz * (compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+12]*k_f0[i][K24_NZ_RE]  //S24 Re
-                                   +compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+14]*k_f0[i][K25_NZ_RE]  //S25 Re
-                                   +compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+17]*k_f0[i][K34_NZ_RE]  //S34 Re
-                                   +compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+19]*k_f0[i][K35_NZ_RE]  //S35 Re
-                                   +compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+13]*k_f0[i][K24_NZ_IM]  //S24 Im
-                                   +compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+15]*k_f0[i][K25_NZ_IM]  //S25 Im
-                                   +compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+18]*k_f0[i][K34_NZ_IM]  //S34 Im
-                                   +compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+20]*k_f0[i][K35_NZ_IM]);//S35 Im
+        n_cross_e_scal_b_re = ny * (compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+12]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K24_NY_RE]  //S24 Re
+                                   +compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+14]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K25_NY_RE]  //S25 Re
+                                   +compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+17]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K34_NY_RE]  //S34 Re
+                                   +compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+19]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K35_NY_RE]  //S35 Re
+                                   +compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+13]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K24_NY_IM]  //S24 Im
+                                   +compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+15]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K25_NY_IM]  //S25 Im
+                                   +compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+18]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K34_NY_IM]  //S34 Im
+                                   +compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+20]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K35_NY_IM]) //S35 Im
+                            + nz * (compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+12]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K24_NZ_RE]  //S24 Re
+                                   +compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+14]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K25_NZ_RE]  //S25 Re
+                                   +compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+17]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K34_NZ_RE]  //S34 Re
+                                   +compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+19]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K35_NZ_RE]  //S35 Re
+                                   +compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+13]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K24_NZ_IM]  //S24 Im
+                                   +compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+15]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K25_NZ_IM]  //S25 Im
+                                   +compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+18]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K34_NZ_IM]  //S34 Im
+                                   +compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+20]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K35_NZ_IM]);//S35 Im
         // Im(S_ji) = -Im(S_ij)
         // k_ji = k_ij
-        n_cross_e_scal_b_im = ny * (compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+12]*k_f0[i][K24_NY_IM]  //S24 Re
-                                   +compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+14]*k_f0[i][K25_NY_IM]  //S25 Re
-                                   +compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+17]*k_f0[i][K34_NY_IM]  //S34 Re
-                                   +compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+19]*k_f0[i][K35_NY_IM]  //S35 Re
-                                   -compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+13]*k_f0[i][K24_NY_RE]  //S24 Im
-                                   -compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+15]*k_f0[i][K25_NY_RE]  //S25 Im
-                                   -compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+18]*k_f0[i][K34_NY_RE]  //S34 Im
-                                   -compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+20]*k_f0[i][K35_NY_RE]) //S35 Im
-                            + nz * (compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+12]*k_f0[i][K24_NZ_IM]  //S24 Re
-                                   +compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+14]*k_f0[i][K25_NZ_IM]  //S25 Re
-                                   +compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+17]*k_f0[i][K34_NZ_IM]  //S34 Re
-                                   +compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+19]*k_f0[i][K35_NZ_IM]  //S35 Re
-                                   -compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+13]*k_f0[i][K24_NZ_RE]  //S24 Im
-                                   -compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+15]*k_f0[i][K25_NZ_RE]  //S25 Im
-                                   -compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+18]*k_f0[i][K34_NZ_RE]  //S34 Im
-                                   -compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+20]*k_f0[i][K35_NZ_RE]);//S35 Im
+        n_cross_e_scal_b_im = ny * (compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+12]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K24_NY_IM]  //S24 Re
+                                   +compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+14]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K25_NY_IM]  //S25 Re
+                                   +compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+17]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K34_NY_IM]  //S34 Re
+                                   +compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+19]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K35_NY_IM]  //S35 Re
+                                   -compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+13]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K24_NY_RE]  //S24 Im
+                                   -compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+15]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K25_NY_RE]  //S25 Im
+                                   -compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+18]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K34_NY_RE]  //S34 Im
+                                   -compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+20]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K35_NY_RE]) //S35 Im
+                            + nz * (compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+12]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K24_NZ_IM]  //S24 Re
+                                   +compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+14]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K25_NZ_IM]  //S25 Re
+                                   +compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+17]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K34_NZ_IM]  //S34 Re
+                                   +compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+19]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K35_NZ_IM]  //S35 Re
+                                   -compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+13]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K24_NZ_RE]  //S24 Im
+                                   -compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+15]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K25_NZ_RE]  //S25 Im
+                                   -compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+18]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K34_NZ_RE]  //S34 Im
+                                   -compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+20]*k_coeff_intercalib[i*NB_K_COEFF_PER_BIN+K35_NZ_RE]);//S35 Im
 #ifdef DEBUG_TCH
         printf("n_cross_e_scal_b_re   : %16.8e\n",n_cross_e_scal_b_re);
         printf("n_cross_e_scal_b_im   : %16.8e\n",n_cross_e_scal_b_im);
diff --git a/basic_parameters_params.h b/basic_parameters_params.h
--- a/basic_parameters_params.h
+++ b/basic_parameters_params.h
@@ -1,3 +1,6 @@
+// version 1.4: 16/05/2014
+// version 1.5: 20/05/2014
+
 #ifndef BASIC_PARAMETERS_PARAMS_H
 #define BASIC_PARAMETERS_PARAMS_H
 
@@ -7,8 +10,11 @@
 #define NB_BYTES_BP1 9
 #define NB_BYTES_BP2 30
 
-//**
-// K
+//********************************************
+// K-COEFFICIENTS FOR ONBOARD INTERCALIBRATION
+
+#define NB_K_COEFF_PER_BIN 32
+
 #define K44_PE    0
 #define K55_PE    1
 #define K45_PE_RE 2
diff --git a/file_utilities.c b/file_utilities.c
--- a/file_utilities.c
+++ b/file_utilities.c
@@ -3,8 +3,10 @@
 // version 1.1: 02/04/2014
 // version 1.2: 30/04/2014
 // version 1.3: 02/05/2014
+// version 1.4: 16/05/2014
+// version 1.5: 20/05/2014
 
-#include <file_utilities.h>
+#include "file_utilities.h"
 
 int lecture_file_sm(const char *fileName)
 {
@@ -63,3 +65,46 @@ int lecture_file_sm(const char *fileName
     return 0;
 }
 
+void init_k_coefficients_f0( void )
+{
+    uint16_t i;                        // 16 bits unsigned
+
+    for(i=0; i<NB_BINS_COMPRESSED_MATRIX_f0; i++){
+   k_coefficients_f0[i*NB_K_COEFF_PER_BIN+K44_PE]    = 1;
+   k_coefficients_f0[i*NB_K_COEFF_PER_BIN+K55_PE]    = 1;
+   k_coefficients_f0[i*NB_K_COEFF_PER_BIN+K45_PE_RE] = 1;
+   k_coefficients_f0[i*NB_K_COEFF_PER_BIN+K45_PE_IM] = 1;
+
+   k_coefficients_f0[i*NB_K_COEFF_PER_BIN+K14_SX_RE] = 1;
+   k_coefficients_f0[i*NB_K_COEFF_PER_BIN+K14_SX_IM] = 1;
+   k_coefficients_f0[i*NB_K_COEFF_PER_BIN+K15_SX_RE] = 1;
+   k_coefficients_f0[i*NB_K_COEFF_PER_BIN+K15_SX_IM] = 1;
+   k_coefficients_f0[i*NB_K_COEFF_PER_BIN+K24_SX_RE] = 1;
+   k_coefficients_f0[i*NB_K_COEFF_PER_BIN+K24_SX_IM] = 1;
+   k_coefficients_f0[i*NB_K_COEFF_PER_BIN+K25_SX_RE] = 1;
+   k_coefficients_f0[i*NB_K_COEFF_PER_BIN+K25_SX_IM] = 1;
+   k_coefficients_f0[i*NB_K_COEFF_PER_BIN+K34_SX_RE] = 1;
+   k_coefficients_f0[i*NB_K_COEFF_PER_BIN+K34_SX_IM] = 1;
+   k_coefficients_f0[i*NB_K_COEFF_PER_BIN+K35_SX_RE] = 1;
+   k_coefficients_f0[i*NB_K_COEFF_PER_BIN+K35_SX_IM] = 1;
+
+   k_coefficients_f0[i*NB_K_COEFF_PER_BIN+K24_NY_RE] = 1;
+   k_coefficients_f0[i*NB_K_COEFF_PER_BIN+K24_NY_IM] = 1;
+   k_coefficients_f0[i*NB_K_COEFF_PER_BIN+K25_NY_RE] = 1;
+   k_coefficients_f0[i*NB_K_COEFF_PER_BIN+K25_NY_IM] = 1;
+   k_coefficients_f0[i*NB_K_COEFF_PER_BIN+K34_NY_RE] = 1;
+   k_coefficients_f0[i*NB_K_COEFF_PER_BIN+K34_NY_IM] = 1;
+   k_coefficients_f0[i*NB_K_COEFF_PER_BIN+K35_NY_RE] = 1;
+   k_coefficients_f0[i*NB_K_COEFF_PER_BIN+K35_NY_IM] = 1;
+
+   k_coefficients_f0[i*NB_K_COEFF_PER_BIN+K24_NZ_RE] = 1;
+   k_coefficients_f0[i*NB_K_COEFF_PER_BIN+K24_NZ_IM] = 1;
+   k_coefficients_f0[i*NB_K_COEFF_PER_BIN+K25_NZ_RE] = 1;
+   k_coefficients_f0[i*NB_K_COEFF_PER_BIN+K25_NZ_IM] = 1;
+   k_coefficients_f0[i*NB_K_COEFF_PER_BIN+K34_NZ_RE] = 1;
+   k_coefficients_f0[i*NB_K_COEFF_PER_BIN+K34_NZ_IM] = 1;
+   k_coefficients_f0[i*NB_K_COEFF_PER_BIN+K35_NZ_RE] = 1;
+   k_coefficients_f0[i*NB_K_COEFF_PER_BIN+K35_NZ_IM] = 1;
+    }
+}
+
diff --git a/file_utilities.h b/file_utilities.h
--- a/file_utilities.h
+++ b/file_utilities.h
@@ -3,16 +3,25 @@
 // version 1.1: 02/04/2014
 // version 1.2: 30/04/2014
 // version 1.3: 02/05/2014
+// version 1.4: 16/05/2014
+// version 1.5: 20/05/2014
 
 #ifndef FILE_UTILITIES_H
 #define FILE_UTILITIES_H
 
 #include <stdio.h>
 #include <malloc.h>
-#include <basic_parameters.h>
+
+#include "basic_parameters.h"
 
-extern float compressed_spectral_matrix_f0[NB_BINS_COMPRESSED_MATRIX_f0 * NB_VALUES_PER_SPECTRAL_MATRIX];
+float compressed_spectral_matrix_f0[NB_BINS_COMPRESSED_MATRIX_f0 * NB_VALUES_PER_SPECTRAL_MATRIX];
+float k_coefficients_f0[NB_BINS_COMPRESSED_MATRIX_f0 * NB_K_COEFF_PER_BIN];
+
+unsigned char LFR_BP1_f0[NB_BINS_COMPRESSED_MATRIX_f0*NB_BYTES_BP1];
+unsigned char LFR_BP2_f0[NB_BINS_COMPRESSED_MATRIX_f0*NB_BYTES_BP2];
 
 int lecture_file_sm(const char *fileName);
 
+void init_k_coefficients_f0( void );
+
 #endif // FILE_UTILITIES_H
diff --git a/main.c b/main.c
--- a/main.c
+++ b/main.c
@@ -3,15 +3,12 @@
 // version 1.1: 02/04/2014
 // version 1.2: 30/04/2014
 // version 1.3: 02/05/2014
+// version 1.4: 16/05/2014
+// version 1.5: 20/05/2014
 
 #include <stdio.h>
-#include <basic_parameters.h>
-#include <file_utilities.h>
 
-float compressed_spectral_matrix_f0[NB_BINS_COMPRESSED_MATRIX_f0 * NB_VALUES_PER_SPECTRAL_MATRIX];
-
-unsigned char LFR_BP1_f0[NB_BINS_COMPRESSED_MATRIX_f0*NB_BYTES_BP1];
-unsigned char LFR_BP2_f0[NB_BINS_COMPRESSED_MATRIX_f0*NB_BYTES_BP2];
+#include "file_utilities.h"
 
 int main(void)
 {
@@ -30,12 +27,13 @@ int main(void)
 
     //filename="/WIN/Users/chust/DD CHUST/Missions/Solar Orbiter/LFR/Prog C/tests bp Paul/tests2/sm_test2.dat";
     filename="sm_test2.dat";
+    lecture_file_sm(filename);
 
-    lecture_file_sm(filename);
+    init_k_coefficients_f0();
 
     printf("\n");
 
-    BP1_set(compressed_spectral_matrix_f0, NB_BINS_COMPRESSED_MATRIX_f0, LFR_BP1_f0);
+    BP1_set(compressed_spectral_matrix_f0, k_coefficients_f0, NB_BINS_COMPRESSED_MATRIX_f0, LFR_BP1_f0);
 
     printf("\n");