silence compilation warning on Type mismatch

Parallel-NetCDF · Dec 6, 2023 · f86cf10 · f86cf10
1 parent 8273a15
commit f86cf10
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/benchmarks/FLASH-IO/flash_benchmark_io.F90 b/benchmarks/FLASH-IO/flash_benchmark_io.F90
@@ -127,7 +127,7 @@ program flash_benchmark_io
 ! netCDF plotfile -- corners
 !---------------------------------------------------------------------------
       time_begin = MPI_Wtime()
-      corner_io = plotfile_ncmpi_par(0,0.e0,.true.)
+      corner_io = plotfile_ncmpi_par(0, DBLE(0.0), .true.)
       time_io(3) = MPI_Wtime() - time_begin
 
       call report_io_performance(verbose, local_blocks, time_io, chk_io, &