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

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

24小時(shí)熱門版塊排行榜

返回列表

田山東

捐助貴賓 (著名寫手)

應(yīng)助: 5 (幼兒園)
金幣: 77
散金: 739
紅花: 8
帖子: 1577
在線: 138.1小時(shí)
蟲(chóng)號(hào): 800307
注冊(cè): 2009-06-28
性別: GG
專業(yè): 基礎(chǔ)物理學(xué)

[求助] 操蛋！形參實(shí)參調(diào)用怎么就是不正確呢？感覺(jué)是對(duì)的，怎么做都錯(cuò)�。。�！

各位大俠，大家好！
我有個(gè)程序，里面有兩個(gè)子程序，一個(gè)子程序用來(lái)產(chǎn)生矩陣H00,H10，另一個(gè)矩陣用來(lái)調(diào)用它們，為什么調(diào)用的時(shí)候會(huì)出錯(cuò)呢？
         PROGRAM MAIN
IMPLICIT REAL*8(A-H,O-Z)
   character fname*15
PARAMETER (N=34,t=2.8)
COMPLEX*16 H00(N,N),H10(N,N),H01(N,N),H12(N,N),H21(N,N)
OPEN(UNIT=1,STATUS='unknown',FILE='biaomian1.DAT')
CALL GMATRIX(T,N,H00,H10,H12)
   H00=H00
   H10=H10
   H12=H12
   DO IA=1,N
   DO IB=1,N
   WRITE(1,*) IA,IB,REAL(H10(IA,IB))
   ENDDO
   ENDDO
CALL CESHI(N,H00,H10)
END
subroutine GMATRIX(T,N,H00,H10,H12)
implicit real*8(a-h,o-z)
complex*16 i,H00(N,N),H10(N,N),H12(N,N)
H00=0.0D0
H10=0.0D0
   H12=0.0D0
   do J=1,N-1
H00(J,J+1)=-t
H00(J+1,J)=-t
enddo
   do j=1,N
if(mod(j,2)==1) then
H10(j,j)=-t
   endif
   enddo
   do j=1,N
   if(mod(j,2)==0) then
   H12(j,j)=-t
   endif
   enddo
RETURN
end
   subroutine  CESHI(M,H00,H10)
   implicit real*8(a-h,o-z)
complex*16 H00(m,m),H10(M,M)
   OPEN(UNIT=2,STATUS='unknown',FILE='JJJ1.DAT')
   DO IA=1,M
   DO IB=1,M
   WRITE(2,*) IA,IB,REAL(H10(IA,IA))
   ENDDO
   ENDDO
   return
   END
   好郁悶�。。【蛶仔凶�，就是檢查不出來(lái)哪里的問(wèn)題��！
草了��！
   誰(shuí)能幫我看下�。课沂菦](méi)招了��！
操蛋，搞了一晚上也沒(méi)看到到底哪里的問(wèn)題�。。�

[ 來(lái)自科研家族骷髏黨 ]

回復(fù)此樓

» 猜你喜歡

08工學(xué)調(diào)劑已經(jīng)有16人回復(fù)
0703化學(xué)調(diào)劑，求導(dǎo)師收已經(jīng)有7人回復(fù)
0854AI CV方向招收調(diào)劑已經(jīng)有3人回復(fù)
求調(diào)劑323材料與化工已經(jīng)有3人回復(fù)
生物學(xué)學(xué)碩求調(diào)劑已經(jīng)有9人回復(fù)
289求調(diào)劑已經(jīng)有8人回復(fù)
07化學(xué)280分求調(diào)劑已經(jīng)有5人回復(fù)
300分，材料，求調(diào)劑，英一數(shù)二已經(jīng)有4人回復(fù)
【考研調(diào)劑】化學(xué)專業(yè) 281分，一志愿四川大學(xué)，誠(chéng)心求調(diào)劑已經(jīng)有16人回復(fù)
0854電子信息求調(diào)劑已經(jīng)有7人回復(fù)

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

