From df5c0de8b7e5db9ae9336270eea0db2877912ac5 Mon Sep 17 00:00:00 2001
From: Sylvain Tricot <sylvain.tricot@univ-rennes1.fr>
Date: Wed, 21 Jul 2021 23:06:12 +0200
Subject: [PATCH] Fix bug, the rank was not set properly

---
 src/msspec/spec/fortran/eig/common/diagonalize_matrix.f | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/msspec/spec/fortran/eig/common/diagonalize_matrix.f b/src/msspec/spec/fortran/eig/common/diagonalize_matrix.f
index da75446..38dc37d 100644
--- a/src/msspec/spec/fortran/eig/common/diagonalize_matrix.f
+++ b/src/msspec/spec/fortran/eig/common/diagonalize_matrix.f
@@ -17,7 +17,7 @@ c
 c Local variables
 c
       integer    :: lwork
-      complex*16 :: wquery
+      complex*16 :: wquery(1)
       complex*16 :: vl(1,1), vr(1,1)
 c
       real*8,     allocatable :: rwork(:)
@@ -39,7 +39,7 @@ c
          write(iuo1,*) '                        '
       end if
 c
-      lwork = int(wquery)
+      lwork = int(wquery(1))
       allocate(work(lwork))
 c
       call zgeev('n','n',n,a,lda,w,vl,1,vr,1,work,lwork,rwork,info)