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

登錄注冊

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

24小時熱門版塊排行榜

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

返回列表

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

霹靂旋風

榮譽版主 (著名寫手)

應助: 3 (幼兒園)
貴賓: 0.95
金幣: 6428.7
散金: 100
紅花: 4
帖子: 1124
在線: 175.7小時
蟲號: 62568
注冊: 2005-03-17
性別: GG
專業(yè): 爆炸與沖擊動力學

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

程序代碼如下：

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

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

回復此樓

» 猜你喜歡

332求調(diào)劑已經(jīng)有5人回復
085701求調(diào)劑初試286分已經(jīng)有3人回復
材料工程294求調(diào)劑已經(jīng)有4人回復
本科新能源科學與工程，一志愿華理能動285求調(diào)劑已經(jīng)有10人回復
070305高分子化學與物理 304分求調(diào)劑已經(jīng)有5人回復
083000學碩274求調(diào)劑已經(jīng)有8人回復
一志愿北京化工大學材料與化工（085600）296求調(diào)劑已經(jīng)有10人回復
求調(diào)劑一志愿海大，0703化學學碩304分，有大創(chuàng)項目，四級已過已經(jīng)有11人回復
071000生物學求調(diào)劑，初試成績343 已經(jīng)有7人回復
0703化學調(diào)劑，求導師收已經(jīng)有8人回復

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

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

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

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

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

ygl820

至尊木蟲 (知名作家)

應助: 133 (高中生)
金幣: 53171.9
散金: 1007
紅花: 48
沙發(fā): 94
帖子: 7141
在線: 1051.8小時
蟲號: 81941
注冊: 2005-07-22
性別: GG
專業(yè): 有機合成

運行后，test.dat生成了沒有。

贊一下

回復此樓

7樓2012-02-21 10:31:22

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

查看全部 13 個回答

夕陽西下

金蟲 (著名寫手)

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

【答案】應助回帖

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

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

贊一下

回復此樓

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

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

haizhfly

木蟲 (正式寫手)

應助: 16 (小學生)
金幣: 3134.8
帖子: 316
在線: 67.4小時
蟲號: 925614
注冊: 2009-12-11
專業(yè): 天氣學

【答案】應助回帖

感謝參與，應助指數(shù) +1
jjdg(金幣+1): 感謝應助 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)控制語句試一下看，個人覺得最大問題在這里

贊一下

回復此樓

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

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

霹靂旋風

榮譽版主 (著名寫手)

應助: 3 (幼兒園)
貴賓: 0.95
金幣: 6428.7
散金: 100
紅花: 4
帖子: 1124
在線: 175.7小時
蟲號: 62568
注冊: 2005-03-17
性別: GG
專業(yè): 爆炸與沖擊動力學

引用回帖:

樓: 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)控制語句試一下看，個人覺得最大問題在這里

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

贊一下

回復此樓

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

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

查看全部 13 個回答

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

[考研] 一志愿太原理工安全工程300分，求調(diào)劑 +4	0857求調(diào)劑. 2026-03-24	5/250	2026-03-28 13:45 by 求知若渴lz
[考研] 材料277求調(diào)劑 +7	min3 2026-03-24	7/350	2026-03-28 11:39 by xuxiang
[考研] 材料求調(diào)劑一志愿哈工大總分298分，前三科223分 +5	dongfang59 2026-03-27	5/250	2026-03-28 04:53 by wxiongid
[考研] 070300化學求調(diào)劑 +4	起個名咋這么難 2026-03-27	4/200	2026-03-27 21:39 by 83503孫老師
[考研] 安徽大學專碩生物與醫(yī)藥專業(yè)(086000)324分，英語已過四六級，六級521，求調(diào)劑 +4	美味可樂雞翅 2026-03-26	4/200	2026-03-27 15:27 by 星空星月
[考研] 298調(diào)劑 +3	jiyingjie123 2026-03-27	3/150	2026-03-27 11:57 by wxiongid
[考研] 一志愿鄭大085600，310分求調(diào)劑 +5	李瀟可 2026-03-26	5/250	2026-03-27 11:14 by 不吃魚的貓
[考研] 考研調(diào)劑 +9	小蠟新筆 2026-03-26	9/450	2026-03-27 11:10 by 不吃魚的貓
[考研] 324求調(diào)劑 +8	hanamiko 2026-03-26	10/500	2026-03-27 08:06 by hypershenger
[考研] 調(diào)劑 +4	柚柚yoyo 2026-03-26	4/200	2026-03-26 20:43 by fmesaito
[考研] 340求調(diào)劑 +3	Amber00 2026-03-26	3/150	2026-03-26 18:57 by 不吃魚的貓
[考研] 281求調(diào)劑 +6	Koxui 2026-03-24	7/350	2026-03-26 15:37 by 無際的草原
[考研] 263求調(diào)劑 +6	yqdszhdap－ 2026-03-22	10/500	2026-03-26 13:11 by 公瑾逍遙
[考研] 一志愿天津大學339材料與化工求調(diào)劑 +3	江往賣魚 2026-03-26	3/150	2026-03-26 09:42 by 王小欠i
[考研] 086003食品工程求調(diào)劑 +6	淼淼111 2026-03-24	6/300	2026-03-25 10:29 by 3Strings
[考研] B區(qū)考研調(diào)劑 +4	yqdszhdap－ 2026-03-22	5/250	2026-03-25 08:51 by baoball
[考研] 求調(diào)劑 +6	研研，接電話 2026-03-24	7/350	2026-03-24 17:01 by barlinike
[考研] 361求調(diào)劑 +3	Glack 2026-03-22	3/150	2026-03-23 22:03 by fuyu_
[論文投稿] 急發(fā)核心期刊論文 +3	賢達問津 2026-03-23	5/250	2026-03-23 17:13 by 妹子不好惹
[考研] 接收2026碩士調(diào)劑(學碩+專碩) +4	allen-yin 2026-03-23	6/300	2026-03-23 15:04 by 汪��？！

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

24小時熱門版塊排行榜

霹靂旋風

[求助] 求高人幫忙看一下我這個Fortran程序的錯誤出在哪里？

» 猜你喜歡

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

ygl820

夕陽西下

【答案】應助回帖

haizhfly

【答案】應助回帖

霹靂旋風

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

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

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