[icWasya]

Если
int nc_get_vara_double ( int ncid,
int varid,
const size_t * startp,
const size_t * countp,
double * ip
)
то

Код:

type
   PInteger=^Integer;
   PDouble =^Double;
function nc_get_vara_double 	(ncid:Integer;
		varid:Integer;
		startp:PInteger;
		countp:PInteger;
		ip :PDouble;
	) 	:Integer;cdecl; external 'netcdf.DLL';

и

Код:

var 
ptr: Array of Double;
start,count: Array of int64;
hgtId: integer;
....
err:=nc_get_vara_double(ncID,hgtID,@start[0],@count[0],@ptr[0] );