看板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家唱片公司合法授权 音乐尽情下载
--