版塊導(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í)熱門(mén)版塊排行榜

返回列表

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

霹靂旋風(fēng)

榮譽(yù)版主 (著名寫(xiě)手)

應(yīng)助: 3 (幼兒園)
貴賓: 0.95
金幣: 6428.7
散金: 100
紅花: 4
帖子: 1124
在線: 175.7小時(shí)
蟲(chóng)號(hào): 62568
注冊(cè): 2005-03-17
性別: GG
專業(yè): 爆炸與沖擊動(dòng)力學(xué)

[求助] 求高人幫忙看一下我這個(gè)Fortran程序的錯(cuò)誤出在哪里？

程序代碼如下：

program ganeiliwucha
            implicit none
External FS
Integer I,L,N
Dimension X(2),Y(2),C(2)
Double Precision X, Y, EPS,C
open (2000, file='test.dat', status='old' )
Data X/0.00,0.01/
   EPS=1.0E-06
CALL DSNSE(2,EPS, X, Y, FS, L)
IF(L.GT.0)then
   C(1)=cos(X(2))/sin(X(1)+X(2))*tan(20.0/180*3.14)-1.0 ! AC桿的內(nèi)力誤差
C(2)=cos(X(1))/sin(X(1)+X(2))*sin(20.0/180*3.14)-1.0 ! BC桿的內(nèi)力誤差
do I=1,2
write(2000,*) X(I)
end do
end IF
close(2000)
end

SUBROUTINE DSNSE(N,EPS,X,Y,FS,L)
DIMENSION X(N),Y(N)
DOUBLE PRECISION X,Y,F,D,S
L=500
5 CALL FS(X,N,F,Y)
IF (F.GE.EPS) THEN
   L=L-1
   IF (L.EQ.0) RETURN
   D=0.0
   DO 20 J=1,N
20    D=D+Y(J)*Y(J)
   IF (D+1.0.EQ.1.0) THEN
      L=-1
      RETURN
   END IF
   S=F/D
   DO 30 I=1,N
30    X(I)=X(I)-S*Y(I)
   GOTO 5
END IF
RETURN
END

SUBROUTINE FS(X, N, F, Y)
DIMENSION X(N), Y(N)
Double precision X,Y,F,F1,F2,DF1,DF2,A,B
   A=20.0/180*3.14
   K=0.5
   F1=X(1)+X(2)-cos(A)
   F2=sin(X(1))*cos(A)*(1+K*cotan(A))+SIN(X(2))*(1.0-K/sin(A))-cos(A)
   F=F1*F1+F2*F2
   DF1=1.0
   DF2=cos(X(1))*cos(A)*(1+K*cotan(A))
   Y(1)=2.0*(F1*DF1+F2*DF2)
   DF1=1.0
   DF2=COS(X(2))*(1.0-K/sin(A))
   Y(2)=2.0*(F1*DF1+F2*DF2)
RETURN
END

  程序編譯通過(guò)，但是出現(xiàn)計(jì)算數(shù)據(jù)無(wú)法輸出的問(wèn)題，請(qǐng)高手幫忙看一下。不勝感激。

回復(fù)此樓

» 猜你喜歡

284求調(diào)劑已經(jīng)有10人回復(fù)
一志愿山東大學(xué)藥學(xué)學(xué)碩求調(diào)劑已經(jīng)有4人回復(fù)
07化學(xué)280分求調(diào)劑已經(jīng)有4人回復(fù)
298-一志愿中國(guó)農(nóng)業(yè)大學(xué)-求調(diào)劑已經(jīng)有12人回復(fù)
求材料，環(huán)境專業(yè)調(diào)劑已經(jīng)有3人回復(fù)
335求調(diào)劑已經(jīng)有5人回復(fù)
求調(diào)劑已經(jīng)有7人回復(fù)
一志愿吉大化學(xué)322求調(diào)劑已經(jīng)有4人回復(fù)
環(huán)境學(xué)碩288求調(diào)劑已經(jīng)有8人回復(fù)
341求調(diào)劑(一志愿湖南大學(xué)070300) 已經(jīng)有6人回復(fù)

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

