[問題] Write格式可浮動化嗎

[ybchen (惡魔也會哭)]

目前寫程式中，為了將輸出的數據做規則排列

所以有將WRITE的格式做設定

但是有其中一組輸出，會因為初始輸入的計算範圍，使得數據組數有變動

所以有利用字串的方式來記錄調整格式的範圍

其中主要的程式碼如下

.................

Write ( x,'(I2,A12)' ) N_Material-2, 'I5,ES17.10E2'

.................

Write(51,'(x)') thick(:,j), R*100

.................

如上所寫的，我已經將x設為字串，利用write將他寫成格式化輸出的寫法

其中，前幾項都是整數，但是會隨著初始輸入有不同組數

所以 N_Material-2 就是需要列出的組數

例如 N_Material-2 = 3 ，那 x = 3I5,ES17.10E2

下面那一排，即是利用x的格式輸出需要的數據

雖然compile可以過，但是執行程式後，就發生

forrt1: serve <60>: infinite format loop unit 51, file D:\xxxxxxxx

這樣的錯誤訊息

不過如果是 Write(51,'(3I5,ES17.10E2)') thick(:,j), R*100

這樣就可以跑完

也就是直接把format寫完是可正常執行，但若設定成字串組就會錯誤

剛剛試了一下 發現真的不行 x是恰好為format指令參數的其中一個

換成h，就連compile都過不去，也就是說似乎一定要直接寫format指令

請問有什麼寫法可以克服這個問題嗎?

謝謝

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.112.33.151
→ charlesdc:你先把X印出來看看是否是你要的   這樣看起來是沒問題
→ ybchen:這我有確定 x輸出是正確的
※ 編輯: ybchen          來自: 140.112.33.151       (03/13 18:57)
→ charlesdc:試試 write(x(1:2),'(I2)')N_Material-2
→ charlesdc:記得X要改成  x="??I5,ES17.10E2"
→ charlesdc:在不行我就不知了...這方法是可行的但錯在哪我不知道
→ charlesdc:把X換掉然後寫嚴謹點看看write(*,FMT=變數)  x是空格
→ charlesdc:Write(51,'(x)')這邊表示錯了
→ charlesdc:我也搞錯了. "()"這個要搞到字串裡x="(??I5,ES17.10E2)"
推 jsb:Write ( x,'(I2,A12)' ) N_Material-2, '(I5,ES17.10E2)'
→ jsb:Write (51,x) thick(:,j), R*100
→ ybchen:感謝各位 我找到方法了
→ ybchen:Write(h,'(A1,I2,A13)') '(',N_Material-2,'I5,ES17.10E2)'
→ ybchen:Write(51,h) thick(:,j), R*100
推 jsb:   我就是這個意思啦. . . 不小心寫錯了真抱歉。