NR_IF_Module.c 14.5 KB
Newer Older
WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
/*
 * Licensed to the OpenAirInterface (OAI) Software Alliance under one or more
 * contributor license agreements.  See the NOTICE file distributed with
 * this work for additional information regarding copyright ownership.
 * The OpenAirInterface Software Alliance licenses this file to You under
 * the OAI Public License, Version 1.1  (the "License"); you may not use this file
 * except in compliance with the License.
 * You may obtain a copy of the License at
 *
 *      http://www.openairinterface.org/?page_id=698
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 *-------------------------------------------------------------------------------
 * For more information about the OpenAirInterface (OAI) Software Alliance:
 *      contact@openairinterface.org
 */

/*! \file openair2/NR_PHY_INTERFACE/NR_IF_Module.c
* \brief data structures for PHY/MAC interface modules
* \author EURECOM/NTUST
* \date 2018
* \version 0.1
* \company Eurecom, NTUST
* \email: raymond.knopp@eurecom.fr, kroempa@gmail.com
* \note
* \warning
*/

33 34
#include "openair1/PHY/defs_eNB.h"
#include "openair1/PHY/phy_extern.h"
35 36
#include "openair1/SCHED_NR/fapi_nr_l1.h"
#include "openair2/NR_PHY_INTERFACE/NR_IF_Module.h"
37
#include "LAYER2/MAC/mac_extern.h"
38
#include "LAYER2/MAC/mac_proto.h"
39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54
#include "LAYER2/NR_MAC_gNB/mac_proto.h"
#include "common/ran_context.h"

#define MAX_IF_MODULES 100

NR_IF_Module_t *if_inst[MAX_IF_MODULES];
NR_Sched_Rsp_t Sched_INFO[MAX_IF_MODULES][MAX_NUM_CCs];

extern int oai_nfapi_harq_indication(nfapi_harq_indication_t *harq_ind);
extern int oai_nfapi_crc_indication(nfapi_crc_indication_t *crc_ind);
extern int oai_nfapi_cqi_indication(nfapi_cqi_indication_t *cqi_ind);
extern int oai_nfapi_sr_indication(nfapi_sr_indication_t *ind);
extern int oai_nfapi_rx_ind(nfapi_rx_indication_t *ind);
extern uint8_t nfapi_mode;
extern uint16_t sf_ahead;

55
void handle_nr_rach(NR_UL_IND_t *UL_info) {
WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
56 57 58
  if (UL_info->rach_ind.rach_indication_body.number_of_preambles>0) {
    AssertFatal(UL_info->rach_ind.rach_indication_body.number_of_preambles==1,"More than 1 preamble not supported\n");
    UL_info->rach_ind.rach_indication_body.number_of_preambles=0;
59
    LOG_D(MAC,"UL_info[Frame %d, Slot %d] Calling initiate_ra_proc RACH:SFN/SF:%d\n",UL_info->frame,UL_info->slot, NFAPI_SFNSF2DEC(UL_info->rach_ind.sfn_sf));
Raymond Knopp's avatar
Raymond Knopp committed
60
    /*
WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
61 62
    initiate_ra_proc(UL_info->module_id,

63 64 65 66 67 68
    		         UL_info->CC_id,
					 NFAPI_SFNSF2SFN(UL_info->rach_ind.sfn_sf),
					 NFAPI_SFNSF2SF(UL_info->rach_ind.sfn_sf),
					 UL_info->rach_ind.rach_indication_body.preamble_list[0].preamble_rel8.preamble,
					 UL_info->rach_ind.rach_indication_body.preamble_list[0].preamble_rel8.timing_advance,
					 UL_info->rach_ind.rach_indication_body.preamble_list[0].preamble_rel8.rnti
69
#if (NR_RRC_VERSION >= MAKE_VERSION(14, 0, 0)) || (LTE_RRC_VERSION >= MAKE_VERSION(14, 0, 0))
70
//#if (RRC_VERSION >= MAKE_VERSION(14, 0, 0))
71
                    ,0
WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
72 73 74
#endif

         );
Raymond Knopp's avatar
Raymond Knopp committed
75
    */
WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
76 77 78 79 80 81 82 83 84 85 86
  }

}

