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

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

有没有一种紧凑的方法可以做到这一点？类似if(color=='violet|indigo|blue|green|yellow|orange|red')的东西？

Answer 1

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

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