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;
 
/*
**  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");
 
    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);
}