數(shù)二全書(shū)的封面張什么樣，我感覺(jué)買錯(cuò)了已經(jīng)有11人回復(fù)
實(shí)驗(yàn)操作步驟已經(jīng)有1人回復(fù)
求高人指點(diǎn)gas-phase grafting與氣相沉積有什么區(qū)別？如何操作？已經(jīng)有3人回復(fù)
在NCBI中查到一個(gè)基因怎么看操縱子和啟動(dòng)子區(qū)域？已經(jīng)有20人回復(fù)
SDS-PAGE和PAGE的區(qū)別（SDS-PAGE測(cè)出來(lái)的一定就是蛋白質(zhì)相對(duì)分子質(zhì)量？）已經(jīng)有17人回復(fù)
糖蛋白---分子動(dòng)力學(xué)模擬已經(jīng)有4人回復(fù)
求超低分子量蛋白SDS-PAGE測(cè)定方法已經(jīng)有6人回復(fù)
氣相儀器操作過(guò)程中基線一直升高怎么辦才好？已經(jīng)有4人回復(fù)
RP-C18柱層析（反相填料柱層析）具體怎么樣操作啊已經(jīng)有11人回復(fù)
【討論】感覺(jué)做做有機(jī)化學(xué)很累！已經(jīng)有24人回復(fù)
瘦身健美操（已近全部上傳完畢，喜歡的蟲(chóng)蟲(chóng)快去下載吧）已經(jīng)有149人回復(fù)

everythinghasitsseason.enjoyyourlife.

1樓 2012-06-10 21:36:27

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

snoopyzhao

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

程序強(qiáng)帖: 16
應(yīng)助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
紅花: 29
帖子: 3803
在線: 1422.4小時(shí)
蟲(chóng)號(hào): 183750
注冊(cè): 2006-02-13
專業(yè): 污染生態(tài)化學(xué)

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

★ ★ ★
感謝參與，應(yīng)助指數(shù) +1
田山東: 金幣+2, ★★★很有幫助 2012-06-11 09:03:07
田山東: 金幣+1, 能否幫忙看下？謝謝啊 2012-06-11 09:03:21

出錯(cuò)了，總得寫個(gè)出錯(cuò)信息吧？
要讓別人幫你查錯(cuò)，總得給個(gè)輸入文件吧？

你的主程序中的
   H00=H00
   H10=H10
   H12=H12
沒(méi)有必要啊

贊一下(1人)

回復(fù)此樓

2樓2012-06-10 22:03:28

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

田山東

捐助貴賓 (著名寫手)

應(yīng)助: 5 (幼兒園)
金幣: 77
散金: 739
紅花: 8
帖子: 1577
在線: 138.1小時(shí)
蟲(chóng)號(hào): 800307
注冊(cè): 2009-06-28
性別: GG
專業(yè): 基礎(chǔ)物理學(xué)

引用回帖:

2樓: Originally posted by snoopyzhao at 2012-06-10 22:03:28
出錯(cuò)了，總得寫個(gè)出錯(cuò)信息吧？
要讓別人幫你查錯(cuò)，總得給個(gè)輸入文件吧？

你的主程序中的
   H00=H00
   H10=H10
   H12=H12
沒(méi)有必要啊

謝謝關(guān)注！
是這樣的：子程序GMATRIX(T,N,H00,H10,H12)
定義了幾個(gè)數(shù)組，然后把數(shù)組H000，H10調(diào)入到子程序CESHI(M,H00,H10)，文件1 'biaomian1.DAT' 從外部寫H10，文件2，從子程序里把H10寫入到文件里，本來(lái)應(yīng)該得到兩個(gè)相同的數(shù)組，但是現(xiàn)在數(shù)組不同了。
一直沒(méi)看出來(lái)錯(cuò)在哪里
期待您的幫忙。謝謝啊

贊一下

回復(fù)此樓

everythinghasitsseason.enjoyyourlife.

3樓2012-06-11 09:02:48

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

田山東

捐助貴賓 (著名寫手)

應(yīng)助: 5 (幼兒園)
金幣: 77
散金: 739
紅花: 8
帖子: 1577
在線: 138.1小時(shí)
蟲(chóng)號(hào): 800307
注冊(cè): 2009-06-28
性別: GG
專業(yè): 基礎(chǔ)物理學(xué)

引用回帖:

