| 
 
	积分11贡献 精华在线时间 小时注册时间2017-3-12最后登录1970-1-1 
 | 
 
| 
program main
x
登录后查看更多精彩内容~您需要 登录 才可以下载或查看,没有帐号?立即注册 
  
 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打开的数据位置
 | 
 |