Compact if 检查涉及 Fortran 中的多个字符串

Question

有没有办法一起检查一个字符串是否等于列表中的任何一个，而不是单独显式检查 ==？例如，

if(color=='violet' .or. color=='indigo' .or. color=='blue' .or.&
   color=='green' .or. color=='yellow' .or. color=='orange' .or. color=='red') then
   print *, "It is a rainbow color"
end if

这样的东西

Answer 1

您可以将颜色放入数组中并使用 any。

if (any(color == [character(6) :: "violet","indigo","blue","green","yellow","orange","red"]))

Compact if 检查涉及 Fortran 中的多个字符串

Compact if check involving multiple strings in Fortran

fortran

if-statement