 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 6 | 1/1 | 返回列表 |
| 查看: 1013 | 回復(fù): 5 | ||
木木菜金蟲 (小有名氣)
|
[求助]
fortran文件問題
|
|
我想將計算結(jié)果p（i，j）存儲到dat文件，并且輸出的dat文件按輸出順序命名如‘1.dat’，‘2.dat’。。。。。這樣···那下面的程序要怎么改，求幫助····謝謝哈~~ subroutine datasave(p) integer::size1=nx,size2=ny real, allocate:  p(size1,size2))integer i, j,num character allocate::name(  num=time1/output open(num, file='num.dat', status='new', rec=num) do j=1,ny do i=1,nx write(num, '(f16.8)',rec=num) p(i,j) enddo write(num,*) '\n' enddo deallocate (p) close(num) end datasave |
回復(fù)此樓» 猜你喜歡
求收留
已經(jīng)有5人回復(fù)
-
375求調(diào)劑
已經(jīng)有4人回復(fù)
-
340求調(diào)劑
已經(jīng)有6人回復(fù)
-
298求調(diào)劑
已經(jīng)有3人回復(fù)
-
085601材料工程找調(diào)劑
已經(jīng)有9人回復(fù)
-
考研調(diào)劑
已經(jīng)有4人回復(fù)
-
面上5B能上會嗎？
已經(jīng)有3人回復(fù)
-
求調(diào)劑，一志愿 南京航空航天大學(xué) ，080500材料科學(xué)與工程學(xué)碩，總分289分
已經(jīng)有7人回復(fù)
-
086000生物與醫(yī)藥調(diào)劑
已經(jīng)有9人回復(fù)
-
343求調(diào)劑
已經(jīng)有6人回復(fù)
» 本主題相關(guān)價值貼推薦，對您同樣有幫助:
- fortran讀寫問題
已經(jīng)有6人回復(fù)
- FORTRAN中如何實現(xiàn)重復(fù)讀取一行？
已經(jīng)有24人回復(fù)
- 急求fortran運(yùn)行錯誤原因，在線等
已經(jīng)有7人回復(fù)
- fortran程序open文件時的簡單問題
已經(jīng)有3人回復(fù)
- fortran轉(zhuǎn)換CHGCAR出錯
已經(jīng)有4人回復(fù)
- Fortran 編譯問題
已經(jīng)有9人回復(fù)
- 請教一個fortran小程序編譯出錯的問題，謝謝
已經(jīng)有9人回復(fù)
- Fortran的格式化輸入輸出問題
已經(jīng)有14人回復(fù)
- 三維數(shù)組換行輸入到文件（intel fortran 編譯器）
已經(jīng)有6人回復(fù)
- fortran兩個問題，文件中的空格，屏幕同一行覆蓋輸出
已經(jīng)有23人回復(fù)
- 有關(guān)fortran的一次而問題，希望大家能幫幫忙，謝謝
已經(jīng)有4人回復(fù)
- 【求助】FORTRAN寫文件時每行開頭都多了一個空格？
已經(jīng)有6人回復(fù)
- 【求助】求助fortran中一個調(diào)用文件的問題
已經(jīng)有3人回復(fù)
- 【求助】Fortran編譯目標(biāo)文件后的鏈接問題
已經(jīng)有4人回復(fù)
- 【求助】fortran中怎么存儲不確定長度的數(shù)據(jù)【已完結(jié)】
已經(jīng)有6人回復(fù)
- 【求助】Fortran程序，如何讓exe文件可以單獨(dú)運(yùn)行？
已經(jīng)有6人回復(fù)
- 【求助】Fortran 如何讀取文件中特定行的內(nèi)容
已經(jīng)有16人回復(fù)
- 【求助】matlab讀取fortran輸出的txt文件【已解決】
已經(jīng)有3人回復(fù)
- 【交流】Fortran語言答疑專帖
已經(jīng)有157人回復(fù)
2樓2013-07-29 15:59:42
木木菜
金蟲 (小有名氣)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 1941.8
- 散金: 196
- 紅花: 2
- 帖子: 186
- 在線: 202.1小時
- 蟲號: 1945963
- 注冊: 2012-08-19
- 專業(yè): 金屬結(jié)構(gòu)材料
3樓2013-07-29 16:42:45
【答案】應(yīng)助回帖
★ ★ ★ ★ ★
木木菜: 金幣+5, ★★★★★最佳答案, 謝謝哈~~~ 2013-07-30 11:29:50
木木菜: 金幣+5, ★★★★★最佳答案, 謝謝哈~~~ 2013-07-30 11:29:50
|
把num=time1/output open(num, file='num.dat', status='new', rec=num) do j=1,ny do i=1,nx write(num, '(f16.8)',rec=num) p(i,j) enddo write(num,*) '\n' enddo 改為 character(len=2)::temp num=int（time1/output） write(temp,'(i2)')num open(num, file=trim(adjustl(temp))//'.dat', status='new') do j=1,ny write(num, *) p(:,j） enddo [ 發(fā)自手機(jī)版 http://www.gaoyang168.com/3g ] |
4樓2013-07-29 18:37:56
木木菜
金蟲 (小有名氣)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 1941.8
- 散金: 196
- 紅花: 2
- 帖子: 186
- 在線: 202.1小時
- 蟲號: 1945963
- 注冊: 2012-08-19
- 專業(yè): 金屬結(jié)構(gòu)材料
5樓2013-07-30 11:39:38
6樓2013-07-30 12:47:58
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 木木菜 的主題更新
| 6 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 求調(diào)劑一志愿武漢理工大學(xué)材料工程（085601） +6 | WW.' 2026-03-23 | 8/400 |
|
|---|---|---|---|---|
|
[考研] 298求調(diào)劑 +4 | 種圣賜 2026-03-28 | 4/200 |
|
|
|
[考研] 0703化學(xué) +11 | 妮妮ninicgb 2026-03-27 | 11/550 |
|
|
|
[考研] 22408 359分調(diào)劑 +4 | Qshers 2026-03-27 | 5/250 |
|
|
|
[考研] 085701求調(diào)劑初試286分 +4 | secret0328 2026-03-28 | 4/200 |
|
|
|
[考研] 304求調(diào)劑 +6 | 曼殊2266 2026-03-27 | 6/300 |
|
|
|
[考研] 070300求調(diào)劑306分 +4 | 26要上岸 2026-03-27 | 4/200 |
|
|
|
[考研] 085600 286分 材料求調(diào)劑 +7 | 麻辣魷魚 2026-03-27 | 8/400 |
|
|
|
[考研] 339求調(diào)劑，想調(diào)回江蘇 +6 | 烤麥芽 2026-03-27 | 8/400 |
|
|
|
[考研] 材料求調(diào)劑一志愿哈工大324 +7 | 閆旭東 2026-03-28 | 9/450 |
|
|
|
[考研] 085701環(huán)境工程求調(diào)劑 +9 | 多久上課 2026-03-27 | 9/450 |
|
|
|
[考研] 265求調(diào)劑 +8 | 小木蟲085600 2026-03-27 | 8/400 |
|
|
|
[有機(jī)交流]
高溫高壓反應(yīng)求助
 10+4
|
chibby 2026-03-25 | 4/200 |
|
|
|
[考研] 272求調(diào)劑 +7 | 腳滑的守法公民 2026-03-27 | 7/350 |
|
|
|
[考研] 考研調(diào)劑 +10 | 呼呼？~+123456 2026-03-24 | 10/500 |
|
|
|
[考研] 263求調(diào)劑 +6 | yqdszhdap－ 2026-03-22 | 10/500 |
|
|
|
[考研] 290分調(diào)劑求助 +3 | 吉祥止止陳 2026-03-25 | 3/150 |
|
|
|
[考研] 302求調(diào)劑 +4 | 錦衣衛(wèi)藤椒 2026-03-25 | 4/200 |
|
|
|
[考研] 284求調(diào)劑 +3 | yanzhixue111 2026-03-23 | 6/300 |
|
|
|
[考研] 269求調(diào)劑 +4 | 我想讀研11 2026-03-23 | 4/200 |
|