看板Programming
標 題Re: [請益]請救命～～我的ｆｏｒｔｒａｎ
發信站KKCITY (Sun Jun 15 23:58:08 2008)
轉信站ptt!ctu-reader!ctu-gate!news.nctu!news.ntu!news.au!zoonews.ee.ntu!news
※ 引述《[email protected] (葉子的離開...)》之銘言：
> Program CNT_dilute
> implicit none
> real:: cm(2394)
> real::cor2(216)
> real::a
> integer::i,j,k,n
> open(unit=10,file="D:\RECGLD2\cm.txt")
> open(unit=70,file="D:\RECGLD2\cluster.txt")
> read (10,*) cm
> Write(70,'(1x,6F12.6)') cm
> open(unit=100,file="D:\RECGLD2\cor2.txt")
這個檔案開來是幹嘛的？
> open(unit=40,file="D:\RECGLD2\cnt.txt")
> do i=1,n,6
> do j=1,120,6
> if((cm(i).GT.cor2(j)).and.(cm(i).LT.cor2(j+1))
> &.and.(cm(i+1).GT.cor2(j+2)).and.(cm(i+1).LT.cor2(j+3))
> &.and.(cm(i+2).GT.cor2(j+4)).and.(cm(i+2).LT.cor2(j+5)))then
> write(40,'(1x,6F12.6)')cm
為什麼你不用讀取東西進cor2陣列就可以引用裡面的數據？是f90有什麼特異
功能可以跟php的file()一樣方便還是怎樣？
後面spec我看不懂，總之你先想想看為什麼這些地方可以這麼快樂地空著不寫吧。
有種騎腳踏車騎了半小時才發現沒裝座墊的感覺…
更正，是一星期…
--
蒙帝派松正體中文計畫 (4/23)
- 如何隱身 - SPAM - 英國殺人笑話
http://www.wretch.cc/blog/journeyman&article_id=14377810
▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂
■法外科學暨工程顧問公司■ http://www.wretch.cc/blog/journeyman/
▆▆▆▆▆▆▆▆▆▆▆▆▆▆▆▆▆▆▆▆▆▆▆▆▆▆▆▆▆▆▆▆▆▆▆▆▆▆▆
--
┌─────◆ＫＫＣＩＴＹ◆─────┐ KKBOX◤歌名╱歌手╱歌詞╱專輯◢搜尋
│ bbs.kkcity.com.tw │ ★ http://www.kkbox.com.tw ★
└──《From:59.115.203.198
》──┘ 超過100家唱片公司合法授權 音樂盡情下載
--