关于输出格式控制方面的问题

yifanxing1992

求助：大神们，我想把t和y(1)到y（6）这样7组数据输出到txt文件当中，其中我想达到的目的是，在txt文件当中，7个数据输出到同一行，另外就是t这个数据保留5位小数，而后面y(1)到y（6）这六组数据保留8位小数。。。
但是我写的程序，最后面7个数据分为三行输出，而且保留了好多位小数，并不是我想要的结果。哪位大神能帮忙解决一下呀。。万分感谢。

源程序如下：

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

查看代码

打印?

01	module m_rk4_ods

02	implicit  none

03	integer::M=100

04

contains

05

06	subroutine solve(func,t0,tt,y0,N)

07	implicit none

08	external func

09	integer::N

10	real*8::y0(N),y(N)

11	real*8::k1(N),k2(N),k3(N),k4(N)

12	real*8::h,tt,t0,t

13	integer::i

14

15	h=(tt-t0)/M

16

t=t0

17

y=y0

18

do i=1,M

19	call func(k1,t,y,N)

20	call func(k2,t+h/2,y+h/2*k1,N)

21	call func(k3,t+h/2,y+h/2*k2,N)

22	call func(k4,t+h,y+h*k3,N)

23	y=y+(k1+2*k2+2*k3+k4)*h/6

24

t=t0+i*h

25	write(11,*)t,y(1),y(2),y(3),y(4),y(5),y(6)

26	100 FORMAT(1X,T3,F10.5,F12.8)

27

end do

28

29	end subroutine solve

30

31	subroutine fun1(f,t,y,N)

32	implicit none

33	integer::N

34	real*8::f(N),y(N)

35	real*8::t,t0,tt

36

37

38	f(1)=cos(t-y(6))-y(3)**2/sqrt(1+y(3)**2)*cos(t-y(6))/(3*10**8)

39

f(2)=0

40	f(3)=y(1)/sqrt(1+y(1)**2)*cos(t-y(6))

41	f(4)=y(1)/sqrt(1+y(1)**2)

42	f(5)=y(2)/sqrt(1+y(2)**2)

43	f(6)=y(3)/sqrt(1+y(3)**2)

44	end subroutine fun1

45

46	end module m_rk4_ods

47

48

49	program main

50	use m_rk4_ods

51	implicit none

52	integer::N

53	real*8::y(6),y0(6)

54	real*8::t0,tt

55

56	open(unit=11,file='result10.txt')

57

58

N=6

59

t0=0.0

60

tt=12.0

61	y0=(/0,0,0,0,0,0/)

62	call solve(fun1,t0,tt,y0,N)

63	end program main

楚香饭

第 25，26 行

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

查看代码

打印?

1	write(11,*)t,y(1),y(2),y(3),y(4),y(5),y(6)

2	100 FORMAT(1X,T3,F10.5,F12.8)

改为

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

查看代码

打印?

1	write(11,100)t,y(1:6)

2	100 FORMAT(1X,F10.5,6F12.8)

yifanxing1992

谢谢大神哦！！！已经可以啦。。