[問題] 迴圈問題

[Wstyle (DaVie)]

最近剛接觸fortran

遇到迴圈以後因為邏輯還沒建立起來所以有點頭痛

像下面的例題:
讓使用者輸入長寬後利用星號產生一個空心矩形

例如10*10跑出來要是
**********
*        *
*        *
*        *
*        *
*        *
*        *
*        *
*        *
**********

而我目前只能做到上面跟右邊有星號而已

integer :: length,width
integer :: liml,limw
write(*,*) "輸入長度及寬度"
read(*,*) length,width
liml=1
limw=1
do while (liml<=length)
        write(*,"('*',$)")
        liml=liml+1
end do
do while (limw<width)
        write(*,"('*')")
        limw=limw+1
end do
stop
end
想請問我該怎麼改才能跑出完美地矩形呢?
可以的話能否連寫的邏輯也一起告訴我
感激不盡TAT

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 114.198.179.200
→ george1224:請問裡面有要寫東西嗎?
推 kkarthur:你需要IF
→ Wstyle:g大 裡面只要空白就好不要有東西 但這樣我就不會了...
→ Wstyle:k大 意思是我要在do while裡面加入IF同時跑出兩邊嗎?
→ onezillion:integer:: i=5,j=11,m,n
→ onezillion:print '(<j>(A),\)', ('*',n=1,j)
→ onezillion:print '(<i-2>(/,<j>A))', (('*', (' ',n=1,j-2),'*'),
→ onezillion:m=1,i-2)
→ onezillion:print '(<j>(A))', ('*',n=1,j)
→ onezillion:pause
→ onezillion:中間有兩行要連著