 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 6 | 1/1 | 返回列表 |
| 查看: 1012 | 回復(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ù)此樓» 猜你喜歡
309求調(diào)劑
已經(jīng)有3人回復(fù)
-
070300化學(xué)354求調(diào)劑
已經(jīng)有4人回復(fù)
-
330分求調(diào)劑
已經(jīng)有3人回復(fù)
-
299求調(diào)劑
已經(jīng)有8人回復(fù)
-
一志愿北京理工大學(xué)本科211材料工程294求調(diào)劑
已經(jīng)有6人回復(fù)
-
300求調(diào)劑，材料科學(xué)英一數(shù)二
已經(jīng)有8人回復(fù)
-
招收生物學(xué)/細(xì)胞生物學(xué)調(diào)劑
已經(jīng)有5人回復(fù)
-
070305高分子化學(xué)與物理 304分求調(diào)劑
已經(jīng)有7人回復(fù)
-
289求調(diào)劑
已經(jīng)有13人回復(fù)
-
一志愿哈爾濱工業(yè)大學(xué)材料與化工方向336分
已經(jīng)有9人回復(fù)
» 本主題相關(guān)價值貼推薦，對您同樣有幫助:
- fortran讀寫問題
已經(jīng)有6人回復(fù)
- FORTRAN中如何實現(xiàn)重復(fù)讀取一行？
已經(jīng)有24人回復(fù)
- 急求fortran運行錯誤原因，在線等
已經(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文件可以單獨運行？
已經(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ā)自手機版 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ā)表 | |
|---|---|---|---|---|
|
[考研] 0856求調(diào)劑 +6 | 楒桉 2026-03-28 | 6/300 |
|
|---|---|---|---|---|
|
[考研] 一志愿鄭州大學(xué)，080500學(xué)碩，總分317分求調(diào)劑 +5 | 舉個栗子oi 2026-03-24 | 6/300 |
|
|
|
[考研] 求調(diào)劑 +7 | 爭取九點睡 2026-03-28 | 8/400 |
|
|
|
[考研] 311（085601）求調(diào)劑 +4 | liziyeyeye 2026-03-28 | 4/200 |
|
|
|
[考研] 085602 化工專碩 338分 求調(diào)劑 +12 | 路癡小琪 2026-03-27 | 12/600 |
|
|
|
[考研] 調(diào)劑 +3 | 好好讀書。 2026-03-28 | 3/150 |
|
|
|
[考研] 材料277求調(diào)劑 +7 | min3 2026-03-24 | 7/350 |
|
|
|
[考研] 292求調(diào)劑 +14 | 鵝鵝鵝額額額額?/a> 2026-03-25 | 15/750 |
|
|
|
[考研] 340求調(diào)劑 +5 | jhx777 2026-03-27 | 5/250 |
|
|
|
[考研] 一志愿華東理工大學(xué)081700，初試分?jǐn)?shù)271 +6 | kotoko_ik 2026-03-23 | 7/350 |
|
|
|
[考研] 0703化學(xué)一志愿南京師范大學(xué)303求調(diào)劑 +3 | zzffylgg 2026-03-24 | 3/150 |
|
|
|
[考研]
材料調(diào)劑
 5+4
|
想要一壺桃花水 2026-03-25 | 10/500 |
|
|
|
[考研] 總分293求調(diào)劑 +6 | 加一一九 2026-03-25 | 8/400 |
|
|
|
[考研] 一志愿哈工大，085400，320，求調(diào)劑 +4 | gdlf9999 2026-03-24 | 4/200 |
|
|
|
[考研] 303求調(diào)劑 +6 | 藍(lán)山月 2026-03-25 | 6/300 |
|
|
|
[考研] 各位老師您好：本人初試372分 +5 | jj涌77 2026-03-25 | 6/300 |
|
|
|
[考研] 化工專碩求調(diào)劑 +3 | question挽風(fēng) 2026-03-24 | 3/150 |
|
|
|
[考研] 一志愿南航材料專317分求調(diào)劑 +5 | 炸呀炸呀炸薯條 2026-03-23 | 5/250 |
|
|
|
[考研] 080500求調(diào)劑 +3 | zzzzfan 2026-03-24 | 3/150 |
|
|
|
[考研] 361求調(diào)劑 +3 | Glack 2026-03-22 | 3/150 |
|