subroutine Tar(series x,series y,scalar m,scalar tlimit)

matrix u_s

call resid(x,y)

series du=d(u)

scalar inf=@round(@obs(u)*0.15)

scalar sup=@round(@obs(u)*0.85)

matrix(sup-inf+l) u_sr

scalar sr

scalar tmin

scalar tindex

table result_tar

if tlimit=0 then

    if @val(result_tar(l，1))>0 then

      call olsr(u,0,result_tar,m)

    else

       result_tar(1,1)="0"

       call olsr(u,0,result_tar,m)

     endif

else

  if m=0 then

  call sortu(u,u_ s)

  else

  call sortu(du,u_ s)

endif

!j=1

for !i=inf to sup

   call olsresid(u,u_ s(!i),sr,m)

   u_sr(!j)=sr

   !j=!j+1

next

tmin=u_sr(1)

tindex=1

for !i=1 to (sup-inf+l)

      if tmin>u_ sr(!i) then

        tmin=u_ sr(!i)

        tindex=!i

      endif

  next

   if @val(result_tar(l,1))>0 then

    call olsr(u,u_ s(tindex+inf-1),result _tar,m)

   else

    result_tar(1,1)="0"

    call olsr(u,u_ s(tindex+inf-1),result_tar,m)

   endif

endif

delete u_s

delete u_sr

delete inf

delete sup

delete tmin

delete tindex

delete m

endsub

call tar(rl0,rl，1,1)

哪位高手帮我看看这个eviews程序有什么问题，为什么运行了后软件界面没反应，是程序的为题还是软件的问题？