fortran中的write怎么用

Fortran中的`WRITE`语句用于格式化输出变量到标准输出设备（通常是屏幕）或其他指定的目标。基本语法如下：

WRITE(unit, format) expression(s)

其中：
- `unit` 是输出流的编号，如标准输出通常用`*`表示。
- `format` 是格式描述符，定义了输出变量的显示样式，比如 `I`, `F`, `E`, `A` 或 `X` (见引用[1])。

下面是一些示例：

1. 整数输出:

   INTEGER :: num = 123
   WRITE(*, "(I5)") num ! 输出数字并保留5位，不足则填充0，格式为"xxxxx"

2. 浮点数输出（默认为科学计数法）:

   REAL :: pi = 3.14159
   WRITE(*, "(F10.5)") pi ! 输出10位，保留5位小数，格式为"####.####"

3. 字符串输出:

   CHARACTER(len=10) :: name = "John Doe"
   WRITE(*, *) "Name:", name ! 输出整个字符串，无特定格式

然而，在引用[2]给出的代码片段中，有一个错误。`dis`似乎是一个变量名，不能直接赋值给`write`，应该是先计算`sqrt(A**2 + B**2 + C**2)`再输出，正确的写法可能是这样：

REAL :: A, B, C, dis
... ! 初始化A, B, C
dis = SQRT(A**2 + B**2 + C**2) ! 计算距离
WRITE(*, *) "Distance: ", dis

请注意，`SQRT` 是求平方根的函数，可能需要从`math`模块导入。