nco: ncdf4a13/fortran/fort-misc.c Source File

00001 #include "netcdf.h"
00002 #include "ncfortran.h"
00003 
00004 
00005 /*
00006  * Return a string that identifies the version of the netCDF library.
00007  */
00008 FCALLSCFUN0(STRING, (char*)nc_inq_libvers, NF_INQ_LIBVERS, nf_inq_libvers)
00009 
00010 
00011 /*
00012  * Return the string associated with an error code.
00013  */
00014 FCALLSCFUN1(STRING, (char*)nc_strerror, NF_STRERROR, nf_strerror, 
00015             FINT2CINT)
00016 
00017 
00018 static int
00019 nc_issyserr(int errcode)
00020 {
00021     return errcode > 0;
00022 }
00023 
00024 
00025 /*
00026  * Indicate whether or not an error-code refers to a system error
00027  * rather than a netCDF error
00028  */
00029 FCALLSCFUN1(LOGICAL, nc_issyserr, NF_ISSYSERR, nf_issyserr,
00030             FINT2CINT)