※ 引述《rt1000 (kk)》之銘言：
: 變數A,B,C
: NS=A*B
: (PAR(,)在這裡應該算字串吧，是準備貼到其他副程式裡頭使用的)
: 欲輸出：
: PARA(NS,11)=A*B*C
首先感謝 gilocustom 的幫忙，讓小弟得以完成
要完成先前的輸出分為兩步驟
1.轉整(實)數為字串
CHARACTER(3) PRO1
WRITE(PRO1,'(I3)')NS
2.向左對齊字串與去右邊空格
WRITE(*,*) TRIM(ADJUSTL(PRO1))
而上述的例子因為有許多字串連接，中間還有許多插曲
例如寫起來有很多TRIM(ADJUSTL())連接
單引'與雙引"的混用讓程式一度錯誤無法執行，全單引或全雙引就沒事了