应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 写了一个fortran90的小程序，编译通不过，请大侠帮忙
北京石油化工学院2026年研究生招生接收调剂公告
606/6返回列表上一页123456
查看: 4111  |  回复: 59
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
本帖产生 3 个 程序强帖 ，点击这里进行查看

Gina88

木虫 (正式写手)
引用回帖:
Originally posted by snoopyzhao at 2011-05-10 06:50:40:
部分的程序之外，这部分能看出来是反复读取和写入，可是怎么判断循环结束还是看不懂。另外
160 160 160没有看见读，怎么就能写入了呢。
这个程序真是奇妙啊。
也就高手能写出这样的程序。
要是我自己，打死 ...

snoopyzhao ：其它的我都看明白了，下面一行我上网查了查，trim是去掉字符串前后的空格之后的字符串。
index是看后面的字符串在前面字符串中的位置，如果这个位置不为0，就离开。如果为0就继续。
可是其它行的数据也没有左对齐啊，其它行数据行判断应该也不为0啊。
if (index (line, trim(subline)) /= 0) exit

谢谢了！
赞一下 回复此楼
51楼2011-05-10 10:40:20
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

引用回帖:
Originally posted by Gina88 at 2011-05-10 10:40:20:
snoopyzhao ：其它的我都看明白了，下面一行我上网查了查，trim是去掉字符串前后的空格之后的字符串。
index是看后面的字符串在前面字符串中的位置，如果这个位置不为0，就离开。如果为0就继续。
可是其它行 ...

你知道 subline 中的字符串是啥？ '160 160 160'，我把前后的空格都去掉是为了更好的匹配……至于要不要去掉，我还真没有试，我只是觉得这种特征字符串的前后不应该有空格....
赞一下 回复此楼
52楼2011-05-10 10:45:37
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

Gina88

木虫 (正式写手)
引用回帖:
Originally posted by snoopyzhao at 2011-05-10 10:45:37:
你知道 subline 中的字符串是啥？ '160 160 160'，我把前后的空格都去掉是为了更好的匹配……至于要不要去掉，我还真没有试，我只是觉得这种特征字符串的前后不应该有空格....

谢谢您！
这句话应该不能去掉的，如果去掉就不能实现密度矩阵相减的功能了。
但是我又不明白 if (index (line, trim(subline)) /= 0) exit这句话为什么判断的就是160 160 160那行呢，而不是其它行呢。

160 160 160之前的行应该是左对齐的，所以index (line, trim(subline)) == 0
而160 160 160这行应该不是左对齐的，所以index (line, trim(subline)) /= 0
不知道我这么理解对不对？

但是其它行个位数左边也还有一个空格啊，所以我就理解不了上面的的句子了。
但是它的存在又的确是非常非常对的，没有它肯定是不行了。
赞一下 回复此楼
53楼2011-05-10 11:06:29
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

★ ★
微尘、梦想(金币+2): 2011-05-10 19:04:04
引用回帖:
Originally posted by Gina88 at 2011-05-10 11:06:29:
谢谢您！
这句话应该不能去掉的，如果去掉就不能实现密度矩阵相减的功能了。
但是我又不明白 if (index (line, trim(subline)) /= 0) exit这句话为什么判断的就是160 160 160那行呢，而不是其它行呢。

16 ...

这样吧，

index('    a b c d        ', 'a b c d') 的结果是啥？

index('    a b c d        ', '    a b c d') 的结果是啥？

index('    b b c d        ', 'a b c d') 的结果又是啥？

这跟空格没有关系，只是前面的那个字符串是否包括后面的字符串，如果包括，返回后面这个字符串第一个字符在前面字符串中的位置……
赞一下(1人) 回复此楼
54楼2011-05-10 11:12:34
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

Gina88

木虫 (正式写手)
引用回帖:
Originally posted by snoopyzhao at 2011-05-10 11:12:34:
这样吧，

index('    a b c d        ', 'a b c d') 的结果是啥？

index('    a b c d        ', '    a b c d') 的结果是啥？

index('    b b c d        ', 'a b c d') 的结果又是啥？

这跟空格 ...

那如果前面的字符串不包括后面的字符串，返回值应该是0么？
赞一下 回复此楼
55楼2011-05-10 11:36:29
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

Gina88

木虫 (正式写手)
引用回帖:
Originally posted by snoopyzhao at 2011-05-10 11:12:34:
这样吧，

index('    a b c d        ', 'a b c d') 的结果是啥？

index('    a b c d        ', '    a b c d') 的结果是啥？

