diff --git a/src/plot.F90 b/src/plot.F90 index 2bf390540..bc06610b4 100644 --- a/src/plot.F90 +++ b/src/plot.F90 @@ -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 diff --git a/src/plot_header.F90 b/src/plot_header.F90 index ad9aa3525..9937db7dd 100644 --- a/src/plot_header.F90 +++ b/src/plot_header.F90 @@ -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