string - 如何检查 Fortran 中字符是大写还是小写？

Question

在 Fortran 中，返回字符是大写还是小写的库函数是什么(如果有的话)(我使用的是 gfortran 11)？

character :: c
c = 'l'
print *, is_lower(c) ! should display 'T'
print *, is_upper(c) ! should display 'F'
c = 'L'
print *, is_upper(c) ! should display 'T'

我应该用什么来代替 is_lower 和 is_upper？我可以尝试自己动手，但是比较运算符对于字符来说已经很奇怪了，我无法确定我在做什么。

Answer 1

您可以使用 ascii 比较...将 iachar in integer 转换为 c 并将其与大写字符的边界(从 65 到 90)或与小写字符的边界(从 97 到 122)进行比较，这是有限的解决方案因为它不会处理像 ÈÉ 这样大写或小写的奇怪字符