; Name: undefine.pro

; Author: ASR (but this is not original, I forgot where I got the idea from)

;

; This is simply a routine to free a variable from memory

; Usage is easy, just type "undefine,varname" and the variable "varname" will

; be freed from memory



pro undefine,varname



if n_elements(varname) ge 1 then $

  val=size(temporary(varname),/type)



end