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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】f77的ifdef语句
51/1返回列表
查看: 2342  |  回复: 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的回帖

cean

金虫 (职业作家)
★
ajian04(金币+1):欢迎交流~ 2010-12-11 10:45:09
回的真快。

不好意思贴一大段。

这是其中要插入的一个文件。原来是给linux的，我正试着改成win的。这个是流体程序duns，http://duns.sourceforge.net/home.html

我用的win下的gcc4.5.1是这里的 http://www.equation.com/servlet/equation.cmd?call=fortran

预处理怎么没执行到？

.f和.F两个目标，在win下我必须注释掉一个。

谢谢


#
# This makesystem was constructed on a PII machine running Linux.
# We found we had to use fort77 (front-end to f2c)
# instead of g77/f77 that comes with most distributions, although
# we still link with the g2c directory.  Enjoy.
#

.SUFFIXES:   .Inc  .inc  .o  .F   .C  .f  .cpp  .c

F77     = gfortran
CPP     = gcc -C -x c -P -E -traditional-cpp
CPLUS   = g++
CC      = gcc
LINKER  = gcc
LIBMAKER= ar vr
MKDIR   =mkdir
RM        = del
CP        = copy
#CHMOD   = /bin/chmod

CPPFLAGS = -DFUNDER -DISNAN
#CFLAGS  = -DRANGECHECK
CFLAGS   = -O2
F77FLAGS  = -O2 -w
#CPLUSFLAGS= -DRANGECHECK
CPLUSFLAGS= -O2
LFLAGS    = -Xlinker -Bstatic
SYSLIBS   = -L/usr/lib/gcc-lib/i486-suse-linux/2.95.2 -lg2c -lm
GRAFLIBS  = -lmbgrafic -lgrafic -L/usr/X11R6/lib -lX11
MACH      = pcmach.o
XGROBJ    = Xunderscore.o

#CPREC   = double
#FPREC   = "double precision"
CPREC  = float
FPREC  = real

VERSN   = `2.7`


.Inc.incw:
        @if [ -f $*.incw ]; then mv -f $*.incw $*.incw.bak; fi
        $(CPP) -D"real_precision"=$(FPREC) $(CPPFLAGS) $(FLOWFLAGS) $< >$*.incw

.for.f:
        @if [ -f $*.f ]; then mv -f $*.f $*.f.bak; fi
        $(CPP) -D"real_precision"=$(FPREC) $(CPPFLAGS) $(FLOWFLAGS) $< >$*.f

.cpp.c:
        @if [ -f $*.c ]; then mv -f $*.c $*.c.bak; fi
        $(CPP) -D"Include"="#include" -D"Define"="#define" -Dreal=$(CPREC) $(CPPFLAGS) $(FLOWFLAGS) $< >$*.c

#.F.o:
#        $(CPP) -D"real_precision"=$(FPREC) $(CPPFLAGS) $(FLOWFLAGS) $< >$*.f
        $(F77) $(F77FLAGS) -c $*.f

#.C.o:
#        $(CPLUS) $(INCLUDE) -Dreal=$(CPREC) $(CPLUSFLAGS) -c $<

.f.o:
        $(F77) $(F77FLAGS) -c $<

.c.o:
        $(CC) $(CFLAGS) -DVERSION=\"$(VERSN)\" -c $<

[ Last edited by cean on 2010-12-6 at 11:03 ]
赞一下(1人) 回复此楼
9楼2010-12-06 10:59:57
已阅   回复此楼   关注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 个回答
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 只有每年这种时候来逛逛小木虫 +23 yaoyewhu2008 2026-08-20 25/1250 2026-08-21 12:19 by Poppy1104
[基金申请] 时间戳又变了 +12 wuchongjun 2026-08-20 18/900 2026-08-21 11:53 by wuchongjun
[基金申请] 我面上完蛋了 +7 且听虎啸 2026-08-20 7/350 2026-08-21 11:45 by 6543yes
[基金申请] 时间戳又变了8-15 +15 archvillain 2026-08-15 27/1350 2026-08-21 11:32 by tim76
[基金申请] 科研孤儿太难了 +15 我4大白菜 2026-08-20 16/800 2026-08-21 11:07 by yming1319
[基金申请] 应该是下周三26日公布了吧？ +4 哈哈蛤？ 2026-08-21 4/200 2026-08-21 10:58 by Vivilian
[论文投稿] 投稿咨询 +5 wwm09 2026-08-17 7/350 2026-08-21 10:11 by 期刊论文帮手
[基金申请] 让我中一个面上吧！ +10 大萍1987 2026-08-20 12/600 2026-08-21 09:31 by 020100099
[基金申请] 基金啊基金 +4 longfie172 2026-08-20 4/200 2026-08-21 08:58 by mark mao
[基金申请] 估计是周四 +3 archvillain 2026-08-18 3/150 2026-08-21 01:48 by jnhyjjm
[基金申请] 今日不放榜？网传国自然预计 8 月 27 日可查结果 +15 医学老男孩 2026-08-20 17/850 2026-08-20 20:35 by CaoLG
[基金申请] 重要消息，中午系统在维护 +11 yuleib84 2026-08-18 12/600 2026-08-20 11:09 by xskun
[教师之家] 为什么余额宝的年化利率越来越低？主要原因有哪些？ +5 瞬息宇宙 2026-08-15 5/250 2026-08-19 20:23 by super2002521
[基金申请] 今天放榜吗？ +14 布布和一二 2026-08-19 15/750 2026-08-19 18:07 by gltch
[基金申请] 2027广东省杰青 +4 奶牛小黑 2026-08-15 10/500 2026-08-19 11:02 by wanfengnew
[基金申请] 明天放榜？ +5 Shxjjxjkx 2026-08-18 5/250 2026-08-18 18:14 by -大大大大大-
[基金申请] 今天维护系统维护 祝所有人 高中 +8 gjjjzhong 2026-08-18 9/450 2026-08-18 13:01 by 家与远方
[基金申请] 感觉是下周放榜了 +6 angus9576 2026-08-17 11/550 2026-08-17 23:57 by angus9576
[精细化工] 招聘 金属平磨液，抛光液研发工程师 +3 小天0311 2026-08-14 3/150 2026-08-16 07:31 by H9PLUS
[基金申请] 各位道友，我要去昆明玩几天，回来见。 +7 Tide man 2026-08-14 8/400 2026-08-15 01:11 by arzu_hma
信息提示
关闭
请填处理意见
关闭