有两个问题：1文件中内容的替换；2数组换行的打印

274068459 · 发表于 2017-3-9 13:35:04

1.文件内容的替换
问题概述：我在读取数据中，会遇到数据却测的情况，显示为“//////”，我想要把这些符号再碰到的时候换成“-999.9”，（目的是为了保证数组数据数量的一致性，后面计算的时候我碰到-999.9就直接剔除就行了）
我的程序：

[Fortran] 纯文本查看 复制代码

do k=1,linenum_max
        read(unit=num,FMT='(I5,X,F7.3)', IOSTAT=res), nouse, read_data(k,i) 
        if(res/=0)then
                  write(*,*)'-999.9'
            end if
                write(*,*),read_data(k,i)
      end do

      close(unit=num)
    end do

问题：输出的不是-999.9，请问怎么办

2.数组换行的问题
我要在新的文件中打印出一个read_data（k,i）的数组

[Fortran] 纯文本查看 复制代码

open(unit=12,file='windspeed.txt')
    do k=1,filenum_read
          do i=1,filenum_valid
            write(12,30)read_data(k,i)
          end do
        end do
  close(unit=12)
  30 format(60F7.3,/)]

但是现在打印出来全部在一列当中！！！我想要分列显示怎么办？

li913 · 发表于 2017-3-9 17:38:33

第一个问题：fortran对于读取文件中的“/”会有一点问题，这是因为斜杠有其他作用。一般先把斜杠替换掉，再去读取。替换，你可以自己写代码，也可以用其他编辑器；
第二个问题：http://fcode.cn/guide-45-1.html

[Fortran] 纯文本查看 复制代码

open(unit=12,file='windspeed.txt')
    do k=1,filenum_read
            write(12,30)read_data(k,1:filenum_valid)
        end do
  close(unit=12)
  30 format(60F7.3,/)

[文件读写] 有两个问题：1文件中内容的替换；2数组换行的打印