Fortran 板


LINE

不好意思麻煩大家..因為實在不知道哪邊寫錯了 我在輸出和讀入資料的時候遇到一些問題 是不是在輸出的時候要先加上什麼東西呢?? 輸出------------------------------------------------------------------------ open(110,file='5MIN_AEVCI.dat',FORM='UNFORMATTED',status='unknown' &) do 11 KBIN=1,12 do 11 K=1,KMAX do 11 J=2,JMAX-1 MINAE(J,K,KBIN)=AE_VC(J,K,KBIN)*(ZF(J,K,islab)-Z(J,K,islab &))*2 write(110) MINAE(J,K,KBIN) 11 CONTINUE 讀取------------------------------------------------------------------------- open(INUNIT,File='5MIN_AEVCI.dat',FORM='UNFORMATTED',status='old') 第74行 READ(INUNIT)(((AE_VCI(J,K,L),J=2,JMAX-1),K=1,KMAX), & L=1, NAESPCOUT) 出現的錯誤------------------------------------------------------------------- PGFIO-F-219/unformatted read/unit=11/attempt to read/write past end of record. File name = 5MIN_AEVCI.dat unformatted, sequential access record = 1 In source file 5mintry.f, at line number 74 ---------------------------------------------------------------------------- 如果不用unformatted輸出的話.. 資料是像下面這樣 3.6449607681202432E-037 3.6493025809621877E-037 3.6357899655672954E-037 3.6318533166251616E-037 3.7365197930938510E-037 3.7316978668172212E-037 3.7294360396780513E-037 3.7398506412974553E-037 3.7566946674209580E-037 3.7323520205207537E-037 3.6834112490660513E-037 3.6589294844909537E-037 3.6579850385864172E-037 3.6698484744790423E-037 3.6417049057009496E-037 3.6704100834783961E-037 3.6585016593274613E-037 3.6385966176596996E-037 3.6369163417661547E-037 3.6356397283800290E-037 3.6327449143013615E-037 3.6355295349980112E-037 3.6783578307214091E-037 3.7180206963475433E-037 3.6809276362847143E-037 3.6569071042760060E-037 3.6774773084844217E-037 3.6458393898403516E-037 3.6409074418684861E-037 3.6374602109642140E-037 --



※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 219.70.173.78
1F:推 DMFC:這樣輸出有啥問題嬤 @_@?? 很正常呀..你的目的是???? 01/22 20:12
2F:→ DMFC:如果是unformated問題..那就別給unformated 嘍..預設就是unfo 01/22 20:13
3F:→ DMFC:FORM 跟 status 都不是必要給的..這兩個都有預設值了y 01/22 20:13







like.gif 您可能會有興趣的文章
icon.png[問題/行為] 貓晚上進房間會不會有憋尿問題
icon.pngRe: [閒聊] 選了錯誤的女孩成為魔法少女 XDDDDDDDDDD
icon.png[正妹] 瑞典 一張
icon.png[心得] EMS高領長版毛衣.墨小樓MC1002
icon.png[分享] 丹龍隔熱紙GE55+33+22
icon.png[問題] 清洗洗衣機
icon.png[尋物] 窗台下的空間
icon.png[閒聊] 双極の女神1 木魔爵
icon.png[售車] 新竹 1997 march 1297cc 白色 四門
icon.png[討論] 能從照片感受到攝影者心情嗎
icon.png[狂賀] 賀賀賀賀 賀!島村卯月!總選舉NO.1
icon.png[難過] 羨慕白皮膚的女生
icon.png閱讀文章
icon.png[黑特]
icon.png[問題] SBK S1安裝於安全帽位置
icon.png[分享] 舊woo100絕版開箱!!
icon.pngRe: [無言] 關於小包衛生紙
icon.png[開箱] E5-2683V3 RX480Strix 快睿C1 簡單測試
icon.png[心得] 蒼の海賊龍 地獄 執行者16PT
icon.png[售車] 1999年Virage iO 1.8EXi
icon.png[心得] 挑戰33 LV10 獅子座pt solo
icon.png[閒聊] 手把手教你不被桶之新手主購教學
icon.png[分享] Civic Type R 量產版官方照無預警流出
icon.png[售車] Golf 4 2.0 銀色 自排
icon.png[出售] Graco提籃汽座(有底座)2000元誠可議
icon.png[問題] 請問補牙材質掉了還能再補嗎?(台中半年內
icon.png[問題] 44th 單曲 生寫竟然都給重複的啊啊!
icon.png[心得] 華南紅卡/icash 核卡
icon.png[問題] 拔牙矯正這樣正常嗎
icon.png[贈送] 老莫高業 初業 102年版
icon.png[情報] 三大行動支付 本季掀戰火
icon.png[寶寶] 博客來Amos水蠟筆5/1特價五折
icon.pngRe: [心得] 新鮮人一些面試分享
icon.png[心得] 蒼の海賊龍 地獄 麒麟25PT
icon.pngRe: [閒聊] (君の名は。雷慎入) 君名二創漫畫翻譯
icon.pngRe: [閒聊] OGN中場影片:失蹤人口局 (英文字幕)
icon.png[問題] 台灣大哥大4G訊號差
icon.png[出售] [全國]全新千尋侘草LED燈, 水草

請輸入看板名稱,例如:Tech_Job站內搜尋

TOP