arallocc.c

Go to the documentation of this file.

 
#include "bufrlib.h"
 
#define IN_ARALLOCC
 
#include "cread.h"
#include "mstabs.h"
 
void
arallocc(void)
{
    char brtstr[50] = "BUFRLIB: ARALLOCC FAILED ALLOCATING";
 
    int nfiles;
 
    int mxmtbb;
    int mxmtbd;
    int maxcd;
    int mxnaf;
 
    /* cread arrays */
 
    nfiles = igetprm_f("NFILES");
 
    if (!(pb = malloc((nfiles+1) * sizeof(FILE *)))) bort_f(brtstr);
 
    if (!(lstpos = malloc((nfiles+1) * sizeof(fpos_t)))) bort_f(brtstr);
 
    /* mstabs arrays */
 
    mxmtbb = igetprm_f("MXMTBB");
    mxmtbd = igetprm_f("MXMTBD");
    maxcd = igetprm_f("MAXCD");
    mxnaf = igetprm_f("MXNAF");
 
    if (!(ibfxyn_c = malloc(mxmtbb * sizeof(int)))) bort_f(brtstr);
 
    if (!(cbscl_c = malloc(mxmtbb * 4 * sizeof(char)))) bort_f(brtstr);
 
    if (!(cbsref_c = malloc(mxmtbb * 12 * sizeof(char)))) bort_f(brtstr);
 
    if (!(cbbw_c = malloc(mxmtbb * 4 * sizeof(char)))) bort_f(brtstr);
 
    if (!(cbunit_c = malloc(mxmtbb * 24 * sizeof(char)))) bort_f(brtstr);
 
    if (!(cbmnem_c = malloc(mxmtbb * 8 * sizeof(char)))) bort_f(brtstr);
 
    if (!(cbelem_c = malloc(mxmtbb * 120 * sizeof(char)))) bort_f(brtstr);
 
    if (!(idfxyn_c = malloc(mxmtbd * sizeof(int)))) bort_f(brtstr);
 
    if (!(cdseq_c = malloc(mxmtbd * 120 * sizeof(char)))) bort_f(brtstr);
 
    if (!(cdmnem_c = malloc(mxmtbd * 8 * sizeof(char)))) bort_f(brtstr);
 
    if (!(ndelem_c = malloc(mxmtbd * sizeof(int)))) bort_f(brtstr);
 
    if (!(idefxy_c = malloc(mxmtbd * maxcd * sizeof(int)))) bort_f(brtstr);
 
    if (!(iafpk = malloc(mxnaf * sizeof(int)))) bort_f(brtstr);
}
 
void
ardllocc(void)
{
    /* cread arrays */
 
    free( pb );
    free( lstpos );
 
    /* mstabs arrays */
 
    free( ibfxyn_c );
    free( cbscl_c );
    free( cbsref_c );
    free( cbbw_c );
    free( cbunit_c );
    free( cbmnem_c );
    free( cbelem_c );
    free( idfxyn_c );
    free( cdseq_c );
    free( cdmnem_c );
    free( ndelem_c );
    free( idefxy_c );
    free( iafpk );
}