- 积分
- 11
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2017-3-12
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
program main
implicit none
parameter nt=1460 ! the number of the file
integer :: n,num,i,ii,j,k,nst
real :: tmp
real,allocatable :: lon(:),lat(:),we(:)
integer,allocatable :: sta(:)
integer :: ss(29)
character*12 filename(nt)
open(11,file='G:/sta2.txt')
read(11,*) (ss(i),i=1,29)
close(11)
open(11,file='G:/plot/filename.txt')
read(11,*) (filename(i),i=1,nt)
close(11)
do k=1,nt
open(22,file=filename(k))
read(22,*)
read(22,*) n,n,n,n,nst
print*, nst
enddo
close(22)
目前运行到这里就出错了
读取的应该是G:/plot/文件下的数据,但是每次都是直接在G盘新建一个数据文件,求解怎么设置filename打开的数据位置 |
|