我目前已經創建了一個代碼,可以從輸入的目錄中打開一個文件,然後開始將該數據排序爲兩個不同的數組,一個整數和一個字符。輸入文件看起來是這樣的: 1817
Plot50.0.xyz
C 0.70900 0.00000 0.00000
C 0.00000 1.22802 0.00000
C 2.12700 0.00000 0.00000
C
我使用Absoft公司親Fortran和我有一段代碼如下: program test1
INTEGER :: q, CAPQ, ingrid(1:6), outgrid(1:10)
ingrid = (/1,2,3,4,5,6/)
outgrid = 0
CAPQ = 6
DO q=1,CAPQ
outgrid(q) = ingrid(q)
ENDDO
END
我得到這部分代碼中的浮點溢出錯誤。你們能幫助我找出原因嗎? do j=1,ny-1
do i=1,nx-1
sum = 0.0d0
do k=0,1000
n=2.0d0*dfloat(k)+ 1.0d0
sum = sum + ((dsinh(n*pi*x(i))*dcos(n*pi*y(j)))/((n*n*pi*pi)*dsinh(2