void handle_nr_sr(NR_UL_IND_t *UL_info) {


  if (nfapi_mode == 1)  // PNF
  {
    if (UL_info->sr_ind.sr_indication_body.number_of_srs>0)
    {
Raymond Knopp's avatar
Raymond Knopp committed
87
      //      oai_nfapi_sr_indication(&UL_info->sr_ind);
WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
88 89 90 91
    }
  }
  else
  {
92

Raymond Knopp's avatar
Raymond Knopp committed
93 94
    /*
    for (int i=0;i<UL_info->sr_ind.sr_indication_body.number_of_srs;i++)
WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
95 96 97
      SR_indication(UL_info->module_id,
          UL_info->CC_id,
          UL_info->frame,
98
          UL_info->slot,
WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
99
          UL_info->sr_ind.sr_indication_body.sr_pdu_list[i].rx_ue_information.rnti,
Raymond Knopp's avatar
Raymond Knopp committed
100
          UL_info->sr_ind.sr_indication_body.sr_pdu_list[i].ul_cqi_information.ul_cqi);*/
101 102 103



WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
104 105 106 107 108 109
  }

  UL_info->sr_ind.sr_indication_body.number_of_srs=0;
}

void handle_nr_cqi(NR_UL_IND_t *UL_info) {
110 111
  if (nfapi_mode == 1) {
    if (UL_info->cqi_ind.number_of_cqis>0) {
WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
112 113 114
      LOG_D(PHY,"UL_info->cqi_ind.number_of_cqis:%d\n", UL_info->cqi_ind.number_of_cqis);
      nfapi_cqi_indication_t ind;
      ind.header.message_id = NFAPI_RX_CQI_INDICATION;
115
      ind.sfn_sf = UL_info->frame<<4 | UL_info->slot;
WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
116 117
      ind.cqi_indication_body = UL_info->cqi_ind;

Raymond Knopp's avatar
Raymond Knopp committed
118
      //      oai_nfapi_cqi_indication(&ind);
WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
119 120 121 122 123 124

      UL_info->cqi_ind.number_of_cqis=0;
    }
  }
  else
  {
125

Raymond Knopp's avatar
Raymond Knopp committed
126 127
    /*
    for (int i=0;i<UL_info->cqi_ind.number_of_cqis;i++) 
WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
128 129 130
      cqi_indication(UL_info->module_id,
          UL_info->CC_id,
          UL_info->frame,
131
          UL_info->slot,
WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
132 133 134 135
          UL_info->cqi_ind.cqi_pdu_list[i].rx_ue_information.rnti,
          &UL_info->cqi_ind.cqi_pdu_list[i].cqi_indication_rel9,
          UL_info->cqi_ind.cqi_raw_pdu_list[i].pdu,
          &UL_info->cqi_ind.cqi_pdu_list[i].ul_cqi_information);
Raymond Knopp's avatar
Raymond Knopp committed
136
    */
WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
137 138 139 140 141
    UL_info->cqi_ind.number_of_cqis=0;
  }
}

void handle_nr_harq(NR_UL_IND_t *UL_info) {
142
  if (nfapi_mode == 1 && UL_info->harq_ind.harq_indication_body.number_of_harqs>0) { // PNF
WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
143
    //LOG_D(PHY, "UL_info->harq_ind.harq_indication_body.number_of_harqs:%d Send to VNF\n", UL_info->harq_ind.harq_indication_body.number_of_harqs);
Raymond Knopp's avatar
Raymond Knopp committed
144
    /*    int retval = oai_nfapi_harq_indication(&UL_info->harq_ind);
WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
145

146
    if (retval!=0) {
WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
147 148
      LOG_E(PHY, "Failed to encode NFAPI HARQ_IND retval:%d\n", retval);
    }
Raymond Knopp's avatar
Raymond Knopp committed
149
    */
WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
150 151 152 153
    UL_info->harq_ind.harq_indication_body.number_of_harqs = 0;
  }
  else
  {
Raymond Knopp's avatar
Raymond Knopp committed
154 155
    /*
    for (int i=0;i<UL_info->harq_ind.harq_indication_body.number_of_harqs;i++)
WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
156 157 158 159 160
      harq_indication(UL_info->module_id,
          UL_info->CC_id,
          NFAPI_SFNSF2SFN(UL_info->harq_ind.sfn_sf),
          NFAPI_SFNSF2SF(UL_info->harq_ind.sfn_sf),
          &UL_info->harq_ind.harq_indication_body.harq_pdu_list[i]);
Raymond Knopp's avatar
Raymond Knopp committed
161
    */
WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
162 163 164 165 166
    UL_info->harq_ind.harq_indication_body.number_of_harqs=0;
  }
}

