Fortran Coder

标题: 关于fortran输出保持原有格式问题 [打印本页]

作者: suxiaobo58 时间: 2021-7-28 15:13
标题: 关于fortran输出保持原有格式问题
我读入一列数据，每列数据的位数长短不一，然后我想把某一列数做个运算再按照原格式输出出来，比如第一列，就会输出812.80，其实我想输出的是812.8，还有就是输出后会出现空格，请问如何能实现啊，我把原数据和输出文件以及我写的代码附上来，求大神指导一下

1.png (18.78 KB, 下载次数: 208)

原数据

2.png (21.86 KB, 下载次数: 219)

程序代码

3.png (20.06 KB, 下载次数: 192)

输出文件

作者: necrohan 时间: 2021-7-29 09:11
本帖最后由 necrohan 于 2021-7-29 09:13 编辑

空格是第2列的输出格式问题，把F6.2改为F5.2可以去掉空格。
第1列原格式相当于去掉了数字末尾的0和小数点，可以用字符串处理。

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

real::x; ! 要输出的数据

character*(20)::cx; ! 输出数据转字符串

integer::lx,i,i1,i2



do i=1,100

  x=812.8-(i-1)*0.05; ! 要输出的数据

  write(cx,'(f6.2)')x; ! 数值变字符串

  lx=LEN_TRIM(cx); ! 取字符串长度

  ! 去掉字符串末尾的0和小数点

  do while(.true.)

    i1=index(cx(1:lx),'0',back=.true.);

    i2=index(cx(1:lx),'.',back=.true.);

    if(i1==lx .or. i2==lx)then

      lx=lx-1

    else

      exit

    endif

  enddo

  write(*,*)"_"//cx(1:lx)//"_";

end do

end

作者: suxiaobo58 时间: 2021-7-30 11:55
谢谢大神，我试试

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)