FORTRAN求解Fortran怎样读取.txt文件里的文本行,我想得到的是wall1后面的298093567,O(∩_∩)"Surface Integral Report"Average of Surface Vertex ValuesStatic Temperature (k)-------------------------------- --------------------wall1 29
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/23 18:44:19
![FORTRAN求解Fortran怎样读取.txt文件里的文本行,我想得到的是wall1后面的298093567,O(∩_∩)](/uploads/image/z/14562228-12-8.jpg?t=FORTRAN%E6%B1%82%E8%A7%A3Fortran%E6%80%8E%E6%A0%B7%E8%AF%BB%E5%8F%96.txt%E6%96%87%E4%BB%B6%E9%87%8C%E7%9A%84%E6%96%87%E6%9C%AC%E8%A1%8C%2C%E6%88%91%E6%83%B3%E5%BE%97%E5%88%B0%E7%9A%84%E6%98%AFwall1%E5%90%8E%E9%9D%A2%E7%9A%84298093567%2CO%28%E2%88%A9_%E2%88%A9%29%22Surface+Integral+Report%22Average+of+Surface+Vertex+ValuesStatic+Temperature+%28k%29--------------------------------+--------------------wall1+29)
FORTRAN求解Fortran怎样读取.txt文件里的文本行,我想得到的是wall1后面的298093567,O(∩_∩)"Surface Integral Report"Average of Surface Vertex ValuesStatic Temperature (k)-------------------------------- --------------------wall1 29
FORTRAN求解
Fortran怎样读取.txt文件里的文本行,我想得到的是wall1后面的298093567,O(∩_∩)
"Surface Integral Report"
Average of Surface Vertex Values
Static Temperature (k)
-------------------------------- --------------------
wall1 298.93567
wall2 298.48569
wall3 298.08218
wall4 310.13739
outlet 296.23862
default-interior 300.79886
---------------- --------------------
Net 300.81006
FORTRAN求解Fortran怎样读取.txt文件里的文本行,我想得到的是wall1后面的298093567,O(∩_∩)"Surface Integral Report"Average of Surface Vertex ValuesStatic Temperature (k)-------------------------------- --------------------wall1 29
存成这种格式太不便
跳读吧,得数好,不通用
open (10, file='data.txt')
do i = 1, 11
if (i .lt. 6) then
read (10, *)
cycle
endif
read (10, '(a44, f)') s, a
write (*, '(f)') a
enddo
close (10)
end