From 59ba41e9e7b2f4a2f8785a35cf912abbc2c9094d Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Wed, 18 Sep 2013 14:14:39 +0000 Subject: [PATCH] forgot this in last commit Important: Do not update only the code dir, also the lib dir --- lib/kdtree2.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/kdtree2.f90 b/lib/kdtree2.f90 index 2baae0bb0..c057ec823 100644 --- a/lib/kdtree2.f90 +++ b/lib/kdtree2.f90 @@ -1356,7 +1356,7 @@ subroutine validate_query_storage(n) integer(pInt), intent(in) :: n if (int(size(sr%results,1),pInt) < n) then - call IO_error (460_pInt,e=n,i=int(size(sr%results,1),pInt),ext_msg='KD_TREE_TRANS: not enough storage for results(1:n)') + call IO_error (460_pInt,el=n,ip=int(size(sr%results,1),pInt),ext_msg='KD_TREE_TRANS: not enough storage for results(1:n)') endif return