Question

fortran 中怎么用write语句实现替换显示

在fortran 编程中，我输出了一个矩阵。但是需要在显示的时候用星号来代替矩阵中的所有1。由于* 不是一个数字，所以不能直接将1替换成* 因为星号根本不能写入矩阵中。请问怎么用write语句来实现呢？

Answer 1

Fortran 语句格式已记不太清楚了。大体上你可以用条件语句判断，决定输出。
例如：
Do i=1,5,1
Do j=1,5,1
if (a(i,j) 'eq' 1) then
write(*,'1H*')
else
write(*,*) a(i,j)
end if
end do
end do
-----
write(*,'1H*') 不行 可以试 write(*,'A') ‘*’ 或 write(*,*) '*'