版塊導(dǎo)航: 正在加載中...

登錄注冊

應(yīng)《網(wǎng)絡(luò)安全法》要求，自2017年10月1日起，未進(jìn)行實名認(rèn)證將不得使用互聯(lián)網(wǎng)跟帖服務(wù)。為保障您的帳號能夠正常使用，請盡快對帳號進(jìn)行手機(jī)號驗證，感謝您的理解與支持！

24小時熱門版塊排行榜

北京石油化工學(xué)院2026年研究生招生接收調(diào)劑公告

返回列表

nwpusolid

鐵蟲 (正式寫手)

應(yīng)助: 2 (幼兒園)
金幣: 665.1
散金: 155
紅花: 4
帖子: 320
在線: 88.5小時
蟲號: 2147430
注冊: 2012-11-25
專業(yè): 固體力學(xué)

[求助] 關(guān)于fortran子程序調(diào)用內(nèi)部函數(shù)

（1）我在fortran子程序（subroutine類型），中使用了取整函數(shù)int，
然后在調(diào)用哪個子程序的時候，報錯。請問大家，在子程序調(diào)用哪個
這些內(nèi)部函數(shù)的時候是不是要事先聲明呢？如何聲明，希望大家?guī)蛶兔?br />
（2）順便再問一個問題，能否再subroutine子程序利用文件操作，（因為這個子程序是被主程序多次調(diào)用的）每調(diào)用一次子程序?qū)⒆映绦虻囊恍┲匾兞烤蛯懭氲轿募�，我只知道一些簡單的write函數(shù)和文件打開的open函數(shù)，你能幫幫我嗎？這個假想合理嗎？能實現(xiàn)嗎？

回復(fù)此樓

» 猜你喜歡

085600 295分求調(diào)劑已經(jīng)有14人回復(fù)
環(huán)境工程297分求調(diào)劑一志愿杭高院已經(jīng)有3人回復(fù)
理學(xué)07化學(xué) 303求調(diào)劑已經(jīng)有7人回復(fù)
290分調(diào)劑求助已經(jīng)有6人回復(fù)
362求調(diào)劑已經(jīng)有6人回復(fù)
求調(diào)劑推薦材料 304 已經(jīng)有17人回復(fù)
304求調(diào)劑已經(jīng)有4人回復(fù)
張芳銘-中國農(nóng)業(yè)大學(xué)-環(huán)境工程專碩-298 已經(jīng)有8人回復(fù)
070300化學(xué)354求調(diào)劑已經(jīng)有12人回復(fù)
08工科，295，接受跨專業(yè)調(diào)劑已經(jīng)有3人回復(fù)

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

fortran里一個子程序不運行是怎么回事已經(jīng)有13人回復(fù)
幫忙把公式轉(zhuǎn)化為FORTRAN子程序已經(jīng)有6人回復(fù)
兩次調(diào)用同一子程序第二次調(diào)用得出的結(jié)果是錯誤的。。已經(jīng)有10人回復(fù)
Fortran的subroutine和function有什么區(qū)別，是在于輸入輸出的特點嗎？已經(jīng)有13人回復(fù)
fortran程序怎樣調(diào)用lapack庫進(jìn)行矩陣對角化？已經(jīng)有7人回復(fù)
大家?guī)臀铱匆粋€fortran的程序，我總是計算不出正確的結(jié)果已經(jīng)有20人回復(fù)
Fortran中子程序與函數(shù)的區(qū)別已經(jīng)有7人回復(fù)
FORTRAN 基礎(chǔ)知識講解已經(jīng)有21人回復(fù)
【求助】注冊化工工程師的報考條件，報考時間以及考試科目都是什么？已經(jīng)有26人回復(fù)
【求助】用fortran怎么描述下面這樣的情況，我是新手，請大家?guī)兔?/a> 已經(jīng)有8人回復(fù)

注冊化工工程師已經(jīng)有10人回復(fù)
【求助】Fortran如何調(diào)用模塊中子程序已經(jīng)有6人回復(fù)

1樓 2013-06-17 10:58:39

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

pippi6

鐵桿木蟲 (著名寫手)

工程和科學(xué)數(shù)值計算咨詢

應(yīng)助: 413 (碩士)
貴賓: 0.002
金幣: 7116.5
散金: 15
紅花: 63
帖子: 1639
在線: 798.9小時
蟲號: 2469437
注冊: 2013-05-14
專業(yè): 計算數(shù)學(xué)與科學(xué)工程計算

【答案】應(yīng)助回帖

★
感謝參與，應(yīng)助指數(shù) +1
jjdg: 金幣+1, 感謝參與 2013-06-18 01:00:42

