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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】f77的ifdef语句
51/1返回列表
查看: 2606  |  回复: 18
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

cean

金虫 (职业作家)

[交流] 【求助】f77的ifdef语句

在看一个老的f77程序，其中inc文件有这么几句：
#ifdef BL
      real dd(nbig)
#else
      real dd(1)
#endif

好像是为了省点内存。

但我用g95编译不过去，说第2个dd已经被定义了。

该怎么处理呀？

谢谢
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2010-12-04 18:39:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)
cean(金币+1): 2010-12-07 20:53:24
引用回帖:
Originally posted by snoopyzhao at 2010-12-06 21:36:32:


可能是因为 win 下不区分大小写吧。我当时之所以还保留 .f，好象是原文件中有很多 .f 的文件。你可以加一句类似下面这样的语句，看看可不可以，呵呵……

.f.for:
       mv -f $*.f $*.for

想起来了，还是不行，呵呵……这样，连 .F 的也一起移过去了……
赞一下 回复此楼
13楼2010-12-06 21:45:21
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 19 个回答

snoopyzhao

至尊木虫 (职业作家)
★
小木虫(金币+0.5):给个红包，谢谢回帖交流
cean(金币+1): 2010-12-04 20:43:18
ajian04:欢迎交流~ 2010-12-11 10:44:03
这个程序明显需要 cpp 先处理一下，然后才能编译，呵呵……
赞一下(2人) 回复此楼
2楼2010-12-04 19:33:31
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

cean

金虫 (职业作家)
ajian04:欢迎交流~ 2010-12-11 10:44:14
引用回帖:
Originally posted by snoopyzhao at 2010-12-04 19:33:31:
这个程序明显需要 cpp 先处理一下，然后才能编译，呵呵……

makefile里有这么一句：
.Inc.inc:
        @if [ -f $*.inc ]; then mv -f $*.inc $*.inc.bak; fi
        $(CPP) -D"real_precision"=$(FPREC) $(CPPFLAGS) $(FLOWFLAGS) $< >$*.inc

我现在所有的F文件都编译过去了，只剩下几个cpp文件编不过去。

原来的makefile是linux下的，我在xp下用gcc4.5, 肯定makefile改的还没对。

[ Last edited by cean on 2010-12-4 at 21:18 ]
赞一下(1人) 回复此楼
3楼2010-12-04 20:20:38
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)
★
cean(金币+1): 2010-12-06 10:30:51
余泽成(金币+1):谢谢参与应助！ 2010-12-06 16:31:21
引用回帖:
Originally posted by cean at 2010-12-04 20:20:38:


makefile里有这么一句：
.Inc.inc:
        @if [ -f $*.inc ]; then mv -f $*.inc $*.inc.bak; fi
        $(CPP) -D"real_precision"=$(FPREC) $(CPPFLAGS) $(FLOWFLAGS) $< >$*.inc

我现在所有的 ...

XP 下也可以有 gnu make 啊，呵呵……

你自己把那几句展开，然后照着处理下就可以了。cpp 也是 gcc 中的吧……
赞一下(1人) 回复此楼
4楼2010-12-04 22:01:17
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 19 个回答
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[教师之家] 售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急 +6 czAiolzR0IJC 2026-11-10 6/300 2026-11-12 16:55 by zzy933268
[论文投稿] 售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急 +3 TgvkbZZl9tqB 2026-11-11 4/200 2026-11-12 12:51 by ECLTXnJnRSXf
[教师之家] 售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急 +4 Z7qfCsdIiD1T 2026-11-10 5/250 2026-11-12 11:14 by HajghKOMynmz
[基金申请] 售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急 +5 czAiolzR0IJC 2026-11-10 9/450 2026-11-12 11:11 by HajghKOMynmz
[公派出国] 售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急 +3 czAiolzR0IJC 2026-11-10 8/400 2026-11-12 11:11 by HajghKOMynmz
[基金申请] 售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急 +5 G2rhSvqvhNzl 2026-11-10 7/350 2026-11-12 10:49 by HajghKOMynmz
[硕博家园] 售SCI文章，我:8O.5.5.1O.54,科目全,可十急 +4 czAiolzR0IJC 2026-11-10 8/400 2026-11-12 10:49 by HajghKOMynmz
[教师之家] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +4 G2rhSvqvhNzl 2026-11-10 6/300 2026-11-12 10:38 by HajghKOMynmz
[考研] 售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急 +4 G2rhSvqvhNzl 2026-11-10 6/300 2026-11-12 10:36 by HajghKOMynmz
[公派出国] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +4 C6CRn66RYYXS 2026-11-10 8/400 2026-11-12 10:27 by HajghKOMynmz
[公派出国] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +5 YHiw1gou1Eda 2026-11-10 6/300 2026-11-12 10:14 by HajghKOMynmz
[公派出国] 售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急 +6 FChKX8meu1ds 2026-11-09 11/550 2026-11-12 09:57 by HajghKOMynmz
[教师之家] 售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急 +7 FChKX8meu1ds 2026-11-09 12/600 2026-11-12 09:43 by HajghKOMynmz
[基金申请] 售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急 +3 TgvkbZZl9tqB 2026-11-11 5/250 2026-11-12 08:15 by HajghKOMynmz
[考博] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +3 FChKX8meu1ds 2026-11-09 7/350 2026-11-12 05:30 by 9fOTqj074tIg
[考博] 售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急 +3 FChKX8meu1ds 2026-11-09 8/400 2026-11-12 05:30 by 9fOTqj074tIg
[基金申请] 售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急 +5 FChKX8meu1ds 2026-11-09 7/350 2026-11-12 05:30 by 9fOTqj074tIg
[考研] 售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急 +3 5sJFDKp2kwuI 2026-11-06 12/600 2026-11-09 06:32 by l48hFd8Nwae2
[公派出国] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +4 5sJFDKp2kwuI 2026-11-06 8/400 2026-11-09 00:14 by l48hFd8Nwae2
[教师之家] 售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急 +4 5sJFDKp2kwuI 2026-11-06 8/400 2026-11-08 23:01 by l48hFd8Nwae2
信息提示
关闭
请填处理意见
关闭