版块导航
正在加载中...
客户端APP下载
论文辅导
申博辅导
登录
注册
帖子
帖子
用户
本版
应《网络安全法》要求,自2017年10月1日起,未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用,请尽快对帐号进行手机号验证,感谢您的理解与支持!
24小时热门版块排行榜
>
论坛更新日志
(3546)
>
文献求助
(440)
>
导师招生
(308)
>
虫友互识
(303)
>
硕博家园
(88)
>
博后之家
(82)
>
考博
(79)
>
休闲灌水
(76)
>
论文投稿
(73)
>
基金申请
(58)
>
招聘信息布告栏
(56)
>
公派出国
(55)
>
考研
(54)
>
论文道贺祈福
(41)
>
教师之家
(39)
>
找工作
(38)
小木虫论坛-学术科研互动平台
»
计算模拟区
»
程序语言
»
Fortran
»
【求助】f77的ifdef语句
5
1/1
返回列表
查看: 1931 | 回复: 18
只看楼主
@他人
存档
新回复提醒
(忽略)
收藏
在APP中查看
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖
cean
金虫
(职业作家)
应助: 23
(小学生)
金币: 53.1
帖子: 3442
在线: 578.8小时
虫号: 1147499
[交流]
【求助】f77的ifdef语句
在看一个老的f77程序,其中inc文件有这么几句:
#ifdef BL
real dd(nbig)
#else
real dd(1)
#endif
好像是为了省点内存。
但我用g95编译不过去,说第2个dd已经被定义了。
该怎么处理呀?
谢谢
回复此楼
» 猜你喜欢
青椒八年已不青,大家都被折磨成啥样了?
已经有5人回复
青年基金C终止
已经有3人回复
26申博求博导推荐-遥感图像处理方向
已经有4人回复
限项规定
已经有7人回复
救命帖
已经有8人回复
招博士
已经有4人回复
西南交通大学国家级人才团队2026年博士研究生招生(考核制)—机械、材料、力学方向
已经有3人回复
英文综述是否需要润色及查重
已经有5人回复
为什么nbs上溴 没有产物点出现呢
已经有9人回复
高级回复
» 本主题相关价值贴推荐,对您同样有帮助:
【求助】VASP5.2 编译出错make
已经有0人回复
求助Quantum-ESPRESSO5.0 安装问题
已经有2人回复
【求助】安装vasp出错 make: *** [fftmpi_map.o] 错误 1【已解决】
已经有6人回复
【求助成功】Vasp 5.2.11编译出错
已经有10人回复
【求助】VASP5.2 f951: error: unrecognized command line option "-assume
已经有1人回复
【求助成功】vasp5.2并行安装不上
已经有18人回复
【求助】fedora中LAMMPS编译问题
已经有4人回复
【求助】安装mpich2时出现问题!
已经有6人回复
【求助】pwscf安装问题
已经有0人回复
【求助】vasp计算出现的very serious problem【完结】
已经有10人回复
【求助】fortran 程序windows 下编译正确,而linux下出错
已经有2人回复
【求助】vasp4.6 并行编译警告怎么处理
已经有6人回复
【求助】dalton-2.0编译及测试问题【完结】
已经有18人回复
» 抢金币啦!回帖就可以得到:
查看全部散金贴
南佛罗里达大学化学系刘文奇课题组 2026 Fall 招收有机/超分子方向博士生
+
2
/916
东北大学-招收2026年硕士研究生2-3名(金属材料3D打印方向)
+
5
/80
大连工业大学 超临界流体技术团队(纺材学院)招收2026级“申请-考核制”博士生
+
1
/69
自驾淄博回四川遂宁过年,寻找小伙伴一起
+
1
/65
南开大学物理学院张书辉副教授招收凝聚态物理理论方向博士生、硕士生
+
1
/33
上海交通大学 碳纳米管、阵列、器件应用博士后招聘
+
1
/32
东北林业大学刘松教授课题组长期招收博士、博士后
+
1
/31
西交利物浦大学黄彪院士招收26年全奖博士生1名(工业智能方向)
+
1
/31
中山大学农业与生物技术学院周潇峰课题组诚聘微生物/植物病理学方向科研助理
+
1
/31
【陕西师范大学】催化化学课题组2026年招收博士后/讲师/副高
+
1
/13
论文投稿散金祈愿-电机学报
+
2
/12
华南理工大学宋波教授招收2026年博士生(二氧化碳转化方向优先)
+
1
/6
2025版《中国药典》方法测定二甲基亚砜含量偏高
+
1
/5
广东以色列理工学院博士/硕士招生-通过稀疏观测用数据驱动方法预测湍流
+
1
/5
中国计量大学叶德茂课题组招收博士研究生(欢迎计算机类、电子信息类等专业)
+
1
/4
诚邀加盟!青岛大学郑晓钦教授团队诚招博士研究生、博士后及青年英才
+
1
/3
复旦大学2026年博士研究生,“药学 + 合成生物学”
+
1
/2
南方科技大学田雷蕾课题组招收2026年博士生
+
1
/1
【统计专业全奖招研究型博士】 北师香港浸会大学(BNBU)
+
1
/1
26申博求推荐学校
+
1
/1
1楼
2010-12-04 18:39:53
已阅
回复此楼
关注TA
给TA发消息
送TA红花
TA的回帖
snoopyzhao
至尊木虫
(职业作家)
程序强帖: 16
应助: 157
(高中生)
贵宾: 0.02
金币: 18844.7
帖子: 3803
在线: 1422.4小时
虫号: 183750
★ ★ ★
余泽成(金币+3):辛苦了! 2010-12-06 16:31:41
cean(金币+2): 2010-12-06 19:03:16
引用回帖:
Originally posted by
cean
at 2010-12-06 10:59:57:
回的真快。
不好意思贴一大段。
这是其中要插入的一个文件。原来是给linux的,我正试着改成win的。这个是流体程序duns,
http://duns.sourceforge.net/home.html
我用的win下的gcc4.5.1是这里 ...
看了一下,这个程序实在是有点儿老了,呵呵……
当然,需要修改也就是 makesystem/Makesystem_linux 这样的文件。里面有几句可能要改一下,但我不保证一定能够正确,我的修改与注释在 #@ 之间。
其它文件应该不涉及这些东西了
CODE:
#
# 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
.SUFFIXES: .Inc .incl .o .F .C .f .cpp .c .for
#F77 = g77
F77 = gfortran
#@
CPP = gcc -C -x c -P -E -traditional-cpp
CPLUS = g++
CC = gcc
LINKER = gcc
LIBMAKER= ar vr
MKDIR = /bin/mkdir -p
RM = /bin/rm -f
CP = /bin/cp -f
CHMOD = /bin/chmod
CPPFLAGS = -DFUNDER -DISNAN
#CFLAGS = -DRANGECHECK
CFLAGS = -O2
F77FLAGS = -O2 -w
#CPLUSFLAGS= -DRANGECHECK
CPLUSFLAGS= -O2
LFLAGS = -Xlinker -Bstatic
#@
#你需要检查一下你的 gcc 的相应版本,并修改下面这一句
SYSLIBS = -L/usr/lib/gcc-lib/i486-suse-linux/2.95.2 -lg2c -lm
#下面这个在 windows 下很难搞定吧,呵呵……
GRAFLIBS = -lmbgrafic -lgrafic -L/usr/X11R6/lib -lX11
#@
MACH = pcmach.o
XGROBJ = Xunderscore.o
#CPREC = double
#FPREC = "double precision"
CPREC = float
FPREC = real
VERSN = `cat VERSION`
#@
#.Inc.inc:
# @if [ -f $*.inc ]; then mv -f $*.inc $*.inc.bak; fi
# $(CPP) -D"real_precision"=$(FPREC) $(CPPFLAGS) $(FLOWFLAGS) $< >$*.inc
.Inc.incl:
@if [ -f $*.incl ]; then mv -f $*.incl $*.incl.bak; fi
$(CPP) -D"real_precision"=$(FPREC) $(CPPFLAGS) $(FLOWFLAGS) $< >$*.incl
#.F.f:
# @if [ -f $*.f ]; then mv -f $*.f $*.f.bak; fi
# $(CPP) -D"real_precision"=$(FPREC) $(CPPFLAGS) $(FLOWFLAGS) $< >$*.f
.F.for:
@if [ -f $*.for ]; then mv -f $*.for $*.for.bak; fi
$(CPP) -D"real_precision"=$(FPREC) $(CPPFLAGS) $(FLOWFLAGS) $< >$*.for
#@
.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
.F.o:
$(CPP) -D"real_precision"=$(FPREC) $(CPPFLAGS) $(FLOWFLAGS) $< >$*.for
$(F77) $(F77FLAGS) -c $*.for
.for.o:
$(F77) $(F77FLAGS) -c $<
#@
.C.o:
$(CPLUS) $(INCLUDE) -Dreal=$(CPREC) $(CPLUSFLAGS) -c $<
.f.o:
$(F77) $(F77FLAGS) -c $<
.c.o:
$(CC) $(CFLAGS) -DVERSION=\"$(VERSN)\" -c $<
赞
一下
(1人)
回复此楼
高级回复
10楼
2010-12-06 14:19:10
已阅
回复此楼
关注TA
给TA发消息
送TA红花
TA的回帖
查看全部 19 个回答
snoopyzhao
至尊木虫
(职业作家)
程序强帖: 16
应助: 157
(高中生)
贵宾: 0.02
金币: 18844.7
帖子: 3803
在线: 1422.4小时
虫号: 183750
★
小木虫(金币
+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
金虫
(职业作家)
应助: 23
(小学生)
金币: 53.1
帖子: 3442
在线: 578.8小时
虫号: 1147499
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
至尊木虫
(职业作家)
程序强帖: 16
应助: 157
(高中生)
贵宾: 0.02
金币: 18844.7
帖子: 3803
在线: 1422.4小时
虫号: 183750
★
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 个回答
如果回帖内容含有宣传信息,请如实选中。否则帐号将被全论坛禁言
普通表情
龙
兔
虎
猫
高级回复
(可上传附件)
百度网盘
|
360云盘
|
千易网盘
|
华为网盘
在新窗口页面中打开自己喜欢的网盘网站,将文件上传后,然后将下载链接复制到帖子内容中就可以了。
信息提示
关闭
请填处理意见
关闭
确定