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

codercoder

以下是部分代码，红色部分提示错误：error #7938: Character length argument mismatch.   [DATAFL]
请问各位前辈哪里出现问题了呢？
还有一个疑惑：read(lin,'(a40)',err=98) datafl   这个read语句中各部分代表什么含义，这个代码在书上没找到类似的写法。。。。
如果有明白的，望不吝赐教。谢谢了。 问题如果有不清楚的地方，也请指出。。
      include  'sgsim.inc'
      real      var(50)
      real*8    p,acorni,cp,oldcp,w
      character(len=40) transfl,smthfl,tmpfl,datafl,outfl,
     +          dbgfl,lvmfl,str
      logical   testfl
c
c Note VERSION number:
c
c      write(*,9999) VERSION
c 9999 format(/' SGSIM Version: ',f5.3/)
c
c Get the name of the parameter file - try the default name if no input:
c
c      write(*,*) 'Which parameter file do you want to use?'
c      read (*,'(a40)') str
c      if(str(1:1).eq.' ')str='pp-co2.par               '
       str='pp-co2.par'
c      inquire(file=str,exist=testfl)
c      if(.not.testfl) then
c            write(*,*) 'ERROR - the parameter file does not exist,'
c            write(*,*) '        check for the file and try again  '
c            write(*,*)
c            if(str(1:20).eq.'pp-co2.par          ') then
c                  write(*,*) '        creating a blank parameter file'
c                  call makepar
c                  write(*,*)
c            end if
c            stop
c      endif
      open(lin,file=str,status='OLD')
c
c Find Start of Parameters:
c
1    read(lin,'(a4)',end=98) str(1:4)
      if(str(1:4).ne.'STAR') go to 1
c
c Read Input Parameters:
c
      read(lin,'(a40)',err=98) datafl
      call chknam(datafl,40)
c      write(*,*) ' data file = ',datafl

vvt

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

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