| 24小時(shí)熱門版塊排行榜 |
| 6 | 1/1 | 返回列表 |
| 查看: 557 | 回復(fù): 5 | |||
[交流]
【求助】我的程序中有一個(gè)負(fù)的實(shí)數(shù)輸出時(shí),老是顯示******【已完結(jié)】 已有2人參與
|
|
我的程序就是從STATIS文件中讀入一些數(shù)據(jù),然后輸出其中一些相關(guān)的數(shù)據(jù),可是有一個(gè)負(fù)的實(shí)數(shù)輸出時(shí)老是顯示*******,請(qǐng)大家?guī)兔,謝謝 PROGRAM MAIN IMPLICIT NONE DOUBLE PRECISION STEP(80000), TIM(80000), ENERGY(5), INTEGER, PARAMETER:: nstep=80000 INTEGER I, DUM !=================================================== OPEN (UNIT=21, FILE='energy') OPEN (UNIT=11, FILE='STATIS') DO I = 1, nstep READ (11, *) STEP(I), TIM(I), DUM READ (11, *) ENERGY(1), ENERGY(2), ENERGY(3), ENERGY(4), ENERGY(5) WRITE (21, "(3F12.6)" TIM(I), ENERGY(1), ENERGY(2)END DO CLOSE (11) CLOSE (21) STOP END [ Last edited by 余澤成 on 2010-12-13 at 22:03 ] |






| 6 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 0703化學(xué)調(diào)劑 ,六級(jí)已過(guò),有科研經(jīng)歷 +14 | 曦熙兮 2026-03-15 | 14/700 |
|
|---|---|---|---|---|
|
[考研] 0805 316求調(diào)劑 +3 | 大雪深藏 2026-03-18 | 3/150 |
|
|
[考研] 能源材料化學(xué)課題組招收碩士研究生8-10名 +5 | 脫穎而出 2026-03-16 | 15/750 |
|
|
[考研] 303求調(diào)劑 +5 | 睿08 2026-03-17 | 7/350 |
|
|
[考研] 299求調(diào)劑 +6 | △小透明* 2026-03-17 | 6/300 |
|
|
[考研] 一志愿中國(guó)石油大學(xué)(華東) 本科齊魯工業(yè)大學(xué) +3 | 石能偉 2026-03-17 | 3/150 |
|
|
[考研] 304求調(diào)劑 +6 | 曼殊2266 2026-03-18 | 6/300 |
|
|
[考研] 296求調(diào)劑 +6 | www_q 2026-03-18 | 10/500 |
|
|
[考研] 274求調(diào)劑 +10 | S.H1 2026-03-18 | 10/500 |
|
|
[考研] 22408 344分 求調(diào)劑 一志愿 華電計(jì)算機(jī)技術(shù) +4 | solanXXX 2026-03-20 | 4/200 |
|
|
[考研] 295求調(diào)劑 +4 | 一志愿京區(qū)211 2026-03-18 | 6/300 |
|
|
[考研] 0817 化學(xué)工程 299分求調(diào)劑 有科研經(jīng)歷 有二區(qū)文章 +22 | rare12345 2026-03-18 | 22/1100 |
|
|
[考研] 工科材料085601 279求調(diào)劑 +7 | 困于星晨 2026-03-17 | 9/450 |
|
|
[考研] 328求調(diào)劑,英語(yǔ)六級(jí)551,有科研經(jīng)歷 +4 | 生物工程調(diào)劑 2026-03-16 | 12/600 |
|
|
[考研] 【同濟(jì)軟件】軟件(085405)考研求調(diào)劑 +3 | 2026eternal 2026-03-18 | 3/150 |
|
|
[考研] 生物學(xué)071000 329分求調(diào)劑 +3 | 我愛(ài)生物生物愛(ài)?/a> 2026-03-17 | 3/150 |
|
|
[考研] 308求調(diào)劑 +4 | 是Lupa啊 2026-03-16 | 4/200 |
|
|
[考研] 290求調(diào)劑 +3 | p asserby. 2026-03-15 | 4/200 |
|
|
[考研] 283求調(diào)劑 +3 | 聽(tīng)風(fēng)就是雨; 2026-03-16 | 3/150 |
|
|
[考研] 一志愿211 0703方向310分求調(diào)劑 +3 | 努力奮斗112 2026-03-15 | 3/150 |
|