program test
integer:: i=7,j=15,m,n
print '(<j>A,/,<i-2>(<j>A,/),<j>A)', ('*',n=1,j) , (('*', (' '
,n=1,j-2),'*'),m=1,i-2) , ('*',n=1,j)
pause
end program test
中间print是一整行,free format适用
输出档案就改成write
更精简的
print '(<j>A,/,<i-2>(1A,<j-2>X,1A,/),<j>A)', ('*',n=1,(i+j-2)*2)
format挺好玩的

感恩~让我看到许多不同的方式

开眼界了!! 厉害!!

推！！可是看不懂Orz

FORMATE 里面的数字可以换成 <i>里面接变量!!ex '(5F5.2)'>> i=5; '(<i>F5.2)';

谢谢jubilee2~~学到了!!感谢!!

原来有这招~