mirror of
https://github.com/openmc-dev/openmc.git
synced 2026-07-29 06:35:48 -04:00
Remove physics_common.F90
This commit is contained in:
parent
1138b5bb45
commit
6d4017f3a2
2 changed files with 0 additions and 21 deletions
|
|
@ -331,7 +331,6 @@ add_library(libopenmc SHARED
|
|||
src/particle_header.F90
|
||||
src/particle_restart.F90
|
||||
src/photon_header.F90
|
||||
src/physics_common.F90
|
||||
src/pugixml/pugixml_f.F90
|
||||
src/random_lcg.F90
|
||||
src/reaction_header.F90
|
||||
|
|
|
|||
|
|
@ -1,20 +0,0 @@
|
|||
module physics_common
|
||||
|
||||
use, intrinsic :: ISO_C_BINDING
|
||||
|
||||
use particle_header, only: Particle
|
||||
|
||||
implicit none
|
||||
|
||||
!===============================================================================
|
||||
! RUSSIAN_ROULETTE FROM C
|
||||
!===============================================================================
|
||||
|
||||
interface
|
||||
subroutine russian_roulette(p) bind(C)
|
||||
import Particle
|
||||
type(Particle), intent(inout) :: p
|
||||
end subroutine russian_roulette
|
||||
end interface
|
||||
|
||||
end module physics_common
|
||||
Loading…
Add table
Add a link
Reference in a new issue