tTh/Fortraneries
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

first real run, make a gif89a, need more tweaking

Browse Source
This commit is contained in:
tTh
2022-11-30 02:52:16 +01:00
parent fa8b28daae
commit b68207631c
5 changed files with 86 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
GravityField/realfield.f90
View File

@@ -6,7 +6,8 @@ module realfield
implicit none
!-----------------------------------------------------------------------
! definition of structures
!
type massbody
real :: posx, posy
real :: mass = 1.0
@@ -17,23 +18,20 @@ end type
contains
!-----------------------------------------------------------------------
function compute_gravity(ix, iy, body)
integer, intent(in) :: ix, iy
function compute_gravity(fx, fy, body)
real, intent(in) :: fx, fy
type(massbody), intent(in) :: body
real :: compute_gravity
real :: rx, ry, dist
rx = real(ix) - body%posx
ry = real(iy) - body%posy
real :: rx, ry, dist
rx = fx - body%posx
ry = fy - body%posy
dist = sqrt( (rx*rx) + (ry*ry) )
if (dist .LT. 0.15) then
if (dist .LT. 4.50) then
write (0, *) "dist too small ", dist
compute_gravity = 0e0
endif
compute_gravity = body%mass * (dist ** 2)
compute_gravity = body%mass / (dist ** 2)
end function