From ceb79d8fd850cd0949b276e36efce88f9a7a76c3 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@uniroma2.it>
Date: Tue, 2 Jun 2020 18:09:15 +0200
Subject: [PATCH] Fix bad argument passing for sort_dl

---
 base/internals/psi_crea_index.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/base/internals/psi_crea_index.f90 b/base/internals/psi_crea_index.f90
index 2c340805..0f14c4aa 100644
--- a/base/internals/psi_crea_index.f90
+++ b/base/internals/psi_crea_index.f90
@@ -197,7 +197,7 @@ subroutine psi_i_crea_index(desc_a,index_in,index_out,nxch,nsnd,nrcv,info)
 !!$        call psi_dl_check(dep_list,dl_lda,np,length_dl)
 !!$
 !!$        ! ....now i can sort dependency lists.
-        call psi_sort_dl(dl_ptr,c_dep_list,length_dl,np,info)
+        call psi_sort_dl(dl_ptr,c_dep_list,length_dl,ictxt,info)
         if (info /= 0) then
           write(0,*) me,trim(name),' From sort_dl ',info
         end if