Question

该计划如下。

当我尝试运行代码>〜80年时出现问题，此时代码显然已经运行了＆＃39;立即生成一个空文本文件。对于较小的时间尺度，代码运行良好。

PROGRAM NBody
IMPLICIT NONE

DOUBLE PRECISION:: m(1:10), deltaR(1:3)
DOUBLE PRECISION:: G, r
DOUBLE PRECISION, DIMENSION(10,3):: pos, v, a0, a1 !x, y, z
INTEGER:: n,i,j,k,stepsize, year, zero, length
CHARACTER(len=13):: fname !xxxyrxxpl.txt
zero = 0

m(1) = 1988500e24    !sun
m(2) = 0.33e24    !mercury
m(3) = 4.87e24    !venus
m(4) = 5.97e24    !earth
m(5) = 0.642e24    !mars
m(6) = 1898e24    !jupiter
m(7) = 568e24    !saturn
m(8) = 86.8e24    !uranus
m(9) = 102e24    !!neptune
m(10) = 0.0146e24    !pluto

!Initial POS
pos = zero
pos(2,1) = 57.9e9
pos(3,1) = 108e9
pos(4,1) = 149e9
pos(5,1) = 227e9
pos(6,1) = 778e9
pos(7,1) = 1352.6e9
pos(8,1) = 2741.3e9
pos(9,1) = 4444.5e9
pos(10,1) = 4436.8e9
!FORTRAN works column,row: (particle,x/y/z)
!Momentum is initially non-zero due to planet and velocity starting points. Figure out a solution.

!Initial velocity
v = zero
v(2,2) = 47.4e3
v(3,2) = 35e3
v(4,2) = 29.8e3
v(5,2) = 24.1e3
v(6,2) = 13.1e3
v(7,2) = 9.7e3
v(8,2) = 6.8e3
v(9,2) = 5.4e3
v(10,2) = 4.7e3

g = 6.67e-11
stepsize = 1800 !3600 = 1 hour
year = 3.154e+7

!Calculate initial values
a0 = 0
a1 = 0
do i = 1,10
    do j = 1,10
    if(i==j) cycle
    deltaR(:) = (pos(i,:)-pos(j,:))
    r = -sqrt((pos(i,1)-pos(j,1))**2+(pos(i,2)-pos(j,2))**2+(pos(i,3)-pos(j,3))**2)
    a0(i,:) = a0(i,:) + g*M(j)*deltaR*r**(-3)
    END DO
END DO

write(6,*) "Specify length in years"
read (*,*) length
write(6,*) "Specify file name (xxxYRzzPL.txt)"
read(*,*) fname

!Just above is where I call for a length in the terminal, values of 40 will work, much higher do not. I don't know the exact cut-off.


open (unit = 2, file = fname)

!Do loop over time, planet and partners to step positions
do k=0, length*year,stepsize
    write(2,*) pos
    pos = pos + v*stepsize + 0.5*a0*stepsize**2
    do i = 1,10
        do j = 1,10
        if(i==j) cycle
        deltaR(:) = (pos(i,:)-pos(j,:))
        r = -sqrt((pos(i,1)-pos(j,1))**2+(pos(i,2)-pos(j,2))**2+(pos(i,3)-pos(j,3))**2)
        a1(i,:) = a1(i,:) + G*M(j)*deltaR/r**3
        END DO
    END DO
    v = v + 0.5*(a0+a1)*stepsize
    a0=a1
    a1=0

END DO

close (2)

END PROGRAM

我怀疑这可能是存储变量的问题，但我无法看到任何问题。

Answer 1

扩展@francescalus，您可能需要将整数指定为8字节而不是默认值4：

integer, parameter :: c_int8 = selected_int_kind (10)
integer(kind = c_int8) :: n,i,j,k,stepsize, year, zero, length

编辑我添加了一个参数来确定本地64位整数的正确值。

Fortran NBody sim代码不会因高年值而运行

1 个答案: