- 积分
- 94
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2012-2-17
- 最后登录
- 1970-1-1
![[] 粉丝数: 微博数: 新浪微博达人勋](source/plugin/sina_login/img/light.png)
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 言深深 于 2012-3-15 19:14 编辑
想在GRADS上画两个点(3,1) ,(5,1),以下是我编的fortran生成.dat和.ctl文件的程序,请问哪里错了??
program main
parameter ly=5,lz=5
Real x,y,z,l
x=3
y=5
z=1
l=1
Open(8,File='samp.dat',Form='unformatted',Access='direct',Recl=100*100)
Write(8,Rec=1)x,z,y,l
Write(*,*)x,y
Open (9,File='samp.ctl')
Write(9,*)'DSET ^samp.dat'
Write(9,*)'TITLE Sample Data Set'
Write(9,*)'UNDEF',-9.99E33
Write(9,*)'XDEF',2,'Linear',1,1
Write(9,*)'YDEF',1,'Linear',1,1
Write(9,*)'ZDEF',1,'Linear',1,1
Write(9,*)'TDEF',1,'Linear 1JAN2000 1DY'
Write(9,*)'VARS',1
Write(9,*)'x',0,99,'100 Data Points'
Write(9,*)'ENDVARS'
pause
stop
end
|
|