function无法直接打印字符到屏幕，而subroutine可以

tianrui

大家好，我遇到了一个问题，我编写了一个函数，最后有一个判断语句，不符合则stop并write(*,"('j设置错误')")，然而程序会在write这里卡住，将function替换为subroutine即可成功输出，代码如下，请问是我书写语法问题还是function就是不能有write输出到屏幕？

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

real function get_mapdata(i,j,tile)
……
  if(j>nCol.OR.j<1)then
write(*,"('j输入错误')")!程序运行在这里卡住
   stop
  else
   get_mapdata=a(j)
  end if
 return
END

subroutine方法：

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

subroutine get_mapdata(i,j,tile,h)
……
  if(j>nCol.OR.j<1)then
   write(*,"('j输入错误')")
   stop
  else
   h=a(j)
  end if
 return
END

vvt

详解：http://recursiveio.w.fcode.cn/