关于读取指定行

li913

如果满足下面的要求，可以多费点功夫做数据前期处理：
1、坐标数据量大，且短时间内不会改变；
2、频繁调用该功能；
3、对计算速度要求很高。

wxy

li913 发表于 2017-3-5 12:07
如果满足下面的要求，可以多费点功夫做数据前期处理：
1、坐标数据量大，且短时间内不会改变；
2、频繁调用 ...

我现在正学着排序，然后我在想文件中经纬度是固定对应的，我的代码里把经度纬度分别放进两个动态数组里，如果这样排序是不是对应关系就打乱了，是不是可以把经纬度两个一维数组放进一个二维数组里再排序，直接把经纬度用二维数组进行读取，不知道我的想法对不对

wxy

vvt 发表于 2017-3-5 09:28
这个问题就复杂了。
如果数据量不大，可以用数组存储，然后查找（关于距离，因为有乘方的关系，所以计算速 ...

之前的代码是把经纬度分别放入两个数组，我想把经纬度放入一个二维动态数组再排序，但二维动态数组还不太会用出现了图片中的错误，麻烦帮我看一下怎么改

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

program near
  implicit none
  integer m,i,k
  character(len=12) ::  country
  character(len=30) , allocatable :: site(:)
  real , allocatable ::  array(:,:)
  character(len=32) :: c
  open(8,file="soil.sol")
  open(10,file="find_close.txt")
  !read(8,*)m  !//m无法再文件中获取，需手动输入或获取文件行数减去3，得到。
  m=414503 !//m 此时的含义为，有多少个数据（而不是有多少行）
  allocate(array(m,m),site(m))
O:Do i = 1 , m
    do
      Read(8,'(a)',iostat=k) c
      if ( k/=0 ) exit O
      if ( c(1:1) == '*' ) exit
    end do
    Read(8,*)
    read(8,*) site(i) , country ,array(i,i)


    write(10,*) trim(site(i)) , array(i,i)
  End Do O
end program near

[indent]

li913

array数组太大，600多G，内存不够用。allocate(array(2,m),site(m))

wxy

li913 发表于 2017-3-5 16:49
array数组太大，600多G，内存不够用。allocate(array(2,m),site(m))

嗯嗯 成功了 谢谢 开始学着弄下一步