程序编译错误 7938，求帮忙！

vvt

error #7938: Character length argument mismatch.   [DATAFL]
虚参的长度比实参DataFL的长度长。

read(lin,'(a40)',err=98) datafl
lin 读取的通道号（或内部文件字符串），看 lin 的定义
'(a40)' 读取格式，详见彭国伦的书，第四章第四节
err=98 ，遇到错误则 goto 98 执行。