void handle_nr_ulsch(NR_UL_IND_t *UL_info) {
167 168
  if(nfapi_mode == 1) {
    if (UL_info->crc_ind.crc_indication_body.number_of_crcs>0) {
WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
169
      //LOG_D(PHY,"UL_info->crc_ind.crc_indication_body.number_of_crcs:%d CRC_IND:SFN/SF:%d\n", UL_info->crc_ind.crc_indication_body.number_of_crcs, NFAPI_SFNSF2DEC(UL_info->crc_ind.sfn_sf));
Raymond Knopp's avatar
Raymond Knopp committed
170
      //      oai_nfapi_crc_indication(&UL_info->crc_ind);
WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
171 172 173 174

      UL_info->crc_ind.crc_indication_body.number_of_crcs = 0;
    }

175
    if (UL_info->rx_ind.rx_indication_body.number_of_pdus>0) {
WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
176
      //LOG_D(PHY,"UL_info->rx_ind.number_of_pdus:%d RX_IND:SFN/SF:%d\n", UL_info->rx_ind.rx_indication_body.number_of_pdus, NFAPI_SFNSF2DEC(UL_info->rx_ind.sfn_sf));
Raymond Knopp's avatar
Raymond Knopp committed
177
      //      oai_nfapi_rx_ind(&UL_info->rx_ind);
WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
178 179
      UL_info->rx_ind.rx_indication_body.number_of_pdus = 0;
    }
180
  } else {
Raymond Knopp's avatar
Raymond Knopp committed
181
    
WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
182
    if (UL_info->rx_ind.rx_indication_body.number_of_pdus>0 && UL_info->crc_ind.crc_indication_body.number_of_crcs>0) {
183 184
      for (int i=0; i<UL_info->rx_ind.rx_indication_body.number_of_pdus; i++) {
        for (int j=0; j<UL_info->crc_ind.crc_indication_body.number_of_crcs; j++) {
WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
185
          // find crc_indication j corresponding rx_indication i
186 187 188
          LOG_D(PHY,"UL_info->crc_ind.crc_indication_body.crc_pdu_list[%d].rx_ue_information.rnti:%04x UL_info->rx_ind.rx_indication_body.rx_pdu_list[%d].rx_ue_information.rnti:%04x\n", j,
                UL_info->crc_ind.crc_indication_body.crc_pdu_list[j].rx_ue_information.rnti, i, UL_info->rx_ind.rx_indication_body.rx_pdu_list[i].rx_ue_information.rnti);

WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
189 190 191
          if (UL_info->crc_ind.crc_indication_body.crc_pdu_list[j].rx_ue_information.rnti ==
              UL_info->rx_ind.rx_indication_body.rx_pdu_list[i].rx_ue_information.rnti) {
            LOG_D(PHY, "UL_info->crc_ind.crc_indication_body.crc_pdu_list[%d].crc_indication_rel8.crc_flag:%d\n", j, UL_info->crc_ind.crc_indication_body.crc_pdu_list[j].crc_indication_rel8.crc_flag);
192

WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
193
            if (UL_info->crc_ind.crc_indication_body.crc_pdu_list[j].crc_indication_rel8.crc_flag == 1) { // CRC error indication
194
              LOG_D(MAC,"Frame %d, Slot %d Calling rx_sdu (CRC error) \n",UL_info->frame,UL_info->slot);
Raymond Knopp's avatar
Raymond Knopp committed
195
	      /*
WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
196 197 198
              rx_sdu(UL_info->module_id,
                  UL_info->CC_id,
                  NFAPI_SFNSF2SFN(UL_info->rx_ind.sfn_sf), //UL_info->frame,
199
                  NFAPI_SFNSF2SF(UL_info->rx_ind.sfn_sf), //UL_info->slot,
WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
200 201 202 203 204
                  UL_info->rx_ind.rx_indication_body.rx_pdu_list[i].rx_ue_information.rnti,
                  (uint8_t *)NULL,
                  UL_info->rx_ind.rx_indication_body.rx_pdu_list[i].rx_indication_rel8.length,
                  UL_info->rx_ind.rx_indication_body.rx_pdu_list[i].rx_indication_rel8.timing_advance,
                  UL_info->rx_ind.rx_indication_body.rx_pdu_list[i].rx_indication_rel8.ul_cqi);
Raymond Knopp's avatar
Raymond Knopp committed
205
	      */
WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
206 207
            }
            else {
208
              LOG_D(MAC,"Frame %d, Slot %d Calling rx_sdu (CRC ok) \n",UL_info->frame,UL_info->slot);
Raymond Knopp's avatar
Raymond Knopp committed
209
	      /*
WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
210 211 212
              rx_sdu(UL_info->module_id,
                  UL_info->CC_id,
                  NFAPI_SFNSF2SFN(UL_info->rx_ind.sfn_sf), //UL_info->frame,
213
                  NFAPI_SFNSF2SF(UL_info->rx_ind.sfn_sf), //UL_info->slot,
WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
214 215 216 217 218
                  UL_info->rx_ind.rx_indication_body.rx_pdu_list[i].rx_ue_information.rnti,
                  UL_info->rx_ind.rx_indication_body.rx_pdu_list[i].data,
                  UL_info->rx_ind.rx_indication_body.rx_pdu_list[i].rx_indication_rel8.length,
                  UL_info->rx_ind.rx_indication_body.rx_pdu_list[i].rx_indication_rel8.timing_advance,
                  UL_info->rx_ind.rx_indication_body.rx_pdu_list[i].rx_indication_rel8.ul_cqi);
Raymond Knopp's avatar
Raymond Knopp committed
219
	      */
WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
220
            }
221

WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
222 223
            break;
          } //if (UL_info->crc_ind.crc_pdu_list[j].rx_ue_information.rnti ==
224

WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
225 226 227
          //    UL_info->rx_ind.rx_pdu_list[i].rx_ue_information.rnti)
        } //    for (j=0;j<UL_info->crc_ind.crc_indication_body.number_of_crcs;j++)
      } //   for (i=0;i<UL_info->rx_ind.number_of_pdus;i++)
228

WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
229 230
      UL_info->crc_ind.crc_indication_body.number_of_crcs=0;
      UL_info->rx_ind.rx_indication_body.number_of_pdus = 0;
231
    } // UL_info->rx_ind.rx_indication_body.number_of_pdus>0 && UL_info->slot && UL_info->crc_ind.crc_indication_body.number_of_crcs>0
WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
232 233
    else if (UL_info->rx_ind.rx_indication_body.number_of_pdus!=0 || UL_info->crc_ind.crc_indication_body.number_of_crcs!=0) {
      LOG_E(PHY,"hoping not to have mis-match between CRC ind and RX ind - hopefully the missing message is coming shortly rx_ind:%d(SFN/SF:%05d) crc_ind:%d(SFN/SF:%05d) UL_info(SFN/SF):%04d%d\n",
234 235 236
            UL_info->rx_ind.rx_indication_body.number_of_pdus, NFAPI_SFNSF2DEC(UL_info->rx_ind.sfn_sf),
            UL_info->crc_ind.crc_indication_body.number_of_crcs, NFAPI_SFNSF2DEC(UL_info->crc_ind.sfn_sf),
            UL_info->frame, UL_info->slot);
WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
237 238 239 240
    }
  }
}

