版块导航
正在加载中...
客户端APP下载
论文辅导
申博辅导
登录
注册
帖子
帖子
用户
本版
应《网络安全法》要求,自2017年10月1日起,未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用,请尽快对帐号进行手机号验证,感谢您的理解与支持!
24小时热门版块排行榜
>
论坛更新日志
(3246)
>
导师招生
(300)
>
文献求助
(300)
>
考博
(130)
>
虫友互识
(111)
>
硕博家园
(103)
>
论文投稿
(103)
>
休闲灌水
(61)
>
博后之家
(56)
>
考研
(54)
>
公派出国
(51)
>
绿色求助(高悬赏)
(50)
>
基金申请
(47)
>
教师之家
(41)
>
招聘信息布告栏
(39)
>
论文道贺祈福
(38)
小木虫论坛-学术科研互动平台
»
计算模拟区
»
程序语言
»
Fortran
»
【求助】f77的ifdef语句
5
1/1
返回列表
查看: 1946 | 回复: 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已经被定义了。
该怎么处理呀?
谢谢
回复此楼
» 猜你喜欢
多组分精馏求助
已经有4人回复
青椒八年已不青,大家都被折磨成啥样了?
已经有14人回复
交叉科学部支持青年基金,对三无青椒是个机会吗?
已经有6人回复
免疫学博士有名额,速联系
已经有4人回复
国家基金申请书模板内插入图片不可调整大小?
已经有6人回复
国家级人才课题组招收2026年入学博士
已经有5人回复
Fe3O4@SiO2合成
已经有6人回复
青年基金C终止
已经有4人回复
26申博求博导推荐-遥感图像处理方向
已经有4人回复
西南交通大学国家级人才团队2026年博士研究生招生(考核制)—机械、材料、力学方向
已经有3人回复
高级回复
» 本主题相关价值贴推荐,对您同样有帮助:
【求助】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人回复
» 抢金币啦!回帖就可以得到:
查看全部散金贴
南方科技大学周友运课题组诚聘博士后、科研助理
+
1
/175
电力全国重点实验室双一流A类长江学者团队招2026年全日制博士1-2名/博士后
+
2
/118
限广州,征女友
+
2
/92
“超分子材料交叉研究团队”联合诚聘博士后 [清华/吉大/复旦/北大]
+
1
/79
美国R1大学--德克萨斯大学埃尔帕索分校(UTEP) 土木、环境与建筑工程系 博士招生
+
1
/78
西北工业大学民航学院复合材料领域招聘两名博后
+
1
/78
南京林业大学特聘教授招聘博后和博士研究生
+
1
/75
【2026/2027 哈工大计算机类博士/硕士招生】
+
1
/74
征婚
+
1
/60
武汉工程大学绿碳技术与智能材料课题组诚招2026年博士研究生
+
2
/40
以色列理工-生物质塑料等催化转化及流体力学方向---全奖博士研究生和科研助理
+
2
/36
意大利米兰理工大学急聘CSC公派留学博士生(物理或无机材料科学方向)
+
2
/34
上海市“光探测材料与器件”工程技术研究中心(上海应用技术大学)招聘优秀研究人员
+
1
/31
教育部重点实验室和清华大学某国家重点实验室,联合培养硕生、博生,并长期招博士后
+
1
/30
教育部重点实验室和清华大学某国家重点实验室,联合培养硕生、博生,并长期招博士后
+
1
/29
华南理工大学招收2026年秋季入学博士
+
1
/8
澳科大诚招2026年秋季生物材料全奖博士研究生(今日16:30线上宣讲会)
+
1
/2
生信(包括AI)博后招聘(3名):美国德州理工大学健康科学中心
+
1
/2
层流压差式MFM/MFC在SOFC高温工况中的适配应用
+
1
/2
福建师范大学柔性电子学院 院士团队招2026级博士 光电器件、发光传感忆阻器
+
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云盘
|
千易网盘
|
华为网盘
在新窗口页面中打开自己喜欢的网盘网站,将文件上传后,然后将下载链接复制到帖子内容中就可以了。
信息提示
关闭
请填处理意见
关闭
确定