> 我在fortran子程序（subroutine類型），中使用了取整函數(shù)int，
然后在調(diào)用哪個子程序的時候，報錯。請問大家，在子程序調(diào)用哪個
這些內(nèi)部函數(shù)的時候是不是要事先聲明呢？

請給出具體錯誤message，fortran內(nèi)部函數(shù)不會要求聲明

關(guān)于問題（2），你沒有說你具體的文件處理要求是什么？某些文件處理fortran可以做，不是最有效的工具，要就事論事，一般評論沒有什么意義

贊一下

回復(fù)此樓

2樓2013-06-17 11:26:55

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

學(xué)蟲dj

金蟲 (正式寫手)

應(yīng)助: 18 (小學(xué)生)
金幣: 892.4
散金: 63
帖子: 688
在線: 89.9小時
蟲號: 1829966
注冊: 2012-05-22
性別: GG
專業(yè): 應(yīng)用地球物理學(xué)

【答案】應(yīng)助回帖

★
感謝參與，應(yīng)助指數(shù) +1
jjdg: 金幣+1, 感謝參與 2013-06-18 01:00:49

在子程序里面條用外面的函數(shù)應(yīng)該用extenal聲明一下，你說的第二個可以，但是別用close關(guān)閉文件就行

贊一下

回復(fù)此樓

窮則獨善其事，達(dá)則兼濟(jì)天下

3樓2013-06-17 13:38:14

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

pippi6

鐵桿木蟲 (著名寫手)

工程和科學(xué)數(shù)值計算咨詢

應(yīng)助: 413 (碩士)
貴賓: 0.002
金幣: 7116.5
散金: 15
紅花: 63
帖子: 1639
在線: 798.9小時
蟲號: 2469437
注冊: 2013-05-14
專業(yè): 計算數(shù)學(xué)與科學(xué)工程計算

★
jjdg: 金幣+1, 感謝參與 2013-06-18 01:00:55

引用回帖:

3樓: Originally posted by 學(xué)蟲dj at 2013-06-17 13:38:14
在子程序里面條用外面的函數(shù)應(yīng)該用extenal聲明一下，你說的第二個可以，但是別用close關(guān)閉文件就行

int 是fortran內(nèi)部函數(shù)，不是外部函數(shù)

贊一下

回復(fù)此樓

4樓2013-06-17 15:35:43

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

nwpusolid

鐵蟲 (正式寫手)

應(yīng)助: 2 (幼兒園)
金幣: 665.1
散金: 155
紅花: 4
帖子: 320
在線: 88.5小時
蟲號: 2147430
注冊: 2012-11-25
專業(yè): 固體力學(xué)

引用回帖:

那么請問我每次調(diào)用子程序的時候就進(jìn)行了一次讀寫操作，假設(shè)添加的代碼是：
open（*，*）
write(*,*)m,n
也就是將子程序中的mn變量寫入了文本文件中，那我再次調(diào)用的時候還要將新的mn寫入文本文件，這樣的話，新寫入的mn值是將原來的值覆蓋呢？？還是自動寫到下一行，還是怎么樣？如何控制這個格式

贊一下

回復(fù)此樓

5樓2013-06-17 19:25:24

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

jerkwin

專家顧問 (正式寫手)

專家經(jīng)驗: +14
應(yīng)助: 454 (碩士)
金幣: 20699.1
散金: 148
紅花: 81
帖子: 813
在線: 2648.3小時
蟲號: 1023452
注冊: 2010-05-19
專業(yè): 理論和計算化學(xué)
管轄: 分子模擬

【答案】應(yīng)助回帖

★
感謝參與，應(yīng)助指數(shù) +1
jjdg: 金幣+1, 感謝參與 2013-06-18 01:01:02

引用回帖:

5樓: Originally posted by nwpusolid at 2013-06-17 19:25:24
那么請問我每次調(diào)用子程序的時候就進(jìn)行了一次讀寫操作，假設(shè)添加的代碼是：
open（*，*）
write(*,*)m,n
也就是將子程序中的mn變量寫入了文本文件中，那我再次調(diào)用的時候還要將新的mn寫入文本文件，這樣的話，新 ...

可以通過open(*,*,position=*)控制
position=‘Append'將追加，否則覆蓋

贊一下

回復(fù)此樓

6樓2013-06-17 20:49:07

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

學(xué)蟲dj

金蟲 (正式寫手)

應(yīng)助: 18 (小學(xué)生)
金幣: 892.4
散金: 63
帖子: 688
在線: 89.9小時
蟲號: 1829966
注冊: 2012-05-22
性別: GG
專業(yè): 應(yīng)用地球物理學(xué)

【答案】應(yīng)助回帖

★
jjdg: 金幣+1, 感謝參與 2013-06-18 01:01:11

引用回帖:

