如何解决如果检查涉及Fortran中的多个字符串,则压缩
是否有办法一起检查一个字符串是否等于列表中的任何一个,而不是分别用==
进行显式检查?例如,
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')
一样?
解决方法
您可以将颜色放入数组中并使用any
。
if (any(color == [character(6) :: "violet","indigo","blue","green","yellow","orange","red"]))
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。