libsrc/v2i.c patch for 2.4 fortran jackets

• To: netcdfgroup@xxxxxxxxxxxxxxxx
• Subject: libsrc/v2i.c patch for 2.4 fortran jackets
• From: "Glenn P. Davis" <davis@xxxxxxxxxxxxxxxx>
• Date: Mon, 9 Sep 1996 11:24:56 -0600 (MDT)

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 */