File: tst_open_cdf5.c

package info (click to toggle)
netcdf-parallel 1%3A4.7.4-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 105,352 kB
  • sloc: ansic: 229,114; sh: 11,180; yacc: 2,561; makefile: 1,390; lex: 1,173; xml: 173; awk: 2
file content (36 lines) | stat: -rw-r--r-- 820 bytes parent folder | download | duplicates (6)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
/*! \file

Copyright 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014,
2015, 2016, 2017, 2018
University Corporation for Atmospheric Research/Unidata.

See \ref copyright file for more info.

*/

#include "config.h"
#include <stdio.h>
#include <stdlib.h>
#include <netcdf.h>

#define FILE_NAME "bad_cdf5_begin.nc"

int main(int argc, char *argv[])
{
    char *fname=FILE_NAME;
    int err, nerrs=0, ncid;

    if (argc == 2) fname = argv[1];

    err = nc_open(fname, NC_NOWRITE, &ncid);
    if (err != NC_ENOTNC) {
        printf("Error: nc_open() expect NC_ENOTNC but got (%s)\n",
               nc_strerror(err));
        nerrs++;
    }
    else if (err == NC_NOERR) /* close file */
        nc_close(ncid);

    return (nerrs > 0);
}