版块导航
正在加载中...
客户端APP下载
论文辅导
申博辅导
登录
注册
帖子
帖子
用户
本版
应《网络安全法》要求,自2017年10月1日起,未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用,请尽快对帐号进行手机号验证,感谢您的理解与支持!
24小时热门版块排行榜
>
论坛更新日志
(3074)
>
虫友互识
(253)
>
文献求助
(168)
>
导师招生
(124)
>
硕博家园
(93)
>
考博
(58)
>
休闲灌水
(56)
>
考研
(45)
>
博后之家
(40)
>
论文道贺祈福
(39)
>
公派出国
(37)
>
论文投稿
(37)
>
基金申请
(35)
>
教师之家
(34)
>
找工作
(25)
>
招聘信息布告栏
(22)
小木虫论坛-学术科研互动平台
»
计算模拟区
»
程序语言
»
Fortran
»
【求助】f77的ifdef语句
5
1/1
返回列表
查看: 1762 | 回复: 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已经被定义了。
该怎么处理呀?
谢谢
回复此楼
» 猜你喜欢
论文投稿,期刊推荐
已经有6人回复
寻求一种能扛住强氧化性腐蚀性的容器密封件
已经有3人回复
请问哪里可以有青B申请的本子可以借鉴一下。
已经有4人回复
真诚求助:手里的省社科项目结项要求主持人一篇中文核心,有什么渠道能发核心吗
已经有6人回复
孩子确诊有中度注意力缺陷
已经有14人回复
请问下大家为什么这个铃木偶联几乎不反应呢
已经有5人回复
请问有评职称,把科研教学业绩算分排序的高校吗
已经有5人回复
2025冷门绝学什么时候出结果
已经有3人回复
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有4人回复
康复大学泰山学者周祺惠团队招收博士研究生
已经有6人回复
高级回复
» 本主题相关价值贴推荐,对您同样有帮助:
【求助】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
/82
中国科学技术大学 精准智能化学重点实验室 武建昌课题组招聘博士后
+
1
/80
招收26年资源与环境领域、生物质生物转化、生物技术等方向博士研究生
+
1
/79
中国科学院赣江创新研究院特别研究助理/博士后招聘(1-2名)
+
1
/78
湘潭大学化学学院理论与计算化学课题组裴勇教授招生博士生2名
+
2
/76
因为雪而勾起的一些往事
+
1
/72
澳门科技大学2026年数学博士招生—杨钧翔助理教授计算物理与数学课题组
+
1
/47
限广州,征女友
+
2
/40
中南大学冶金与环境学院陈伟老师招收环境科学与工程2026年博士生1人
+
1
/40
捷克布拉格查理大学(QS260)招收第一性原理计算方向博士生
+
1
/34
双一流大学湘潭大学“化工过程模拟与强化”国家地方联合工程研究中心招收各类博士生
+
1
/33
招收26年秋季入学博士生(北科大高精尖学院 力学超材料/机器学习/增材制造相关方向)
+
1
/16
中国科大-合肥国家实验室冷原子量子中继团队招聘启事
+
2
/10
意大利CSC机器人方向博士招生
+
1
/9
南京大学蔡亮课题组诚招2026年申请-考核制博士生2-3名(电解水制氢,XAFS谱学等)
+
1
/6
长江大学武汉校区诚招工程热物理、油气、电气等新能源博士-2025
+
1
/5
欢迎报考中山大学课题组,确保2025-2026级硕士研究生名额
+
1
/5
香港城市大学 Microsystems and Semiconductor Technology Lab 博士生招生启事
+
1
/5
西交利物浦大学/GaN电力电子器件方向/张洁老师招博士研究生
+
1
/5
湖南大学化学化工学院吕一帆课题组招收2026级博士
+
1
/5
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云盘
|
千易网盘
|
华为网盘
在新窗口页面中打开自己喜欢的网盘网站,将文件上传后,然后将下载链接复制到帖子内容中就可以了。
信息提示
关闭
请填处理意见
关闭
确定