| 
 
	积分2210贡献 精华在线时间 小时注册时间2011-9-15最后登录1970-1-1 
 | 
 
| 
PROGRAM EOF
x
登录后查看更多精彩内容~您需要 登录 才可以下载或查看,没有帐号?立即注册 
  
 PARAMETER(KVT=10,nt=59)
 
 DIMENSION ev(nt,KVT),tcf(nt,KVT)
 !****  INPUT DATA ***********************************************
 
 
 
 open(21,file='D:\lunwen\eof\wu-biaozhunhuajuping\cishu\sjxs\Teof-cishu.grd',form='binary')
 do 345 i=1,nt
 345        read(21)(tcf(i,j),j=1,KVT)
 close(21)
 
 
 !*************************************************************
 !****   output the time series   ******
 open(22,file='D:\lunwen\eof\wu-biaozhunhuajuping\cishu\sjxs\Teof-cishu.txt')
 do 346  i=1,nt
 346     write(21,*)(ev(i,j),j=1,KVT)
 
 close(22)
 
 end
 
 二进制转十进制出错提示:Compiling Fortran...
 D:\lunwen\eof\sjxs\EOF.f90
 D:\lunwen\eof\sjxs\EOF.f90(25): warning FOR4265: symbol EV referenced but not set
 EOF.obj - 0 error(s), 1 warning(s)
 
 
 本人小白,请教大家这个提示什么意思?编程错在哪里了?
 
 
 
 | 
 |