出错信息output statement overfolws record，求助

huiselilun

程序用IVF编译成功，没有报错，但是运行的时候出现图中的错误


请问我该怎么找出错误？
并且运行调试的时候也出错了


该怎么办啊？

fcode

这个错误是由于内部文件转换时，字符串长度不够导致的。

比如

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

查看代码

打印?

1	character(len=5) :: c

2	write(c,'(i6)') 123456

huiselilun

fcode 发表于 2014-6-25 18:04
这个错误是由于内部文件转换时，字符串长度不够导致的。

比如

write的格式不应该是WRITE（设备号，输出格式）吗，用字符占据设备号的位置是什么意思?并且我运行了一下，没有输出任何东西。

fcode

这是内部文件的用法。表示把其他类型的变量，输出到字符串里。
（你可以认为这个字符串是一个存在于内部的“文件”）

unit -5 , file Internal Formatted Write
表示你的错误正是“内部文件”出现的问题。

huiselilun

fcode 发表于 2014-6-26 12:13
这是内部文件的用法。表示把其他类型的变量，输出到字符串里。
（你可以认为这个字符串是一个存在于内部的 ...

就等同于把其他类型变量的值转成字符型然后赋值，这样理解可以吗？所以你上面例子中的c的长度一定要大于或等于6.

fcode

是的。你的错误就是字符串不够长。

huiselilun

fcode 发表于 2014-6-26 13:06
是的。你的错误就是字符串不够长。

多谢管理员！话说这个已解决是你加上去的吗，我还以为需要发帖本人修改帖子状态呢。

fcode

是的，我加的。不用你编辑。

huiselilun

fcode 发表于 2014-6-26 13:16
是的，我加的。不用你编辑。

那你岂不是很辛苦，哈哈。还有一个问题。

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

查看代码

打印?

01	subroutine intoch ( cvar, ivar, ilend)

02	c***********************************************************************

03	c*                                                                     *

04	c*   PURPOSE:  Write integer left-justified into character variable    *

05	c*                                                                     *

06	c* ARGUMENTS:  CVAR  - character variable receiving integer            *

07	c*             IVAR  - integer to write into character                 *

08	c*             ILEND - obsolete                                        *

09	c*                                                                     *

10	c***********************************************************************

11

12	c---- Dummy arguments

13	character*(*) cvar

14	integer ivar, ilend

15	c--   Local working storage

16	character cform*5

17	integer ilen, ivara

18	c---- Find required length to write IVAR, including sign

19	ivara = abs(ivar)

20

ilen = 1

21

mag = 10

22	do 100 i=1,10

23	if (ivara.lt.mag) go to 200

24	ilen = ilen + 1

25	100 mag = mag * 10

26	200 if (ivar.lt.0) ilen = ilen + 1

27	c---- Write IVAR into CVAR, left justified.  If CVAR length is not

28	c     enough, FORTRAN error handling is used ('*****')

29	ilen = min(ilen,len(cvar))

30	write (cform,'(a,i2,a)') '(I',ilen,')'

31	cvar = ' '

32	write (cvar,cform) ivar

33

return

34

end

倒数第三行，为什么cform也写到了格式的位置，难道是按照cform的格式表示ivar，然后将值赋给cvar？

huiselilun

fcode 发表于 2014-6-26 13:16
是的，我加的。不用你编辑。

我明白了，上面的程序我看懂了。多谢管理员。