Fortran Coder

查看: 1908|回复: 1

[输入输出] function无法直接打印字符到屏幕,而subroutine可以

[复制链接]

2

帖子

2

主题

0

精华

新人

F 币
17 元
贡献
6 点
发表于 2022-5-20 22:20:28 | 显示全部楼层 |阅读模式
本帖最后由 tianrui 于 2022-5-20 22:21 编辑

大家好,我遇到了一个问题,我编写了一个函数,最后有一个判断语句,不符合则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

953

帖子

0

主题

0

精华

大师

F 币
180 元
贡献
73 点

规矩勋章元老勋章新人勋章水王勋章热心勋章

QQ
发表于 2022-5-21 09:07:34 | 显示全部楼层
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-3-29 13:57

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表