求教数据读入成一个数组变量问题

快乐枫

现有一个文件，数据行数不确定，列数是2列。

想把这个文件中的数据读入一个二维数组中，需要建一个动态数组，然后该怎么办呢？

能不能附上个例子阿？在网上没有查到呢

多谢～～～

咖啡伴侣

数组定义设一个最大行数，再读取时弄个实际读取行数

快乐枫

咖啡伴侣 发表于 2014-6-24 09:11
数组定义设一个最大行数，再读取时弄个实际读取行数

可是不是要循环读入吗？怎么确定实际行数

言深深

可以操作的，这个问题在论坛也讨论过多次，比如：
http://bbs.06climate.com/forum.php?mod=viewthread&tid=15217
参见楼下回复

快乐枫

言深深 发表于 2014-6-24 09:30
可以操作的，这个问题在论坛也讨论过多次，比如：
http://bbs.06climate.com/forum.php?mod=viewthread&ti ...

感谢阿，我看看

Mid_Farmer

你看了深深发的链接之后应该会读入行数 然后定义一个可变大小的数组allocatable和allocate就行了 你想把两列的数据定义到一个数组里面 就定义一个module typedef

快乐枫

Mid_Farmer 发表于 2014-6-24 10:18
你看了深深发的链接之后应该会读入行数 然后定义一个可变大小的数组allocatable和allocate就行了 你想把两 ...

谢谢了，求出了行数，不过深深的帖子有给地方没看懂，就是 100 continue是起到什么作用？

Mid_Farmer

快乐枫 发表于 2014-6-24 10:36
谢谢了，求出了行数，不过深深的帖子有给地方没看懂，就是 100 continue是起到什么作用？

没很大作用吧 精简点的求行数程序是这样的：
integer::n=0   
do while(.not. eof(10))
      read(10,*)
      n=n+1
end do
write(*,*) n

言深深

快乐枫 发表于 2014-6-24 10:36
谢谢了，求出了行数，不过深深的帖子有给地方没看懂，就是 100 continue是起到什么作用？

那是执行循环用的···

nunu18

这个很简单，你不用设定什么动态数组，do i=1,10000
                                                          do j=1,2
                                                                  read（2） stt（i，j）
                                                                          end do
                                                                  print*， i
                                                          end do
最后读取数据肯定提示有错误，但你可以知道有几行了，看完设置就成。