;checkforerror


;print, 'plot cal entered'

fname=' '
openr, 1, 'input_fname'
readf, 1, fname, format='(a100)'
close, 1
fname=strtrim(fname,2)


cdfid=ncdf_open(fname)	; open the netcdf file

time_did=ncdf_dimid(cdfid,'time')
height_did=ncdf_dimid(cdfid,'height')

ncdf_diminq, cdfid, time_did, char_strng, num_times
ncdf_diminq, cdfid, height_did, char_strng, num_ind_heights


num_sec_id=ncdf_varid(cdfid,'base_time')
time_offset_id=ncdf_varid(cdfid,'time_offset')


num_sec=0l

ncdf_varget, cdfid, num_sec_id, num_sec
ncdf_varget, cdfid, time_offset_id, time_offset

ncdf_close, cdfid


if time_offset[0] ne 0.0 then begin
	error=1
	openw, 1, 'error_file'
	printf, 1, format='(4(f7.3,1x))', error
endif else begin
	error=0
	openw, 1, 'error_file'
	printf, 1, format='(4(f7.3,1x))', error
endelse

close, 1

end_program: print, 'Done with error check'
end