討論串[問題] write 單行的限制
共 3 篇文章
首頁
上一頁
1
下一頁
尾頁

推噓1(1推 0噓 8→)留言9則,0人參與, 最新作者alecyen (恩~)時間14年前 (2010/10/11 18:53), 編輯資訊
0
0
0
內容預覽:
請問有誰瞭解write出幾個變數在一行. 上有限制個數嗎?. b=30. i=15. do i = 1 ,15. write(*,*)(a(i,j),j=1,b). enddo. 我發現第一行只輸出19個變數,然後就跳到下一行. 輸出剩餘的11個變數?. 而我希望的是輸出一個30x15的矩陣. --

推噓0(0推 0噓 0→)留言0則,0人參與, 最新作者alecyen (恩~)時間14年前 (2010/10/12 15:15), 編輯資訊
1
0
0
內容預覽:
解決方式:針對不同的b可以一次應付. write(crl,'(i3)')b. write(*,'(a)')crl. wtmp = '('//crl//'(f5.3,1x)'//')'. write(*,'(a)')wtmp. do i = 1, a. write(12,wtmp)(c(i,j), j

推噓0(0推 0噓 1→)留言1則,0人參與, 最新作者charlesdc (MoOn)時間14年前 (2010/10/12 15:53), 編輯資訊
0
0
0
內容預覽:
引述《alecyen (恩~)》之銘言:subroutine output(matrix). 這個可能更不錯用. subroutine output(matrix). implicit none. real :: matrix(:,:). integer :: m,n,i. character(
(還有104個字)
首頁
上一頁
1
下一頁
尾頁