Merge "MIB periodicity fix Jira ID : ODUHIGH-183"
[o-du/l2.git] / src / du_app / du_cfg.c
1 /*******************************************************************************
2 ################################################################################
3 #   Copyright (c) [2017-2019] [Radisys]                                        #
4 #                                                                              #
5 #   Licensed under the Apache License, Version 2.0 (the "License");            #
6 #   you may not use this file except in compliance with the License.           #
7 #   You may obtain a copy of the License at                                    #
8 #                                                                              #
9 #       http://www.apache.org/licenses/LICENSE-2.0                             #
10 #                                                                              #
11 #   Unless required by applicable law or agreed to in writing, software        #
12 #   distributed under the License is distributed on an "AS IS" BASIS,          #
13 #   WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.   #
14 #   See the License for the specific language governing permissions and        #
15 #   limitations under the License.                                             #
16 ################################################################################
17 *******************************************************************************/
18
19 /* This file contains all utility functions */
20 #include "du_mgr.h"
21 #include "du_sys_info_hdl.h"
22 #include "MIB.h"
23 #include "SearchSpace.h"
24 #include "SIB-TypeInfo.h"
25 #include "SchedulingInfo.h"
26 #include "SI-SchedulingInfo.h"
27 #include "ConnEstFailureControl.h"
28 #include "PLMN-IdentityInfo.h"
29 #include "odu_common_codec.h"
30 #include "PDSCH-TimeDomainResourceAllocation.h"
31 #include "BCCH-Config.h"
32 #include "PagingCycle.h"
33 #include "PCCH-Config.h"
34 #include "TimeAlignmentTimer.h"
35 #include "RACH-ConfigGeneric.h"
36 #include "PUSCH-TimeDomainResourceAllocation.h"
37 #include "PUCCH-ConfigCommon.h"
38 #include "SubcarrierSpacing.h"
39 #include "TDD-UL-DL-Pattern.h"
40 #include "RACH-ConfigCommon.h"
41 #include "BWP-DownlinkCommon.h"
42 #include "BWP-UplinkCommon.h"
43
44 extern DuCfgParams duCfgParam;
45 extern char encBuf[ENC_BUF_MAX_LEN];
46
47
48 /* Filling Slot configuration as :
49  * Slot Sym 0 Sym 1 Sym 2 Sym 3 Sym 4 Sym 5 Sym 6 Sym 7 Sym 8 Sym 9 Sym10 Sym11 Sym12 Sym13
50  *   0   DL    DL    DL    DL    DL    DL    DL    DL    DL    DL    DL    DL    DL    DL
51  *   1   DL    DL    DL    DL    DL    DL    DL    DL    DL    DL    DL    DL    DL    DL
52  *   2   DL    DL    DL    DL    DL    DL    DL    DL    DL    DL    DL    DL    DL    DL
53  *   3   DL    DL    DL    DL    DL    DL    DL    DL    DL    DL    GD    GD    GD    UL
54  *   4   UL    UL    UL    UL    UL    UL    UL    UL    UL    UL    UL    UL    UL    UL
55 */
56
57 /*******************************************************************
58  *
59  * @brief Fills the Slot configuration 
60  *
61  * @details
62  *
63  *    Function : FillSlotConfig
64  *
65  *    Functionality:Fill the Slot configuration values
66  * 
67  *  @params[in] void
68  * @return ROK     - success
69  *         RFAILED - failure
70  *
71  * ****************************************************************/
72 void FillSlotConfig()
73 {
74    U8 slot;
75    U8 symbol;
76
77    for(slot = 0; slot <= 3; slot++)
78    {
79       for(symbol = 0; symbol < MAX_SYMB_PER_SLOT; symbol++)
80          duCfgParam.macCellCfg.tddCfg.slotCfg[slot][symbol] = DL_SLOT;
81    }
82
83    duCfgParam.macCellCfg.tddCfg.slotCfg[3][10] = GUARD_SLOT;
84    duCfgParam.macCellCfg.tddCfg.slotCfg[3][11] = GUARD_SLOT;
85    duCfgParam.macCellCfg.tddCfg.slotCfg[3][12] = GUARD_SLOT;
86    duCfgParam.macCellCfg.tddCfg.slotCfg[3][13] = UL_SLOT;
87
88    for(symbol = 0; symbol < MAX_SYMB_PER_SLOT; symbol++)
89       duCfgParam.macCellCfg.tddCfg.slotCfg[4][symbol] = UL_SLOT;
90
91 }
92
93 /*******************************************************************
94  *
95  * @brief Reads the CL Configuration.
96  *
97  * @details
98  *
99  *    Function : readMacCfg
100  *
101  *    Functionality:
102  *       - Fills up the cell configuration for CL.
103  *       - Calls FillSlotConfig()  
104  *
105  * @params[in] void
106  * @return ROK     - success
107  *         RFAILED - failure
108  *
109  * ****************************************************************/
110
111
112 /* This function is used to fill up the cell configuration for CL */
113 S16 readMacCfg()
114 {
115    duCfgParam.macCellCfg.carrierId = CARRIER_IDX;
116
117    /* Cell configuration */
118    duCfgParam.macCellCfg.cellId = NR_CELL_ID;
119    duCfgParam.macCellCfg.phyCellId = NR_PCI;
120    duCfgParam.macCellCfg.dupType = DUPLEX_MODE;
121
122    /* DL carrier configuration */
123    duCfgParam.macCellCfg.dlCarrCfg.pres = TRUE;
124    duCfgParam.macCellCfg.dlCarrCfg.bw = BANDWIDTH;
125    duCfgParam.macCellCfg.dlCarrCfg.freq = NR_ARFCN;
126    duCfgParam.macCellCfg.dlCarrCfg.k0[0] = 1;
127    duCfgParam.macCellCfg.dlCarrCfg.k0[1] = 1;
128    duCfgParam.macCellCfg.dlCarrCfg.k0[2] = 1;
129    duCfgParam.macCellCfg.dlCarrCfg.k0[3] = 1;
130    duCfgParam.macCellCfg.dlCarrCfg.k0[4] = 1;
131    duCfgParam.macCellCfg.dlCarrCfg.gridSize[0] = 1;
132    duCfgParam.macCellCfg.dlCarrCfg.gridSize[1] = 1;
133    duCfgParam.macCellCfg.dlCarrCfg.gridSize[2] = 1;
134    duCfgParam.macCellCfg.dlCarrCfg.gridSize[3] = 1;
135    duCfgParam.macCellCfg.dlCarrCfg.gridSize[4] = 1;
136    duCfgParam.macCellCfg.dlCarrCfg.numAnt = NUM_TX_ANT;
137
138    /* UL Carrier configuration */
139    duCfgParam.macCellCfg.ulCarrCfg.pres = TRUE;
140    duCfgParam.macCellCfg.ulCarrCfg.bw = SUL_ARFCN;
141    duCfgParam.macCellCfg.ulCarrCfg.freq = NR_ARFCN;
142    duCfgParam.macCellCfg.ulCarrCfg.k0[0] = 1;
143    duCfgParam.macCellCfg.ulCarrCfg.k0[1] = 1;
144    duCfgParam.macCellCfg.ulCarrCfg.k0[2] = 1;
145    duCfgParam.macCellCfg.ulCarrCfg.k0[3] = 1;
146    duCfgParam.macCellCfg.ulCarrCfg.k0[4] = 1;
147    duCfgParam.macCellCfg.ulCarrCfg.gridSize[0] = 1;
148    duCfgParam.macCellCfg.ulCarrCfg.gridSize[1] = 1;
149    duCfgParam.macCellCfg.ulCarrCfg.gridSize[2] = 1;
150    duCfgParam.macCellCfg.ulCarrCfg.gridSize[3] = 1;
151    duCfgParam.macCellCfg.ulCarrCfg.gridSize[4] = 1;
152    duCfgParam.macCellCfg.ulCarrCfg.numAnt = NUM_RX_ANT;
153
154    duCfgParam.macCellCfg.freqShft = FREQ_SHIFT_7P5KHZ;
155
156    /* SSB configuration */
157    duCfgParam.macCellCfg.ssbCfg.ssbPbchPwr = SSB_PBCH_PWR;
158    duCfgParam.macCellCfg.ssbCfg.bchPayloadFlag = BCH_PAYLOAD;
159    duCfgParam.macCellCfg.ssbCfg.scsCmn = SUBCARRIER_SPACING;
160    duCfgParam.macCellCfg.ssbCfg.ssbOffsetPointA = OFFSET_TO_POINT_A;
161    duCfgParam.macCellCfg.ssbCfg.betaPss = BETA_PSS;
162    duCfgParam.macCellCfg.ssbCfg.ssbPeriod = SSB_PERIODICITY_20MS;
163    duCfgParam.macCellCfg.ssbCfg.ssbScOffset = SSB_SUBCARRIER_OFFSET;
164    duCfgParam.macCellCfg.ssbCfg.ssbMask[0] = 1; /* only one SSB is transmitted */
165    duCfgParam.macCellCfg.ssbCfg.ssbMask[1] = 0;
166    if(BuildMibPdu() != ROK)
167         {
168                 DU_LOG("\nFailed to build MIB PDU");
169                 memset(&duCfgParam.macCellCfg.ssbCfg.mibPdu, 0, 3*sizeof(uint8_t));
170    }
171         else
172         {
173            for(uint8_t idx=0; idx<encBufSize; idx++)
174                 {
175                         duCfgParam.macCellCfg.ssbCfg.mibPdu[idx]=encBuf[idx];
176                 }
177         }
178    duCfgParam.macCellCfg.ssbCfg.multCarrBand = SSB_MULT_CARRIER_BAND;
179    duCfgParam.macCellCfg.ssbCfg.multCellCarr = MULT_CELL_CARRIER;
180
181    /* PRACH configuration */
182    duCfgParam.macCellCfg.prachCfg.pres = TRUE;
183         duCfgParam.macCellCfg.prachCfg.prachCfgIdx = PRACH_CONFIG_IDX;
184    duCfgParam.macCellCfg.prachCfg.prachSeqLen = PRACH_SEQ_LEN;
185    duCfgParam.macCellCfg.prachCfg.prachSubcSpacing = PRACH_SUBCARRIER_SPACING;
186    duCfgParam.macCellCfg.prachCfg.prachRstSetCfg = PRACH_RESTRICTED_SET_CFG;
187    duCfgParam.macCellCfg.prachCfg.msg1Fdm = NUM_PRACH_FDM;
188         duCfgParam.macCellCfg.prachCfg.msg1FreqStart = PRACH_FREQ_START;
189         duCfgParam.macCellCfg.prachCfg.rootSeqLen    = ROOT_SEQ_LEN;
190    duCfgParam.macCellCfg.prachCfg.fdm[0].rootSeqIdx = ROOT_SEQ_IDX;
191    duCfgParam.macCellCfg.prachCfg.fdm[0].numRootSeq = NUM_ROOT_SEQ;
192    duCfgParam.macCellCfg.prachCfg.fdm[0].k1 = 1;
193    duCfgParam.macCellCfg.prachCfg.fdm[0].zeroCorrZoneCfg = ZERO_CORRELATION_ZONE_CFG;
194    duCfgParam.macCellCfg.prachCfg.fdm[0].numUnusedRootSeq = NUM_UNUSED_ROOT_SEQ;
195         if(duCfgParam.macCellCfg.prachCfg.fdm[0].numUnusedRootSeq != 0)
196         {
197                 DU_ALLOC(duCfgParam.macCellCfg.prachCfg.fdm[0].unsuedRootSeq, 
198                                 NUM_UNUSED_ROOT_SEQ * sizeof(U8));
199                 if(duCfgParam.macCellCfg.prachCfg.fdm[0].unsuedRootSeq == NULLP)
200                 {
201                         DU_LOG("\nDU_APP : Memory allocation failed");
202                         RETVALUE(RFAILED);
203                 }
204                 *(duCfgParam.macCellCfg.prachCfg.fdm[0].unsuedRootSeq) = UNUSED_ROOT_SEQ;
205         }
206    duCfgParam.macCellCfg.prachCfg.ssbPerRach = SSB_PER_RACH;
207    duCfgParam.macCellCfg.prachCfg.prachMultCarrBand = PRACH_MULT_CARRIER_BAND;
208    duCfgParam.macCellCfg.prachCfg.raContResTmr = RA_CONT_RES_TIMER;
209         duCfgParam.macCellCfg.prachCfg.rsrpThreshSsb = RSRP_THRESHOLD_SSB;
210         duCfgParam.macCellCfg.prachCfg.raRspWindow = RA_RSP_WINDOW;
211    duCfgParam.macCellCfg.prachCfg.prachRestrictedSet = PRACH_RESTRICTED_SET;
212    /* TDD configuration */
213    duCfgParam.macCellCfg.tddCfg.pres = TRUE;
214    duCfgParam.macCellCfg.tddCfg.tddPeriod = TDD_PERIODICITY;
215
216    FillSlotConfig();
217
218    /* RSSI Measurement configuration */
219    duCfgParam.macCellCfg.rssiUnit = RSS_MEASUREMENT_UNIT;
220
221    /* fill SIB1 configuration */
222    duCfgParam.macCellCfg.sib1Cfg.sib1PduLen = duCfgParam.srvdCellLst[0].duSysInfo.sib1Len;
223    DU_ALLOC(duCfgParam.macCellCfg.sib1Cfg.sib1Pdu,duCfgParam.srvdCellLst[0].duSysInfo.sib1Len);
224    memcpy(duCfgParam.macCellCfg.sib1Cfg.sib1Pdu, duCfgParam.srvdCellLst[0].duSysInfo.sib1Msg, \
225           duCfgParam.srvdCellLst[0].duSysInfo.sib1Len);
226    duCfgParam.macCellCfg.sib1Cfg.sib1NewTxPeriod = SIB1_NEW_TX_PERIOD;
227    duCfgParam.macCellCfg.sib1Cfg.sib1RepetitionPeriod = SIB1_REPETITION_PERIOD;
228    duCfgParam.macCellCfg.sib1Cfg.coresetZeroIndex = CORESET_0_INDEX;
229    duCfgParam.macCellCfg.sib1Cfg.searchSpaceZeroIndex = SEARCHSPACE_0_INDEX;
230    duCfgParam.macCellCfg.sib1Cfg.sib1Mcs = SIB1_MCS;
231
232
233    /* fill Intial DL BWP */
234    duCfgParam.macCellCfg.initialDlBwp.bwp.firstPrb = 0;
235    duCfgParam.macCellCfg.initialDlBwp.bwp.numPrb = TOTAL_PRB_BW; /* configured to total BW */
236    duCfgParam.macCellCfg.initialDlBwp.bwp.scs = SUBCARRIER_SPACING; /* numerology is 0, 15Khz */
237    duCfgParam.macCellCfg.initialDlBwp.bwp.cyclicPrefix = NORMAL_CYCLIC_PREFIX;
238    duCfgParam.macCellCfg.initialDlBwp.pdcchCommon.commonSearchSpace.searchSpaceId = SEARCHSPACE_1_INDEX;
239    duCfgParam.macCellCfg.initialDlBwp.pdcchCommon.commonSearchSpace.coresetId = CORESET_0_INDEX;
240    duCfgParam.macCellCfg.initialDlBwp.pdcchCommon.commonSearchSpace.monitoringSlot =
241            SS_MONITORING_SLOT_SL1; /* sl1 - all slots */
242    duCfgParam.macCellCfg.initialDlBwp.pdcchCommon.commonSearchSpace.duration = 0;
243    duCfgParam.macCellCfg.initialDlBwp.pdcchCommon.commonSearchSpace.monitoringSymbol =
244            SS_MONITORING_SYMBOL;
245    duCfgParam.macCellCfg.initialDlBwp.pdcchCommon.commonSearchSpace.
246            candidate.aggLevel1  = 8;
247    duCfgParam.macCellCfg.initialDlBwp.pdcchCommon.commonSearchSpace.
248            candidate.aggLevel2  = 4;
249    duCfgParam.macCellCfg.initialDlBwp.pdcchCommon.commonSearchSpace.
250            candidate.aggLevel4  = 2;
251    duCfgParam.macCellCfg.initialDlBwp.pdcchCommon.commonSearchSpace.
252            candidate.aggLevel8  = 1;
253    duCfgParam.macCellCfg.initialDlBwp.pdcchCommon.commonSearchSpace.
254            candidate.aggLevel16 = 0;
255    duCfgParam.macCellCfg.initialDlBwp.pdschCommon.k0 = PDSCH_K0;
256         duCfgParam.macCellCfg.initialDlBwp.pdschCommon.mappingType = 
257            PDSCH_MAPPING_TYPE_A;
258         duCfgParam.macCellCfg.initialDlBwp.pdschCommon.startSymbol = 
259            PDSCH_START_SYMBOL;
260         duCfgParam.macCellCfg.initialDlBwp.pdschCommon.lengthSymbol =
261            PDSCH_LENGTH_SYMBOL;
262         /* ra-searchSpace ID is set to 1 */
263    duCfgParam.macCellCfg.initialDlBwp.pdcchCommon.raSearchSpaceId = SEARCHSPACE_1_INDEX;
264    /* fill Intial UL BWP */
265    duCfgParam.macCellCfg.initialUlBwp.bwp.firstPrb = 0;
266    duCfgParam.macCellCfg.initialUlBwp.bwp.numPrb = TOTAL_PRB_BW; /* configured to total BW */
267    duCfgParam.macCellCfg.initialUlBwp.bwp.scs = SUBCARRIER_SPACING; /* numerology is 0, 15Khz */
268    duCfgParam.macCellCfg.initialUlBwp.bwp.cyclicPrefix = NORMAL_CYCLIC_PREFIX;
269    duCfgParam.macCellCfg.initialUlBwp.puschCommon.k2 = PUSCH_K2;
270         duCfgParam.macCellCfg.initialUlBwp.puschCommon.mappingType = 
271            PUSCH_MAPPING_TYPE_A;
272         duCfgParam.macCellCfg.initialUlBwp.puschCommon.startSymbol = 
273            PUSCH_START_SYMBOL;
274         duCfgParam.macCellCfg.initialUlBwp.puschCommon.lengthSymbol =
275            PUSCH_LENGTH_SYMBOL;
276
277         duCfgParam.macCellCfg.dmrsTypeAPos = DMRS_TYPE_A_POS; 
278
279    /* This should be calculated based on
280       (number of mandatory parameters) + (number of otional parameters being filled) */
281    duCfgParam.macCellCfg.numTlv = 40;
282
283    RETVALUE(ROK);
284 }
285
286 /*******************************************************************
287 *
288 * @brief Configures the DU Parameters
289 *
290 * @details
291 *
292 *    Function : fillDuPort
293 *
294 *    Functionality:
295 *       - fills the DU Ports.  
296 *
297 * @params[in] duPort array to be filled
298 * @return ROK     - success
299 *         RFAILED - failure
300 *
301 * ****************************************************************/
302 S16 fillDuPort(U16 *duPort)
303 {
304         duPort[F1_INTERFACE]   = DU_PORT;     /* DU Port idx  0 38472 */
305         duPort[E2_INTERFACE]   = RIC_PORT;    /* RIC Port idx 1 38482 */
306
307         RETVALUE(ROK);
308 }
309
310 /*******************************************************************
311 *
312 * @brief Configures the DU Parameters
313 *
314 * @details
315 *
316 *    Function : calcSliv
317 *
318 *    Functionality:
319 *       - calculate SLIV value from start and length field
320 *
321 * @params[in] start symbol
322 * @params[in] length of symbols
323 * @return SLIV value
324 *
325 * ****************************************************************/
326 uint16_t calcSliv(uint8_t startSymbol, uint8_t lengthSymbol)
327 {
328    uint16_t sliv = 0;
329         if((lengthSymbol-1) <= 7)
330         {
331            sliv = 14 * (lengthSymbol-1) + startSymbol;
332         }
333         else
334         {
335            sliv = 14 * (14-lengthSymbol+1) + (14-1-startSymbol);
336         }
337         return sliv;
338 }
339
340
341 /*******************************************************************
342  *
343  * @brief Configures serving cell config common in sib1
344  *
345  * @details
346  *
347  *    Function : fillServCellCfgCommSib
348  *
349  *    Functionality:
350  *       - fills Serving cell config common for SIB1
351  *
352  * @params[in] SrvCellCfgCommSib pointer
353  * @return ROK     - success
354  *         RFAILED - failure
355  * 
356  ** ****************************************************************/
357 S16 fillServCellCfgCommSib(SrvCellCfgCommSib *srvCellCfgComm)
358 {
359    PdcchCfgCommon   pdcchCfg;
360    PdschCfgCommon   pdschCfg;
361    PcchCfg          pcchCfg;
362    RachCfgCommon    rachCfg;
363    PuschCfgCommon   puschCfg;
364    PucchCfgCommon   pucchCfg;
365    TddUlDlCfgCommon   tddCfg;
366
367    /* Configuring DL Config Common for SIB1*/
368    srvCellCfgComm->dlCfg.freqBandInd = NR_FREQ_BAND_IND; 
369    srvCellCfgComm->dlCfg.offsetToPointA = OFFSET_TO_POINT_A;
370    srvCellCfgComm->dlCfg.dlScsCarrier.scsOffset = SSB_SUBCARRIER_OFFSET;
371    srvCellCfgComm->dlCfg.dlScsCarrier.scs = SUBCARRIER_SPACING;
372    srvCellCfgComm->dlCfg.dlScsCarrier.scsBw = SCS_CARRIER_BANDWIDTH;
373    srvCellCfgComm->dlCfg.locAndBw = FREQ_LOC_BW;
374    
375    /* Configuring PDCCH Config Common For SIB1 */
376    pdcchCfg.present = BWP_DownlinkCommon__pdcch_ConfigCommon_PR_setup;
377    pdcchCfg.ctrlRsrcSetZero = PDCCH_CTRL_RSRC_SET_ZERO;
378    pdcchCfg.searchSpcZero = PDCCH_SEARCH_SPACE_ZERO;
379    pdcchCfg.searchSpcId = PDCCH_SEARCH_SPACE_ID;
380    pdcchCfg.ctrlRsrcSetId = PDCCH_CTRL_RSRC_SET_ID;
381    pdcchCfg.monitorSlotPrdAndOffPresent = \
382       SearchSpace__monitoringSlotPeriodicityAndOffset_PR_sl1;
383    //pdcchCfg.monitorSlotPrdAndOff = \
384       SearchSpace__monitoringSlotPeriodicityAndOffset_PR_sl1;
385    pdcchCfg.monitorSymbolsInSlot[0] = 128;
386    pdcchCfg.monitorSymbolsInSlot[1] = 0;
387    pdcchCfg.numCandAggLvl1 = SearchSpace__nrofCandidates__aggregationLevel1_n8;
388    pdcchCfg.numCandAggLvl2 = SearchSpace__nrofCandidates__aggregationLevel2_n4;
389    pdcchCfg.numCandAggLvl4 = SearchSpace__nrofCandidates__aggregationLevel4_n2;
390    pdcchCfg.numCandAggLvl8 = SearchSpace__nrofCandidates__aggregationLevel8_n1;
391    pdcchCfg.numCandAggLvl16 = SearchSpace__nrofCandidates__aggregationLevel16_n0;
392    pdcchCfg.searchSpcType = SearchSpace__searchSpaceType_PR_common;
393    pdcchCfg.commSrchSpcDciFrmt = PDCCH_SERACH_SPACE_DCI_FORMAT;
394    pdcchCfg.searchSpcSib1 = PDCCH_SEARCH_SPACE_ID_SIB1;
395    pdcchCfg.pagingSearchSpc = PDCCH_SEARCH_SPACE_ID_PAGING;
396    pdcchCfg.raSearchSpc = PDCCH_SEARCH_SPACE_ID_PAGING;
397    srvCellCfgComm->dlCfg.pdcchCfg = pdcchCfg;
398
399    /* Configuring PDSCH Config Common For SIB1 */
400    pdschCfg.present = BWP_DownlinkCommon__pdsch_ConfigCommon_PR_setup;
401    pdschCfg.k0 = PDSCH_K0;
402    pdschCfg.mapType = \
403       PDSCH_TimeDomainResourceAllocation__mappingType_typeA;
404    pdschCfg.sliv = calcSliv(PDSCH_START_SYMBOL,PDSCH_LENGTH_SYMBOL);
405    srvCellCfgComm->dlCfg.pdschCfg = pdschCfg;
406
407    /* Configuring BCCH Config for SIB1 */
408    srvCellCfgComm->dlCfg.bcchCfg.modPrdCoeff = \
409       BCCH_Config__modificationPeriodCoeff_n16;
410
411    /* Configuring PCCH Config for SIB1 */
412    pcchCfg.dfltPagingCycle = PagingCycle_rf64;
413    pcchCfg.nAndPagingFrmOffPresent = PCCH_Config__nAndPagingFrameOffset_PR_oneT;
414    pcchCfg.numPagingOcc = PCCH_Config__ns_four;
415    srvCellCfgComm->dlCfg.pcchCfg = pcchCfg;
416
417
418    /* Configuring UL Config Common */
419    srvCellCfgComm->ulCfg.ulScsCarrier.scsOffset = SSB_SUBCARRIER_OFFSET;
420    srvCellCfgComm->ulCfg.ulScsCarrier.scs = SUBCARRIER_SPACING;
421    srvCellCfgComm->ulCfg.ulScsCarrier.scsBw = SCS_CARRIER_BANDWIDTH;
422    srvCellCfgComm->ulCfg.pMax = UL_P_MAX;
423    srvCellCfgComm->ulCfg.locAndBw = FREQ_LOC_BW;
424    srvCellCfgComm->ulCfg.timeAlignTimerComm = TimeAlignmentTimer_infinity;
425
426    /* Configuring RACH Config Common for SIB1 */
427    rachCfg.present = BWP_UplinkCommon__rach_ConfigCommon_PR_setup;
428    rachCfg.prachCfgIdx = PRACH_CONFIG_IDX;
429    rachCfg.msg1Fdm = RACH_ConfigGeneric__msg1_FDM_one;
430    rachCfg.msg1FreqStart = PRACH_FREQ_START;
431    rachCfg.zeroCorrZoneCfg = ZERO_CORRELATION_ZONE_CFG;
432    rachCfg.preambleRcvdTgtPwr = PRACH_PREAMBLE_RCVD_TGT_PWR;
433    rachCfg.preambleTransMax = RACH_ConfigGeneric__preambleTransMax_n200;
434    rachCfg.pwrRampingStep = RACH_ConfigGeneric__powerRampingStep_dB2;
435    rachCfg.raRspWindow = RACH_ConfigGeneric__ra_ResponseWindow_sl20;
436    rachCfg.numRaPreamble = NUM_RA_PREAMBLE;
437    rachCfg.ssbPerRachOccPresent = \
438       RACH_ConfigCommon__ssb_perRACH_OccasionAndCB_PreamblesPerSSB_PR_one;
439    rachCfg.numSsbPerRachOcc = SSB_PER_RACH;
440    rachCfg.contResTimer = RACH_ConfigCommon__ra_ContentionResolutionTimer_sf64;
441    rachCfg.rsrpThreshSsb = RSRP_THRESHOLD_SSB;
442    rachCfg.rootSeqIdxPresent = RACH_ConfigCommon__prach_RootSequenceIndex_PR_l139;
443    rachCfg.rootSeqIdx = ROOT_SEQ_IDX;
444    rachCfg.msg1Scs = PRACH_SUBCARRIER_SPACING ;
445    rachCfg.restrictedSetCfg = PRACH_RESTRICTED_SET_CFG;
446    srvCellCfgComm->ulCfg.rachCfg = rachCfg;
447
448    /* Configuring PUSCH Config Common for SIB1 */
449    puschCfg.present = BWP_UplinkCommon__pusch_ConfigCommon_PR_setup;
450    puschCfg.k2 = PUSCH_K2;
451    puschCfg.mapType = PUSCH_TimeDomainResourceAllocation__mappingType_typeA;
452    puschCfg.sliv = calcSliv(PUSCH_START_SYMBOL,PUSCH_LENGTH_SYMBOL);
453    puschCfg.msg3DeltaPreamble = PUSCH_MSG3_DELTA_PREAMBLE;
454    puschCfg.p0NominalWithGrant = PUSCH_P0_NOMINAL_WITH_GRANT;
455    srvCellCfgComm->ulCfg.puschCfg = puschCfg;
456
457    /* Configuring PUCCH Config Common for SIB1 */
458    pucchCfg.present = BWP_UplinkCommon__pucch_ConfigCommon_PR_setup;
459    pucchCfg.rsrcComm = PUCCH_RSRC_COMMON;
460    pucchCfg.grpHop = PUCCH_ConfigCommon__pucch_GroupHopping_neither;
461    pucchCfg.p0Nominal = PUCCH_P0_NOMINAL;
462    srvCellCfgComm->ulCfg.pucchCfg = pucchCfg;
463
464    /* Configuring TDD UL DL config common */
465    tddCfg.refScs = SubcarrierSpacing_kHz30;
466    tddCfg.txPrd = TDD_UL_DL_Pattern__dl_UL_TransmissionPeriodicity_ms2p5;
467    tddCfg.numDlSlots = NUM_DL_SLOTS;
468    tddCfg.numDlSymbols = NUM_DL_SYMBOLS;
469    tddCfg.numUlSlots = NUM_UL_SLOTS;
470    tddCfg.numUlSymbols = NUM_UL_SYMBOLS;
471    srvCellCfgComm->tddCfg = tddCfg;
472
473    srvCellCfgComm->ssbPosInBurst = 192;
474    srvCellCfgComm->ssbPrdServingCell = SSB_PERIODICITY_20MS;
475    srvCellCfgComm->ssPbchBlockPwr = SSB_PBCH_PWR;
476
477    return ROK;
478 }
479
480 /*******************************************************************
481  *
482  * @brief Configures the DU Parameters
483  *
484  * @details
485  *
486  *    Function : readCfg
487  *
488  *    Functionality:
489  *       - Initializes the DuCfg members.  
490  *       - Calls readMacCfg()  
491  *
492  * @params[in] system task ID
493  * @return ROK     - success
494  *         RFAILED - failure
495  *
496  * ****************************************************************/
497
498 S16 readCfg()
499 {
500    U8 i,j,k;
501    U32 ipv4_du, ipv4_cu, ipv4_ric;
502         MibParams mib;
503    Sib1Params sib1;     
504
505    cmInetAddr((S8*)DU_IP_V4_ADDR, &ipv4_du);
506    cmInetAddr((S8*)CU_IP_V4_ADDR, &ipv4_cu);
507         cmInetAddr((S8*)RIC_IP_V4_ADDR, &ipv4_ric);
508         fillDuPort(duCfgParam.sctpParams.duPort);
509
510    /* F1 DU IP Address and Port*/
511    duCfgParam.sctpParams.duIpAddr.ipV4Addr = ipv4_du;
512
513    /* F1 CU IP Address and Port*/
514    duCfgParam.sctpParams.cuIpAddr.ipV4Addr = ipv4_cu;
515    duCfgParam.sctpParams.cuPort = CU_PORT;
516
517         /* Fill RIC Params */
518         duCfgParam.sctpParams.ricIpAddr.ipV4Addr = ipv4_ric;
519         duCfgParam.sctpParams.ricPort            = RIC_PORT;
520    /* EGTP Parameters */
521    duCfgParam.egtpParams.localIp.ipV4Pres = TRUE;
522    duCfgParam.egtpParams.localIp.ipV4Addr = ipv4_du;
523    duCfgParam.egtpParams.localPort = DU_EGTP_PORT;
524    duCfgParam.egtpParams.destIp.ipV4Pres = TRUE;
525    duCfgParam.egtpParams.destIp.ipV4Addr = ipv4_cu;
526    duCfgParam.egtpParams.destPort = CU_EGTP_PORT;
527    duCfgParam.egtpParams.minTunnelId = 0;
528    duCfgParam.egtpParams.maxTunnelId = 10;
529
530    duCfgParam.maxUe = 32; //TODO: Check
531    /* DU Info */        
532    duCfgParam.duId = DU_ID;     
533    strcpy((char*)duCfgParam.duName,DU_NAME);
534
535    /* Mib Params */
536         mib.sysFrmNum = SYS_FRAME_NUM;
537         mib.subCarrierSpacingCommon = MIB__subCarrierSpacingCommon_scs15or60;
538         mib.ssb_SubcarrierOffset = SSB_SC_OFFSET; 
539         mib.dmrs_TypeA_Position = MIB__dmrs_TypeA_Position_pos2;
540         mib.controlResourceSetZero = CORESET_ZERO;
541         mib.searchSpaceZero = SEARCH_SPACE_ZERO;
542         mib.cellBarred = MIB__cellBarred_barred;
543         mib.intraFreqReselection =
544                 MIB__intraFreqReselection_notAllowed;
545         duCfgParam.mibParams = mib;
546
547    /* SIB1 Params */
548         sib1.plmn.mcc[0] = PLMN_MCC0;
549         sib1.plmn.mcc[1] = PLMN_MCC1;
550         sib1.plmn.mcc[2] = PLMN_MCC2;
551         sib1.plmn.mnc[0] = PLMN_MNC0;
552         sib1.plmn.mnc[1] = PLMN_MNC1;
553         sib1.plmn.mnc[2] = PLMN_MNC2;
554         sib1.tac = DU_TAC;
555         sib1.ranac = DU_RANAC;
556         sib1.cellIdentity = CELL_IDENTITY;
557         sib1.cellResvdForOpUse =\
558                 PLMN_IdentityInfo__cellReservedForOperatorUse_notReserved;
559    sib1.connEstFailCnt = ConnEstFailureControl__connEstFailCount_n3;
560    sib1.connEstFailOffValidity =\
561       ConnEstFailureControl__connEstFailOffsetValidity_s120;
562    sib1.siSchedInfo.winLen = SI_SchedulingInfo__si_WindowLength_s5;
563    sib1.siSchedInfo.broadcastSta = \
564       SchedulingInfo__si_BroadcastStatus_broadcasting;
565    sib1.siSchedInfo.preiodicity = SchedulingInfo__si_Periodicity_rf8;
566    sib1.siSchedInfo.sibType = SIB_TypeInfo__type_sibType2;
567    sib1.siSchedInfo.sibValTag = SIB1_VALUE_TAG;
568
569    fillServCellCfgCommSib(&sib1.srvCellCfgCommSib);
570
571         duCfgParam.sib1Params = sib1;
572
573    for(i=0; i<DEFAULT_CELLS; i++)
574    { 
575       duCfgParam.srvdCellLst[i].duCellInfo.cellInfo.nrCgi.plmn.mcc[0] = PLMN_MCC0;
576       duCfgParam.srvdCellLst[i].duCellInfo.cellInfo.nrCgi.plmn.mcc[1] = PLMN_MCC1;
577       duCfgParam.srvdCellLst[i].duCellInfo.cellInfo.nrCgi.plmn.mcc[2] = PLMN_MCC2;
578       duCfgParam.srvdCellLst[i].duCellInfo.cellInfo.nrCgi.plmn.mnc[0] = PLMN_MNC0;
579       duCfgParam.srvdCellLst[i].duCellInfo.cellInfo.nrCgi.plmn.mnc[1] = PLMN_MNC1;
580       duCfgParam.srvdCellLst[i].duCellInfo.cellInfo.nrCgi.plmn.mnc[2] = PLMN_MNC2;
581
582       /*Cell ID */
583       duCfgParam.srvdCellLst[i].duCellInfo.cellInfo.nrCgi.cellId = NR_CELL_ID;
584       duCfgParam.srvdCellLst[i].duCellInfo.cellInfo.nrPci = NR_PCI;
585
586       /* List of Available PLMN */
587       for(j=0;j<MAX_PLMN;j++)
588       {
589          duCfgParam.srvdCellLst[i].duCellInfo.cellInfo.plmn[j].mcc[0] = PLMN_MCC0;
590          duCfgParam.srvdCellLst[i].duCellInfo.cellInfo.plmn[j].mcc[1] = PLMN_MCC1;
591          duCfgParam.srvdCellLst[i].duCellInfo.cellInfo.plmn[j].mcc[2] = PLMN_MCC2;
592          duCfgParam.srvdCellLst[i].duCellInfo.cellInfo.plmn[j].mnc[0] = PLMN_MNC0;
593          duCfgParam.srvdCellLst[i].duCellInfo.cellInfo.plmn[j].mnc[1] = PLMN_MNC1;
594          duCfgParam.srvdCellLst[i].duCellInfo.cellInfo.plmn[j].mnc[2] = PLMN_MNC2;
595       }
596       /* List of Extended PLMN */
597       for(j=0;j<MAX_PLMN;j++)
598       {
599          duCfgParam.srvdCellLst[i].duCellInfo.cellInfo.extPlmn[j].mcc[0] = PLMN_MCC0;
600          duCfgParam.srvdCellLst[i].duCellInfo.cellInfo.extPlmn[j].mcc[1] = PLMN_MCC1;
601          duCfgParam.srvdCellLst[i].duCellInfo.cellInfo.extPlmn[j].mcc[2] = PLMN_MCC2;
602          duCfgParam.srvdCellLst[i].duCellInfo.cellInfo.extPlmn[j].mnc[0] = PLMN_MNC0;
603          duCfgParam.srvdCellLst[i].duCellInfo.cellInfo.extPlmn[j].mnc[1] = PLMN_MNC1;
604          duCfgParam.srvdCellLst[i].duCellInfo.cellInfo.extPlmn[j].mnc[2] = PLMN_MNC2;
605       } 
606
607       /* TAC and EPSTAC */
608       duCfgParam.srvdCellLst[i].duCellInfo.tac = DU_TAC;
609       duCfgParam.srvdCellLst[i].duCellInfo.epsTac = DU_TAC; //to check and fill
610       /* NR Mode info */
611       duCfgParam.srvdCellLst[i].duCellInfo.f1Mode.mode.fdd.ulNrFreqInfo.nrArfcn = NR_ARFCN;
612       duCfgParam.srvdCellLst[i].duCellInfo.f1Mode.mode.fdd.ulNrFreqInfo.sulInfo.sulArfcn = SUL_ARFCN;
613       duCfgParam.srvdCellLst[i].duCellInfo.f1Mode.mode.fdd.ulNrFreqInfo.sulInfo.sulTxBw.nrScs = SCS_120;
614       duCfgParam.srvdCellLst[i].duCellInfo.f1Mode.mode.fdd.ulNrFreqInfo.sulInfo.sulTxBw.nrb = NRB_66;
615
616 #if 0
617       /* NR Mode info */
618       duCfgParam.srvdCellLst[i].duCellInfo.f1Mode.mode.tdd.nrFreqInfo.nrArfcn = NR_ARFCN;
619       duCfgParam.srvdCellLst[i].duCellInfo.f1Mode.mode.tdd.nrFreqInfo.sulInfo.sulArfcn = SUL_ARFCN;
620       duCfgParam.srvdCellLst[i].duCellInfo.f1Mode.mode.tdd.nrFreqInfo.sulInfo.sulTxBw.nrScs = SCS_15;           
621       duCfgParam.srvdCellLst[i].duCellInfo.f1Mode.mode.tdd.nrFreqInfo.sulInfo.sulTxBw.nrb = NRB_160;           
622
623       for(j=0;j<MAXNRCELLBANDS;j++)
624       {
625          duCfgParam.srvdCellLst[i].duCellInfo.f1Mode.mode.tdd.nrFreqInfo.freqBand[j].nrFreqBand = NR_FREQ_BAND;
626          for(k=0;k<MAXNRCELLBANDS;k++)
627          {
628             duCfgParam.srvdCellLst[i].duCellInfo.f1Mode.mode.tdd.nrFreqInfo.freqBand[j].sulBand[k] = SUL_BAND;  
629          }
630       }
631 #endif
632       for(j=0;j<MAXNRCELLBANDS;j++)
633       {
634          duCfgParam.srvdCellLst[i].duCellInfo.f1Mode.mode.fdd.ulNrFreqInfo.freqBand[j].nrFreqBand = NR_FREQ_BAND;
635          for(k=0;k<MAXNRCELLBANDS;k++)
636          {
637             duCfgParam.srvdCellLst[i].duCellInfo.f1Mode.mode.fdd.ulNrFreqInfo.freqBand[j].sulBand[k] = SUL_BAND;
638          }
639       }
640       duCfgParam.srvdCellLst[i].duCellInfo.f1Mode.mode.fdd.dlNrFreqInfo.nrArfcn = NR_ARFCN;
641       duCfgParam.srvdCellLst[i].duCellInfo.f1Mode.mode.fdd.dlNrFreqInfo.sulInfo.sulArfcn = SUL_ARFCN;
642       duCfgParam.srvdCellLst[i].duCellInfo.f1Mode.mode.fdd.dlNrFreqInfo.sulInfo.sulTxBw.nrScs = SCS_120;
643       duCfgParam.srvdCellLst[i].duCellInfo.f1Mode.mode.fdd.dlNrFreqInfo.sulInfo.sulTxBw.nrb = NRB_66;
644       for(j=0;j<MAXNRCELLBANDS;j++)
645       {
646          duCfgParam.srvdCellLst[i].duCellInfo.f1Mode.mode.fdd.dlNrFreqInfo.freqBand[j].nrFreqBand = NR_FREQ_BAND;
647          for(k=0;k<MAXNRCELLBANDS;k++)
648          {
649             duCfgParam.srvdCellLst[i].duCellInfo.f1Mode.mode.fdd.dlNrFreqInfo.freqBand[j].sulBand[k] = SUL_BAND;
650          }
651       }
652
653       duCfgParam.srvdCellLst[i].duCellInfo.f1Mode.mode.fdd.ulTxBw.nrScs = SCS_120;
654       duCfgParam.srvdCellLst[i].duCellInfo.f1Mode.mode.fdd.ulTxBw.nrb = NRB_66;
655
656       duCfgParam.srvdCellLst[i].duCellInfo.f1Mode.mode.fdd.dlTxBw.nrScs = SCS_120;
657       duCfgParam.srvdCellLst[i].duCellInfo.f1Mode.mode.fdd.dlTxBw.nrb = NRB_66;
658
659 #if 0
660       duCfgParam.srvdCellLst[i].duCellInfo.f1Mode.mode.tdd.nrTxBw.nrScs = SCS_15;
661       duCfgParam.srvdCellLst[i].duCellInfo.f1Mode.mode.tdd.nrTxBw.nrb = NRB_160;
662 #endif
663       /*Measurement Config and Cell Config */ 
664       duCfgParam.srvdCellLst[i].duCellInfo.measTimeCfg = TIME_CFG; 
665
666       duCfgParam.srvdCellLst[i].duCellInfo.cellDir = DL_UL; 
667
668       duCfgParam.srvdCellLst[i].duCellInfo.cellType=CELL_TYPE;
669
670       /* Broadcast PLMN Identity */
671       for(j=0;j<MAXBPLMNNRMINUS1;j++)
672       {  
673          for(k=0;k<MAX_PLMN;k++)
674          {
675             duCfgParam.srvdCellLst[i].duCellInfo.brdcstPlmnInfo[j].plmn[k].mcc[0] = PLMN_MCC0;
676             duCfgParam.srvdCellLst[i].duCellInfo.brdcstPlmnInfo[j].plmn[k].mcc[1] = PLMN_MCC1;
677             duCfgParam.srvdCellLst[i].duCellInfo.brdcstPlmnInfo[j].plmn[k].mcc[2] = PLMN_MCC2;
678             duCfgParam.srvdCellLst[i].duCellInfo.brdcstPlmnInfo[j].plmn[k].mnc[0] = PLMN_MNC0;
679             duCfgParam.srvdCellLst[i].duCellInfo.brdcstPlmnInfo[j].plmn[k].mnc[1] = PLMN_MNC1;                                         
680             duCfgParam.srvdCellLst[i].duCellInfo.brdcstPlmnInfo[j].plmn[k].mnc[2] = PLMN_MNC2;
681          }
682          /* Extended PLMN List */        
683          for(k=0;k<MAX_PLMN;k++)
684          {
685             duCfgParam.srvdCellLst[i].duCellInfo.brdcstPlmnInfo[j].extPlmn[k].mcc[0] = PLMN_MCC0;
686             duCfgParam.srvdCellLst[i].duCellInfo.brdcstPlmnInfo[j].extPlmn[k].mcc[1] = PLMN_MCC1;
687             duCfgParam.srvdCellLst[i].duCellInfo.brdcstPlmnInfo[j].extPlmn[k].mcc[2] = PLMN_MCC2;
688             duCfgParam.srvdCellLst[i].duCellInfo.brdcstPlmnInfo[j].extPlmn[k].mnc[0] = PLMN_MNC0;
689             duCfgParam.srvdCellLst[i].duCellInfo.brdcstPlmnInfo[j].extPlmn[k].mnc[1] = PLMN_MNC1;
690             duCfgParam.srvdCellLst[i].duCellInfo.brdcstPlmnInfo[j].extPlmn[k].mnc[2] = PLMN_MNC2;
691          }
692
693          duCfgParam.srvdCellLst[i].duCellInfo.brdcstPlmnInfo[j].tac = DU_TAC;
694          duCfgParam.srvdCellLst[i].duCellInfo.brdcstPlmnInfo[j].nrCellId = NR_CELL_ID;
695          duCfgParam.srvdCellLst[i].duCellInfo.brdcstPlmnInfo[j].ranac = NR_RANAC;
696       }
697
698       /*gnb DU System Info mib msg*/
699            BuildMibMsg();
700                 DU_ALLOC(duCfgParam.srvdCellLst[i].duSysInfo.mibMsg,\
701                                 strlen(encBuf));
702            if(!(duCfgParam.srvdCellLst[i].duSysInfo.mibMsg))
703                 {
704          DU_LOG("\nDU_APP: Memory allocation failure");
705                         return RFAILED;
706                 }
707       strcpy((char *)duCfgParam.srvdCellLst[i].duSysInfo.mibMsg, encBuf);
708       duCfgParam.srvdCellLst[i].duSysInfo.mibLen = encBufSize;
709
710       /*gnb DU System Info mib msg*/
711       BuildSib1Msg();
712                 DU_ALLOC(duCfgParam.srvdCellLst[i].duSysInfo.sib1Msg,\
713                                 encBufSize);
714            if(!(duCfgParam.srvdCellLst[i].duSysInfo.sib1Msg))
715                 {
716          DU_LOG("\nDU_APP: Memory allocation failure");
717                         return RFAILED;
718                 }
719                 memcpy(duCfgParam.srvdCellLst[i].duSysInfo.sib1Msg,\
720                        encBuf,encBufSize);
721                 duCfgParam.srvdCellLst[i].duSysInfo.sib1Len = encBufSize;
722
723    }
724
725    if(readMacCfg() != ROK)
726    {
727       DU_LOG("\nDU_APP : Failed while reading MAC config");
728       RETVALUE(RFAILED);
729    }
730
731    RETVALUE(ROK);
732 }
733
734 /*******************************************************************
735  *
736  * @brief Reads config and posts message to du_app on completion
737  *
738  * @details
739  *
740  *    Function : main
741  *
742  *    Functionality:
743  *      - Calls readCfg()
744  *      - Post to du_app for further processing
745  *
746  * @params[in] void
747  * @return ROK     - success
748  *         RFAILED - failure
749  *
750  * ****************************************************************/
751 S16 duReadCfg()
752 {
753    Pst pst;
754    Buffer *mBuf;
755
756    cmMemset((U8 *)&duCfgParam, 0, sizeof(DuCfgParams));
757    //Read configs into duCfgParams
758    if(readCfg() != ROK)
759    {
760       DU_LOG("\nDU_APP : Reading configuration failed");
761       RETVALUE(RFAILED);
762    }
763
764    //Fill pst structure
765    cmMemset((U8 *)&(pst), 0, sizeof(Pst));
766    pst.srcEnt = (Ent)ENTDUAPP;
767    pst.srcInst = (Inst)DU_INST;
768    pst.srcProcId = DU_PROC;
769    pst.dstEnt = pst.srcEnt;
770    pst.dstInst = pst.srcInst;
771    pst.dstProcId = pst.srcProcId;
772    pst.event = EVTCFG;
773    pst.selector = DU_SELECTOR_TC;
774    pst.pool= DU_POOL;
775
776
777    if(SGetMsg(DFLT_REGION, DU_POOL, &mBuf) != ROK)
778    {
779       DU_LOG("\nDU_APP : Memory allocation failed in duReadCfg");
780       return RFAILED;
781    }
782
783    if (SPstTsk(&pst, mBuf) != ROK)
784    {
785       DU_LOG("\nDU_APP : SPstTsk failed in duReadCfg");
786       return RFAILED;
787    }
788
789    return ROK;
790 }
791
792 /*******************************************************************
793  *
794  * @brief Converts bit strings to integer
795  *
796  * @details
797  *
798  *    Function : bitStringToInt
799  *
800  *    Functionality:
801  *      - Converts ASN bit string format IEs to integer type
802  *
803  * @params[in] void
804  * @return ROK     - success
805  *         RFAILED - failure
806  *
807  * ****************************************************************/
808 S16 bitStringToInt(BIT_STRING_t *bitString, U16 *val)
809 {
810    U16 idx;
811    if(bitString->buf == NULL || bitString->size <= 0)
812    {
813       DU_LOG("\nDU_APP : Bit string is empty");
814       return RFAILED;
815    }
816
817    for(idx=0; idx< bitString->size-1; idx++)
818    {
819       *val |= bitString->buf[idx];
820       *val <<= 8;
821    }
822
823    *val |= bitString->buf[idx];
824         *val >>= bitString->bits_unused;
825
826    return ROK;
827 }
828
829
830 /**********************************************************************
831   End of file
832  **********************************************************************/
833