Bug, parameter check in ab13bd #198

function ab13bd(dico,jobn,n,m,p,a,lda,b,ldb,c,ldc,d,ldd,nq,tol,dwork,ldwork,iwarn,info) ! in AB13BD.f
    character intent(in) :: dico
    character intent(in) :: jobn
    integer check(n>=0) :: n
    integer check(n>=0) :: m
    integer check(n>=0) :: p
    ...

function ab13bd(dico,jobn,n,m,p,a,lda,b,ldb,c,ldc,d,ldd,nq,tol,dwork,ldwork,iwarn,info) ! in AB13BD.f
    character intent(in) :: dico
    character intent(in) :: jobn
    integer check(n>=0) :: n
    integer check(m>=0) :: m
    integer check(p>=0) :: p
    ...