fortran数组和if条件语句

channam

stations.txt是259行2列的数组

我测试了一下这个数据读入是没有问题的，
当我把p和q直接写成数字的时候如111,195，得出的结果是正确的，emi为0.
但是我不能把这259组数据都用这样的方式写，所以只是把数字换成了数组，不知道问题出在了哪里，得出的结果emi并不是0.
程序没有报错，本来是想把stations位置对应的emi改成零的，但是结果还是保持原来的值，。
我怀疑是if((p==latlon(kk,1)).and.(q==latlon(kk,2))) then这条语句是不是出错，或者是循环不对？？？？
程序不报错，看起来也是对的，但结果不对，大家帮我看看是什么原因！！！！！拜托拜托！！！百思不得其解！！！！

程序这样运行的时候是正确的，大家主要关注一下蓝色这几行，这是我改的这几行

dynamic001

1)对于读取数据的格式进行规定 read（）
2)建议自己debug一下，非常简单但是效率很高

xiuyuanyang

根据你说的情况，自己手动将p、q值改为111和95，结果正确，可是循环结果不对，说明你的循环条件就没满足，所以结果不对，也就是说有可能循环之前的那两个p、q赋值语句有问题，导致不满足循环，建议循环之前将p、q结果输出看一下，而且我觉得你的那个int函数使用的有问题，个人意见，仅供参考，谢谢