新人求助，想去除一个文件中负数

fcode

text.asc 是什么样子？

fcode

只是筛选数据的话，就简单了。

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

Program www_fcode_cn
  implicit none
  character(len=512) :: c
  character(len=1)   :: s
  integer :: FILE_IN , FILE_OUT , k , i
  real    :: DepSM
  Open( NewUnit = FILE_IN , File = "text.asc" )
  Open( NewUnit = FILE_OUT, File = "text.txt" )
  Read( FILE_IN , 100 ) c
  Write( FILE_OUT , 99 ) trim(c)
  Do
    Read( FILE_IN , 100 , ioStat = k ) c
    if ( k /= 0 ) exit
    Read( c , * ) i , i , i , s , DepSM
    If ( DepSM > 0.0 ) then
      Write( FILE_OUT , 99 ) trim(c)
    End If
  End Do
  Close( FILE_IN )
  Close( FILE_OUT )
100 format(a512)
99  format(a)
End Program www_fcode_cn