The R Project SVN R

Rev

Rev 808 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 808 Rev 5457
Line 60... Line 60...
60 
c     blas daxpy,ddot,dscal,dasum
 60 
c     blas daxpy,ddot,dscal,dasum
61 
c     fortran dabs,dmax1,dreal,dsign
 61 
c     fortran dabs,dmax1,dreal,dsign
62 
c
 62 
c
63 
      subroutine dpoco(a,lda,n,rcond,z,info)
 63 
      subroutine dpoco(a,lda,n,rcond,z,info)
64 
      integer lda,n,info
 64 
      integer lda,n,info
65 
      double precision a(lda,1),z(1)
 65 
      double precision a(lda,*),z(*)
66 
      double precision rcond
 66 
      double precision rcond
67 
c
 67 
c
68 
c     internal variables
 68 
c     internal variables
69 
c
 69 
c
70 
      double precision ddot,ek,t,wk,wkm
 70 
      double precision ddot,ek,t,wk,wkm