// IDL's bindgen function (only for 1D)

function bindgen, n {
  bindgen = setbitpix([0:n-1], 8)
}

// IDL's findgen function (only for 1D)

function findgen, n {
  findgen = setbitpix([0:n-1], -32)
}

// IDL's fltarr function

function fltarr, x, y, z {
  if (nparams == 1) fltarr = floatarray(x)
  if (nparams == 2) fltarr = floatarray(x, y)
  if (nparams == 3) fltarr = floatarray(x, y, z)
}

// IDL's lonarr function

function lonarr, x, y, z {
  if (nparams == 1) lonarr = longarray(x)
  if (nparams == 2) lonarr = longarray(x, y)
  if (nparams == 3) lonarr = longarray(x, y, z)
}

// IDL's alog10 function
function alog10, x {
  alog10 = log(x)
}

// IDL's alog function
function alog, x {
  alog = ln(x)
}

// IDL's poly function
/*
function poly, x, C {
  cnotation

  n = nelements(C)-1	// Find degree of polynomial
  y = C[n]
  for (i=n-1; i >= 0; i--) y = y * x + C[i]
  poly = y
}
*/

