我在过程中需要实用主程序的变量，怎样才可以将过程中变量设为私有变量？谢谢      例如：下面程序输出是3 6 9 12 15 我想让过程中变量时私有，输出是1 2 3 4 5。
dimension a(5)
for i=1 to 5
    a(i)=i
endfor
do p1 with a
endfor
for i=1 to 5
??a(i)
endfor
return

procedure p1
parameter b
for i=1 to 5
    b(i)=3*b(i)
endfor
return