以下是一段Fortran代码怎么转成matlab啊？

Question

do i=1,M
do j=1,N
zp=z(i,j); qxp=qx(i,j); qyp=qy(i,j); zbp=zb(i,j); hp=zp-zbp

      if(hp.GT.tol_h) then
        dryc(i,j)=0 
      else !dry cells
        wnei=0
        do k=1,4
          select case(k)
            case(1)
              icn=i; jcn=j+1
              if(jcn.GT.N) cycle
            case(2)
              icn=i+1; jcn=j
              if(icn.GT.M) cycle
            case(3)
              icn=i; jcn=j-1
              if(jcn.LT.1) cycle
            case(4)
              icn=i-1; jcn=j
              if(icn.LT.1) cycle
          end select
          hnei=z(icn,jcn)-zb(icn,jcn)

          if(hnei.GT.tol_h) then
            dryc(i,j)=1
            wnei=1 
            exit
          end if
        end do
        if(wnei.EQ.0) dryc(i,j)=2
      end if

    end do
  end do        

请问这个Fortran代码怎么转MATLAB啊 用for中嵌套 switch-case和if没做出来

Answer 1

处理好cycle和exit就行，参考这里的回答。 https://ask.csdn.net/questions/7487697