forked from GaddamShivasai/particle-collision
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathcollide.F90
executable file
·33 lines (24 loc) · 962 Bytes
/
collide.F90
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
program collide
! *****************************************************************************
!
! purpose: collision of particles
!
! *****************************************************************************
use moduleParticle
implicit none
write(*,*)
write(*,*)'-----------------------------------------------------------------'
write(*,*)' Particle collision '
write(*,*)'-----------------------------------------------------------------'
write(*,*)'-----------------------------------------------------------------'
! initialization --------------------
write(*,*)
write(*,*) ' initialization ... '
write(*,*)
call initialize
write(*,*)
write(*,*)'-----------------------------------------------------------------'
write(*,*)' done ... '
write(*,*)'-----------------------------------------------------------------'
write(*,*)
end program collide