; @(#)undefine.pro 1.2 11/07/98 ;+ ; ; Used to delete variables within a program...not at the main ; level. Useful for changing the size of common blocks within an IDL ; session. ; ;- pro undefine, var1, var2, var3, var4, var5, var6, var7, var8, var10, $ var11, var12, var13, var14, var15, var16 any_after_1_defined = $ defined(var2) or $ defined(var3) or $ defined(var4) or $ defined(var5) or $ defined(var6) or $ defined(var7) or $ defined(var8) or $ defined(var9) or $ defined(var10) or $ defined(var11) or $ defined(var12) or $ defined(var13) or $ defined(var14) or $ defined(var15) or $ defined(var16) if any_after_1_defined then begin undefine, var2, var3, var4, var5, var6, var7, var8, var10, $ var11, var12, var13, var14, var15, var16 endif if defined(var1) then null = size(temporary(var1)) return end