fortran - Fortranで二次元配列を定義する方法

Question

値を配列に分類する必要があるカタログがあります：
このコードで

       ii=1      
 101   read(20,*,end=102)ra(ii),dec(ii),mag_g(ii),mag_r(ii),mag_i(ii),redshift(ii)   
       do i=1,n
          z(i)=zmin+(i-1)*step   
          zup(i)=z(i)+step
          do j=1,b      !mag loop
             mag(j)=mag_min+(j-1)*bin
             magup(j)=mag(j)+bin
             if (z(i) >= redshift(ii).and.redshift(ii) <= zup(i).and.mag(j) >= mag_i(ii).and.mag_i(ii) <= magup(j) ) then
                array(i,j)=mag_i(ii)
                write(4,'(2x,3f10.5,2x,4f10.5)')z(i),zup(i),redshift(ii),mag(j),magup(j),mag_i(ii),array(i,j)
             else 
                goto 103
             end if
          end do 
       end do   
 103   ii=ii+1  
       goto 101   
 102   total=ii-1

このコードを実行すると、各ディメンションのすべての値が上書きされます。ランク s の 2 次元配列をどのように定義できますか (すべてのオブジェクトが if 条件に適合します)。

ありがとう