Re: [請益] 這輸出格式的意義

看板Fortran作者sjgau (sjgau)時間14年前 (2010/12/01 20:27)推噓0(0推 0噓 3→)

留言3則, 2人參與討論串2/2 (看更多)

下面這個範例程式，可以解釋你的兩個問題ㄧ個是 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: sjgau4311@gmail.com 我的課程介紹網頁： http://www.csie.ntu.edu.tw/train/teacher_display.php?num=18 AutoCAD 台灣地區菁英講師獲選 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 114.137.59.181