<div dir="ltr"><div class="gmail_default" style="font-family:tahoma,sans-serif">Hi Guys:<br></div><div class="gmail_quote"><div dir="ltr"><div><div><font face="tahoma, sans-serif"><br></font></div><div>
<div class="gmail_default" style="font-family:tahoma,sans-serif;display:inline">My code</div> can be compiled successfully but hang when I tried to run it.</div>
<div><br></div><div>Any idea? <br></div><div><br></div><div><br></div><div>/**********  pnetcdf-array-writing-case.c ***********/</div>
<div><font face="tahoma, sans-serif"><br></font></div><div><font face="tahoma, sans-serif">#include <stdlib.h></font></div><div><font face="tahoma, sans-serif">#include <mpi.h></font></div>
<div><font face="tahoma, sans-serif">#include <pnetcdf.h></font></div><div><font face="tahoma, sans-serif">#include <stdio.h></font></div><div>
<font face="tahoma, sans-serif"><br></font></div><div><font face="tahoma, sans-serif">#define TIMES 253</font></div><div><font face="tahoma, sans-serif">#define SAMPLES 99</font></div>
<div><font face="tahoma, sans-serif"><br></font></div><div><font face="tahoma, sans-serif">static void handle_error(int status, int lineno)</font></div><div>
<font face="tahoma, sans-serif">{</font></div><div><font face="tahoma, sans-serif">    fprintf(stderr, "Error at line %d: %s\n", lineno, ncmpi_strerror(status));</font></div><div>
<font face="tahoma, sans-serif">    MPI_Abort(MPI_COMM_WORLD, 1);</font></div><div><font face="tahoma, sans-serif">}</font></div><div><font face="tahoma, sans-serif"><br></font></div>
<div><font face="tahoma, sans-serif">int main(int argc, char **argv) {</font></div><div><font face="tahoma, sans-serif"><br></font></div><div><font face="tahoma, sans-serif">    int  ret, nprocs, rank, ncid, i, j;</font></div>

<div><font face="tahoma, sans-serif">    int  vid;                        /* variable ID */</font></div><div><font face="tahoma, sans-serif">    int  time_dim, sample_dim;       /* variable shape */</font></div>
<div><font face="tahoma, sans-serif">    int  dims[2];                    /* variable shape */</font></div><div><font face="tahoma, sans-serif">    double var[TIMES*SAMPLES];   /* array to hold values */</font></div>
<div><font face="tahoma, sans-serif"><br></font></div><div><font face="tahoma, sans-serif">    MPI_Init(&argc, &argv);</font></div><div><font face="tahoma, sans-serif"><br>
</font></div><div><font face="tahoma, sans-serif">    MPI_Comm_rank(MPI_COMM_WORLD, &rank);</font></div><div><font face="tahoma, sans-serif">    MPI_Comm_size(MPI_COMM_WORLD, &nprocs);</font></div>
<div><font face="tahoma, sans-serif"><br></font></div><div><font face="tahoma, sans-serif">    ret = ncmpi_create(MPI_COMM_WORLD, argv[1], NC_CLOBBER|NC_64BIT_OFFSET, MPI_INFO_NULL, &ncid);</font></div>
<div><font face="tahoma, sans-serif">    if (ret != NC_NOERR) handle_error(ret, __LINE__);</font></div><div><font face="tahoma, sans-serif"><br></font></div><div>
<font face="tahoma, sans-serif">    ret = ncmpi_def_dim(ncid, "time", TIMES, &time_dim);</font></div><div><font face="tahoma, sans-serif">    if (ret != NC_NOERR) handle_error(ret, __LINE__);</font></div>
<div><font face="tahoma, sans-serif">    ret = ncmpi_def_dim(ncid, "sample", TIMES, &sample_dim);</font></div><div><font face="tahoma, sans-serif">    if (ret != NC_NOERR) handle_error(ret, __LINE__);</font></div>

<div><font face="tahoma, sans-serif"><br></font></div><div><font face="tahoma, sans-serif"><br></font></div><div><font face="tahoma, sans-serif">    dims[0] = time_dim;</font></div>
<div><font face="tahoma, sans-serif">    dims[1] = sample_dim;</font></div><div><font face="tahoma, sans-serif">    ret = ncmpi_def_var(ncid, "var", NC_SHORT, 2, dims, &vid);</font></div>
<div><font face="tahoma, sans-serif">    if (ret != NC_NOERR) handle_error(ret, __LINE__);</font></div><div><font face="tahoma, sans-serif"><br></font></div><div>
<font face="tahoma, sans-serif">    ret = ncmpi_enddef(ncid);</font></div><div><font face="tahoma, sans-serif">    if (ret != NC_NOERR) handle_error(ret, __LINE__);</font></div><div>
<font face="tahoma, sans-serif"><br></font></div><div><font face="tahoma, sans-serif">    for (i = 0; i < TIMES; i++)</font></div><div><font face="tahoma, sans-serif">        for (j = 0; j < SAMPLES; j++)</font></div>

<div><font face="tahoma, sans-serif">            var[i*253+j] = 9999;</font></div><div><font face="tahoma, sans-serif"><br></font></div><div><font face="tahoma, sans-serif">    ret = ncmpi_begin_indep_data(ncid);</font></div>

<div><font face="tahoma, sans-serif">    if (ret != NC_NOERR) handle_error(ret, __LINE__);</font></div><div><font face="tahoma, sans-serif">    /* write values into netCDF variable */</font></div>
<div><font face="tahoma, sans-serif">    ret = ncmpi_put_var_double(ncid, vid, var);</font></div><div><font face="tahoma, sans-serif">    if (ret != NC_NOERR) handle_error(ret, __LINE__);</font></div>
<div><font face="tahoma, sans-serif">    ret = ncmpi_end_indep_data(ncid);</font></div><div><font face="tahoma, sans-serif">    if (ret != NC_NOERR) handle_error(ret, __LINE__);</font></div>
<div><font face="tahoma, sans-serif"><br></font></div><div><font face="tahoma, sans-serif">    ret = ncmpi_close(ncid);</font></div><div><font face="tahoma, sans-serif">    if (ret != NC_NOERR) handle_error(ret, __LINE__);</font></div>

<div><font face="tahoma, sans-serif"><br></font></div><div><font face="tahoma, sans-serif">    MPI_Finalize();</font></div><div><font face="tahoma, sans-serif">    return 0;</font></div>
<div><font face="tahoma, sans-serif">}</font></div></div>
</div>
</div><br><br clear="all"><div><br></div>-- <br><div dir="ltr"><font face="arial, sans-serif"><span style="border-collapse:collapse"><span style="border-collapse:separate;font-family:tahoma,verdana,arial,helvetica,sans-serif;font-size:12px">Jun Xiong, Ph.D.</span></span></font><div>
<div><span style="border-collapse:collapse"><span style="border-collapse:separate"><div><font face="tahoma, verdana, arial, helvetica, sans-serif"><span style="font-size:12px">U.S. Geological Survey</span></font><br></div>
</span></span></div><div><span style="border-collapse:collapse"><span style="border-collapse:separate"><span style="font-size:12px;font-family:tahoma,verdana,arial,helvetica,sans-serif">2255 North Gemini Drive, </span></span></span><span style="font-family:tahoma,verdana,arial,helvetica,sans-serif;font-size:12px">Flagstaff, Arizona - 86001, USA.</span></div>
<div><span style="border-collapse:collapse"><span style="border-collapse:separate"><span style="font-size:12px;font-family:tahoma,verdana,arial,helvetica,sans-serif">Office: </span></span></span><span style="font-family:tahoma,verdana,arial,helvetica,sans-serif;font-size:12px">928-556-7215</span><br>
</div></div><div><font face="tahoma, verdana, arial, helvetica, sans-serif"><span style="font-size:11.818181991577148px">Fax:    928-556-7169</span></font><br></div><div><span style="border-collapse:collapse"><span style="border-collapse:separate"><div>
<br></div><div><br></div></span></span></div></div>
</div>