您所在位置：主题：如何让程序按格式对齐？
mjhw1986
[专家分：0] 发布于 2010-04-26 09:02:00
在程序框中编的程序默认左对齐，如何能让它按格式对齐，谢谢！比如：
if (m(k,k)==0) then
error=.true.
print*, "stop!"
exit
else
m(k,k:n+1)=m(k,k:n+1)/m(k,k)
m(k+1:n,k:n+1)=m(k+1:n,k:n+1)-spread(m(k,k:n+1),1,n-k)&
*spread(m(k+1:n,k),2,n-k+1)
end if
自动对齐成这样
if (m(k,k)==0) then
error=.true.
print*, "stop!"
exit
else
m(k,k:n+1)=m(k,k:n+1)/m(k,k)
m(k+1:n,k:n+1)=m(k+1:n,k:n+1)-spread(m(k,k:n+1),1,n-k)&
*spread(m(k+1:n,k),2,n-k+1)
end if
if (m(k,k)==0) then
error=.true.
print*, "stop!"
exit
else
m(k,k:n+1)=m(k,k:n+1)/m(k,k)
m(k+1:n,k:n+1)=m(k+1:n,k:n+1)-spread(m(k,k:n+1),1,n-k)&
*spread(m(k+1:n,k),2,n-k+1)
end if
自动对齐成这样
if (m(k,k)==0) then
error=.true.
print*, "stop!"
exit
else
m(k,k:n+1)=m(k,k:n+1)/m(k,k)
m(k+1:n,k:n+1)=m(k+1:n,k:n+1)-spread(m(k,k:n+1),1,n-k)&
*spread(m(k+1:n,k),2,n-k+1)
end if
