用fortran生成隨機數的方法很簡單，就是：
call random_seed ()
call random_number (rd)
生成隨機數組可以這樣：
do k = 1,10
call random_seed ()
call random_number (rd)
x(k) = rd
!do something
....
end do
但如果迴圈過程中do something這裡所消耗的時間比較短，那麼
所生成的隨機數很可能是一樣的。在小木蟲上一位網友給出了相應的解決方法，請見：
program test
real :: r
! call random_seed()
call init_random_seed()
do i=1,10
call random_number(r)
write(*,*) r
end do
end program test
subroutine init_random_seed()
integer :: i, n, clock
integer, dimension(:), allocatable :: seed
call random_seed(size = n)
allocate(seed(n))
call system_clock(count=clock)
seed = clock + 37 * (/ (i - 1, i = 1, n) /)
call random_seed(put = seed)
deallocate(seed)
end subroutine init_random_seed
如何讓不同的二級網域名稱訪問不同的目錄
當您在開發乙個系統,需要為每個使用者分配乙個二級網域名稱並讓他訪問各自的內容時,比如 abc使用者註冊後為其分配乙個abc.web9898.cn的網域名稱,當使用者輸入abc.web9898.cn的時候自動訪問www.web9898.cn abc的內容 因為要讓無限制的網域名稱訪問某乙個 所以在虛擬...
如何讓程式識別不同目錄下的dll
我們看到，上面的順序無論是否有強名稱簽名看，都提到了乙個名詞 私有目錄 推薦 這是最簡單的方法，當然也有一定的侷限性，就是沒法對dll做控制，另外，無法解決第三方dllimprt中引入的程式集不在根目錄下的問題，不過無論怎麼說，這個都基本解決了問題。配置如下,多個目錄用 分隔 xmlns urn s...
如何讓qmake生成的Makefie不鏈結Qt庫
在csdn上搜尋了一下，大部分關於qmake的例項都是鏈結到qt庫，包括qtcore和qtgui。如果只是想寫乙個普通的c 命令列程式，鏈結qt庫顯然是使得最終生成的程式尺寸變得臃腫，而且必須要安裝龐大的qt包。那麼如何讓qmake不鏈結到qt庫呢？預設情況下，qmake是要鏈結qtcore和qtg...