[流程控制] if then else 语句报错

81 帖子	0 主题	0 精华

专家

F 币: 471 元
贡献: 232 点

发消息

楼主

发表于 2022-4-9 08:27:50 | 显示全部楼层

Fortran 是个矢量化的语言，所以它应该比C代码简洁一些。

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

program conjgf
  implicit none
  real(8) a(6,6)
  integer i1, i2
  Forall(i1=1:6,i2=1:6) a(i1,i2)=merge(0,i1+i2,i1==i2)
  write(*,'(*(6f7.2,/))') a
  read(*,*)
end program conjgf

彼岸，有永恒的守候...

回复支持反对

使用道具举报

返回列表发新帖

[流程控制] if then else 语句报错

规矩勋章

新人勋章

元老勋章