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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】f77的ifdef语句
北京石油化工学院2026年研究生招生接收调剂公告
51/1返回列表
查看: 2021  |  回复: 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

至尊木虫 (职业作家)
★
余泽成(金币+1):谢谢参与应助！ 2010-12-07 21:27:58
引用回帖:
Originally posted by cean at 2010-12-06 19:15:47:
有一点是.F和.f的目标不能共存，在win下gcc会不理其中的一个的

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

.f.for:
       mv -f $*.f $*.for
赞一下(1人) 回复此楼
12楼2010-12-06 21:36:32
已阅   回复此楼   关注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 个回答
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 085404 22408 315分 +4 zhuangyan123 2026-03-31 5/250 2026-03-31 13:20 by zhuangyan123
[考研] 一志愿北化085600材料专硕275|有文章专利｜求调剂 +15 Micky11223 2026-03-25 16/800 2026-03-31 12:15 by oooqiao
[考研] 266求调剂 +3 哇呼哼呼哼 2026-03-29 3/150 2026-03-31 10:06 by cal0306
[考研] 08工科，295，接受跨专业调剂 +6 lmnlzy 2026-03-30 6/300 2026-03-31 10:04 by cal0306
[考研] 085600材料与化工329分求调剂 +5 这是有太阳哇 2026-03-25 5/250 2026-03-31 09:59 by luoyongfeng
[考研] 335求调剂 +3 321* 2026-03-31 3/150 2026-03-31 09:00 by 功夫疯狂
[考研] 一志愿中海洋320化学工程与技术学硕求调剂 +8 披星河 2026-03-30 8/400 2026-03-31 08:53 by lbsjt
[考研] 合肥区域性重点一本招收调剂 +4 6266jl 2026-03-30 4/200 2026-03-30 21:48 by zhuangyan123
[考研] 材料专硕 085600求调剂 +7 BBQ233 2026-03-30 7/350 2026-03-30 17:44 by oooqiao
[考研] 求调剂 +7 青春裁为三截 2026-03-29 7/350 2026-03-30 13:14 by laoshidan
[考研] 一志愿北京理工大学本科211材料工程294求调剂 +8 mikasa的围巾 2026-03-28 8/400 2026-03-29 12:48 by 无际的草原
[硕博家园] 招收生物学/细胞生物学调剂 +4 IceGuo 2026-03-26 5/250 2026-03-29 01:25 by griffith2014
[考研] 压国家一区线，求导师收留，有恩必谢！ +7 迷人的哈哈 2026-03-28 7/350 2026-03-28 16:47 by 催化大白
[考研] 265求调剂11408 +3 刘小鹿lu 2026-03-27 3/150 2026-03-27 20:53 by nihaoar
[考研] 复试调剂，一志愿南农083200食品科学与工程 +5 XQTJZ 2026-03-26 5/250 2026-03-27 14:49 by 狂炫麦当当
[考研] 08开头275求调剂 +4 拉谁不重要 2026-03-26 4/200 2026-03-27 14:12 by Delta2012
[考研] 一志愿吉大071010，316分求调剂 +3 xgbiknn 2026-03-27 3/150 2026-03-27 10:36 by guoweigw
[考研] 一志愿天津大学339材料与化工求调剂 +3 江往卖鱼 2026-03-26 3/150 2026-03-26 09:42 by 王小欠i
[考研] 296求调剂 +4 汪！？！ 2026-03-25 7/350 2026-03-25 16:41 by 汪！？！
[考研] 一志愿武理085500机械专业总分300求调剂 +3 an10101 2026-03-24 7/350 2026-03-25 00:00 by 山鬼0-
信息提示
关闭
请填处理意见
关闭