24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

冰凌1990

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 262.9
帖子: 19
在线: 15小时
虫号: 2396804
注册: 2013-04-02
专业: 凝聚态物性 II ：电子结构

[求助] 请大神帮忙看下一下的Fortran下此程序哪里出了问题，怎么修改？多谢已有4人参与

At line 52 of file pbnd.f (unit = 9, file = 'BANDS')
Fortran runtime error: Expected INTEGER for item 83 in formatted transfer, got REAL (i4,5x,80f10.4) ^

回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:

请大神帮忙看一下拉伸断口形貌已经有15人回复
江湖救急，SHPB有限元模拟，跪求各位大神帮忙！已经有8人回复
请大家帮忙看一下我的催化甲醇氧化的图分析下已经有6人回复
关于原核表达后，WB条带不单一的问题。请大神帮忙！已经有5人回复
请大神帮忙看下这个程序已经有1人回复
弄动力学参数拟合参数，不知道怎么办了，哪个大神帮忙弄下代码已经有2人回复
荧光定量PCR溶解曲线的峰不单一，求大神看一下！已经有12人回复
求大神给看下药方中药物的名称，急用，请大家多帮忙！！！！已经有13人回复
求大神帮忙看看这个吸附脱附曲线已经有2人回复
请各位大神帮忙看看这是怎么回事吧！这是要解体的节奏么？已经有6人回复
【求大神】帮我看看我写的对不对，关于socket通信任务书以及server 已经有6人回复
CV测试时的问题，请各位大神进来看下帮帮我这个新手已经有15人回复
CV测试时的问题，请各位大神进来看下帮帮我已经有1人回复
细胞污染求助！请大神帮忙分析一下！！！已经有6人回复
各位化学类大神求进来看看，一个貌似是密码的问题已经有5人回复
地高辛标记斑点无法显色的问题，求各位大神帮忙看下原因已经有0人回复
请各位大神帮忙看一下红外~！！不甚感激已经有6人回复

1楼 2015-07-29 13:51:35

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

xk6891

至尊木虫 (著名写手)

应助: 0 (幼儿园)
金币: 13735.8
散金: 379
红花: 9
帖子: 1514
在线: 546小时
虫号: 890342
注册: 2009-11-01
专业: 理论和计算化学

【答案】应助回帖

★ ★
jjdg: 金币+2, 感谢参与 2018-02-22 18:04:02

源程序52行用到了56行的格式化输出语句，里面那个80f10.4中的80有点小，楼主可以改大一点，今天上午也出现了同样的错误。
或者删除原来的52行，修改为

CODE:

          write(9,"(i4)",advance='no')i

          do j=1,nn 

            if(j.ne.nn)then

              write(9,"(f10.4)",advance='no') eig(i,j)

            else

              write(9,"(f10.4)") eig(i,j)

            endif

          enddo