Parameter check of m and p is wrong.
functionab13bd(dico,jobn,n,m,p,a,lda,b,ldb,c,ldc,d,ldd,nq,tol,dwork,ldwork,iwarn,info) ! inAB13BD.fcharacterintent(in) :: dicocharacterintent(in) :: jobnintegercheck(n>=0) :: nintegercheck(n>=0) :: mintegercheck(n>=0) :: p
...
Fix
functionab13bd(dico,jobn,n,m,p,a,lda,b,ldb,c,ldc,d,ldd,nq,tol,dwork,ldwork,iwarn,info) ! inAB13BD.fcharacterintent(in) :: dicocharacterintent(in) :: jobnintegercheck(n>=0) :: nintegercheck(m>=0) :: mintegercheck(p>=0) :: p
...
Parameter check of m and p is wrong.
Fix