- 积分
- 879
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2016-11-28
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
生成站点映射文件时显示错误
看到许多人提出这个问题是循环有问题,但是我用print输出的数据与我的原数据是一致的,所以想请教一下大神,不胜感激。
这是fortran文件
program main
implicit none
integer::ero,i,j,datasNb,Year
real::datas(6,50),lat(6),lon(6)
open(1,file='E:/SPI/Console1/SPI.txt',status='old')
read(1,*)lat(1),lat(2),lat(3),lat(4),lat(5),lat(6)
read(1,*),lon(1),lon(2),lon(3),lon(4),lon(5),lon(6)
print*,lat(2)
i=3
do
read(1,*,iostat=ero)Year,datas(1,i),datas(2,i),datas(3,i),datas(4,i),datas(5,i),datas(6,i)
if(ero/=0)exit
i=i+1
enddo
print*,datas(2,3)
datasNb=i-1
open(2,file='E:\SPI\Console1\SPI.grd',status='replace',form='binary',access='direct',recl=6*datasNb)
write(2,rec=1) lat(1),lat(2),lat(3),lat(4),lat(5),lat(6),lon(1),lon(2),lon(3),lon(4),lon(5),lon(6),year,((datas(i,j),i=1,6),j=1,datasNb)
close(2)
pause
end program
这是我的描述文件
dset E:\SPI\Console1\SPI.grd
dtype station
stnmap E:\SPI\SPI.map
undef -999.0
title station data
xdef 3 linear 97.54 2.5
ydef 3 linear 32.31 2.5
tdef 42 linear 01JAN1976 1yr
vars 1
spi 0 99 spidata
endvars
|
|