为什么case语句中，没有的例子，值会很大？

芥子纳须弥 · 发表于 2022-5-26 12:13:31

本帖最后由芥子纳须弥于 2022-5-26 12:14 编辑

[Fortran] 纯文本查看 复制代码

program select
   INTEGER medium,isal
   real ew
   
   medium=1
   isal=0
   call DIEL_WAT(medium, isal, ew)
   write(*,*) ew
   write(*,*) isal
  
  end 
  


  subroutine DIEL_WAT(medium, isal, ew)
  INTEGER medium,isal,a,b
  real ew

  SELECT CASE (isal)
  CASE ( 1 )
    a =20
  CASE ( 2 )
    a =40
  endselect
  
    SELECT CASE (medium)
  CASE ( 0 )
    b =0
  CASE ( 1 )
   b=1
  CASE ( 2 )
   b=2
  endselect
 
  ew = a+b
  end

得到的结果是

芥子纳须弥 · 发表于 2022-5-26 21:16:25

vvt 发表于 2022-5-26 15:29
如果你的 isal , medium 可能的取值是连续的。可以尝试用数组表来代替 select
[mw_shl_code=fortran,true]p ...

感谢，解决了我的问题

芥子纳须弥 · 发表于 2022-7-18 22:25:11

zjk0112 发表于 2022-5-26 23:01
我用vs2022+oneAPI的Fortran编辑器跑mkl里的例子就是遇到过这样的情况。没有转置时，索引的值是0，一转置就 ...

是的,没错

[流程控制] 为什么case语句中，没有的例子，值会很大？