cpmstabs.c

Go to the documentation of this file.

 
#include "bufrlib.h"
#include "mstabs.h"
 
void
cpmstabs(int nmtb, int *ibfxyn, char (*cbscl)[4], char (*cbsref)[12], char (*cbbw)[4],
         char (*cbunit)[24], char (*cbmnem)[8], char (*cbelem)[120], int nmtd,
         int *idfxyn, char (*cdseq)[120], char (*cdmnem)[8], int *ndelem,
         int *idefxy, int maxcd)
{
 
    int ii, jj, idx;
 
    nmtb_c = nmtb;
    for ( ii = 0; ii < nmtb; ii++ ) {
        ibfxyn_c[ii] = ibfxyn[ii];
        for ( jj = 0; jj < 4; jj++ ) {
            cbscl_c[ii][jj] = cbscl[ii][jj];
            cbbw_c[ii][jj] = cbbw[ii][jj];
        }
        for ( jj = 0; jj < 8; jj++ ) {
            cbmnem_c[ii][jj] = cbmnem[ii][jj];
        }
        for ( jj = 0; jj < 12; jj++ ) {
            cbsref_c[ii][jj] = cbsref[ii][jj];
        }
        for ( jj = 0; jj < 24; jj++ ) {
            cbunit_c[ii][jj] = cbunit[ii][jj];
        }
        for ( jj = 0; jj < 120; jj++ ) {
            cbelem_c[ii][jj] = cbelem[ii][jj];
        }
    }
 
    nmtd_c = nmtd;
    for ( ii = 0; ii < nmtd; ii++ ) {
        idfxyn_c[ii] = idfxyn[ii];
        ndelem_c[ii] = ndelem[ii];
        for ( jj = 0; jj < ndelem[ii]; jj++ ) {
            idx = icvidx( ii, jj, maxcd );
            idefxy_c[idx] = idefxy[idx];
        }
        for ( jj = 0; jj < 8; jj++ ) {
            cdmnem_c[ii][jj] = cdmnem[ii][jj];
        }
        for ( jj = 0; jj < 120; jj++ ) {
            cdseq_c[ii][jj] = cdseq[ii][jj];
        }
    }
 
}