默认i/o号以及派生类型非默认i/o定义的问题

liudy02

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

li913

1、

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

查看代码

打印?

1	program test

2	use iso_fortran_env

3	implicit none

4	print*,input_unit,output_unit !输入输出通道号，ivf输出 5  6

5

end

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

li913

iotype 里面保存了自定义格式，f2008标准中建议 v_list 为输出域宽，其实没多大用。

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

查看代码

打印?

01	module fmt_m

02	implicit none

03

type UDT

04

real x, y

05	integer ind

06

contains

07	procedure::write_UDT

08	generic :: write(formatted) => write_UDT

09

end type

10

contains

11	subroutine write_UDT(dtv,unit,iotype,v_list,iostat,iomsg)

12	implicit none

13	class(UDT), intent(in):: dtv

14	integer,intent(in):: unit

15	character(*),intent(in)::iotype

16	integer,intent(in)::v_list(:)

17	integer,intent(out)::iostat

18	character(*),intent(inout)::iomsg

19

20	select case(iotype(1:2))

21	case('LI') !listdirected

22	write(unit,*) dtv%x, dtv%y, dtv%ind

23	case('DT')

24	write(unit,fmt='('//iotype(3:)//')') dtv%x, dtv%y, dtv%ind

25	case('NA') !namelist

26

!自己写代码

27	end select

28	end subroutine

29	end module

30

31	program test

32	use iso_fortran_env

33

use fmt_m

34	implicit none

35	type(UDT)::t=udt(1.2,3.1,3)

36	print*,input_unit,output_unit !屏幕输入输出通道号，ivf为 5  6

37	write(output_unit,'( dt"f4.1,f8.1,i5" )') t

38	write(output_unit,*) t

39

pause

40	end program

liudy02

li913 发表于 2018-12-29 14:21
iotype 里面保存了自定义格式，f2008标准中建议 v_list 为输出域宽，其实没多大用。
[mw_shl_code=fortran, ...

太感谢了，总算有点明白了，非常感谢……