H A D | idzp_rid.f | 86 1 lra,ier,k local 108 lra = lproj-lwork 109 call idz_findrank(lra,eps,m,n,matveca,p1,p2,p3,p4, 143 subroutine idz_findrank(lra,eps,m,n,matveca,p1,p2,p3,p4, argument 192 integer m,n,lw,krank,ix,lx,iy,ly,iscal,lscal,lra,ier local 213 call idz_findrank0(lra,eps,m,n,matveca,p1,p2,p3,p4, 223 subroutine idz_findrank0(lra,eps,m,n,matveca,p1,p2,p3,p4, argument 231 integer m,n,krank,ifrescal,k,lra,ier,m2 local 249 if(lra .lt. n*2*(krank+1)) then
|