Index: vardata.c
===================================================================
RCS file: /upc/share/CVS/netcdf-3/ncdump/vardata.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -c -r1.4 -r1.5
*** 1.4	1997/01/15 16:52:51
--- 1.5	1997/05/16 16:43:24
***************
*** 1,7 ****
  /*********************************************************************
   *   Copyright 1993, UCAR/Unidata
   *   See netcdf/COPYRIGHT file for copying and redistribution conditions.
!  *   $Header: /upc/share/CVS/netcdf-3/ncdump/vardata.c,v 1.4 1997/01/15 16:52:51 davis Exp $
   *********************************************************************/
  
  #include <stdio.h>
--- 1,7 ----
  /*********************************************************************
   *   Copyright 1993, UCAR/Unidata
   *   See netcdf/COPYRIGHT file for copying and redistribution conditions.
!  *   $Header: /upc/share/CVS/netcdf-3/ncdump/vardata.c,v 1.5 1997/05/16 16:43:24 russ Exp $
   *********************************************************************/
  
  #include <stdio.h>
***************
*** 810,857 ****
  	    case NC_CHAR:
  		NC_CHECK(
  		    nc_get_vara_text(ncid, varid, cor, edg, (char *)vals) );
- 		left -= toget;
  	        pr_tvals(vp, toget, fmt, left > toget, lastrow,
  			 (char *) vals, fsp, cor);
  		break;
  	    case NC_BYTE:
  		NC_CHECK(
  		    nc_get_vara_schar(ncid, varid, cor, edg, (signed char *)vals) );
- 		left -= toget;
  	        pr_bvals(vp, toget, fmt, left > toget, lastrow,
  			 (char *) vals, fsp, cor);
  		break;
  	    case NC_SHORT:
  		NC_CHECK(
  		    nc_get_vara_short(ncid, varid, cor, edg, (short *)vals) );
- 		left -= toget;
  	        pr_svals(vp, toget, fmt, left > toget, lastrow,
  			 (short *) vals, fsp, cor);
  		break;
  	    case NC_INT:
  		NC_CHECK(
  		    nc_get_vara_int(ncid, varid, cor, edg, (int *)vals) );
- 		left -= toget;
  	        pr_ivals(vp, toget, fmt, left > toget, lastrow,
  			 (int *) vals, fsp, cor);
  		break;
  	    case NC_FLOAT:
  		NC_CHECK(
  		    nc_get_vara_float(ncid, varid, cor, edg, (float *)vals) );
- 		left -= toget;
  	        pr_fvals(vp, toget, fmt, left > toget, lastrow,
  			 (float *) vals, fsp, cor);
  		break;
  	    case NC_DOUBLE:
  		NC_CHECK(
  		    nc_get_vara_double(ncid, varid, cor, edg, (double *)vals) );
- 		left -= toget;
  	        pr_dvals(vp, toget, fmt, left > toget, lastrow,
  			 (double *) vals, fsp, cor);
  		break;
  	    default:
  		error("vardata: bad type");
  	    }
  	    if (vrank > 0)
  	      cor[vrank-1] += toget;
  	}
--- 810,852 ----
  	    case NC_CHAR:
  		NC_CHECK(
  		    nc_get_vara_text(ncid, varid, cor, edg, (char *)vals) );
  	        pr_tvals(vp, toget, fmt, left > toget, lastrow,
  			 (char *) vals, fsp, cor);
  		break;
  	    case NC_BYTE:
  		NC_CHECK(
  		    nc_get_vara_schar(ncid, varid, cor, edg, (signed char *)vals) );
  	        pr_bvals(vp, toget, fmt, left > toget, lastrow,
  			 (char *) vals, fsp, cor);
  		break;
  	    case NC_SHORT:
  		NC_CHECK(
  		    nc_get_vara_short(ncid, varid, cor, edg, (short *)vals) );
  	        pr_svals(vp, toget, fmt, left > toget, lastrow,
  			 (short *) vals, fsp, cor);
  		break;
  	    case NC_INT:
  		NC_CHECK(
  		    nc_get_vara_int(ncid, varid, cor, edg, (int *)vals) );
  	        pr_ivals(vp, toget, fmt, left > toget, lastrow,
  			 (int *) vals, fsp, cor);
  		break;
  	    case NC_FLOAT:
  		NC_CHECK(
  		    nc_get_vara_float(ncid, varid, cor, edg, (float *)vals) );
  	        pr_fvals(vp, toget, fmt, left > toget, lastrow,
  			 (float *) vals, fsp, cor);
  		break;
  	    case NC_DOUBLE:
  		NC_CHECK(
  		    nc_get_vara_double(ncid, varid, cor, edg, (double *)vals) );
  	        pr_dvals(vp, toget, fmt, left > toget, lastrow,
  			 (double *) vals, fsp, cor);
  		break;
  	    default:
  		error("vardata: bad type");
  	    }
+ 	    left -= toget;
  	    if (vrank > 0)
  	      cor[vrank-1] += toget;
  	}