请各位大侠帮我看一下这个读入文件的程序。谢谢

xiaoniu

itss = 0
     write(bank,'(a,i1)') 'Z.',   itss
     open(14,file=bank,form='unformatted')
     read(14) Z
     close(14)

我想将文件Z.0里所有的数据都读入到变量Z里面，请问这样写对吗？
请问：这个bank是什么意思？

谢谢大家的帮助

freepu

bank是个字符串，用来生成文件名的。

想将文件Z.0里所有的数据都读入到一个变量Z中？恐怕有问题。如果知道文件的数据格式，就可以轻松的读取所有数据了。

xiaoniu

谢谢freepu.

请问，如果Z.0里的数据是binary格式的，想将他们读到变量Z里面，请问如何读入？读入以后，如何转换成Z(64,64,64)这种3维的数组？

谢谢

freepu

假设z.0文件如下形成：

2.        real (8) :: z(64, 64, 64)
3.        open(1,file='z.0',status='unknown',form='unformatted')
4.        do i = 1, 64
5.            do j = 1, 64
6.                do k = 1, 64
7.                    write(1) z(i,j,k)
8.                 enddo
9.             enddo
10.         enddo
11.         close(1)

复制代码

那你就可以将write改为read来读。

xiaoniu

Thank you freepu. Really appreciate your help.

Another question: How to define the path where file "z.0" is?

respectfully

Xiaoniu

(sorry I can not input Chinese now.)

freepu

you can use DEFAULTFILE to specify the path of the file.

2. open (1, defaultfile='d:\test\debug', file='z.0', status-'unknown', form='unformatted')

复制代码

you can search CVF help for answers.

xiaoniu

Thank you so much for your teaching. I tried it and it works for my case.

Thanks again.