1/*********************************************************************
2 * This is part of the Unidata netCDF package.
3 * Copyright 2006, UCAR/Unidata
4 * See COPYRIGHT file for copying and redistribution conditions.
5 *
6 * This program is part of the testing of file lengths done by the
7 * test script tst_lentghs.sh.
8 *
9 * $Id: rewrite-scalar.c,v 1.3 2008/10/20 01:48:08 ed Exp $
10 *********************************************************************/
11
12#include <config.h>
13#include <stdio.h>
14#include <netcdf.h>
15
16#define ERR do {fflush(stdout); fprintf(stderr, "Error, %s, line: %d\n", __FILE____LINE__); return(1);} while (0)
17
18int
19main(int ac, char *av[]) {
20    int ncidvariddata[] = {42};
21
22    if (nc_open(av[1], NC_WRITE, &ncid)) ERR;
23    if (nc_inq_varid(ncidav[2], &varid)) ERR;
24    if (nc_put_var_int(ncidvariddata)) ERR;
25    if (nc_close(ncid)) ERR;
26
27    return 0;
28}


HyperKWIC - Version 7.20DA executed at 11:37 on 27 Oct 2017 | Polyhedron Solutions - INTERNAL USE | COMMERCIAL (Any O/S) SN 4AKIed