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~~學到了!!感謝!!

原來有這招~