gistfile1.c

static int
write_NC(NC *ncp)
{   
    int status, mpireturn, rank;
    void *buf; 
    MPI_Offset hsz; /* header size with 0-padding if needed */
    MPI_Status mpistatus;
 
    assert(!NC_readonly(ncp));
 
    MPI_Comm_rank(ncp->nciop->comm, &rank);
        
    if (NC_dofill(ncp)) { /* hsz is the header size with zero padding */
        /* we don't need this, as these paddings will never be accessed */
        hsz = MIN(ncp->begin_var, ncp->begin_rec);
        hsz = MAX(hsz, ncp->xsz);
    }
    else
        hsz = ncp->xsz;       

    buf = NCI_Malloc(hsz); /* header buffer for I/O */
    if (hsz > ncp->xsz)       
        memset((char*)buf+ncp->xsz, 0, hsz - ncp->xsz);