同一份数据，输出grd和txt不一样？

dzxconan

river 发表于 2013-4-21 19:50

                               
登录/注册后可看大图

把编译、运行过程中形成的那些东西都删掉试试

            parameter (n=160,m=55)
      real ts(m,n)
        open(1,file='ts.grd',form='binary')
        read(1)((ts(i,j),i=1,m),j=1,n)
        open(2,file='tss.txt')
        write(2,*)((ts(i,j),i=1,m),j=1,n)
        close(1)
嗯嗯 改了好了 可是读grd写出来前部分是这样的：
2.5643762E-43  2.5643762E-43  2.5643762E-43  2.7185190E-43  2.5643762E-43
  2.5924022E-43  2.4102334E-43  2.4802983E-43  2.5503632E-43  2.6204281E-43
  2.3962204E-43  2.5924022E-43  2.5783892E-43  2.3541814E-43  2.4802983E-43
  2.6064151E-43  2.5503632E-43  2.6764801E-43  2.4943113E-43  2.7465450E-43
  2.5783892E-43  2.2000386E-43  2.6624671E-43  2.6904931E-43  2.6484541E-43
  2.4242463E-43  2.6344411E-43  2.5363502E-43  2.5924022E-43  2.8166099E-43
  2.4662853E-43  2.6904931E-43  2.3962204E-43  2.5223372E-43  2.5643762E-43
  2.6764801E-43  2.5783892E-43  2.8025969E-43  2.6344411E-43  2.6764801E-43
  2.6904931E-43  2.5924022E-43  2.6064151E-43  2.6484541E-43  2.6204281E-43
  2.4242463E-43  2.6904931E-43  2.7185190E-43  2.7465450E-43  2.8446359E-43
  2.8025969E-43  2.8025969E-43  2.5643762E-43  2.7325320E-43  2.8866748E-43
  2.3541814E-43  2.4102334E-43  2.3822074E-43  2.3401684E-43  2.4242463E-43
  2.2701035E-43  2.1159607E-43  2.2841165E-43  2.2420775E-43  2.2140516E-43
  2.2560905E-43  2.2560905E-43  2.2560905E-43  2.2000386E-43  2.1860256E-43
  2.2420775E-43  2.2701035E-43  2.3401684E-43  2.1860256E-43  2.3962204E-43
  2.2280646E-43  2.0458958E-43  2.2841165E-43  2.3681944E-43  2.2420775E-43
  2.0318828E-43  2.2140516E-43  2.2140516E-43  2.2701035E-43  2.3541814E-43
  2.1720126E-43  2.3822074E-43  2.0739217E-43  2.1860256E-43  2.2420775E-43
  2.2560905E-43  2.2140516E-43  2.3541814E-43  2.1579996E-43  2.2701035E-43
可是同时写出来的txt里面的前部分内容是这样的：
     183         183         183         194         183         185
         172         177         182         187         171         185
         184         168         177         186         182         191
         178         196         184         157         190         192
         189         173         188         181         185         201
         176         192         171         180         183         191
         184         200         188         191         192         185
         186         189         187         173         192         194
         196         203         200         200         183         195
         206         168         172         170         167         173
         162         151         163         160         158         161
         161         161         157         156         160         162
         167         156         171         159         146         163
         169         160         145         158         158         162
         168         155         170         148         156         160
         161         158         168         154         162         166
         156         157         178         167         167         168
         161         166         178         177         169         160
         173         168         184         183         177         172
         179         173         166         172         177         177
         175         176         177         177         175         179
         179         187         177         192         181         165
         181         187         185         167         180         175
         182         191         174         190         165         173
         180         187         181         191         172         174
         184         182         173         200         186         183
         189         183         190         199         211         198
         184         204         195         142         142         142
         142         142         142         135         143         144
         147         135         142         146         138         137
         142         144         146         144         155         143
         124         148         154         146         132         145
         139         142         156         139         155         134
         140         147         149         142         156         140
         155         160         141         145         161         156
         146         154         152         150         163         163
         161         141         159         153         188         192
         193         192         194         186         178         187
         187         189         186         186         190         182
         184         187         190         197         187         199
         190         173         196         197         191         180
         191         191         187         200         184         208

dzxconan

river 发表于 2013-4-21 19:50

                               
登录/注册后可看大图

把编译、运行过程中形成的那些东西都删掉试试

是不是好奇怪啊？？太神奇啦

river

dzxconan 发表于 2013-4-21 19:54

                               
登录/注册后可看大图

parameter (n=160,m=55)
      real ts(m,n)
        open(1,file='ts.grd',form='binary')

你这个程序是打开第一个文件写进第二个文件啊

dzxconan

river 发表于 2013-4-21 20:16

                               
登录/注册后可看大图

你这个程序是打开第一个文件写进第二个文件啊

是的 但是应该都一样啊~但是我刚刚把第一个程序的ave定义为real 却一样啦 好奇怪的程序~~

river

dzxconan 发表于 2013-4-21 20:32

                               
登录/注册后可看大图

是的 但是应该都一样啊~但是我刚刚把第一个程序的ave定义为real 却一样啦 好奇怪的程序~~

我倒是没有太注意你前面的定义。你怎么会把数组定义为整形呢，那样计算会把小数都省略。资料是为了记录上的方便才把小数点省掉，但不代表他就是整型数啊，楼主要记得这次教训啊

dzxconan

river 发表于 2013-4-21 21:35

                               
登录/注册后可看大图

我倒是没有太注意你前面的定义。你怎么会把数组定义为整形呢，那样计算会把小数都省略。资料是为了记录上 ...

是滴~嗯嗯 一定记住啦。。。谢谢啦~~