怎样把十进制文件转为二进制文件

Jeanela

grads里只能用二进制的文件我怎样把十进制转化啊  自己研究不通  大家帮帮忙

2224176711

楼主是啥都不会啊

安清静静

如果你是南信大的学生，找学校自己编写的grads书看看，大概16、17页这样有把十进制转化为二进制的fortran程序！

Jeanela

安清静静 发表于 2014-4-3 21:01
如果你是南信大的学生，找学校自己编写的grads书看看，大概16、17页这样有把十进制转化为二进制的fortran程 ...

我不是啊  可不可以photo给看一下啊

lqouc

Jeanela 发表于 2014-4-3 21:07
我不是啊  可不可以photo给看一下啊

如果你会用fortran，自己编程那就五分钟的事，看起来楼主是不会啊，还是好好从头学起吧。

Jeanela

lqouc 发表于 2014-4-4 08:45
如果你会用fortran，自己编程那就五分钟的事，看起来楼主是不会啊，还是好好从头学起吧。

恩  我不太会 请你帮帮我program f10t2
implicit none
PARAMETER(N=30,1)
DIMENSION R(N,1)
open(1,file='e:\dg1\IIE.TXT',form='formatted',status='unknown')
DO I=1,N
read(1,*)R(I,1)
ENDDO
CLOSE(1)
OPEN (2,file='e:\dg1\IIE1.dat',form ='binary'&,access='direct',recl=4)
)
K=0
DO I=1,N
WRITE(2,*)r(i,1)
enddo
CLOSE(2)
END program f10t2
这个文件为什么没有生产新文件啊

lqouc

program f10t2
implicit none
integer,PARAMETER::N=30
real,DIMENSION(1:n,1:!)::R
open(1,file='e:\dg1\IIE.TXT',form='formatted',status='unknown')
DO I=1,N
read(1,*)R(I,1)
ENDDO
CLOSE(1)
OPEN (2,file='e:\dg1\IIE1.dat',form ='binary')
DO I=1,N
WRITE(2)r(i,1)
enddo
CLOSE(2)
END program f10t2
建议尽量写规范，不要大小写乱换，声明的时候写清楚完整。
错误在于write的时候无格式就不要写*了。

Jeanela

lqouc 发表于 2014-4-4 09:19
program f10t2
implicit none
integer,PARAMETER::N=30

program f10t2
implicit none
real n(30,1)
integer i
open(1,file='e:\dg1\IIE.TXT',form='formatted',status='unknown')
DO I=1,30
read(1,*) n(i,1)
ENDDO
CLOSE(1)
OPEN (2,file='e:\dg1\IIE1.dat',form ='unformatted',access='direct',recl=4)
DO I=1,30
WRITE(2) n(i,1)
enddo
CLOSE(2)

end
现在对不对了啊

Jeanela

lqouc 发表于 2014-4-4 09:19
program f10t2
implicit none
integer,PARAMETER::N=30

这个文件我在grads中打开还是不行啊  我写了个ctl
dest e:\dg1\IIE1.dat
titile IIE 1979-2008
undef 9.999E+20
xdef 1 linear 0.000000 1.875
ydef 1 levels -88.542
zdef 1 levels 0.9950
tdef 30 linear 00Z06jun1979 1yr
vars 1
IIE 1 99 IIE1979-2008
endvars

是文件生产有错误还是ctl有问题啊

千里草

写二进制文件时候write时只需write（2），不用write（2，*），不然会报错.

lqouc

Jeanela 发表于 2014-4-4 09:38
这个文件我在grads中打开还是不行啊  我写了个ctl
dest e:\dg1\IIE1.dat
titile IIE 1979-2008

ctl的ydef不要用level，fortran就用我给你改的试一下。