Fortran Coder

查看: 125|回复: 3

[输入输出] 默认i/o号以及派生类型非默认i/o定义的问题

[复制链接]

86

帖子

8

主题

0

精华

专家

F 币
532 元
贡献
307 点
发表于 2018-12-29 12:01:18 | 显示全部楼层 |阅读模式
小白再次在此请教各位大佬两个问题:
1.我似乎在哪里听说现在的Fortran有办法可以返回默认的输出输出unit号是哪个,可是在各种教材上又找不到
还请大佬们指教一下
2.是派生类型似乎可以自行定义i/o格式符,并且可以和其他类型在一个语句里混用
但是各个教材里都没有很详细地解释这个东西到底怎么用,
能不能有哪个大佬能指点下,给个能用详细例子介绍这个功能怎么用的就好了
重点主要是不太了解iotype和v_list这两个东西是怎么联合起来使用,使得能像内置数据类型i/o的format控制符那么用
另外,也不理解是不是可以通过这种方式能够改变对type类型的表控(*)输入输出格式方式


回复

使用道具 举报

316

帖子

1

主题

0

精华

宗师

F 币
1720 元
贡献
1141 点
发表于 2018-12-29 12:50:49 | 显示全部楼层
1、
[Fortran] 纯文本查看 复制代码
program test
  use iso_fortran_env
  implicit none
  print*,input_unit,output_unit !输入输出通道号,ivf输出 5  6
end 

2、《Fortran95/2003程序设计》chapman,第14.8节。

评分

参与人数 1贡献 +5 收起 理由
fcode + 5

查看全部评分

316

帖子

1

主题

0

精华

宗师

F 币
1720 元
贡献
1141 点
发表于 2018-12-29 14:21:27 | 显示全部楼层
iotype 里面保存了自定义格式,f2008标准中建议 v_list 为输出域宽,其实没多大用。
[Fortran] 纯文本查看 复制代码
module fmt_m
  implicit none
  type UDT
    real x, y
    integer ind
  contains
    procedure::write_UDT
    generic :: write(formatted) => write_UDT
  end type
contains
  subroutine write_UDT(dtv,unit,iotype,v_list,iostat,iomsg)
  implicit none
  class(UDT), intent(in):: dtv
  integer,intent(in):: unit
  character(*),intent(in)::iotype
  integer,intent(in)::v_list(:)
  integer,intent(out)::iostat
  character(*),intent(inout)::iomsg

  select case(iotype(1:2))
    case('LI') !listdirected
      write(unit,*) dtv%x, dtv%y, dtv%ind
    case('DT') 
      write(unit,fmt='('//iotype(3:)//')') dtv%x, dtv%y, dtv%ind
    case('NA') !namelist
      !自己写代码
    end select
  end subroutine
end module
  
program test
  use iso_fortran_env
  use fmt_m
  implicit none
  type(UDT)::t=udt(1.2,3.1,3)
  print*,input_unit,output_unit !屏幕输入输出通道号,ivf为 5  6
  write(output_unit,'( dt"f4.1,f8.1,i5" )') t
  write(output_unit,*) t
  pause
end program
  
图片1.png

86

帖子

8

主题

0

精华

专家

F 币
532 元
贡献
307 点
 楼主| 发表于 2018-12-29 15:01:59 | 显示全部楼层
li913 发表于 2018-12-29 14:21
iotype 里面保存了自定义格式,f2008标准中建议 v_list 为输出域宽,其实没多大用。
[mw_shl_code=fortran, ...

太感谢了,总算有点明白了,非常感谢……
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|群聊|Fcode

GMT+8, 2019-3-19 11:29

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

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