Fortran Coder

查看: 3649|回复: 1
打印 上一主题 下一主题

[输入输出] write格式输出中g0是什么格式

[复制链接]

2

帖子

2

主题

0

精华

新人

F 币
17 元
贡献
6 点
跳转到指定楼层
楼主
发表于 2022-5-8 12:46:18 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
网站课程语法之文件读写上中有这样一个程序
[Fortran] 纯文本查看 复制代码
Program www_fcode_cn
  Use DFile_Mod
  Implicit None
  Real , allocatable :: a(:,:)
  Character(len=512) :: cStr
  Real    :: r  
  integer :: FILE_IN , i , nRow , nCol
  Open( NewUnit = FILE_IN , File = "text.txt" )
  nRow = GetFileN( FILE_IN ) - 2 !//获得文件行数
  Read( FILE_IN , * ) !//跳过第一行
  Read( FILE_IN , * ) !//跳过第二行
  Read( FILE_IN , '(a512)' ) cStr!//读取第三行
  nCol = GetDataN( cStr ) - 1 !//获得第三行有多少列
  write( *, '("Row:",g0," Col: ",g0)' ) nRow , nCol
  Allocate( a( nCol , nRow ) )
  Backspace( FILE_IN ) !//退回到第三行
  Do i = 1 , nRow
    Read( FILE_IN , * ) r , a( : , i )
    write( * , * ) a(:,i)
  End Do
  Deallocate( a )
  Close( FILE_IN )
End Program www_fcode_cn

请问其中write( *, '("Row:",g0," Col: ",g0)' ) nRow , nCol中g0是什么输出格式,我找到format中与之对应的格式是Gw.d其中d不能省略,我把g0改成g1之后报错了,所以不明白g0是什么输出格式
希望大家能为我这个新人答疑解惑
分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

2033

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1641 元
贡献
709 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

沙发
发表于 2022-5-8 13:13:44 | 只看该作者
g0 就是让编译器自动选择使用合适的宽度,两侧不会有多余的空格(特别适合于想紧凑的输出内容时)。
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-12-24 04:32

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表