FORTRAN屬性聲明出錯(cuò) 已經(jīng)有8人回復(fù)
有會(huì)看fortran程序的，能幫忙看看這個(gè)程序嗎？已經(jīng)有10人回復(fù)
求助計(jì)算機(jī)高人，編寫(xiě)個(gè)Fortran程序已經(jīng)有13人回復(fù)
請(qǐng)教一個(gè)fortran小程序編譯出錯(cuò)的問(wèn)題，謝謝已經(jīng)有9人回復(fù)
寫(xiě)了一個(gè)fortran90的小程序，編譯通不過(guò)，請(qǐng)大俠幫忙已經(jīng)有59人回復(fù)
【求助】讀文本數(shù)據(jù)出現(xiàn)段錯(cuò)誤[fortran] 已經(jīng)有14人回復(fù)
【求助】如何寫(xiě)FORTRAN程序?qū)崿F(xiàn)求平均最近鄰距離已經(jīng)有34人回復(fù)
【求助】運(yùn)行fortran程序出現(xiàn)錯(cuò)誤 : error LNK2019 怎么回事啊已經(jīng)有8人回復(fù)
【求助】用fortran怎么描述下面這樣的情況，我是新手，請(qǐng)大家?guī)兔?/a> 已經(jīng)有8人回復(fù)

【求助】fortran程序未出錯(cuò)，但運(yùn)行不出結(jié)果，中途中斷！已經(jīng)有6人回復(fù)
【求助】此FORTRAN90程序沒(méi)有錯(cuò)誤，但是運(yùn)行不出來(lái)。已經(jīng)有4人回復(fù)
【求助】用fortran求解大型線性方程組時(shí)出現(xiàn)的錯(cuò)誤【已解決】已經(jīng)有11人回復(fù)
【求助】求助個(gè)Fortran計(jì)算，應(yīng)該不難，半天搞不定，請(qǐng)高手幫忙已經(jīng)有11人回復(fù)

1樓 2012-02-18 21:24:39

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

霹靂旋風(fēng)

榮譽(yù)版主 (著名寫(xiě)手)

應(yīng)助: 3 (幼兒園)
貴賓: 0.95
金幣: 6428.7
散金: 100
紅花: 4
帖子: 1124
在線: 175.7小時(shí)
蟲(chóng)號(hào): 62568
注冊(cè): 2005-03-17
性別: GG
專業(yè): 爆炸與沖擊動(dòng)力學(xué)

引用回帖:

樓: Originally posted by haizhfly at 2012-02-19 11:21:31:
open (2000, file='test.dat', status='old' )
write(2000,*) X(I)

status='old' 要求輸出文本 test.dat是已經(jīng)存在的文件，刪去這一文件狀態(tài)控制語(yǔ)句試一下看，個(gè)人覺(jué)得最大問(wèn)題在這里

這個(gè)我已經(jīng)調(diào)試過(guò)。文件能編譯完，也能運(yùn)行，就是沒(méi)有輸出結(jié)果。

贊一下

回復(fù)此樓

4樓2012-02-19 19:48:38

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

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

夕陽(yáng)西下

金蟲(chóng) (著名寫(xiě)手)

應(yīng)助: 138 (高中生)
貴賓: 0.041
金幣: 9247.1
散金: 73
紅花: 28
沙發(fā): 1
帖子: 1268
在線: 1164.4小時(shí)
蟲(chóng)號(hào): 220750
注冊(cè): 2006-03-20
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)
管轄: 物理

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

感謝參與，應(yīng)助指數(shù) +1
jjdg(金幣+1): 感謝應(yīng)助 2012-02-20 01:39:45

open (2000, file='test.dat', status='old' )
write(2000,*) X(I)
write 2000這樣寫(xiě)是不是有問(wèn)題呢？

贊一下

回復(fù)此樓

2樓2012-02-19 09:17:19

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

haizhfly

木蟲(chóng) (正式寫(xiě)手)

應(yīng)助: 16 (小學(xué)生)
金幣: 3134.8
帖子: 316
在線: 67.4小時(shí)
蟲(chóng)號(hào): 925614
注冊(cè): 2009-12-11
專業(yè): 天氣學(xué)

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

感謝參與，應(yīng)助指數(shù) +1
jjdg(金幣+1): 感謝應(yīng)助 2012-02-20 01:39:55

open (2000, file='test.dat', status='old' )
write(2000,*) X(I)

status='old' 要求輸出文本 test.dat是已經(jīng)存在的文件，刪去這一文件狀態(tài)控制語(yǔ)句試一下看，個(gè)人覺(jué)得最大問(wèn)題在這里

贊一下

回復(fù)此樓

3樓2012-02-19 11:21:31

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

ygl820

