223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

forgot this in last commit 

Important: Do not update only the code dir, also the lib dir
This commit is contained in:
Martin Diehl 2013-09-18 14:14:39 +00:00
parent 3eec0ecdcd
commit 59ba41e9e7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/kdtree2.f90
View File

@ -1356,7 +1356,7 @@ subroutine validate_query_storage(n)
integer(pInt), intent(in) :: n integer(pInt), intent(in) :: n
if (int(size(sr%results,1),pInt) < n) then 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 endif
return return