The R Project SVN R

Rev

Rev 5457 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5457 Rev 76639
Line 52... Line 52...
52 
c     blas daxpy,dscal
 52 
c     blas daxpy,dscal
53 
c     fortran mod
 53 
c     fortran mod
54 
c
 54 
c
55 
      subroutine dpodi(a,lda,n,det,job)
 55 
      subroutine dpodi(a,lda,n,det,job)
56 
      integer lda,n,job
 56 
      integer lda,n,job
57 
      double precision a(lda,*)
 57 
      double precision a(lda,n)
58 
      double precision det(2)
 58 
      double precision det(2)
59 
c
 59 
c
60 
c     internal variables
 60 
c     internal variables
61 
c
 61 
c
62 
      double precision t
 62 
      double precision t