Index: v2i.c
==================================================================
RCS file: /upc/share/CVS/netcdf-3/libsrc/v2i.c,v
retrieving revision 1.18
retrieving revision 1.19
diff -c -r1.18 -r1.19
*** v2i.c 1996/08/23 17:58:39 1.18
--- v2i.c 1996/09/09 16:57:11 1.19
***************
*** 2,8 ****
* Copyright 1996, University Corporation for Atmospheric Research
* See netcdf/COPYRIGHT file for copying and redistribution conditions.
*/
! /* $Id: v2i.c,v 1.18 1996/08/23 17:58:39 davis Exp $ */
#include "nc.h"
--- 2,8 ----
* Copyright 1996, University Corporation for Atmospheric Research
* See netcdf/COPYRIGHT file for copying and redistribution conditions.
*/
! /* $Id: v2i.c,v 1.19 1996/09/09 16:57:11 davis Exp $ */
#include "nc.h"
***************
*** 34,39 ****
--- 34,45 ----
int ncopts = (NC_FATAL | NC_VERBOSE) ;
+ /*
+ * Backward compatibility for the version 2 fortran jackets
+ */
+ const char *cdf_routine_name;
+
+
/* End globals */
/* Begin error handling */
***************
*** 42,51 ****
#include <stdlib.h>
#include <stdarg.h>
/*
*/
void
! nc_advise(const char *cdf_routine_name, int err, const char *fmt,...)
{
va_list args;
--- 48,58 ----
#include <stdlib.h>
#include <stdarg.h>
+
/*
*/
void
! nc_advise(const char *routine_name, int err, const char *fmt,...)
{
va_list args;
***************
*** 56,62 ****
if( ncopts & NC_VERBOSE )
{
! (void) fprintf(stderr,"%s: ", cdf_routine_name);
va_start(args ,fmt);
(void) vfprintf(stderr,fmt,args);
va_end(args);
--- 63,69 ----
if( ncopts & NC_VERBOSE )
{
! (void) fprintf(stderr,"%s: ", routine_name);
va_start(args ,fmt);
(void) vfprintf(stderr,fmt,args);
va_end(args);
***************
*** 73,78 ****
--- 80,99 ----
{
exit(ncopts);
}
+ }
+
+
+ /*
+ * Backward compatibility for the version 2 fortran jackets
+ */
+ void
+ NCadvise(int err, char *fmt,...)
+ {
+ va_list args;
+
+ va_start(args ,fmt);
+ nc_advise(cdf_routine_name, err, fmt, args);
+ va_end(args);
}
/* End error handling */
