fortran出错

makim

各位，下面这个程序，我把x(i,j)的值写到file2里面，如果file2是x.txt的时候，打开发现里面的数值没有问题，但如果它是x.dat画出来的图中变量的取值变得很大，跟大家请教一下是什么原因？
program lin
implicit none
character *50 file1,file2
integer i,j
real  m(17,73),x(17,73)
filen1="d:\f\m.dat"
filen2="d:\f\x.dat"

!读取wx
open(11,file=file1,form="binary")
do i=1,17
      read(11)(m(i,j),j=1,73)
end do

open(12,file=file2)
do i=1,17
  do j=1,73
   if (m(i,j)<=0)then
      x(i,j)=m(i,j)+180
   else
      x(i,j)=m(i,j)
   endif
write(12,*)x(i,j)
   end do
end do
end

river

这个程序能有什么错误啊。用什么画的图也不说清楚，没办法找出问题嘛。你要把过程说清楚，那一步出的错误，你调试到哪了·····

一颗梅子在南京

你的意思是你的file2格式为txt的时候数据是正常的，dat格式的时候数据值偏大？

ABCD

LZ，我犯过一个中你差不多的错误，主要是txt是有格式的读取，而dat是无格式的，是文件读取的问题！

makim

ABCD 发表于 2012-12-1 11:08

                               
登录/注册后可看大图

LZ，我犯过一个中你差不多的错误，主要是txt是有格式的读取，而dat是无格式的，是文件读取的问题！

果然是这个问题，解决了，谢谢你啦！

makim

一颗梅子在南京 发表于 2012-12-1 10:23

                               
登录/注册后可看大图

你的意思是你的file2格式为txt的时候数据是正常的，dat格式的时候数据值偏大？

嗯嗯，不过问题解决了，谢谢大家！~

makim

river 发表于 2012-11-30 20:21

                               
登录/注册后可看大图

这个程序能有什么错误啊。用什么画的图也不说清楚，没办法找出问题嘛。你要把过程说清楚，那一步出的错误， ...

程序本身没错啊，问题就是txt,dat画出来的图不一样，现在问题解决了！！

river

makim 发表于 2012-12-1 14:54

                               
登录/注册后可看大图

程序本身没错啊，问题就是txt,dat画出来的图不一样，现在问题解决了！！

对呀，程序没什么错误。那就是画图的时候有问题了，这样你的帖子提的问题不就根本不对么，这样会浪费时间的。所以我才说要你把问题说清楚，尽量让别人接近你的错误才好解决啊。