mirror of
https://github.com/Unidata/netcdf-c.git
synced 2024-11-27 07:30:33 +08:00
29 lines
885 B
C
29 lines
885 B
C
/*********************************************************************
|
|
* This is part of the Unidata netCDF package.
|
|
* Copyright 2018, UCAR/Unidata
|
|
* See COPYRIGHT file for copying and redistribution conditions.
|
|
*
|
|
* This program is part of the testing of file lengths done by the
|
|
* test script tst_lentghs.sh.
|
|
*
|
|
* $Id: rewrite-scalar.c,v 1.3 2008/10/20 01:48:08 ed Exp $
|
|
*********************************************************************/
|
|
|
|
#include "config.h"
|
|
#include <stdio.h>
|
|
#include <netcdf.h>
|
|
|
|
#define ERR do {fflush(stdout); fprintf(stderr, "Error, %s, line: %d\n", __FILE__, __LINE__); return(1);} while (0)
|
|
|
|
int
|
|
main(int ac, char *av[]) {
|
|
int ncid, varid, data[] = {42};
|
|
|
|
if (nc_open(av[1], NC_WRITE, &ncid)) ERR;
|
|
if (nc_inq_varid(ncid, av[2], &varid)) ERR;
|
|
if (nc_put_var_int(ncid, varid, data)) ERR;
|
|
if (nc_close(ncid)) ERR;
|
|
|
|
return 0;
|
|
}
|