关于通过循环来优化程序的。

li913

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

	integer  i
	real v 
	character(10) :: filename='0.005.txt'
	v = 0.0
	do i=11, 16
		v = v + 0.005
		write(filename(1:5),'(f5.3)') v
		open(unit=i,file=filename)
	end do
	if(t==60000.0 .and. thita>0 .and. thita<=0.03)then
		i = 11 + int( (thita-tiny(thita)) / 0.005)
		write(i,101) t,Exc,y(4),y(1),y(6),y(3)
	end if
	101 format(1X,F15.6,6F15.5)