14 #include "ncfortran.h" 20 FCALLSCFUN0(STRING, (
char*)nc_inq_libvers, NF_INQ_LIBVERS, nf_inq_libvers)
27 extern void NF_STRERROR(
char *AS,
unsigned D0,
const int *A1)
30 A0= (
char*)nc_strerror( (
int)*A1 );
31 memcpy(AS,A0, (D0<(A0==((
void *)0)?0:strlen(A0))?D0:(A0==((
void *)0)?0:strlen(A0))) );
32 D0>(A0==((
void *)0)?0:strlen(A0))?memset(AS+(A0==((
void *)0)?0:strlen(A0)),
' ', D0-(A0==((
void *)0)?0:strlen(A0))):0;
36 FCALLSCFUN1(STRING, (
char*)nc_strerror, NF_STRERROR, nf_strerror,
42 nc_issyserr(
int errcode)
52 FCALLSCFUN1(LOGICAL, nc_issyserr, NF_ISSYSERR, nf_issyserr,