241
void NR_UL_indication(NR_UL_IND_t *UL_info) {
242 243 244 245
  AssertFatal(UL_info!=NULL,"UL_INFO is null\n");
#ifdef DUMP_FAPI
  dump_ul(UL_info);
#endif
246 247 248 249 250
  module_id_t      module_id   = UL_info->module_id;
  int              CC_id       = UL_info->CC_id;
  NR_Sched_Rsp_t   *sched_info = &Sched_INFO[module_id][CC_id];
  NR_IF_Module_t   *ifi        = if_inst[module_id];
  gNB_MAC_INST     *mac        = RC.nrmac[module_id];
251
  LOG_D(PHY,"SFN/SF:%d%d module_id:%d CC_id:%d UL_info[rx_ind:%d harqs:%d crcs:%d cqis:%d preambles:%d sr_ind:%d]\n",
252
        UL_info->frame,UL_info->slot,
253
        module_id,CC_id,
254 255
        UL_info->rx_ind.rx_indication_body.number_of_pdus, UL_info->harq_ind.harq_indication_body.number_of_harqs, UL_info->crc_ind.crc_indication_body.number_of_crcs, UL_info->cqi_ind.number_of_cqis,
        UL_info->rach_ind.rach_indication_body.number_of_preambles, UL_info->sr_ind.sr_indication_body.number_of_srs);
256

257
  if (nfapi_mode != 1) {
258 259
    if (ifi->CC_mask==0) {
      ifi->current_frame    = UL_info->frame;
260
      ifi->current_slot = UL_info->slot;
261
    } else {
262
      AssertFatal(UL_info->frame != ifi->current_frame,"CC_mask %x is not full and frame has changed\n",ifi->CC_mask);
263
      AssertFatal(UL_info->slot != ifi->current_slot,"CC_mask %x is not full and slot has changed\n",ifi->CC_mask);
264
    }
265

266 267 268 269
    ifi->CC_mask |= (1<<CC_id);
  }

  // clear DL/UL info for new scheduling round
270
  clear_nr_nfapi_information(mac,CC_id,UL_info->frame,UL_info->slot);
WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
271 272 273 274
  handle_nr_rach(UL_info);
  handle_nr_sr(UL_info);
  handle_nr_cqi(UL_info);
  handle_nr_harq(UL_info);
275
  // clear HI prior to handling ULSCH
276
  mac->UL_dci_req[CC_id].numPdus = 0;
WEI-TAI CHEN's avatar
WEI-TAI CHEN committed
277
  handle_nr_ulsch(UL_info);
278

279
  if (nfapi_mode != 1) {
280
    if (ifi->CC_mask == ((1<<MAX_NUM_CCs)-1)) {
281
      /*
282
      eNB_dlsch_ulsch_scheduler(module_id,
283 284
          (UL_info->frame+((UL_info->slot>(9-sf_ahead))?1:0)) % 1024,
          (UL_info->slot+sf_ahead)%10);
285
      */
286
      nfapi_nr_config_request_scf_t *cfg = &mac->config[CC_id];
287
      int spf = get_spf(cfg);
288
      gNB_dlsch_ulsch_scheduler(module_id,
289 290 291 292
				UL_info->frame,
				UL_info->slot,
				(UL_info->frame+((UL_info->slot>(spf-1-sf_ahead))?1:0)) % 1024,
				(UL_info->slot+sf_ahead)%spf);
293
      
294 295 296
      ifi->CC_mask            = 0;
      sched_info->module_id   = module_id;
      sched_info->CC_id       = CC_id;
297
      sched_info->frame       = (UL_info->frame + ((UL_info->slot>(spf-1-sf_ahead)) ? 1 : 0)) % 1024;
298
      sched_info->slot        = (UL_info->slot+sf_ahead)%spf;
299
      sched_info->DL_req      = &mac->DL_req[CC_id];
300
      sched_info->UL_dci_req  = &mac->UL_dci_req[CC_id];
301

302
      if ((mac->common_channels[CC_id].ServingCellConfigCommon->tdd_UL_DL_ConfigurationCommon==NULL) ||
303
          (is_nr_UL_slot(&mac->common_channels[CC_id],(sched_info->slot+sf_ahead)%spf)>0))
304
        sched_info->UL_tti_req      = &mac->UL_tti_req[CC_id];
305
      else
306
        sched_info->UL_tti_req      = NULL;
307 308 309 310 311 312

      sched_info->TX_req      = &mac->TX_req[CC_id];
#ifdef DUMP_FAPI
      dump_dl(sched_info);
#endif

313
      if (ifi->NR_Schedule_response) {
314 315 316 317 318
        AssertFatal(ifi->NR_Schedule_response!=NULL,
                    "nr_schedule_response is null (mod %d, cc %d)\n",
                    module_id,
                    CC_id);
        ifi->NR_Schedule_response(sched_info);
319 320
      }

Raymond Knopp's avatar
Raymond Knopp committed
321 322 323 324
      LOG_D(PHY,"NR_Schedule_response: SFN_SF:%d%d dl_pdus:%d\n",
	    sched_info->frame,
	    sched_info->slot,
	    sched_info->DL_req->dl_tti_request_body.nPDUs);
325 326 327 328
    }
  }
}

329
NR_IF_Module_t *NR_IF_Module_init(int Mod_id) {
330 331 332 333 334 335 336
  AssertFatal(Mod_id<MAX_MODULES,"Asking for Module %d > %d\n",Mod_id,MAX_IF_MODULES);
  LOG_D(PHY,"Installing callbacks for IF_Module - UL_indication\n");

  if (if_inst[Mod_id]==NULL) {
    if_inst[Mod_id] = (NR_IF_Module_t*)malloc(sizeof(NR_IF_Module_t));
    memset((void*)if_inst[Mod_id],0,sizeof(NR_IF_Module_t));

337 338
    LOG_I(MAC,"Allocating shared L1/L2 interface structure for instance %d @ %p\n",Mod_id,if_inst[Mod_id]);

339
    if_inst[Mod_id]->CC_mask=0;
340
    if_inst[Mod_id]->NR_UL_indication = NR_UL_indication;
341
    AssertFatal(pthread_mutex_init(&if_inst[Mod_id]->if_mutex,NULL)==0,
342
                "allocation of if_inst[%d]->if_mutex fails\n",Mod_id);
343
  }
344

345
  return if_inst[Mod_id];
346
}