就问题本身，不难，可是你没有描述清楚，期望的结果是什么样子。

百事可乐 发表于 2017-2-19 15:13
楼主，这是你的代码逻辑。别人不清楚的话，很难帮你改正哟。

怪我没说清楚，我想实现想从文件A中读取所要a点的坐标，再到文件B中搜索与a点坐标最经的坐标点b并输出相关信息。

li913 发表于 2017-2-19 16:55
你的文字叙述部分，我没看懂，建议整理一下你的问题，表述清楚。是否：从文件A读取坐标a，在文件B中搜索与a ...

恩，是的，我的问题没说清楚。你理解的意思对了，就是想从文件A中读取所要a点的坐标，再到文件B中搜索与a点坐标最经的坐标点b并输出相关信息。下面语句已经能够输出我想要的信息，但由于处在读取a点坐标的循环内，输出的信息会一致循环。其实这整个程序分别是两个独立程序合在一起的。
if((abs(lonin(l,m)-line(2)).le.0.06).and.(abs(latin(l,m)-line(3)).le.0.06))then
write(6,'(3i5,3f12.3)')l,m,n,latin(l,m),lonin(l,m), pre_wrf(l,m,n)

你的文字叙述部分，我没看懂，建议整理一下你的问题，表述清楚。是否：从文件A读取坐标a，在文件B中搜索与a最近的点b并输出相关信息？
如果文件不大，建议先读取所有文件，再处理。

楼主，这是你的代码逻辑。别人不清楚的话，很难帮你改正哟。