请问这个地方WRITE的用法

dadadu

subroutine UpdateScreen()
  implicit none
  integer i
  character(len=20) :: str
  if ( .not. allocated(screen) ) return
  write( str, "('(',I3.3,'A1)')" ) ScreenWidth
  do i=1, ScreenHeight
    write(*, str) screen(:,i)
  end do
  return
end subroutine
在这个子程序中两处的WRITE分别是什么意义，请大侠指教，本人为初学者

SCIE

write(arg1, arg2) arglist
write语句的用途是把参数列表arglist里的参数按照 arg2 的格式写入到 arg1 里面，下面按照这个规则去解释那两个 write 语句就可以了。

第一个：write( str, "('(',I3.3,'A1)')" ) ScreenWidth
把 ScreenWidth 按照 I3.3 的格式写入到 str 里面，str 是个字符串变量，就是把 ScreenWidth 转换为字符串，另外前面加上左括号后面加一个空格再加右括号。

第二个：
write(*, str) screen(:,i)
把 screen(:, i) 按照 str 里指定的格式写入到 * 里面， * 是指的标准输出设备，也就是屏幕。

初学不要紧，基础的知识要找一本好书，多看看，多学学。

推荐 彭国伦 的《Fortran95程序设计》中国电力出版社

忠诚憨厚

学习学习