cpmstabs.c

Go to the documentation of this file.

 
#include "bufrlib.h"
#include "mstabs.h"
 
void cpmstabs(  f77int *pnmtb,
        f77int *pibfxyn, char (*pcbscl)[4],
        char (*pcbsref)[12], char (*pcbbw)[4],
        char (*pcbunit)[24], char (*pcbmnem)[8],
        char (*pcbelem)[120],
        f77int *pnmtd,
        f77int *pidfxyn, char (*pcdseq)[120],
        char (*pcdmnem)[8], f77int *pndelem,
        f77int *pidefxy, f77int *maxcd )
{
 
    f77int ii, jj, idx;
 
    MSTABS_BASE(nmtb) = *pnmtb;
    for ( ii = 0; ii < *pnmtb; ii++ ) {
    MSTABS_BASE(ibfxyn)[ii] = pibfxyn[ii];
    for ( jj = 0; jj < 4; jj++ ) {
        MSTABS_BASE(cbscl)[ii][jj] = pcbscl[ii][jj];
        MSTABS_BASE(cbbw)[ii][jj] = pcbbw[ii][jj];
    }
    for ( jj = 0; jj < 8; jj++ ) {
        MSTABS_BASE(cbmnem)[ii][jj] = pcbmnem[ii][jj];
    }
    for ( jj = 0; jj < 12; jj++ ) {
        MSTABS_BASE(cbsref)[ii][jj] = pcbsref[ii][jj];
    }
    for ( jj = 0; jj < 24; jj++ ) {
        MSTABS_BASE(cbunit)[ii][jj] = pcbunit[ii][jj];
    }
    for ( jj = 0; jj < 120; jj++ ) {
        MSTABS_BASE(cbelem)[ii][jj] = pcbelem[ii][jj];
    }
    }
 
    MSTABS_BASE(nmtd) = *pnmtd;
    for ( ii = 0; ii < *pnmtd; ii++ ) {
    MSTABS_BASE(idfxyn)[ii] = pidfxyn[ii];
    MSTABS_BASE(ndelem)[ii] = pndelem[ii];
    for ( jj = 0; jj < pndelem[ii]; jj++ ) {
        idx = icvidx( &ii, &jj, maxcd );
        MSTABS_BASE(idefxy)[idx] = pidefxy[idx];
    }
    for ( jj = 0; jj < 8; jj++ ) {
        MSTABS_BASE(cdmnem)[ii][jj] = pcdmnem[ii][jj];
    }
    for ( jj = 0; jj < 120; jj++ ) {
        MSTABS_BASE(cdseq)[ii][jj] = pcdseq[ii][jj];
    }
    }
 
}