nummtb.c

Go to the documentation of this file.

#include "bufrlib.h"
#include "mstabs.h"

void nummtb( f77int *idn, char *tab, f77int *ipt )
{
    f77int *pifxyn, *pbs,  nmt;

    char adn[7], errstr[129];

    if ( *idn >= ifxy( "300000", 6 ) ) {
        *tab = 'D';
        pifxyn = &MSTABS_BASE(idfxyn)[0];
        nmt = MSTABS_BASE(nmtd);
    }
    else {
        *tab = 'B';
        pifxyn = &MSTABS_BASE(ibfxyn)[0];
        nmt = MSTABS_BASE(nmtb);
    }

        pbs = ( f77int * ) bsearch( idn, pifxyn, ( size_t ) nmt, sizeof( f77int ),
                ( int (*) ( const void *, const void * ) ) cmpia );
        if ( pbs == NULL ) {
        cadn30( idn, adn, sizeof( adn ) );
        adn[6] = '\0';
        sprintf( errstr, "BUFRLIB: NUMMTB - COULD NOT FIND DESCRIPTOR "
                 "%s IN MASTER TABLE %c", adn, *tab );
        bort( errstr, ( f77int ) strlen( errstr ) );
    }
    *ipt = pbs - pifxyn;

    return;
}