index('    b b c d        ', 'a b c d') 的结果又是啥？

这跟空格 ...

谢谢了，我终于找到有关index函数的详细介绍了。
终于全弄懂了您写的这个程序
赞一下 回复此楼
56楼2011-05-10 12:02:54
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

PZtech

银虫 (小有名气)
★
jjdg(金币+1): 谢谢参与 2011-05-19 02:17:59
群众的力量就是大啊，在这里还有热心的同志来改程序，真是难得了
赞一下(1人) 回复此楼
57楼2011-05-18 20:30:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

gj19861222

银虫 (小有名气)
难得啊
回复此楼
58楼2011-05-23 10:35:49
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

horsw

木虫 (正式写手)
看不懂，路过支持~~
回复此楼
59楼2011-05-27 09:47:57
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

Gina88

木虫 (正式写手)
引用回帖:
16楼: Originally posted by snoopyzhao at 2011-05-05 09:19:38:
再贴个完整的程序吧，呵呵……

[code]
program cell_POSCAR

!announcement begin***********************************
implicit none
real(8)::cellcon(3,3)       !lattice constance
real(8),allocat ...

http://muchong.com/bbs/viewthread.php?tid=4064963
大侠，上面网址是我新发的贴，也是一个程序，编译通过。
可是运行后输出结果不对，结果中出现了NaN。
实在不知道怎么弄对啊。
所以又来麻烦您了：）
非常感谢您！
赞一下 回复此楼
60楼2012-01-30 23:05:17
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 Gina88 的主题更新
606/6返回列表上一页123456
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 316求调剂 +5 yyx想调剂 2026-04-05 5/250 2026-04-05 22:22 by 咔咔咔咔9
[考研] 0855求调剂材料 +11 红桃灼灼 2026-04-04 11/550 2026-04-05 22:13 by 醉翁wl
[考研] 考研生物与医药调剂 +8 铁憨憨123425 2026-03-31 8/400 2026-04-05 20:28 by lys0704
[考研] 一志愿北京交通大学材料工程总分358求调剂 +4 cs0106 2026-04-04 4/200 2026-04-05 18:46 by imissbao
[考研] 326求调剂 +3 顾若浮生 2026-04-05 3/150 2026-04-05 18:32 by 蓝云思雨
[考研] 385分 生物学（071000）求调剂 +11 qf626 2026-04-01 11/550 2026-04-05 17:35 by Ecowxq666！
[考研] 一志愿江南大学085501机械工程专硕326分，本科佳木斯大学 +5 顾若浮生 2026-04-03 9/450 2026-04-05 09:57 by 1753564080
[考研] 285求调剂 +11 哦呦呼o 2026-04-04 11/550 2026-04-05 08:15 by 544594351
[考研] 考研调剂 +5 四川王涛 2026-04-04 5/250 2026-04-04 22:18 by 啵啵啵0119
[考研] 338求调剂 +7 晟功? 2026-04-03 7/350 2026-04-04 20:37 by 蓝云思雨
[考研] 085601，一志愿厦大334复试被刷求调剂 +13 曾仰之 2026-04-03 15/750 2026-04-04 20:13 by dongzh2009
[考研] 085602 找调剂 +4 逆时针快乐 2026-04-02 4/200 2026-04-04 19:32 by 蓝云思雨
[考研] 272求调剂 +4 松柏常青5 2026-04-03 4/200 2026-04-04 17:03 by babysonlkd
[考研] 325求调剂 +4 春风不借意 2026-04-04 4/200 2026-04-04 14:46 by 湘农储能材料
[考研] 本科211，专业085404，293分请求调剂 +5 莲菜就是藕吧 2026-04-04 5/250 2026-04-04 14:08 by 这是一个无聊的�
[考研] 材料科学与工程考研 +10 拯救皮特托先生 2026-04-02 10/500 2026-04-03 23:57 by userper
[考研] 一志愿南昌大学324求调剂 +13 hanamiko 2026-04-01 13/650 2026-04-03 18:30 by ls刘帅
[考研] 考研调剂 +3 Draa 2026-04-03 3/150 2026-04-03 17:37 by hgwz7468
[考研] 一志愿中国科学院大学265求调剂 +9 恬淡ye 2026-03-31 10/500 2026-04-03 11:10 by txp1986
[硕博家园] 考研调剂 +5 骆驼男人 2026-04-01 5/250 2026-04-01 14:28 by syjjj0321
信息提示
关闭
请填处理意见
关闭