※ 引述《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())连接
单引'与双引"的混用让程式一度错误无法执行，全单引或全双引就没事了