版塊導航: 正在加載中...

調(diào)劑小程序

登錄注冊

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

24小時熱門版塊排行榜

>論壇更新日志 (4919)
>考研 (1360)
>導師招生 (1063)
>休閑灌水 (170)
>蟲友互識 (148)
>文獻求助 (141)
>碩博家園 (76)
>考博 (73)
>論文投稿 (64)
>基金申請 (56)
>博后之家 (54)
>教師之家 (30)
>公派出國 (28)
>論文道賀祈福 (27)
>找工作 (24)
>招聘信息布告欄 (23)

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

返回列表

當前只顯示滿足指定條件的回帖，點擊這里查看本話題的所有回帖

physliebe

新蟲 (小有名氣)

應助: 0 (幼兒園)
金幣: 16.3
散金: 40
紅花: 1
帖子: 148
在線: 215.6小時
蟲號: 1933844
注冊: 2012-08-11
性別: GG
專業(yè): 計算數(shù)學與科學工程計算

[求助] module無法編譯？已有1人參與

用高斯消元法求解線性方程組

CODE:

module gauss

    contains

    subroutine solve(A,b,x,N)

        implicit real*8(a-z)

        integer::i,k,N

        real*8::A(N,N),b(N),x(N)

        real*8::Aup(N,N),bup(N)

        real*8::Ab(N,N+1)

        Ab(1:N,1:N)=A

        Ab(:,N+1)=b

        !+++++++++++++++++++++++++++++++++++++++++

        ！高斯消去法的核心部分

        do k=1,N-1

            do i=k+1,N

                temp=Ab(i,k)/Ab(k,k)

                Ab(i,:)=Ab(i,:)-temp*Ab(k,:)

            end do

        end do

        Aup(:,:)=Ab(1:N,1:N)

        bup(:)=Ab(:,N+1)

        !+++++++++++++++++++++++++++++++++++++++++

        ！求解上三角矩陣型的先性方程組

        call uptri(Aup,bup,x,N)   

        end subroutine solve

     subroutine uptri(A,b,x,N)        

        implicit real*8(a-z)          

        integer::i,j,N

        real*8::A(N,N),b(N),x(N)      

        x(N)=b(N)/A(N,N)              

        !回代部分

        do i=N-1,1,-1                

            x(i)=b(i)

            do j=i+1,N                

                x(i)=x(i)-a(i,j)*x(j)

            end do

            x(i)=x(i)/A(i,i)

        end do

    end subroutine uptri

end module gauss

program main

    use gauss

    implicit real*(a-z)

    integer,parameter::N=4

    integer::i,j

    real*8::A(N,N),b(N),x(N)

    open(unit=11,file='fin.txt')

    open(unit=12,file='fout.txt')

    read(11,*) ((A(i,j),j=1,N),i=1,N),b

    call solve(A,b,x,N)   !x在這里面的作用

    write(12,101) x

    101 format(T5,'高斯消去法計算結(jié)果',/,T4,4(f12.8))

end program main

錯誤信息：
end module gauss
1
Fatal Error: Can't open module file 'D:\fortran_programming\gauss_1\main.os_output_dir/gauss.mod0' for writing at (1): No such file or directory
Process terminated with status 1 (0 minute(s), 0 second(s))
1 error(s), 0 warning(s) (0 minute(s), 0 second(s))

[ Last edited by jjdg on 2014-2-9 at 10:01 ]

回復此樓

» 猜你喜歡

本科新能源科學與工程，一志愿華理能動285求調(diào)劑已經(jīng)有5人回復
一志愿華北電力大學能動專碩，293，求調(diào)劑已經(jīng)有5人回復
調(diào)劑310 已經(jīng)有7人回復
食品工程專碩一志愿中海洋309求調(diào)劑已經(jīng)有6人回復
275求調(diào)劑已經(jīng)有14人回復
283求調(diào)劑已經(jīng)有3人回復
085602 化工專碩 338分求調(diào)劑已經(jīng)有12人回復
312，生物學求調(diào)劑已經(jīng)有3人回復
化學0703 調(diào)劑 306分一志愿211 已經(jīng)有4人回復
311（085601）求調(diào)劑已經(jīng)有3人回復

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

