strtbfe.c

Go to the documentation of this file.

#include "bufrlib.h"
#include "cfe.h"

void strtbfe( f77int *ifxyn, f77int *ival, char *meaning, f77int *lmeaning,
          f77int *idfxy, f77int *idval )
{
    unsigned int mnlen;

    static char brtstr[50] = "BUFRLIB: STRTBFE - MXMTBF OVERFLOW";

    /*
    **  Confirm that there's room for another entry in the structure.
    */
    if ( nmtf >= mxmtbf ) bort( brtstr, ( f77int ) strlen( brtstr ) );

    /*
    **  Store the new entry.
    */
    cfe[nmtf].iffxyn = *ifxyn;
    cfe[nmtf].ifval = *ival;
    mnlen = ( *lmeaning > MAX_MEANING_LEN ? MAX_MEANING_LEN : *lmeaning );
    strncpy( &cfe[nmtf].ifmeaning[0], meaning, mnlen );
    cfe[nmtf].ifmeaning[mnlen] = '\0';
    cfe[nmtf].iffxynd = *idfxy;
    cfe[nmtf].ifvald  = *idval;
    nmtf++;
}