经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。
请扫描分享到朋友圈用fortran读取一个DAT文件的第一列，然后把它存到一个已经定义的一维数组里怎么编程？_百度知道
用fortran读取一个DAT文件的第一列，然后把它存到一个已经定义的一维数组里怎么编程？
本人小白。。。
提问者采纳
integer a(100); ! 假设要读入的是整数open(101,file='file.dat');do i=1,100read(101,*)a(i);enddoend
其他类似问题
按默认排序
其他1条回答
不好意思，fortran不熟，不过原理应该是一样的。定义一个字符串变量或者是缓冲区读取文件内容到变量中对字符串从头进行逐个字符判断，遇到空格就把前面的字符串截出来放进数组里，数组下标加1，继续向下判断直到遇到字符串结尾。
dat文件的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁&[ 15 篇帖子 ]&
&文章标题 : 学习fortran中遇到的简单问题发表于 :
15:43帖子: 1748
系统: debian
例:一个式 ax2+bx+c=0 的 fortran 程序(本程序并不完善,请指出原因)Program roota=1.0b=3.0c=2.0d=b**2-4*a*cr1=(-b+sqrt(d))/2.0*a)r2=(-b-sqrt(d))//(2.0*a)write(*,*) r1,r2end以上是题目，我运行了一下，是有错误的，看了下，发现除法多了个/，修改后再运行，出现如下提示：gfortran test.f90 test.f90:7.5:r1=(-b+sqrt(d))/2.0*a)
1Error: Invalid character in name at (1)它的意思是什么？是指参数未定义吗？还是哪里出错了
&文章标题 : Re: 学习fortran中遇到的简单问题发表于 :
14:23帖子: 33819地址: 某系某星某洲某国某省某市
完全没有问题。1，运行：gfortran test.f90 -o test./test2，变量最好申明类型。
_________________心似浮云常自在，意如流水任东西。广告：
&文章标题 : Re: 学习fortran中遇到的简单问题发表于 :
19:17帖子: 7622
系统: Arch Linux (x86_64)
r1=(-b+sqrt(d))/2.0*a)括号不匹配。换个好点的编辑器吧，起码能显示括号匹配情况的。implicit none 是个好习惯。
_________________--博客：
&文章标题 : Re: 学习fortran中遇到的简单问题发表于 :
15:43帖子: 1748
系统: debian
lainme 写道:r1=(-b+sqrt(d))/2.0*a)括号不匹配。换个好点的编辑器吧，起码能显示括号匹配情况的。implicit none 是个好习惯。嗯嗯，谢谢，我觉得vim挺好，也可以匹配括号，这是老师给的程序，复制下来的，所以没发现括号匹配情况，谢谢你的帮助
&文章标题 : Re: 学习fortran中遇到的简单问题发表于 :
15:43帖子: 1748
系统: debian
Program testRead(*,*)I,A,B,CWrite(*,100)I,A,B,C100 Format(1x,’I=’,I4,5x,‘A,B,C=’,3F10.3)End我想控制下输出格式，以我现在的水平，看这个程序没有任何错误，可运行时提示有不认识的字符，以下是我编译时的输出gfortran f.f90 f.f90:4.15:100 Format(1x,\xE2\x80\x99I=\xE2\x80\x99,I4,5x,\xE2\x80\x98A,B,C=\xE2\x80\x99,3F10.3)
1Error: Unexpected element '?' in format string at (1)f.f90:3.11:Write(*,100)I,A,B,C
1Error: FORMAT label 100 at (1) not defined格式表示不对？
&文章标题 : Re: 学习fortran中遇到的简单问题发表于 :
14:23帖子: 33819地址: 某系某星某洲某国某省某市
引号的格式，要用英文引号''，而不是中文‘’
_________________心似浮云常自在，意如流水任东西。广告：
&文章标题 : Re: 学习fortran中遇到的简单问题发表于 :
19:17帖子: 7622
系统: Arch Linux (x86_64)
再说点别的。最好不要用 fortran 77 那风格。找本 fortran 90 已上的书学吧。比如 Stephen J.Chapman 的《Fortran95/2003程序设计》，还有些编程习惯方面的东西。
_________________--博客：
&文章标题 : Re: 学习fortran中遇到的简单问题发表于 :
14:23帖子: 33819地址: 某系某星某洲某国某省某市
lainme 写道:再说点别的。最好不要用 fortran 77 那风格。找本 fortran 90 已上的书学吧。好奇Fortran有没有风格这一说，应该给fortran加上PY的强制缩进，看起来才顺眼。。。800多行的代码，看到猴年马月去啊。。。
_________________心似浮云常自在，意如流水任东西。广告：
&文章标题 : Re: 学习fortran中遇到的简单问题发表于 :
15:43帖子: 1748
系统: debian
lainme 写道:再说点别的。最好不要用 fortran 77 那风格。找本 fortran 90 已上的书学吧。比如 Stephen J.Chapman 的《Fortran95/2003程序设计》，还有些编程习惯方面的东西。有去了解过一些fortran的历史，你说的77是指对英文大小写都有规定，还有第几列有什么特殊用途之类吗？我现在后缀是.f90，就是以90的规则来的吧？不知道我理解的对不对，珳不另指出，麻烦了
&文章标题 : Re: 学习fortran中遇到的简单问题发表于 :
19:17帖子: 7622
系统: Arch Linux (x86_64)
月下叹逍遥 写道:lainme 写道:再说点别的。最好不要用 fortran 77 那风格。找本 fortran 90 已上的书学吧。好奇Fortran有没有风格这一说，应该给fortran加上PY的强制缩进，看起来才顺眼。。。800多行的代码，看到猴年马月去啊。。。私以为标行号就算一个。800行还多啊……
_________________--博客：
&文章标题 : Re: 学习fortran中遇到的简单问题发表于 :
14:23帖子: 33819地址: 某系某星某洲某国某省某市
lainme 写道:月下叹逍遥 写道:lainme 写道:再说点别的。最好不要用 fortran 77 那风格。找本 fortran 90 已上的书学吧。好奇Fortran有没有风格这一说，应该给fortran加上PY的强制缩进，看起来才顺眼。。。800多行的代码，看到猴年马月去啊。。。私以为标行号就算一个。800行还多啊……对于一个非线性微分方程组，如何设计算法，通过调整系数，使其达到最优解？
_________________心似浮云常自在，意如流水任东西。广告：
&文章标题 : Re: 学习fortran中遇到的简单问题发表于 :
15:43帖子: 1748
系统: debian
月下叹逍遥 写道:lainme 写道:月下叹逍遥 写道:lainme 写道:再说点别的。最好不要用 fortran 77 那风格。找本 fortran 90 已上的书学吧。好奇Fortran有没有风格这一说，应该给fortran加上PY的强制缩进，看起来才顺眼。。。800多行的代码，看到猴年马月去啊。。。私以为标行号就算一个。800行还多啊……对于一个非线性微分方程组，如何设计算法，通过调整系数，使其达到最优解？小白一个，说说自己的看法，非线性方程组最普通的解法，当然是松驰迭代咯？这个应该是最简单的了吧
&文章标题 : Re: 学习fortran中遇到的简单问题发表于 :
14:23帖子: 33819地址: 某系某星某洲某国某省某市
jinjiachen 写道:月下叹逍遥 写道:lainme 写道:月下叹逍遥 写道:lainme 写道:再说点别的。最好不要用 fortran 77 那风格。找本 fortran 90 已上的书学吧。好奇Fortran有没有风格这一说，应该给fortran加上PY的强制缩进，看起来才顺眼。。。800多行的代码，看到猴年马月去啊。。。私以为标行号就算一个。800行还多啊……对于一个非线性微分方程组，如何设计算法，通过调整系数，使其达到最优解？小白一个，说说自己的看法，非线性方程组最普通的解法，当然是松驰迭代咯？这个应该是最简单的了吧是微分方程组。。。解的算法是四阶龙格库塔法，现在是想办法通过修改系数得出最理想的解，通过分析结果，修改初始条件。。。
_________________心似浮云常自在，意如流水任东西。广告：
&文章标题 : Re: 学习fortran中遇到的简单问题发表于 :
14:23帖子: 33819地址: 某系某星某洲某国某省某市
遗传算法可不可靠？貌似是个出路，可惜不懂。。。。
_________________心似浮云常自在，意如流水任东西。广告：
&文章标题 : Re: 学习fortran中遇到的简单问题发表于 :
15:43帖子: 1748
系统: debian
月下叹逍遥 写道:遗传算法可不可靠？貌似是个出路，可惜不懂。。。。还没学到。。。继续深造中
显示帖子 : 全部帖子1天7天2周1个月3个月6个月1年&排序 作者发表时间文章标题 升序降序&
&[ 15 篇帖子 ]&
正在浏览此版面的用户：Sogou [Spider] 和 2 位游客
您 不能 在这个版面发表主题您 不能 在这个版面回复主题您 不能 在这个版面编辑帖子您 不能 在这个版面删除帖子您 不能 在这个版面提交附件
选择一个版面
------------------
公告/注意事项
& &新闻和通知
& &校园社团支持
& && &华东校区
& && &华南校区
& && &华北校区
& && &华中校区
& && &东北校区
& && &西北校区
& && &港澳台校区
& && &国外校区
& &软件推荐
& &非常任务
系统安装区
& &教学和常见问答
& && &课堂教学和培训
& &初学者园地 - 14.10
& &系统安装和升级
& && &新立得和软件源
& && &Wubi安装讨论
& &启动和引导
& &网卡问题以及网络和拨号
& && &校园网拨号
& &笔记本、UMPC支持
& &手机和平板
& &常用硬件支持
& &系统架构支持
配置美化区
& &字体美化和中文支持
& && &个人配置文件存放点
& &桌面特效
& &窗口管理器
& &屏幕抓图
& &办公、图像、机械电子设计等
& && &Vim和Emacs
& &因特网相关软件
& &影音多媒体
& &Wine及其分支
& &游戏和游戏模拟器
& &虚拟机和虚拟化
& &其它类软件
服务器管理
& &服务器基础应用
& &数据库管理
& &服务器维护和硬件相关
& &Ubuntu VPS
参与Ubuntu开发
& &软件和文档翻译
& &编译或打包
& &Ubuntu错误报告
程序设计区
& &Shell脚本
& &GTK+和QT
& &软件/网站开发
& && &Python/Php/Perl
& && &C/C++/Java
& &内核及嵌入式开发
& &开源小工具
& &Ubuntu 15.04
& &Ubuntu 14.04 LTS
& &Ubuntu 12.04 LTS
& &Ubuntu 10.04 LTS
& &老旧版本支持
衍生发行版
& &Ubuntu GNOME
& &Kubuntu
& &Xubuntu & Lubuntu
& &Ubuntu中文衍生版
& && &Deepin
& && &UbuntuKylin
& &Ubuntu国外衍生版
& && &Mint
& &Ubuntu衍生版制作
& &其它类Unix OS发行版
& && &Arch发行版
& && &Debian发行版
& && &OpenSUSE发行版
& &深度PK版
& &Ubuntu故事和感慨
& &Full Circle开源杂志
分享交流区
& &同城交流
& &线下活动专版
& &Ubuntu宣传推广
& &论坛管理
& && && &Ubuntu中文网上商店}