我现在有一组数据，是对应step=1，2---10的数，但是每个step对应的数据的个数不一定相等。我想把这些数（在程序用a表示）存在数组中，以便后面用，在后面我要定义一个函数，如H（x），x可以取0到30000的任意值，当x取我的数据中值是，H（x）=1，否则为0.也就是说当step=1，x取15733，18193，20251时，H（x）=1，当step=2，x取15733，20251时，H（x）=1。大家帮忙看看这样写行不行？如果不行，应该怎样实现？先谢谢了
do istep=1，10
test（10，istep）=a  ！将a存到数组test中。对应每个step的a值最多是10
enddo 
do i=1，30000  ！x取所有可能的 值
    do istep=1，10
         do j=1，10 
             if（i==test（j，istep））then
                  H（i）=1
             else
                  H（i）=0
            endif           
         enddo
     enddo
enddo

 step           1       15733
 step           1       18193
 step           1       20251
 step           2       15733
 step           2       20251
 step           3       20824
 step           4       15733
 step           4       16159
 step           4       18193
 step           4       20251
 step           4       20824
 step           5       16159
 step           5       18193
 step           5       20251
 step           5       20824
 step           6       15733
 step           6       20251
 step           6       20824
 step           7       15733
 step           7       20251
 step           7       20824
 step           8       15733
 step           8       16159
 step           8       18193
 step           8       20251
 step           9       18193
 step           9       20251
 step          10        9490
 step          10       16159
 step          10       20251