From bceaa70b980370ee1c472c31f4927a3f540cfb59 Mon Sep 17 00:00:00 2001 From: vmagnin Date: Tue, 5 Mar 2024 11:10:49 +0100 Subject: [PATCH] example/example1.f90: explicit int() --- example/example1.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/example/example1.f90 b/example/example1.f90 index 75ea102..57b295f 100644 --- a/example/example1.f90 +++ b/example/example1.f90 @@ -21,7 +21,7 @@ ! SOFTWARE. !------------------------------------------------------------------------------- ! Contributed by gha3mi: 2023-10-26 -! Last modification: gha3mi 2024-01-06, vmagnin 2024-02-21 +! Last modification: gha3mi 2024-01-06, vmagnin 2024-03-05 !------------------------------------------------------------------------------- !> This example demonstrates how ForImage can be used to import/export PPM files. @@ -45,8 +45,8 @@ program example1 call ex1_colorbar%import_pnm('a_loaded_colormap_ascii_colorbar','ppm', 'ascii') ! Change colormap and colorbar colors - ex1_colormap%pixels = ex1_colormap%pixels * (1.6) - ex1_colorbar%pixels = ex1_colorbar%pixels * (1.6) + ex1_colormap%pixels = int(ex1_colormap%pixels * 1.6) + ex1_colorbar%pixels = int(ex1_colorbar%pixels * 1.6) ! Export binary ppm files call ex1_colormap%export_pnm('a_loaded_colormap_binary_test_m', 'binary')