用ENVI⼀IDL实现线性内插，但是编译成功后无法弹出需要插值数据的选择窗口，哪位大神帮帮我，程序如下

pro　resize　　；文件名必须与程序名相同，否则无法编译　　　　envi，　＆＃47；restore＿base＿save＿files　　　　　；恢复ENVI　sav文件　　　　envi＿batch＿init2　log＿file＝’batch．txt’　；开始批处理模式　　　　；＝＝＝＝＝定义输入文件路径＝＝＝＝＝　　　　inpath＝’d：＆＃92；2002＆＃92；’　　　　；＝＝＝＝＝定义输出文件路径＝＝＝＝＝　　　　outpath＝’d：＆＃92；2002＆＃92；outfiles＆＃92；’　　　　；定义批处理文件名列表　　　　filename　　＝　［’20020101．img’nfj　‘20020111．img’ycgk　‘20020121．img’］　　　　n　＝　N＿ELEMENTS（filename）　　　；n＿elements函数返回数组中所有元素的数目　　　　；＝＝＝＝＝＝＝＝＝＝批处理＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝　　　　FOR　i＝04n－1　DO　BEGIN　　　　　　　　in＿name＝inpath＋filename［i］　　　　　　　envi＿open＿file，　in＿name，　r＿fid＝fid　　　　　　　　　if　（fid　eq　－1）　then　begin　　　　　　　　　　　　envi＿batch＿exit　　　　　　　　　　　　return　　　　　　　　endif　　　　　　　　envi＿file＿query，　fid，　ns＝ns，　nl＝nl，　nb＝nb　　　　　　　　dims　＝　［－1，　0，　ns－1，　0，　nl－1］　　　　　　　　pos　　＝　lindgen（nb）　　　　　　　　out＿name　＝　outpath＋filename［i］　　　　　　　　envi＿doit，　‘resize＿doit’，　￥　　　　　　　　　　　　fid＝fid，　pos＝pos，　dims＝［－1，　476，1095，1，600］，　￥　　　　　　　　　　　　interp＝0，　rfact＝［1，1］，out＿name＝out＿name，　r＿fid＝r＿fid　　　　ENDFOR　　　　；＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝退出批处理模式＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝　　　　envi＿batch＿exitend　；（FID是一个长整型的标量。FID为ENVI的程序员提供了一个命名变量，可以用于一个或几个ENVI程序，来打开或选择文件。所有对该文件进行操作的ENVI程序都是通过FID完成如果文件打开失败，则FID返回为－1　　ENVI处理程序产生结果一幅新图像也包括一个R＿FID，或者称为返回FID关键字。如果结果是存在内存中的，设置R＿FID关键字是访问数据的唯一方法。）　%D

你这data是作为输入传入到函数里的
你应该前面先用一个什么功能\函数获取data
然后再调用
ret = Function modis1km_250(DATA)