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没做出来