Utils Compilation issue in SIESTA 4.1.-b4

[hipabitra]

Hallo,
I was compiling all the utilities in the Util folder in siesta v4.1.-b4
using the command

sh build_all.sh

In the middle of the compilation I am getting this error:

=============================================
/media/user/6456B45A56B42F24/SIESTA_install/siesta-4.1-b4/Util/TS/TBtrans/../../../Src/m_mat_invert.F90:81:24:

81 | call zgesv(no,no,M,no,ipiv,zwork,no,lierr)
| 1
......
392 | call zgesv(n1,n2,A1(1),no,ipiv,C2(1),no,i)
| 2
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
make: *** [../../../Obj/arch.make:59: m_mat_invert.o] Error 1
*** COMPILATION FAILED in ./TS/TBtrans ***

Please tell me how to fix the error.

I am attaching the "m_mat_invert.F90" file for reference.
I have put .txt extension to make it compatible for uploading.
Regards,
Dr. Pabitra Mandal

m_mat_invert.F90.txt