| 查看: 2798 | 回复: 5 | |||
[求助]
Visual Studio 2012 已有1人参与
|
|
用的是Visual Studio 2012，调试的时候，只说有错误，不提示错在第几行了，怎么让它继续显示第几行呢？比如下面的小程序： program attempt_initial_fai dimension fai(300,300) !open(101,file='E:\试验程序\one dimension random seed\test_fai.dat') open(101,file='E:\试验程序\one dimension random seed\fai.dat') call initial_data(fai(i,j)) write(101,20) ((fai(i,j),j=1,300),i=1,300) 20 FORMAT (1X,300D15.6) !end do end program attempt_initial_fai subroutine initial_data(a(i,j)) open(1,file='E:\试验程序\one dimension random seed\data1.dat') DO i=1,300 READ(1,'(300D15.6)') fai(:,i)!//这个地方就实现了你的要求，冒号代表将从1~100，它是根据你声明部分的多少而定的 end do do i=1,300 do j=1,300 a(i,j)=mod(a(i,j),1.0) end do end do close(1) return end subroutine 1里面是300*300的数据，想实现的是用子程序把1里面的值赋到二维数组fai(i,j)并输出到101里面。 还有，小弟用的是visual studio 2012，代码写出来提示错误，但是不提示在哪一行了，很苦恼。比如上面这段，就有一下错误。 错误 1 error #5082: Syntax error, found '(' when expecting one of: ) , E:\\mass of disorder\mass of disorder\Source1.for 错误 2 error #5082: Syntax error, found ')' when expecting one of: , : ] E:\\mass of disorder\mass of disorder\Source1.for 错误 3 error #7271: Not a valid attribute for the DEC$ ATTRIBUTES directive. [I] E:\\mass of disorder\mass of disorder\Source1.for 错误 4 error #6911: The syntax of this substring is invalid. [FAI] E:\\mass of disorder\mass of disorder\Source1.for 错误 5 Compilation Aborted (code 1) E:\试验程序\mass of disorder\mass of disorder\Source1.for 1 但是1,2个错误都不提示在第几行了，很急 怎么办 |
回复此楼» 猜你喜欢
二审4个多月了还是Awaiting Reviewer Scores
已经有5人回复
-
申请科研项目纯靠实力能成功吗？
已经有12人回复
-
40+中年人失业后，还能找到好工作吗？
已经有13人回复
-
用NBS溴化时溶剂除了CCl4外还有什么
已经有6人回复
-
极限拉扯，如何抉择
已经有15人回复
-
OpenAI又攻克数学难题了，离AI做有机合成还有多远？
已经有13人回复
-
课题组会帮你通过考核么？
已经有7人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有9人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有8人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有10人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 求助VS（visual studio）的MSDN 2012以上
已经有5人回复
- VS2012安装求助
已经有12人回复
- visual studio 2012 里没有Fortran
已经有1人回复
- Visual studio 2012菜单的问题
已经有0人回复
- visual C++入门用什么参考书？
已经有6人回复
- VS2012+Intel Fortran XE2013
已经有2人回复
- 求大神支招！！！visual studio express 2012 下载不了啊
已经有6人回复
- Visual Studio 2012的代码图功能什么?
已经有4人回复
- VS2012和IVF2013中调用已有程序显示“无法启动程序，系统找不到指定文件”怎么回事？
已经有4人回复
- 请问用visual studio 2012 写fortran代码怎么安装LAPACK
已经有3人回复
- fortran 如何在visual studio 2012
已经有1人回复
- Wolfram Mathematica 9.0.1 中文版（WIN）（AGAiN）【原创+转载】
已经有128人回复
- 求Microsoft Visual Studio 2010 旗舰版 英文语言包
已经有7人回复
- C#程序设计课件学习！Microsoft Visual Studio 2008版！
已经有84人回复
7152075
铁杆木虫 (著名写手)
解决问题的方法比遇到的问题多
- 应助: 44 (小学生)
- 金币: 17672.2
- 红花: 10
- 帖子: 2110
- 在线: 176.2小时
- 虫号: 3086834
- 注册: 2014-03-25
- 性别: GG
- 专业: 理论和计算化学
【答案】应助回帖
★ ★ ★ ★ ★
感谢参与，应助指数 +1
kardrine(jjdg代发): 金币+1, 感谢参与，剩下的由lz发吧 2016-11-11 11:31:05
kardrine: 金币+4, ★★★★★最佳答案 2016-11-14 10:44:14
感谢参与，应助指数 +1
kardrine(jjdg代发): 金币+1, 感谢参与，剩下的由lz发吧 2016-11-11 11:31:05
kardrine: 金币+4, ★★★★★最佳答案 2016-11-14 10:44:14
|
program attempt_initial_fai implicit none real*8::fai( 300,300 ) integer i,j open( 101,file='E:\试验程序\one dimension random seed\test_fai.dat' ) open( 101,file='E:\试验程序\one dimension random seed\fai.dat' ) call initial_data( fai ) !//传递数组的时候，不能写成类似于fai(300,300)，要写成fai write( 101,20 ) (( fai(i,j),j=1,300 ),i=1,300 ) 20 FORMAT ( 1X,300D15.6 ) !end do end program attempt_initial_fai subroutine initial_data( a ) implicit none real*8::a( 300,300 ) integer::i,j open( 1,file='E:\试验程序\one dimension random seed\data1.dat' ) DO i=1,300 READ( 1,'( 300D15.6 )' ) a( :,i )!//这个地方就实现了你的要求，冒号代表将从1~100，它是根据你声明部分的多少而定的 end do do i=1,300 do j=1,300 a( i,j )=mod( a(i,j),1.0 ) end do end do close( 1 ) return end subroutine PS：implicit none大法好，注意一定要用它。需要注意的是，这个程序并不严格，因为数组的传递正常是需要interface的，我暂时不想给你加太大的难度，写了之后怕你晕。你记住有这么回事就行了，等你熟悉了Fortran的语法，熟练写出程序后，你再看看书（其实我个人还是喜欢module的，但是说多了，恐怕你又晕了）。 |
2楼2016-11-11 08:59:24
3楼2016-11-14 10:47:23
iamshitizen
铜虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 2600.6
- 红花: 2
- 帖子: 210
- 在线: 79.9小时
- 虫号: 1738680
- 注册: 2012-04-05
- 专业: 流体力学
4楼2016-11-14 11:09:19
7152075
铁杆木虫 (著名写手)
解决问题的方法比遇到的问题多
- 应助: 44 (小学生)
- 金币: 17672.2
- 红花: 10
- 帖子: 2110
- 在线: 176.2小时
- 虫号: 3086834
- 注册: 2014-03-25
- 性别: GG
- 专业: 理论和计算化学
|
program attempt_initial_fai implicit none interface subroutine initial_data(a) !//加入接口 real*8::a( : ,: ) end subroutine initial_data end interface real*8::fai( 300,300 ) integer i,j open( 101,file='E:\试验程序\one dimension random seed\test_fai.dat' ) open( 101,file='E:\试验程序\one dimension random seed\fai.dat' ) call initial_data( fai ) !//传递数组的时候，不能写成类似于fai(300,300)，要写成fai write( 101,20 ) (( fai(i,j),j=1,300 ),i=1,300 ) 20 FORMAT ( 1X,300D15.6 ) !end do close( 101 ) close( 102 ) end program attempt_initial_fai subroutine initial_data( a ) implicit none real*8::a(:,  integer::i,j open( 1,file='E:\试验程序\one dimension random seed\data1.dat' ) DO i=1,300 READ( 1,'( 300D15.6 )' ) a( i , !//这个地方就实现了你的要求，冒号代表将从1~100，它是根据你声明部分的多少而定的 end do do i=1,300 do j=1,300 a( i,j )=mod( a(i,j),1.0 ) end do end do close( 1 ) return end subroutine 你一定是点击output右边的叉号，导致再无法再出现output错误输出窗口。重新调用出来的过程是tools->options->projects and solutions->general->挑上show output window when bulid starts具体如图1所示。PS：interface我建议你forget这个，建议你学习module，因此随着你会的知识增多，一旦子程序都要调用这个的话，都要加一个接口，十分麻烦。看推荐那个网站，有一期叫module的那个。还是建议你都看看吧。  2016-11-14_142053.png |
5楼2016-11-14 14:45:27
7152075
铁杆木虫 (著名写手)
解决问题的方法比遇到的问题多
- 应助: 44 (小学生)
- 金币: 17672.2
- 红花: 10
- 帖子: 2110
- 在线: 176.2小时
- 虫号: 3086834
- 注册: 2014-03-25
- 性别: GG
- 专业: 理论和计算化学
:,: )6楼2016-11-14 14:46:32
200