crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-27 05:35:49 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fortran style updates.

Browse source
This commit is contained in:
Patrick Shriwise 2018-10-09 11:56:24 -05:00
parent 539b9c10ec
commit 52aeae2878
2 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/plot.F90
View file

@ -26,13 +26,13 @@ module plot
integer, parameter :: BLUE = 3
interface
subroutine position_rgb(p, pl, rgb, id) bind(C)
import Particle, ObjectPlot, C_INT
type(Particle), intent(inout) :: p
type(ObjectPlot), intent(in) :: pl
integer(C_INT), intent(out) :: rgb(3)
integer(C_INT), intent(out) :: id
end subroutine position_rgb
subroutine position_rgb(p, pl, rgb, id) bind(C)
import Particle, ObjectPlot, C_INT
type(Particle), intent(inout) :: p
type(ObjectPlot), intent(in) :: pl
integer(C_INT), intent(out) :: rgb(3)
integer(C_INT), intent(out) :: id
end subroutine position_rgb
end interface
contains

2
src/plot_header.F90
View file

@ -33,7 +33,7 @@ module plot_header
type(ObjectColor) :: meshlines_color ! Color for meshlines
type(ObjectColor) :: not_found ! color for positions where no cell found
type(ObjectColor) :: colors(MAX_COORD) ! colors of cells/mats
character(MAX_WORD_LEN, kind=C_CHAR) :: path_plot ! path for plot file
character(MAX_WORD_LEN, kind=C_CHAR) :: path_plot ! path for plot file
end type ObjectPlot
! Plot type