latex安裝過程中出現(xiàn)下面的問題，組件傳送錯誤，拒絕訪問，請問該怎么解決啊已經(jīng)有5人回復
fluent udf加載后無法運行的問題已經(jīng)有6人回復
你用的編譯器是什么，求推薦已經(jīng)有28人回復
intel visual fortran中MKL如何使用，是用use module還是include？已經(jīng)有4人回復
Elsevier無法建立pdf，求高人指教啊�。� 已經(jīng)有26人回復
64位計算機 64位fluent 64位c語言無法使UDF運行已經(jīng)有7人回復
求助vasp編譯好后無法運行問題？？已經(jīng)有24人回復
使用PGI編譯VASP中無法使用長數(shù)組已經(jīng)有5人回復
dl_poly_4.3編譯已經(jīng)有10人回復
openmpi安裝問題已經(jīng)有17人回復
Dalton2011并行編譯詳記已經(jīng)有33人回復
原來編譯的siesta突然不能用，重新編譯沒錯，運行出錯已經(jīng)有13人回復
有沒有哪位會fortain中動態(tài)數(shù)組��！已經(jīng)有5人回復
【求助】latex寫畢業(yè)論文，怎么用bibtex編譯.bib文件？已經(jīng)有4人回復
【求助】module里面能夠讓數(shù)組從外部接受一些數(shù)據(jù)嗎？【已完結(jié)】已經(jīng)有8人回復
【ChemiAndy個人文集】NBO5.G Standalone (GENNBO) Linux下的編譯和使用已經(jīng)有12人回復
【求助】安裝問題，安裝后程序無法執(zhí)行已經(jīng)有12人回復

Whenever you feel like criticizing any one,just remember that all the people in this world haven’t had the advantages that you’ve had.

1樓 2014-02-08 20:53:42

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

snoopyzhao

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

程序強帖: 16
應助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
紅花: 29
帖子: 3803
在線: 1422.4小時
蟲號: 183750
注冊: 2006-02-13
專業(yè): 污染生態(tài)化學

【答案】應助回帖

★ ★ ★ ★ ★ ★
感謝參與，應助指數(shù) +1
jjdg: 金幣+1, 感謝參與 2014-02-09 10:02:02
physliebe: 金幣+5 2014-02-09 12:21:04

至少用 gfortran 編譯你貼出來的代碼不止你上面提到的錯誤，但按照出錯信息去修改又不會有什么問題

1）你在程序中使用中文的感嘆號去注釋代碼是不行的
2）主程序中的隱式聲明不全，所以代碼是有問題的

消除了上面的兩個問題好象就可以了

不贊成使用隱式聲明，不贊成用 *8 這樣的非標準寫法……

贊一下

回復此樓

3樓2014-02-09 05:22:20

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

查看全部 5 個回答

physliebe

新蟲 (小有名氣)

應助: 0 (幼兒園)
金幣: 16.3
散金: 40
紅花: 1
帖子: 148
在線: 215.6小時
蟲號: 1933844
注冊: 2012-08-11
性別: GG
專業(yè): 計算數(shù)學與科學工程計算

微笑表情處為冒號‘：’

贊一下

回復此樓

Whenever you feel like criticizing any one,just remember that all the people in this world haven’t had the advantages that you’ve had.

2樓2014-02-08 20:56:04

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

physliebe

新蟲 (小有名氣)

應助: 0 (幼兒園)
金幣: 16.3
散金: 40
紅花: 1
帖子: 148
在線: 215.6小時
蟲號: 1933844
注冊: 2012-08-11
性別: GG
專業(yè): 計算數(shù)學與科學工程計算

引用回帖:

3樓: Originally posted by snoopyzhao at 2014-02-09 05:22:20
至少用 gfortran 編譯你貼出來的代碼不止你上面提到的錯誤，但按照出錯信息去修改又不會有什么問題

1）你在程序中使用中文的感嘆號去注釋代碼是不行的
2）主程序中的隱式聲明不全，所以代碼是有問題的

消除了 ...

謝謝，主要是我用了codeblocks13.12作為集成開發(fā)環(huán)境，沒有配置好Toolchain excutables

。標準寫法是不是real,dimension(8)呢？

贊一下

回復此樓

Whenever you feel like criticizing any one,just remember that all the people in this world haven’t had the advantages that you’ve had.

4樓2014-02-09 12:28:40

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

