求两坐标点距离

Jackdaw · 发表于 2017-3-19 12:51:13

[Fortran] 纯文本查看 复制代码

do i=1,m
        lon1=lon
        lat1=lat
        read(7,'(a9,2x,f6.3,2x,f7.3)') site , lat2(i) , lon2(i)
        write(10,'(a9,2x,f6.2,2x,f7.2,2x,f9.2)') site , lat2(i) , lon2(i) , distance(lat1, lon1, lat2(i), lon2(i))
    end do

Jackdaw · 发表于 2017-3-19 14:28:27

wxy 发表于 2017-3-19 14:12
再请教一下,我把计算出来的距离放入动态数组near,用minval找到距离最小值,如果要把最小值所在的那一行输出 ...

参考这个示例

Jackdaw · 发表于 2017-3-19 15:34:13

wxy 发表于 2017-3-19 14:57
谢谢现在已经成功输出最小值的位置了,如果我想直接把最小值那一行输出,在知道行号的情况下,用什麽语句呢 ...

额，这个都找到了，你写到文件里的数据不都是按行，一行一行的排列好的吗，既然找到了想找的行数，直接把相应的数据输出就行

[数值问题] 求两坐标点距离