From fdd4e224ce5c6efef2f8635a107e774ddad2d3fc Mon Sep 17 00:00:00 2001 From: Philip Eisenlohr Date: Thu, 16 Jan 2014 22:02:03 +0000 Subject: [PATCH] fixed integer type clash in Get_Unit function --- lib/Lib_VTK_IO.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/Lib_VTK_IO.f90 b/lib/Lib_VTK_IO.f90 index 4c6dbab5f..62a838189 100644 --- a/lib/Lib_VTK_IO.f90 +++ b/lib/Lib_VTK_IO.f90 @@ -481,7 +481,7 @@ contains integer function Get_Unit(Free_Unit) !--------------------------------------------------------------------------------------------------------------------------------- implicit none - integer, intent(OUT), optional:: Free_Unit !< Free logic unit. + integer(I4P), intent(OUT), optional:: Free_Unit !< Free logic unit. integer:: n1 !< Counter. integer:: ios !< Inquiring flag. logical:: lopen !< Inquiring flag.