mirror of
https://github.com/Unidata/netcdf-c.git
synced 2024-12-03 08:01:25 +08:00
54 lines
1.3 KiB
C
54 lines
1.3 KiB
C
/*
|
|
This file is part of the netCDF Fortran 77 API.
|
|
|
|
This file handles the netCDF strerror and libvers functions.
|
|
|
|
Copyright 2006, University Corporation for Atmospheric Research. See
|
|
the COPYRIGHT file for copying and redistribution conditions.
|
|
|
|
$Id: fort-misc.c,v 1.8 2007/07/26 20:29:45 ed Exp $
|
|
*/
|
|
|
|
#include <config.h>
|
|
#include "netcdf.h"
|
|
#include "ncfortran.h"
|
|
|
|
|
|
/*
|
|
* Return a string that identifies the version of the netCDF library.
|
|
*/
|
|
FCALLSCFUN0(STRING, (char*)nc_inq_libvers, NF_INQ_LIBVERS, nf_inq_libvers)
|
|
|
|
|
|
/*
|
|
* Return the string associated with an error code.
|
|
*/
|
|
#ifdef ABSOFT10_HACK
|
|
extern void NF_STRERROR(char *AS, unsigned D0, const int *A1)
|
|
{
|
|
char *A0;
|
|
A0= (char*)nc_strerror( (int)*A1 );
|
|
memcpy(AS,A0, (D0<(A0==((void *)0)?0:strlen(A0))?D0:(A0==((void *)0)?0:strlen(A0))) );
|
|
D0>(A0==((void *)0)?0:strlen(A0))?memset(AS+(A0==((void *)0)?0:strlen(A0)), ' ', D0-(A0==((void *)0)?0:strlen(A0))):0;
|
|
return ;
|
|
}
|
|
#else
|
|
FCALLSCFUN1(STRING, (char*)nc_strerror, NF_STRERROR, nf_strerror,
|
|
FINT2CINT)
|
|
#endif
|
|
|
|
|
|
static int
|
|
nc_issyserr(int errcode)
|
|
{
|
|
return errcode > 0;
|
|
}
|
|
|
|
|
|
/*
|
|
* Indicate whether or not an error-code refers to a system error
|
|
* rather than a netCDF error
|
|
*/
|
|
FCALLSCFUN1(LOGICAL, nc_issyserr, NF_ISSYSERR, nf_issyserr,
|
|
FINT2CINT)
|