如果你在吧m，n寫入文本之后close了文本，那么接下來的寫入就是覆蓋掉前面寫入的東西，如果你沒close的話，就接著往下寫，如果輸格式輸出的話，有具體的方式，fortran書中肯定會介紹，格式化輸出

贊一下

回復(fù)此樓

窮則獨善其事，達(dá)則兼濟(jì)天下

7樓2013-06-17 21:26:13

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

學(xué)蟲dj

金蟲 (正式寫手)

應(yīng)助: 18 (小學(xué)生)
金幣: 892.4
散金: 63
帖子: 688
在線: 89.9小時
蟲號: 1829966
注冊: 2012-05-22
性別: GG
專業(yè): 應(yīng)用地球物理學(xué)

【答案】應(yīng)助回帖

引用回帖:

4樓: Originally posted by pippi6 at 2013-06-17 15:35:43
int 是fortran內(nèi)部函數(shù)，不是外部函數(shù)...

那直接就call 就可以了

贊一下

回復(fù)此樓

窮則獨善其事，達(dá)則兼濟(jì)天下

8樓2013-06-17 21:27:36

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

相關(guān)版塊跳轉(zhuǎn) 我要訂閱樓主 nwpusolid 的主題更新

返回列表

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

[考研] 304求調(diào)劑 +4	素年祭語 2026-03-31	4/200	2026-03-31 12:40 by -迷了路啊路
[考研] 一志愿中國科學(xué)院大學(xué)265求調(diào)劑 +6	恬淡ye 2026-03-31	7/350	2026-03-31 11:28 by 恬淡ye
[考研] 085404 22408 315分 +4	zhuangyan123 2026-03-31	4/200	2026-03-31 10:52 by 耿2413
[考研] 266求調(diào)劑 +3	哇呼哼呼哼 2026-03-29	3/150	2026-03-31 10:06 by cal0306
[考研] 22408 359分調(diào)劑 +4	Qshers 2026-03-27	8/400	2026-03-31 08:53 by Qshers
[考研] 11408總分309，一志愿東南大學(xué)求調(diào)劑，不挑專業(yè) +5	天賦帶到THU 2026-03-29	6/300	2026-03-30 20:49 by dick_runner
[考研] 各位老師好，我的一志愿為北京科技大學(xué)085601材料專碩 +10	Koxui 2026-03-28	10/500	2026-03-30 19:33 by 源_2020
[考研] 一志愿鄭州大學(xué)，080500學(xué)碩，總分317分求調(diào)劑 +10	舉個栗子oi 2026-03-24	11/550	2026-03-30 19:31 by michael2011
[碩博家園] 求調(diào)劑有機(jī)化學(xué)考研356分 +10	Nadiums 2026-03-25	11/550	2026-03-30 11:56 by yjolah
[考研] 一志愿南航 335分 \| 0856 \| GPA 4.07 \| 有科研經(jīng)歷 +8	cccchenso 2026-03-29	8/400	2026-03-29 23:53 by 我是小康
[考研] 279求調(diào)劑 +4	蝶舞輕繞 2026-03-29	4/200	2026-03-29 09:45 by laoshidan
[考研] 394求調(diào)劑 +3	好事多磨靜候佳?/a> 2026-03-26	5/250	2026-03-28 14:24 by 唐沐兒
[考研] 材料與化工（0856）304求B區(qū)調(diào)劑 +8	邱gl 2026-03-27	8/400	2026-03-28 12:42 by 唐沐兒
[考研] 調(diào)劑 +3	好好讀書。 2026-03-28	3/150	2026-03-28 12:04 by 王保杰33
[考研] 一志愿南京航空航天大學(xué)材料學(xué)碩求調(diào)劑 +3	@taotao 2026-03-28	3/150	2026-03-28 10:26 by JourneyLucky
[考研] 070300化學(xué)求調(diào)劑 +4	起個名咋這么難 2026-03-27	4/200	2026-03-27 21:39 by 83503孫老師
[考研] 086000調(diào)劑 +3	7901117076 2026-03-26	3/150	2026-03-27 21:34 by Jianing_Mi
[考研] 調(diào)劑推薦 +5	清酒714 2026-03-26	6/300	2026-03-27 11:12 by 不吃魚的貓
[考研] 081200-11408-276學(xué)碩求調(diào)劑 +3	崔wj 2026-03-26	3/150	2026-03-26 19:57 by nihaoar
[考研] 07化學(xué)303求調(diào)劑 +5	睿08 2026-03-25	5/250	2026-03-25 22:46 by 418490947

24小時熱門版塊排行榜

[求助] 關(guān)于fortran子程序調(diào)用內(nèi)部函數(shù)

» 猜你喜歡

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

【答案】應(yīng)助回帖

【答案】應(yīng)助回帖

【答案】應(yīng)助回帖

【答案】應(yīng)助回帖

【答案】應(yīng)助回帖

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