找到問(wèn)題了
DO IA=1,M
   DO IB=1,M
   WRITE(2,*) IA,IB,REAL(H10(IA,IA))
   ENDDO
   ENDDO

寫錯(cuò)了  REAL(H10(IA,IB))

贊一下

回復(fù)此樓

everythinghasitsseason.enjoyyourlife.

4樓2012-06-11 09:33:38

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

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

返回列表

普通表情龍兔虎貓

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

[考研] 求調(diào)劑 +6	研研，接電話 2026-03-24	7/350	2026-03-24 17:01 by barlinike
[考研] 求調(diào)劑一志愿武漢理工大學(xué)材料工程（085601） +5	WW.' 2026-03-23	7/350	2026-03-24 14:50 by sprinining
[考研] 【雙一流院校新能源、環(huán)境材料，材料加工與模擬招收大量調(diào)劑】 +4	Higraduate 2026-03-22	7/350	2026-03-24 11:23 by 種大樹(shù)
[考研] 求調(diào)劑 +7	十三加油 2026-03-21	7/350	2026-03-23 23:48 by 熱情沙漠
[考研] 291求調(diào)劑 +8	hhhhxn.. 2026-03-23	8/400	2026-03-23 23:15 by peike
[考研] 327求調(diào)劑 +5	prayer13 2026-03-23	5/250	2026-03-23 22:11 by 星空星月
[考研] 一志愿中南大學(xué)化學(xué)學(xué)碩0703總分337求調(diào)劑 +5	niko- 2026-03-22	5/250	2026-03-23 22:01 by fuyu_
[考研] 化學(xué)308分求調(diào)劑 +3	你好明天你好 2026-03-23	3/150	2026-03-23 20:11 by macy2011
[考研] 一志愿西安交通大學(xué)材料工程專業(yè) 282分求調(diào)劑 +11	楓橋ZL 2026-03-18	13/650	2026-03-22 20:26 by edmund7
[考研] 311求調(diào)劑 +6	冬十三 2026-03-18	6/300	2026-03-22 20:18 by edmund7
[考研] 一志愿華中農(nóng)業(yè)071010，總分320求調(diào)劑 +5	困困困困坤坤 2026-03-20	6/300	2026-03-22 17:41 by hxsm
[考博] 招收博士1-2人 +3	QGZDSYS 2026-03-18	4/200	2026-03-22 10:25 by QGZDSYS
[考研] 279求調(diào)劑 +5	紅衣隱官 2026-03-21	5/250	2026-03-21 14:59 by lature00
[考研] 330求調(diào)劑0854 +3	assdll 2026-03-21	3/150	2026-03-21 13:01 by 搏擊518
[考研] 332求調(diào)劑 +3	鳳凰院丁真 2026-03-20	3/150	2026-03-21 10:27 by luoyongfeng
[考研] 一志愿重慶大學(xué)085700資源與環(huán)境專碩，總分308求調(diào)劑 +3	墨墨漠 2026-03-18	3/150	2026-03-21 00:39 by JourneyLucky
[考研] 304求調(diào)劑 +6	曼殊2266 2026-03-18	6/300	2026-03-21 00:32 by JourneyLucky
[考研] 一志愿西南交大，求調(diào)劑 +5	材化逐夢(mèng)人 2026-03-18	5/250	2026-03-21 00:26 by JourneyLucky
[考研] 材料學(xué)碩318求調(diào)劑 +5	February_Feb 2026-03-19	5/250	2026-03-19 23:51 by 23Postgrad
[考研] 收復(fù)試調(diào)劑生 +4	雨后秋荷 2026-03-18	4/200	2026-03-18 14:16 by elevennnne

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

24小時(shí)熱門版塊排行榜

田山東

[求助] 操蛋！形參實(shí)參調(diào)用怎么就是不正確呢？感覺(jué)是對(duì)的，怎么做都錯(cuò)�。。�！

» 猜你喜歡

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

snoopyzhao

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

田山東

田山東

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

[求助] 操蛋！形參實(shí)參調(diào)用怎么就是不正確呢？感覺(jué)是對(duì)的，怎么做都錯(cuò)�。。�！

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