PRO ncdf_struct_free,s ; ; free heap memory associated with struct returned by ncdf_struct ; for i=0,s.nvars-1 do ptr_free,s.vars.(i).data end