當(dāng)前只顯示滿足指定條件的回帖，點(diǎn)擊這里查看本話題的所有回帖

cean

金蟲 (職業(yè)作家)

應(yīng)助: 23 (小學(xué)生)
金幣: 53.1
帖子: 3442
在線: 578.8小時(shí)
蟲號(hào): 1147499

[交流] 【求助】f77的ifdef語句

在看一個(gè)老的f77程序，其中inc文件有這么幾句：
#ifdef BL
real dd(nbig)
#else
real dd(1)
#endif

好像是為了省點(diǎn)內(nèi)存。

但我用g95編譯不過去，說第2個(gè)dd已經(jīng)被定義了。

該怎么處理呀？

謝謝

回復(fù)此樓

» 猜你喜歡

310求調(diào)劑已經(jīng)有5人回復(fù)
材料與化工272求調(diào)劑已經(jīng)有17人回復(fù)
材料工程專碩求調(diào)劑已經(jīng)有3人回復(fù)
337求調(diào)劑已經(jīng)有5人回復(fù)
材料與化工328分調(diào)劑已經(jīng)有9人回復(fù)
318一志愿吉林大學(xué)生物與醫(yī)藥求調(diào)劑已經(jīng)有5人回復(fù)
一志愿南開大學(xué)0710生物學(xué)359求調(diào)劑已經(jīng)有4人回復(fù)
求調(diào)劑已經(jīng)有6人回復(fù)
085600材料與化工調(diào)劑已經(jīng)有4人回復(fù)
327求調(diào)劑已經(jīng)有4人回復(fù)

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:

【求助】VASP5.2 編譯出錯(cuò)make 已經(jīng)有0人回復(fù)
求助Quantum-ESPRESSO5.0 安裝問題已經(jīng)有2人回復(fù)
【求助】安裝vasp出錯(cuò) make: *** [fftmpi_map.o] 錯(cuò)誤 1【已解決】已經(jīng)有6人回復(fù)
【求助成功】Vasp 5.2.11編譯出錯(cuò) 已經(jīng)有10人回復(fù)
【求助】VASP5.2 f951: error: unrecognized command line option "-assume 已經(jīng)有1人回復(fù)
【求助成功】vasp5.2并行安裝不上已經(jīng)有18人回復(fù)
【求助】fedora中LAMMPS編譯問題已經(jīng)有4人回復(fù)
【求助】安裝mpich2時(shí)出現(xiàn)問題！已經(jīng)有6人回復(fù)
【求助】pwscf安裝問題已經(jīng)有0人回復(fù)
【求助】vasp計(jì)算出現(xiàn)的very serious problem【完結(jié)】已經(jīng)有10人回復(fù)
【求助】fortran 程序windows 下編譯正確，而linux下出錯(cuò) 已經(jīng)有2人回復(fù)
【求助】vasp4.6 并行編譯警告怎么處理已經(jīng)有6人回復(fù)
【求助】dalton-2.0編譯及測(cè)試問題【完結(jié)】已經(jīng)有18人回復(fù)

» 搶金幣啦！回帖就可以得到:

查看全部散金貼

1樓 2010-12-04 18:39:53

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

cean

金蟲 (職業(yè)作家)

應(yīng)助: 23 (小學(xué)生)
金幣: 53.1
帖子: 3442
在線: 578.8小時(shí)
蟲號(hào): 1147499

★
ajian04(金幣+1):歡迎交流~ 2010-12-11 10:45:09

回的真快。

不好意思貼一大段。

這是其中要插入的一個(gè)文件。原來是給linux的，我正試著改成win的。這個(gè)是流體程序duns，http://duns.sourceforge.net/home.html

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

預(yù)處理怎么沒執(zhí)行到？

.f和.F兩個(gè)目標(biāo)，在win下我必須注釋掉一個(gè)。

謝謝

#
# 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人)

回復(fù)此樓

9樓2010-12-06 10:59:57

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

查看全部 19 個(gè)回答

snoopyzhao

至尊木蟲 (職業(yè)作家)

★
小木蟲(金幣+0.5):給個(gè)紅包，謝謝回帖交流
cean(金幣+1): 2010-12-04 20:43:18
ajian04:歡迎交流~ 2010-12-11 10:44:03

這個(gè)程序明顯需要 cpp 先處理一下，然后才能編譯，呵呵……

贊一下(2人)

回復(fù)此樓

2樓2010-12-04 19:33:31

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

cean

金蟲 (職業(yè)作家)

應(yīng)助: 23 (小學(xué)生)
金幣: 53.1
帖子: 3442
在線: 578.8小時(shí)
蟲號(hào): 1147499

ajian04:歡迎交流~ 2010-12-11 10:44:14

引用回帖:

Originally posted by snoopyzhao at 2010-12-04 19:33:31:
這個(gè)程序明顯需要 cpp 先處理一下，然后才能編譯，呵呵……

makefile里有這么一句：
.Inc.inc:
@if [ -f $*.inc ]; then mv -f $*.inc $*.inc.bak; fi
$(CPP) -D"real_precision"=$(FPREC) $(CPPFLAGS) $(FLOWFLAGS) $< >$*.inc

我現(xiàn)在所有的F文件都編譯過去了，只剩下幾個(gè)cpp文件編不過去。

原來的makefile是linux下的，我在xp下用gcc4.5, 肯定makefile改的還沒對(duì)。

[ Last edited by cean on 2010-12-4 at 21:18 ]

贊一下(1人)

回復(fù)此樓

3樓2010-12-04 20:20:38

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

snoopyzhao

至尊木蟲 (職業(yè)作家)

★
cean(金幣+1): 2010-12-06 10:30:51
余澤成(金幣+1):謝謝參與應(yīng)助！ 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

我現(xiàn)在所有的 ...

XP 下也可以有 gnu make 啊，呵呵……

你自己把那幾句展開，然后照著處理下就可以了。cpp 也是 gcc 中的吧……

贊一下(1人)

回復(fù)此樓

4樓2010-12-04 22:01:17

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

最具人氣熱帖推薦 [查看全部]	作者	回/看	最后發(fā)表

[考研] 310求調(diào)劑 +5	爭(zhēng)取九點(diǎn)睡 2026-03-30	5/250	2026-03-30 07:47 by JourneyLucky
[考研] 283求調(diào)劑（080500） +7	A child 2026-03-27	7/350	2026-03-29 20:46 by 唐沐兒
[考研] 294分080500材料科學(xué)與工程求調(diào)劑 +8	柳溪邊 2026-03-26	8/400	2026-03-29 20:42 by 唐沐兒
[考研] 一志愿鄭州大學(xué)，080500學(xué)碩，總分317分求調(diào)劑 +8	舉個(gè)栗子oi 2026-03-24	9/450	2026-03-29 13:08 by peike
[考研] 求調(diào)劑一志愿武漢理工大學(xué)材料工程（085601） +7	WW.' 2026-03-23	9/450	2026-03-29 12:42 by fmesaito
[考研] 298求調(diào)劑 +3	種圣賜 2026-03-29	3/150	2026-03-29 12:06 by longlotian
[考研] 356求調(diào)劑 +3	gysy?s?a 2026-03-28	3/150	2026-03-29 00:33 by 544594351
[考研] 0703化學(xué)調(diào)劑，求導(dǎo)師收 +9	天天好運(yùn)來上岸?/a> 2026-03-24	10/500	2026-03-28 22:17 by chemzp
[考研] 332求調(diào)劑 +4	@MZB382400 2026-03-28	4/200	2026-03-28 21:02 by 唐沐兒
[考研] 本科新能源科學(xué)與工程，一志愿華理能動(dòng)285求調(diào)劑 +3	AZMK 2026-03-27	5/250	2026-03-28 16:19 by xxxsssccc
[考研] 一志愿華北電力大學(xué)能動(dòng)專碩，293，求調(diào)劑 +3	15537177284 2026-03-23	5/250	2026-03-28 16:11 by xxxsssccc
[考研] 266分，求材料冶金能源化工等調(diào)劑 +7	哇呼哼呼哼 2026-03-27	9/450	2026-03-28 12:22 by zllcz
[考研] 285求調(diào)劑 +4	AZMK 2026-03-27	7/350	2026-03-27 20:59 by AZMK
[考研] 求調(diào)劑 +4	零八# 2026-03-27	4/200	2026-03-27 18:07 by yu221
[考研] 0856調(diào)劑 +5	求求讓我有書讀?/a> 2026-03-26	6/300	2026-03-27 15:12 by caszguilin
[考研] 324求調(diào)劑 +5	hanamiko 2026-03-26	5/250	2026-03-27 10:33 by wangjy2002
[考研] 一志愿陜師大生物學(xué)071000，298分，求調(diào)劑 +5	SYA！ 2026-03-23	5/250	2026-03-27 09:29 by 不吃魚的貓
[考研] 一志愿河工大 081700 276求調(diào)劑 +4	地球繞著太陽轉(zhuǎn) 2026-03-23	4/200	2026-03-26 14:27 by zzll406
[考研] 一志愿哈工大，085400，320，求調(diào)劑 +4	gdlf9999 2026-03-24	4/200	2026-03-25 23:01 by boxking200
[考研] 0854人工智能方向招收調(diào)劑 +4	章小魚567 2026-03-24	4/200	2026-03-25 13:29 by 2177681040