diff --git a/example/example_ppm1.f90 b/example/example_ppm1.f90 index 31b61c484..18e1f2cfc 100644 --- a/example/example_ppm1.f90 +++ b/example/example_ppm1.f90 @@ -15,7 +15,7 @@ program example_ppm1 type(colormap) :: cmap integer(ik), allocatable :: px(:, :) real(rk), allocatable :: Xg(:,:), z_values(:) - real(rk) :: z, center(3), inner_radius, outer_radius, aspect_ratio + real(rk) :: center(3), inner_radius, outer_radius, aspect_ratio integer :: height, width, ng(2), red, green, blue, res1, res2, i integer, allocatable :: idx(:,:) type(timer) :: t diff --git a/example/example_ppm2.f90 b/example/example_ppm2.f90 index 81ed0148f..f8a02978d 100644 --- a/example/example_ppm2.f90 +++ b/example/example_ppm2.f90 @@ -15,7 +15,7 @@ program example_ppm2 type(colormap) :: cmap integer(ik), allocatable :: px(:, :) real(rk), allocatable :: Xg(:,:), z_values(:) - real(rk) :: z, center(3), inner_radius, outer_radius, aspect_ratio + real(rk) :: center(3), inner_radius, outer_radius, aspect_ratio integer :: height, width, ng(2), red, green, blue, res1, res2, i integer, allocatable :: idx(:,:) type(timer) :: t