可能有两个问题：1，字符串数组定义方法，你改成这样定义试试character(len=8) atname2. 你定义了一个8个长度的字符数组，Cd是一个两个长度的字符串改成atname(1:2)=='Cd'试试我手边fortran出了问题没法帮你调试，你先试试
CD是什么？ 这句话意思是 逻辑表达式需要是标量，难道你的cd定义的矢量？还是什么？