至尊木蟲(chóng) (知名作家)

應(yīng)助: 133 (高中生)
金幣: 52981.5
散金: 1007
紅花: 47
沙發(fā): 94
帖子: 7107
在線: 1048.4小時(shí)
蟲(chóng)號(hào): 81941
注冊(cè): 2005-07-22
性別: GG
專業(yè): 有機(jī)合成

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

感謝參與，應(yīng)助指數(shù) +1
霹靂旋風(fēng)(金幣+10): 謝謝 2012-02-21 10:29:01

按你的意思，將文件test.dat作為輸出了，運(yùn)行完成后后，打開(kāi)它。fortran文件操作性不強(qiáng)，看看test.dat是否只讀。

贊一下

回復(fù)此樓

5樓2012-02-21 10:24:17

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

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

普通表情龍兔虎貓

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

[考研] 環(huán)境學(xué)碩288求調(diào)劑 +8	皮皮皮123456 2026-03-22	8/400	2026-03-23 23:47 by 熱情沙漠
[考研] 材料/農(nóng)業(yè)專業(yè)，07/08開(kāi)頭均可，過(guò)線就行 +3	呵唔哦豁 2026-03-23	4/200	2026-03-23 22:30 by 汪�。�！
[考研] 一志愿中南大學(xué)化學(xué)學(xué)碩0703總分337求調(diào)劑 +5	niko- 2026-03-22	5/250	2026-03-23 22:01 by fuyu_
[考研] 一志愿武理材料工程348求調(diào)劑 +6	￣^￣゜汗 2026-03-19	9/450	2026-03-23 19:53 by pswait
[考研] 0703化學(xué)求調(diào)劑 +4	奶油草莓. 2026-03-22	5/250	2026-03-23 19:37 by pswait
[考研] 一志愿陜師大生物學(xué)071000，298分，求調(diào)劑 +3	SYA！ 2026-03-23	3/150	2026-03-23 19:09 by macy2011
[考研] 328求調(diào)劑 +4	LHHL66 2026-03-23	4/200	2026-03-23 14:55 by lbsjt
[考研] 招08考數(shù)學(xué) +6	laoshidan 2026-03-20	14/700	2026-03-23 14:37 by 15614359529
[考研] 352求調(diào)劑 +3	大米飯！ 2026-03-22	3/150	2026-03-22 23:28 by king123！
[考研] 一志愿西安交通大學(xué)材料工程專業(yè) 282分求調(diào)劑 +11	楓橋ZL 2026-03-18	13/650	2026-03-22 20:26 by edmund7
[考研] 08工科 320總分求調(diào)劑 +11	梨花珞晚風(fēng) 2026-03-17	11/550	2026-03-22 17:42 by luoyongfeng
[考研] 一志愿西北大學(xué) ，070300化學(xué)學(xué)碩，總分287，雙非一本，求調(diào)劑。 +3	晨昏線與星海 2026-03-20	3/150	2026-03-22 16:00 by ColorlessPI
[考研] 0856材料專碩353求調(diào)劑 +4	NIFFFfff 2026-03-20	4/200	2026-03-22 09:49 by 2026paper
[基金申請(qǐng)] 學(xué)校已經(jīng)提交到NSFC，還能修改嗎？ 40+4	babangida 2026-03-19	9/450	2026-03-21 16:12 by babangida
[考研] 22 350 本科985求調(diào)劑，求老登收留 +3	李軼男003 2026-03-20	3/150	2026-03-21 13:28 by 搏擊518
[考研] 332求調(diào)劑 +4	ydfyh 2026-03-17	4/200	2026-03-21 02:20 by JourneyLucky
[考研] 南京大學(xué)化學(xué)376求調(diào)劑 +3	hisfailed 2026-03-19	6/300	2026-03-20 23:43 by hisfailed
[考研] 一志愿蘇州大學(xué)材料求調(diào)劑，總分315（英一） +5	sbdksD 2026-03-19	5/250	2026-03-20 22:10 by luoyongfeng
[考研] 一志愿福大288有機(jī)化學(xué)，求調(diào)劑 +3	小木蟲(chóng)200408204 2026-03-18	3/150	2026-03-19 13:31 by houyaoxu
[考研] 本科鄭州大學(xué)物理學(xué)院，一志愿華科070200學(xué)碩，346求調(diào)劑 +4	我不是一根蔥 2026-03-18	4/200	2026-03-19 09:11 by 浮云166