作者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