作者sjgau (sjgau)
看板Fortran
標題Re: [請益] 這輸出格式的意義
時間Wed Dec 1 20:27:48 2010
下面 這個 範例程式，可以解釋你的 兩個問題
ㄧ個是 PAUSE
他可以暫時停止 程式的執行，
等待你輸入 <Enter> 按鍵
ㄧ個是 //
他負責 字串變數的串接，
但是，不好用。
彭國倫的書，page 59, EX0414.F90
有解釋和說明 // 的用法。
請參考。
chap. 4-2-4 字元及字串
program ex0413
character(len= 4) a, b
character(len= 8) c
a= "a12"
b= "_34b"
c= a//b
write(*, *) c
pause
end
!dec$if(.false.)
a12__34b
Fortran Pause - Enter command<CR> or <CR> to continue.
!dec$endif
※ 引述《juangpeiyi (燒瓶中的小人 Homunculus)》之銘言：
: 擷取一部分放上來問
: suffix= '.dat'
: pt1 = 'shape'//ca9//ca8//ca7//ca6//ca5//ca4//ca3//ca2//ca1//suffix
: pt2 = 'pc'//ca9//ca8//ca7//ca6//ca5//ca4//ca3//ca2//ca1//suffix
: pt3 = 'Tc'//ca9//ca8//ca7//ca6//ca5//ca4//ca3//ca2//ca1//suffix
: pt4 = 'Mc'//ca9//ca8//ca7//ca6//ca5//ca4//ca3//ca2//ca1//suffix
: do i=1, 100, 1
: t=s(i)
: if (t<3) cycle
: open(101,file=pt1,status='unknown')
: write(101,*) 'VARIABLES= "r" , "Pc" , "z"'
: write(101,*) 'ZONE I=',t+1,',J=1,f=point'
: do l=1, t+1, 1
: write(101,*) rn(i,l), Cn(i), zn(i,l)
: write(*,*) rn(i,l), Cn(i), zn(i,l)
: end do
: end do
: write(101,*) pn_0, Mn_1, C, c_1, c_2, A, Hi, gamma
: close(101)
: .
: .
: . (略)
: F7 F5後
: 都不會跑出data
: 連把 pt1.dat 開(新增)出來都沒有
: 目前我比較疑惑的是
: 很多 雙斜線那幾行 我不是很確定那是在幹嘛
: 翻了書沒有翻到 (彭國倫f95那本)
: 不知道各位高手能指教一下嗎 ?
--
e-mail:
[email protected]
我的課程介紹網頁：
http://www.csie.ntu.edu.tw/train/teacher_display.php?num=18
AutoCAD 台灣地區菁英講師獲選
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.137.59.181
1F：→ juangpeiyi:我是用intel fortran 11 64bit 要看到銀幕顯是什麼 12/01 22:14
2F：→ juangpeiyi:必須用pause我是瞭解 不過 我是沒data open出來~ 12/01 22:15
3F：→ Cypresslin:把你的ca9~ca1、pt1 print出來看看呢？ 12/02 11:17