Re: [請益]請救命～～我的ｆｏｒｔｒａｎ
※ 引述《balloom (葉子的離開...)》之銘言：
: 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")
如同上一個回應者一樣的問題
開這兩個 file 有什麼意義嬤
: do i=1,n,6
n 這邊沒有給~這程式能跑嬤 ???
: 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
: end if
: end do
: end do
: stop
: end
cor2() 的值完全都沒有給
fortran 沒法做下去吧
by default core2 應該都是 0
: 程式碼如上
: 我現在有一組座標的data
: 存成
: x y z
: cm(1) cm(2) cm(3) cm(4) cm(5) cm(6)
: cm(7) cm(8) cm(9) cm(10) cm(11) cm(12)
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.109.112.232
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 3 之 3 篇)：