问题是这样的：当slice_size=5时运行红色字体的程序段，当不为5时运行黑色的程序段，求各位大侠帮忙，急！



    [color=FF0000]allocate(num(LL,MM,N1))
    k2=4
    do k=2,t_layer+11 !t_layer+11表示的是(tumor层数+10个边界层)+2-1
    if(k==2) then
       k1=2
       do i1=1,2
       do j=2,MM-1
       do i=2,LL-1
       num(i,j,k1)=num1(i,j,k)
       enddo
       enddo
       k1=k1+1
       enddo
    elseif(k==t_layer+11) then
       k1=N2-1
       do i1=1,2
       do j=2,MM-1
       do i=2,LL-1
       num(i,j,k1)=num1(i,j,k)
       enddo
       enddo
       k1=k1+1
       enddo
    else
       do i1=1,3
       do j=2,MM-1
       do i=2,LL-1
       num(i,j,k2)=num1(i,j,k)
       enddo
       enddo
       k2=k2+1
       enddo
    endif
    enddo[/color]CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C   两个像素点看做一个控制容积（512*512变为256*256）
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
      [color=000000]i1=2;j1=2
      do k=2,N2
    do j=2,MM-1,2
    do i=2,LL-1,2
    num1(i1,j1,k)=num(i,j,k)
    i1=i1+1
    enddo
    i1=2;j1=j1+1
    enddo
    i1=2;j1=2
    enddo
      deallocate(num)[/color]