snoopyzhao

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

程序強帖: 16
應助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
紅花: 29
帖子: 3803
在線: 1422.4小時
蟲號: 183750
注冊: 2006-02-13
專業(yè): 污染生態(tài)化學

引用回帖:

4樓: Originally posted by physliebe at 2014-02-09 12:28:40
謝謝，主要是我用了codeblocks13.12作為集成開發(fā)環(huán)境，沒有配置好Toolchain excutables

。標準寫法是不是real,dimension(8)呢？...

real*8 a 的標準寫法是 real(kind=kind(1.0d0)) :: a或者更標準的寫法是：
integer, parameter :: dp = SELECTED_REAL_KIND(15,307)
real(kind=dp) :: a

贊一下

回復此樓

5樓2014-02-09 13:14:01

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

查看全部 5 個回答

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

[考研] 本科新能源科學與工程，一志愿華理能動285求調(diào)劑 +3	AZMK 2026-03-27	5/250	2026-03-28 16:19 by xxxsssccc
[考研] 一志愿華北電力大學能動專碩，293，求調(diào)劑 +3	15537177284 2026-03-23	5/250	2026-03-28 16:11 by xxxsssccc
[考研] 一志愿廈門大學化學學碩307求調(diào)劑 +10	y7czhao 2026-03-26	10/500	2026-03-28 14:23 by 唐沐兒
[考研] 329求調(diào)劑 +6	星野? 2026-03-26	6/300	2026-03-28 14:14 by 唐沐兒
[考研] 0703化學 +10	妮妮ninicgb 2026-03-27	10/500	2026-03-28 14:07 by 噠噠噠呱呱呱
[考研] 0703本科鄭州大學求調(diào)劑 +3	nhj_ 2026-03-25	3/150	2026-03-28 13:24 by Iveryant
[考研] 311求調(diào)劑 +4	冬十三 2026-03-24	4/200	2026-03-28 13:17 by 唐沐兒
[考研] 286求調(diào)劑 +12	PolarBear11 2026-03-26	12/600	2026-03-28 12:14 by zllcz
[考研] 266求調(diào)劑 +11	陽陽哇塞 2026-03-27	12/600	2026-03-27 17:56 by yu221
[考研] 考研化學308分求調(diào)劑 +10	你好明天你好 2026-03-23	12/600	2026-03-27 14:43 by shangxh
[考研] 286求調(diào)劑 +4	lim0922 2026-03-26	4/200	2026-03-27 10:28 by guoweigw
[碩博家園] 北京林業(yè)大學碩導招生廣告 +6	kongweilin 2026-03-26	8/400	2026-03-27 10:18 by FF_16
[考研] 求調(diào)劑 +8	Auroracx 2026-03-22	8/400	2026-03-26 19:55 by 不吃魚的貓
[考研] 環(huán)境專碩324分求調(diào)劑推薦 +5	軒小寧—— 2026-03-26	5/250	2026-03-26 12:05 by i_cooler
[考研] 考研調(diào)劑 +6	來好運來來來 2026-03-21	7/350	2026-03-25 22:43 by 418490947
[考研] 293求調(diào)劑 +7	加一一九 2026-03-24	7/350	2026-03-25 12:02 by userper
[考研] 318求調(diào)劑 +3	plum李子 2026-03-23	3/150	2026-03-25 09:42 by 霧散后相遇lc
[有機交流] 有機合成求助 20+3	FENGSHUJEI 2026-03-23	5/250	2026-03-24 19:31 by 88817753
[考研] 277分求調(diào)劑，跨調(diào)材料 +3	考研調(diào)劑lxh 2026-03-24	3/150	2026-03-24 13:52 by JourneyLucky
[考研] 一志愿東華大學化學070300，求調(diào)劑 +7	2117205181 2026-03-21	8/400	2026-03-22 22:55 by chixmc

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产 高清 中文字幕,99re热久久亚洲综合精品成人,熟妇 一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

24小時熱門版塊排行榜

physliebe

[求助] module無法編譯？ 已有1人參與

» 猜你喜歡

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

snoopyzhao

【答案】應助回帖

physliebe

physliebe

snoopyzhao

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产高清中文字幕,99re热久久亚洲综合精品成人,熟妇一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

[求助] module無法編譯？已有1人參與