作者DMFC (solebaby)
看板Programming
标题Re: [请益]请救命～～我的ｆｏｒｔｒａｎ
时间Thu Jun 19 17:21:05 2008
※ 引述《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